.emacs.el

;; 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)

(setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/")
                         ("melpa" . "https://melpa.org/packages/")))

(prefer-coding-system 'utf-8)

(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.
 '(org-agenda-files (quote ("~/Dropbox/org/todo.org")))
 '(package-selected-packages
   (quote
    (gist rust-mode cider markdown-mode terraform-mode groovy-mode magit mode-compile))))
(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.
 )

(add-to-list 'load-path "~/.emacs.d/color-theme-6.6.0/")
(add-to-list 'load-path "~/.emacs.d/org-mode/lisp/")
(add-to-list 'load-path "~/.emacs.d/magit-1.0.0")

(require 'color-theme)
(load (expand-file-name "~/.emacs.d/color-theme-almost-monokai.el"))

(color-theme-almost-monokai)

(menu-bar-mode 0)
(require 'tool-bar)
(tool-bar-mode 0)
(require 'scroll-bar)
(scroll-bar-mode -1)

(setq user-full-name "Hee Won Kim")
(setq user-mail-address "saillinux@gmail.com")
(setq user-homepage "http://facebook.com/doxastic")


(defalias 'perl-mode 'cperl-mode)
(setq cperl-hairy t)
(setq cperl-highlight-variables-indiscriminately t)

;; (require 'perltidy)

;; (global-set-key "\C-cpb" 'perltidy-buffer)
;; (global-set-key "\C-cps" 'perltidy-subroutine)
;; (global-set-key "\C-cpr" 'perltidy-region)

(setq auto-mode-alist (cons '("\\.t$" . cperl-mode) auto-mode-alist))

(setq dotfiles-dir
      (file-name-directory
       (or (buffer-file-name) load-file-name)))

(let* ((org-dir (expand-file-name
                 "lisp" (expand-file-name
                         "org" (expand-file-name
                                "src" dotfiles-dir))))
       (org-contrib-dir (expand-file-name
                         "lisp" (expand-file-name
                                 "contrib" (expand-file-name
                                            ".." org-dir))))
       (load-path (append (list org-dir org-contrib-dir)
                          (or load-path nil))))
  (require 'org-install)
  (require 'ob-tangle))

;; (mapc #'org-babel-load-file
;;       (directory-files
;;        (expand-file-name "~/Dropbox/org/")
;;        t "\\.org$"))

;; (setq org-modules
;;       '(org-bbdb
;;         org-gnus
;;         org-info
;;         org-jsinfo
;;         org-irc
;;         org-w3m
;;         org-id
;;         org-habit))
;; (require 'org-install)

;; (add-to-list 'auto-mode-alist
;;              '("\\.\\(org\\|org_archive\\)$" . org-mode))
;; (setq org-directory (expand-file-name "~/Dropbox/org"))

;; Set to the name of the file where new notes will be stored
;; (setq org-mobile-inbox-for-pull "~/Dropboxorg/flagged.org")
;; Set to <your Dropbox root directory>/MobileOrg.
;; (setq org-mobile-directory "~/Dropbox/MobileOrg")

;; (setq org-todo-keywords
;;       (quote ((sequence
;;                "TODO(t)"
;;                "NEXT(n)"
;;                "STARTED(s)"
;;                "|" "DONE(d!/!)" "CANCELLED(c@/!)")
;;               (sequence "INBOX"))))

;; (setq org-default-notes-file (concat org-directory "/todo.org"))

;; (setq org-capture-templates
;;       (quote
;;        (("t" "todo" entry (file+headline "todo.org" "inbox")
;;          "* TODO %?%a\n %U\n"
;;          :clock-in t
;;          :clock-resume t))))



(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)
(global-set-key (kbd "C-c r") 'org-capture)
(global-set-key "\C-cl" 'org-store-link)

;; (require 'magit)

(autoload 'mode-compile "mode-compile"
  "Command to compile current buffer file based on the major mode" t)
(global-set-key "\C-cc" 'mode-compile)
(autoload 'mode-compile-kill "mode-compile"
  "Command to kill a compilation launched by `mode-compile'" t)
(global-set-key "\C-ck" 'mode-compile-kill)


(add-to-list 'load-path "~/.emacs.d/yaml-mode")
(require 'yaml-mode)
(add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode))


(defun my-python-hooks()
    (interactive)
    (setq tab-width     4
          python-indent 4
          python-shell-interpreter "/usr/local/bin/python3"
          python-shell-interpreter-args "-i")
    (if (string-match-p "rita" (or (buffer-file-name) ""))
        (setq indent-tabs-mode t)
      (setq indent-tabs-mode nil)
      )
    (setq py-python-command "python3")
)

(add-hook 'python-mode-hook 'my-python-hooks)

;; scheme mode setting
;; (set-variable (quote scheme-program-name) "/usr/local/bin/scheme")
(add-to-list 'exec-path "/usr/local/bin")