;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)

(autoload 'inform-mode "inform-mode" "Inform editing mode." t)
(autoload 'inform-maybe-mode "inform-mode" "Inform/C header editing mode.")
(setq auto-mode-alist
      (append '(("\\.h\\'"   . inform-maybe-mode)
                ("\\.inf\\'" . inform-mode))
               auto-mode-alist))
;;(load-file "~/elisp/screenplay.el")
;;(load-file "~/elisp/chuck_edit.el")
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(define-key global-map [(meta up)] '(lambda() (interactive) (scroll-other-window -1)))
(define-key global-map [(meta down)] '(lambda() (interactive) (scroll-other-window 1)))
(desktop-save-mode 1)
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(gpm-mouse-mode t)
 '(inform-command-options "+include_path=../fi611,./,../inform_library611" t)
 '(inform-interpreter-command "fizmo-ncursesw" t)
 '(package-selected-packages (quote (php-mode)))
 '(send-mail-function (quote sendmail-send-it))
 '(xterm-mouse-mode nil))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(bold ((t (:background "cyan" :foreground "black"))))
 '(buffer-menu-buffer ((t (:foreground "blue" :weight normal))))
 '(custom-state ((t (:background "green" :foreground "black"))))
 '(font-lock-builtin-face ((t (:foreground "red" :weight normal))))
 '(font-lock-comment-delimiter-face ((t (:inherit font-lock-comment-face :foreground "red"))))
 '(font-lock-comment-face ((t (:background "green" :foreground "black"))))
 '(font-lock-constant-face ((t (:background "cyan" :foreground "black"))))
 '(font-lock-function-name-face ((t (:background "cyan" :foreground "black" :underline nil :weight normal))))
 '(font-lock-keyword-face ((t (:foreground "red" :weight normal))))
 '(font-lock-string-face ((t (:foreground "blue" :weight normal))))
 '(font-lock-type-face ((t (:foreground "red"))))
 '(font-lock-variable-name-face ((t (:background "yellow" :foreground "black" :weight normal))))
 '(info-title-2 ((t (:foreground "blue" :weight normal))))
 '(inform-dictionary-word-face ((t (:background "blue" :foreground "white" :inverse-video nil :weight normal))))
 '(italic ((t (:background "green"))))
 '(link ((t (:foreground "blue" :underline t))))
 '(org-block-nil ((t (:foreground "black"))))
 '(org-level-2 ((t (:foreground "blue"))))
 '(org-level-3 ((t (:foreground "magenta"))))
 '(org-level-4 ((t (:foreground "blue"))))
 '(org-todo ((t (:foreground "red" :weight normal))))
 '(org-verbatim ((t (:foreground "blue"))))
 '(outline-1 ((t (:foreground "red"))))
 '(outline-3 ((t (:foreground "yellow"))))
 '(shadow ((t (:background "white" :foreground "blue"))))
 '(underline ((t (:background "cyan" :underline (:color foreground-color :style wave)))))
 '(warning ((t (:foreground "red" :weight normal)))))
;; load emacs 24's package system. Add MELPA repository.
 (when (>= emacs-major-version 24)
   (require 'package)
   (add-to-list
    'package-archives
    '("melpa" . "http://melpa.org/packages/") 
	;; many packages won't show if using stable
    ;; '("melpa" . "http://melpa.milkbox.net/packages/")
    t))

;; sähköisen selectric-kirjoituskoneen ääni
;;(add-to-list 'load-path "~/.emacs.d/plugins/selectric-mode")
;;(require 'selectric-mode)

;; org mode
(set-default 'cursor-type 'box)

(setq org-publish-project-alist
      '(("org"
         :base-directory "~/WIP/org/"
         :publishing-function org-html-publish-to-html
         :publishing-directory "~/WIP/html"
         :section-numbers nil
         :table-of-contents nil
         :style "<link rel=\"stylesheet\"
                href=\"tyyli.css\"
                type=\"text/css\"/>")))