legacy-dotfiles/.emacs

(add-to-list 'load-path "~/.emacs.d")

;; Requires
(require 'paren)
(require 'uniquify)
(require 'autopair)
(require 'color-theme)
(require 'flymake)
(require 'org-install)
(require 'zenburn)

;; Autoloads
(autoload 'vala-mode
  "vala-mode.elc"    "A Major mode for editing Vala files"        t)
(autoload 'csharp-mode
  "csharp-mode.elc"  "A Major mode for editing C# files"          t)
(autoload 'javascript-mode
  "javascript.elc"   "A Major mode for editing JavaScript files"  t)
(autoload 'sqlplus-mode
  "sqlplus,elc"      "A Major mode for communicating with Oracle" t)
(autoload 'batch-mode
  "batch-mode.elc"   "A Major mode for editing Batch files"       t)
(autoload 'rainbow-mode
  "rainbow-mode.elc" "A Minor mode for showing colors inline"     t)

;; Functions
(defun what-face (pos)
  "Find out which face the current position uses"
  (interactive "d")
  (let ((face (or (get-char-property (point) 'read-face-name)
                  (get-char-property (point) 'face))))
    (if face (message "Face: %s" face) (message "No face at %d" pos))))

(defun my-comp-finish-function (buf str)
  (if (string-match "exited abnormally" str)
      ;; there were errors
      (message "compilation errors, press C-x ` to visit")
    ;; no errors, make the compilation window go away in 0.5 seconds
    (run-at-time 0.5 nil 'delete-windwos-on buf)
    (message "NO COMPILATION ERRORS!")))

(defun bh/hide-other ()
  (interactive)
  (save-excursion
    (org-back-to-heading)
    (org-shifttab)
    (org-reveal)
    (org-cycle)))

(defun bh/go-to-scratch ()
  (interactive)
  (switch-to-buffer "*scratch*")
  (delete-other-windows))

(defun bh/untabify ()
  (interactive)
  (untabify (point-min) (point-max)))

(defun bh/killframe ()
  (interactive)
  (unless (buffer-modified-p)
    (kill-buffer (current-buffer)))
  (delete-frame))

;; Platform specifics
(if (eq system-type 'gnu/linux)         ; if we're running linux
    (set-frame-font "-xos4-terminus-medium-*-*-*-14-*-*-*-*-*-*-*"))

;; Variables
(setq
 inhibit-startup-message t              ; don't show welcom screen
 require-final-newline t                ; always append a newline to a file, if
                                        ; it doesn't have one
 font-lock-maximum-decoration t         ; denotes my interest in maximum possible
                                        ; fontification
 uniquify-buffer-name-style 'reverse    ; reverse uniquify file names
 backup-directory-alist `((".*" . ,temporary-file-directory))
                                        ; backup file location
 auto-save-file-name-transforms `((".*" ,temporary-file-directory t)))
                                        ; autosave file location
(setq org-todo-keywords (quote ((sequence "TODO(t)"
                                          "NEXT(n)"
                                          "|" "Done(d!/!)")
                                (sequence "WAITING(w@/!)"
                                          "SOMEDAY(s!)"
                                          "|" "CANCELLED(c@/!)")
                                (sequence "QUOTE(q!)"
                                          "QUOTED(Q!)"
                                          "|" "APPROVED(A@)"
                                          "EXPIRED(E@)"
                                          "REJECTED(R@)")
                                (sequence "OPEN(O)"
                                          "|" "CLOSED(C)"))))
(setq org-todo-keyword-faces
      (quote (("TODO"      :foreground "red"          :weight bold)
              ("NEXT"      :foreground "blue"         :weight bold)
              ("DONE"      :foreground "forest green" :weight bold)
              ("WAITING"   :foreground "yellow"       :weight bold)
              ("SOMEDAY"   :foreground "goldenrod"    :weight bold)
              ("CANCELLED" :foreground "orangered"    :weight bold)
              ("QUOTE"     :foreground "hotpink"      :weight bold)
              ("QUOTED"    :foreground "indianred1"   :weight bold)
              ("APPROVED"  :foreground "forest green" :weight bold)
              ("EXPIRED"   :foreground "olivedrab1"   :weight bold)
              ("REJECTED"  :foreground "olivedrab"    :weight bold)
              ("OPEN"      :foreground "magenta"      :weight bold)
              ("CLOSED"    :foreground "forest green" :weight bold))))
(setq org-use-fast-todo-selection t)
(setq org-todo-state-tags-triggers
      (quote (("CANCELLED"
               ("CANCELLED" . t))
              ("WAITING"
               ("WAITING" . t))
              ("SOMEDAY"
               ("WAITING" . t))
              (done
               ("WAITING"))
              ("TODO"
               ("WAITING")
               ("CANCELLED"))
              ("NEXT"
               ("WAITING"))
              ("DONE"
               ("WAITING")
               ("CANCELED")))))
(setq org-default-notes-file "~/prj/org/refile.org")
(setq org-capture-templates (quote (("t" "todo" entry (file "~/prj/org/refile.org") "* TODO %?
%U
%a" :clock-in t :clock-resume t)
                                    ("n" "note" entry (file "~/prj/org/refile.org") "* %?
%U
%a
:CLOCK:
:END:" :clock-in t :clock-resume t))))
(setq org-completion-use-ido t)         ; Use IDO for target completion
(setq org-refile-targets (quote ((org-agenda-files :maxlevel . 5) (nil :maxlevel . 5))))
                                        ; Targets include this file and any file
                                        ; and any file contributing to the agenda
                                        ; - up to 5 levels deep
(setq org-refile-use-outline-path (quote file))
                                        ; Targets start with the file name -
                                        ; allows creating level 1 tasks
(setq org-outline-path-complete-in-steps t)
                                        ; Targets complete in steps so we start
                                        ; with filename, TAB shows the next
                                        ; level of targets etc
(setq org-refile-allow-creating-parent-nodes (quote confirm))
                                        ; Allow refile to create parent tasks
                                        ; with confirmation
(setq org-agenda-custom-commands
      (quote (("w" "Tasks waiting on something" tags "WAITING/!"
               ((org-use-tag-inheritance nil)
                (org-agenda-todo-ignore-scheduled nil)
                (org-agenda-todo-ignore-deadlines nil)
                (org-agenda-todo-ignore-with-date nil)
                (org-agenda-overriding-header "Waiting Tasks")))
              ("r" "Refile New Notes and Tasks" tags "LEVEL=1+REFILE"
               ((org-agenda-todo-ignore-with-date nil)
                (org-agenda-todo-ignore-deadlines nil)
                (org-agenda-todo-ignore-scheduled nil)
                (org-agenda-overriding-header "Tasks to Refile")))
              ("N" "Notes" tags "NOTE"
               ((org-agenda-overriding-header "Notes")))
              ("n" "Next" tags-todo "-WAITING-CANCELLED/!NEXT"
               ((org-agenda-overriding-heaer "Next Tasks")))
              ("p" "Projects" tags-todo "LEVEL=2-REFILE|LEVEL=1+REFILE/!-DONE-CANCELLED"
               (;(org-agenda-skip-function 'bh/skip-non-projects)
                (org-agenda-overriding-header "Projects")))
              ("o" "other (Non-Project) tasks" tags-todo "LEVEL=2-REFILE|LEVEL=1+REFILE/!-DONE-CANCELLED"
               (;(org-agenda-skip-function 'bh/skip-projects)
                (org-agenda-overriding-header "Other Non-Project Tasks")))
              ("A" "Tasks to be Archived" tags "LEVEL=2-REFILE/DONE|CANCELLED"
               ((org-agenda-overriding-header "Tasks to Archive")))
              ("h" "Habits" tags "STYLE=\"habit\""
               ((org-agenda-todo-ignore-with-date nil)
                (org-agenda-todo-ignore-scheduled nil)
                (org-agenda-todo-ignore-deadlines nil)
                (org-agenda-overriding-header "Habits")))
              ("#" "Stuck Projects" tags-todo "LEVEL=2-REFILE|LEVEL=1+REFILE/!-DONE-CANCELLED"
               ((org-agenda-skip-function 'bh/skip-non-stuck-projects)
                (org-agenda-overriding-header "Stuck Projects")))
              ("c" "Select default clocking task" tags "LEVEL=2-REFILE"
               ((org-agenda-skip-function
                 '(org-agenda-skip-subree-if 'notregexp "^\\*\\* Organization"))
                (org-agenda-overriding-header "Set default clocking task with C-u C-u I"))))))
(setq-default indent-tabs-mode nil)     ; spaces, no tabs

(fset 'yes-or-no-p 'y-or-n-p)           ; switch yes or no answers to y or n
                                        ; answers

;; Mode settings
(        tool-bar-mode -1)              ; no toolbar
(        menu-bar-mode -1)              ; no menu
(     line-number-mode -1)              ; don't show line numbers in splitter
(    global-linum-mode t)               ; show line numbers in gutter
(   column-number-mode t)               ; show column numbers in splitter
(global-font-lock-mode t)               ; show syntax highlighting
(      show-paren-mode t)               ; show matching parens
( autopair-global-mode)                 ; enable autopair mode
(delete-selection-mode t)               ; delete selection upon typing

;; Keybindings
(global-set-key "\C-m"  'newline-and-indent) ; Automatically indent on newline
;;; Org Mode
(global-set-key      "\C-cl"      'org-store-link)
(global-set-key      "\C-ca"      'org-agenda)
(global-set-key      "\C-cb"      'org-iswitchb)
(global-set-key (kbd "<f12>")     'org-agenda)
;(global-set-key (kbd "<f5>")      'bh/org-todo)
;(global-set-key (kbd "<S-f5>")    'bh/widen)
(global-set-key (kbd "<f7>")      'set-truncate-lines)
(global-set-key (kbd "<f8>")      'org-cycle-agenda-files)
;(global-set-key (kbd "<f9> b")    'bbdb)
(global-set-key (kbd "<f9> c")    'calendar)
(global-set-key (kbd "<f9> f")    'boxquote-insert-file)
;(global-set-key (kbd "<f9> g")    'gnus)
(global-set-key (kbd "<f9> h")    'bh/hide-other)
;(global-set-key (kbd "<f9> i")    'bh/org-info)
;(global-set-key (kbd "<f9> I")    'bh/clock-in)
;(global-set-key (kbd "<f9> O")    'bh/clock-out)
(global-set-key (kbd "<f9> r")    'boxquote-region)
(global-set-key (kbd "<f9> s")    'bh/go-to-scratch)
;(global-set-key (kbd "<f9> t")    'bh/insert-inactive-timestamp)
(global-set-key (kbd "<f9> u")    'bh/untabify)
(global-set-key (kbd "<f9> v")    'visible-mode)
;(global-set-key (kbd "<f9> SPC")  'bh/clock-in-last-task)
(global-set-key (kbd "C-<f9>")    'previous-buffer)
(global-set-key (kbd "C-x n r")   'narrow-to-region)
(global-set-key (kbd "C-<f10>")   'next-buffer)
(global-set-key (kbd "<f11>")     'org-clock-goto)
(global-set-key (kbd "C-<f11>")   'org-clock-in)
(global-set-key (kbd "C-s-<f12>") 'bh/save-then-publish)
(global-set-key (kbd "M-<f11>")   'org-resolve-clocks)
(global-set-key (kbd "C-M-r")     'org-capture)
(global-set-key (kbd "M-<f9>")    'bh/killframe)

;; File associations
(add-to-list 'auto-mode-alist '("\\.vala$" . vala-mode))
(add-to-list 'auto-mode-alist '("\\.vapi$" . vala-mode))
(add-to-list 'auto-mode-alist '("\\.cs$"   . csharp-mode))
(add-to-list 'auto-mode-alist '("\\.bat$"  . batch-mode))

(add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8))
(add-to-list 'file-coding-system-alist '("\\.vapi$" . utf-8))

(add-to-list 'compilation-finish-functions 'my-comp-finish-function)

;; Color theme
;;(require 'color-theme-weirdness)
(color-theme-zenburn)

;; Hooks
(add-hook 'find-file-hook 'flymake-find-file-hook)
(add-hook 'org-mode-hook
          (lambda ()
            (flyspell-mode 1)
            (auto-fill-mode 1)))
(add-hook 'css-mode-hook (lambda ()
                           (rainbow-mode)))

(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 ("~/prj/org/tgn.org" "~/Documents/iACTOR/tasks.org" "~/prj/org/seiko.org" "~/prj/org/projects.org" "~/prj/org/refile.org" "~/prj/org/aethon.org"))))
(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.
 )