Emacs init.el

init.el

;; -*- lexical-binding: t -*-

;;;; init.el
;;;; See: https://gist.github.com/3743892

;;; TODO:
;;; * Coffee-script etags.
;;; * Coffee-script compile and flymake.
;;; * swank.js:
;;;   * https://github.com/Gozala/swank-js
;;; * Model structure after/fork: https://github.com/magnars/.emacs.d
;;; * Make into a full repo with submodules.
;;; * Use ELPA.
;;; * Stripped down version for text terminals/new machines.
;;; * Review for ideas:
;;;   * http://news.ycombinator.com/item?id=1654164
;;;   * https://github.com/technomancy/emacs-starter-kit
;;; * Window and frame restore. See:
;;; http://www.gnu.org/savannah-checkouts/gnu/emacs/manual/html_node/emacs/Saving-Emacs-Sessions.html
;;; http://www.emacswiki.org/emacs/LayoutRestore
;;; http://www.emacswiki.org/emacs/FrameConfig
;;; http://www.emacswiki.org/emacs/SessionManagement
;;; http://www.gentei.org/~yuuji/software/windows.el
;;; http://www.gentei.org/~yuuji/software/revive.el
;;; * Try out:
;;;   * yasnippets
;;;   * iy go to char
;;; * Files to visit on startup in non-dirtree window.
;;;   * E.g.: (find-file "~/emacs/gist-3743892/init.el")

;;; ========================================
;;; Definitions.
;;; ========================================

;; Emacs Lisp package base directory.
(setq local-elisp "~/.emacs.d/elisp/")
(byte-recompile-directory local-elisp 0)

;;; Directories to open in dirtree on start.
(setq initial-dirs-to-open
      '("~/scm/sd/fluensa"
        "~/scm/sd/ops"))

;;; Set custom markers.
;;; Args:
;;; 1. Marker.
;;; 2. Register to store.
;;; 3. Key bindings to set/clear marker.
;;; 4. Insert/remove marker from current buffer?
;;;
(setq wjb-custom-markers
      '(("NNN" ?n "" t)
        ("MMM" ?m "
" t)
        ("Server" ?s "" nil)
        ("Quiz View" ?q "" nil)
        ("Client" ?c "" nil)))

(setq wjb-test-config-buffer "test.coffee")

(set-register ?t "TODO ")
(set-register ?h "TODO HERE: ")

;;; ========================================
;;; Settings.
;;; ========================================

;;; Require common lisp.
(require 'cl)

;;; Use server.
(server-start)

;;; Save desktop.
(desktop-save-mode 1)

;;; Prevent extraneous tabs.
(setq-default indent-tabs-mode nil)

;;; Pair parens and other delimiters.
(electric-pair-mode t)

;;; Fewer pop-up windows.
(setq pop-up-windows nil)

;;; Help with syntax.
(flymake-mode t)

;;; Default for new buffers.
(setq-default major-mode 'text-mode)

;;; Avoid backslash madness.
(setq reb-re-syntax 'string)

;;; Set up 4-space tabs.
;;; See: http://stackoverflow.com/a/1819405/599258
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
(setq indent-line-function 'insert-tab)

;;; Sane backup files.
;;; See: http://www.emacswiki.org/emacs/BackupDirectory
(setq
   backup-by-copying t      ; don't clobber symlinks
   backup-directory-alist
    '(("." . "~/.saves"))    ; don't litter my fs tree
   delete-old-versions t
   kept-new-versions 6
   kept-old-versions 2
   version-control t)       ; use versioned backups

;;; Keep auto-save files out of the filesystem.
;;; See: http://emacswiki.org/emacs/AutoSave
(setq auto-save-file-name-transforms
      `((".*" ,temporary-file-directory t)))

;;; Visible bell.
(setq-default visible-bell t)

;;; Set PAGER and EDITOR so git doesn't complain: "terminal is not
;;; fully functional".
(setenv "PAGER" "cat")
(setenv "EDITOR" "emacsclient")

(put 'downcase-region 'disabled nil)

;;; Set Emacs Lisp directory.
;;; TODO: put vendor code in /vendor.
(add-to-list 'load-path local-elisp)
;;; For magit:
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp")
;;; Add all subdirs of local-elisp.
(let ((default-directory local-elisp))
      (normal-top-level-add-subdirs-to-load-path))

(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.
 '(dired-isearch-filenames (quote dwim))
 '(exec-path (quote ("/usr/bin" "/bin" "/usr/sbin" "/sbin" "/Applications/Emacs.app/Contents/MacOS/bin" "/usr/local/bin")))
 '(inhibit-startup-screen t)
 '(inverse-video t)
 '(markdown-command "/Users/william/bin/markdown")
 '(ns-command-modifier (quote meta))
 '(rst-level-face-base-light 51)
 '(tool-bar-mode nil)
 '(vc-handled-backends (quote (RCS CVS SVN SCCS Bzr Hg Mtn Arch Git))))
(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.
 )

;;; Keyboard for Macs.
;;; TODO: Figure out how to use cmd as meta in Terminal.
(set-keyboard-coding-system nil)
;(setq-default mac-option-key-is-meta nil)
(setq-default mac-command-key-is-meta t)
(setq mac-command-modifier 'meta)

;;; Face and fonts.
;;; TODO: Use (null window-system) to conditionally execute.
(global-font-lock-mode t)
(set-face-attribute 'default nil :family "Anonymous Pro" :height 160)
(if (functionp 'set-fontset-font) ; nil in Terminal
    (set-fontset-font "fontset-default" 'unicode "Anonymous"))
(setq-default line-spacing 1)

(set-background-color "black")
(set-face-background 'default "black")
(set-face-background 'region "#444")
(set-face-foreground 'default "white")
(set-face-foreground 'region "gray60")
(set-foreground-color "white")
(set-cursor-color "#469")

;;; Nice sizing.  See:
;;; http://stackoverflow.com/questions/92971/how-do-i-set-the-size-of-emacs-window
;;; TODO: Replace window-system (dep) with display-graphic-p. See:
;;; http://stackoverflow.com/questions/5795451/how-to-detect-that-emacs-is-in-terminal-mode
(defun set-frame-size-according-to-resolution ()
  (interactive)
  (if window-system
      (progn
        ;; use 120 char wide window for largeish displays
        ;; and smaller 80 column windows for smaller displays
        ;; pick whatever numbers make sense for you
        (if (> (x-display-pixel-width) 1280)
            (add-to-list 'default-frame-alist (cons 'width 140))
          (add-to-list 'default-frame-alist (cons 'width 80)))
        ;; for the height, subtract a couple hundred pixels
        ;; from the screen height (for panels, menubars and
        ;; whatnot), then divide by the height of a char to
        ;; get the height we want
        (add-to-list 'default-frame-alist
                     (cons 'height (/ (- (x-display-pixel-height) 200)
                                      (frame-char-height)))))))

(set-frame-size-according-to-resolution)

(defadvice split-window-vertically
    (after my-window-splitting-advice first () activate)
    (set-window-buffer (next-window) (other-buffer)))

;;; Make grep-find more helpful.
(setq find-args "! -name \"*~\" ! -name \"#*#\" -type f -print0 | xargs -0 grep -E -C 5 -niH -e "
      default-find-cmd (concat "find " ". " find-args))
(grep-compute-defaults)
(grep-apply-setting 'grep-find-command default-find-cmd)

;;; Custom grep-find.
(setq fluensa-base "~/scm/sd/fluensa/"
      src-find-cmd (concat "find " fluensa-base find-args))

(defun find-in-fluensa (path grep-string)
  "rgrep in fluensa-base src dir."
  (interactive (list (read-directory-name "path: " (concat fluensa-base "src"))
                     (read-from-minibuffer "find: ")))
  (let ((default-directory path))
    (grep-find
     (concat "find . " find-args grep-string))))

;;; Kill to system clipboard.
(setq x-select-enable-clipboard t)
;(setq interprogram-paste-function 'x-cut-buffer-or-selection-value)

(defun toggle-window-dedicated ()
  "Toggle whether the current active window is dedicated or not"
  (interactive)
  (message
   (if (let (window (get-buffer-window (current-buffer)))
         (set-window-dedicated-p window
                                 (not (window-dedicated-p window))))
       "'%s' is dedicated"
     "'%s' is normal")
   (current-buffer)))

(defun whack-whitespace (arg)
  "Delete all white space from point to the next word.  With prefix ARG
    delete across newlines as well.  The only danger in this is that you
    don't have to actually be at the end of a word to make it work.  It
    skips over to the next whitespace and then whacks it all to the next
    word."
  (interactive "P")
  (let ((regexp (if arg "[ \t\n]+" "[ \t]+")))
    (re-search-forward regexp nil t)
    (replace-match "" nil nil)))

(defun fix-html ()
  "Fix HTML."
  (interactive)
  (sgml-pretty-print (point-min) (point-max))
  (indent-region (point-min) (point-max)))

;;; Show beyond fill column.
;;; TODO:
; (setq whitespace-style '(face empty tabs lines-tail trailing))
(setq-default indicate-empty-lines t)

;;; ========================================
;;; Packages.
;;; ========================================
(require 'package)
(add-to-list 'package-archives
  '("marmalade" . "http://marmalade-repo.org/packages/"))
(package-initialize)

;;; ========================================
;;; Some hooks.
;;; ========================================

;;; Fix junk characters in shell-mode
(add-hook 'shell-mode-hook
          'ansi-color-for-comint-mode-on)

;;; Don't want to see garbage in term-mode.
(add-hook 'term-exec-hook
          (function
           (lambda ()
             (set-buffer-process-coding-system 'utf-8-unix 'utf-8-unix))))

(add-hook 'css-mode-hook
          (function
           (lambda ()
             (setq css-indent-offset 2))))

;;; grab-first-string -- copies the first "-delimited string on a line to the kill ring
(fset 'grab-first-string
   [?\C-s ?\" ?\C-b ?\C-  ?\C-s ?\" ?\C-s ?\M-w ?\C-a ?\C-n])


;;; ========================================
;;; Packages.
;;; ========================================

;;; Uniquify buffer names.
(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward)

;;; Diredplus.
(require 'dired+)
(toggle-diredp-find-file-reuse-dir 1)

;;; Auto-install.
(require 'auto-install)
(setq auto-install-directory "~/.emacs.d/elisp/auto-install/")

;;; Anything.
;(require 'helm-config)
;(helm-mode 1)

;;; Ido.
(require 'ido)
(ido-mode t)
(setq ido-enable-flex-matching t)
(ido-everywhere t)
(setq ido-create-new-buffer 'always)
(setq confirm-nonexistent-file-or-buffer nil)

;;; TODO: extensions order, ignore
;;; (setq ido-file-extensions-order '(".org" ".txt" ".py" ".emacs" ".xml" ".el" ".ini" ".cfg" ".cnf"))

;;; Imenu.
(require 'imenu)
(autoload 'idomenu "idomenu" nil t)

(defadvice ido-imenu (before push-mark activate)
    (push-mark))

;;; TODO: Fix this to work with lexical binding.
;;; See: http://www.delorie.com/gnu/docs/emacs/cl_22.html
;;; See: https://gist.github.com/2360578
;; (defun ido-goto-symbol (&optional a-symbol)
;;   "Will update the imenu index and then use ido to select a symbol to navigate to"
;;   (interactive)
;;   (imenu--make-index-alist)
;;   (let ((name-and-pos '())
;;         (mine-symbol-names '()))
;;     (flet ((addsymbols (symbol-list)
;;                        (when (listp symbol-list)
;;                          (dolist (symbol symbol-list)
;;                            (let ((name nil) (position nil))
;;                              (cond
;;                               ((and (listp symbol) (imenu--subalist-p symbol))
;;                                (addsymbols symbol))

;;                               ((listp symbol)
;;                                (setq name (car symbol))
;;                                (setq position (cdr symbol)))

;;                               ((stringp symbol)
;;                                (setq name symbol)
;;                                (setq position (get-text-property 1 'org-imenu-marker symbol))))

;;                              (unless (or (null position) (null name))
;;                                (add-to-list 'mine-symbol-names name)
;;                                (add-to-list 'name-and-pos (cons name position))))))))
;;       (addsymbols imenu--index-alist))
;;     (let* ((selected-symbol
;;             (if (null a-symbol)
;;                 (ido-completing-read "Symbol? " mine-symbol-names)
;;               a-symbol))
;;            (position (cdr (assoc selected-symbol name-and-pos))))
;;       (cond
;;        ((overlayp position)
;;         (goto-char (overlay-start position)))
;;        (t
;;         (goto-char position))))))

;;; Alternative that doesn't use `flet` but doesn't seem to work, either:
;; (defun ido-goto-symbol (&optional symbol-list)
;;   "Refresh imenu and jump to a place in the buffer using Ido."
;;   (interactive)
;;   (unless (featurep 'imenu)
;;     (require 'imenu nil t))
;;   (cond
;;    ((not symbol-list)
;;     (let ((ido-mode ido-mode)
;;           (ido-enable-flex-matching
;;            (if (boundp 'ido-enable-flex-matching)
;;                ido-enable-flex-matching t))
;;           name-and-pos symbol-names position)
;;       (unless ido-mode
;;         (ido-mode 1)
;;         (setq ido-enable-flex-matching t))
;;       (while (progn
;;                (imenu--cleanup)
;;                (setq imenu--index-alist nil)
;;                (ido-goto-symbol (imenu--make-index-alist))
;;                (setq selected-symbol
;;                      (ido-completing-read "Symbol? " symbol-names))
;;                (string= (car imenu--rescan-item) selected-symbol)))
;;       (unless (and (boundp 'mark-active) mark-active)
;;         (push-mark nil t nil))
;;       (setq position (cdr (assoc selected-symbol name-and-pos)))
;;       (cond
;;        ((overlayp position)
;;         (goto-char (overlay-start position)))
;;        (t
;;         (goto-char position)))))
;;    ((listp symbol-list)
;;     (dolist (symbol symbol-list)
;;       (let (name position)
;;         (cond
;;          ((and (listp symbol) (imenu--subalist-p symbol))
;;           (ido-goto-symbol symbol))
;;          ((listp symbol)
;;           (setq name (car symbol))
;;           (setq position (cdr symbol)))
;;          ((stringp symbol)
;;           (setq name symbol)
;;           (setq position
;;                 (get-text-property 1 'org-imenu-marker symbol))))
;;         (unless (or (null position) (null name)
;;                     (string= (car imenu--rescan-item) name))
;;           (add-to-list 'symbol-names name)
;;           (add-to-list 'name-and-pos (cons name position))))))))

(defun mine-goto-symbol-at-point ()
  "Will navigate to the symbol at the current point of the cursor"
  (interactive)
  (ido-goto-symbol (thing-at-point 'symbol)))

;;; Dirtree.
(require 'dirtree)

;;; Markdown.
(require 'markdown-mode)
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))

;;; Magit.
(require 'magit)
;; change magit diff colors
(eval-after-load 'magit
  '(progn
     (set-face-foreground 'magit-diff-add "green3")
     (set-face-foreground 'magit-diff-del "red3")
     (set-face-background 'magit-item-highlight "#141413")
     (when (not window-system)
       (set-face-background 'magit-item-highlight "black"))))

(autoload 'magit-blame "magit-blame-mode" "Minor mode for blaming." t)

;;; Egg.
;;; (require 'egg) ; Maybe later.

;;; Text and fill modes.
(defun textful-settings ()
        (goto-address-mode 1)
        (auto-fill-mode 1)
        (set-fill-column 80))
(add-hook 'markdown-mode-hook 'textful-settings)
(add-hook 'rst-mode-hook 'textful-settings)
(add-hook 'text-mode-hook 'textful-settings)

;;; Default fill column.
(set-fill-column 80)

;;; Fill column indicator.
;;; See: https://github.com/alpaker/Fill-Column-Indicator
(require 'fill-column-indicator)

;;; Make fci-mode global...
(define-globalized-minor-mode global-fci-mode fci-mode
  (lambda () (fci-mode 1)))
(global-fci-mode 1)

;;; ...except for these modes.
(defun no-fci ()
  (fci-mode -1))
(add-hook 'dirtree-mode-hook 'no-fci)
(add-hook 'dired-mode-hook 'no-fci)
(add-hook 'dired+-mode-hook 'no-fci)

;;; Org-mode.
(require 'org-install)
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)
(setq org-log-done t)
(setq org-clock-persist 'history)
(org-clock-persistence-insinuate)

;; Set to the location of your Org files on your local system
(setq org-directory "~/org")
;; Set to the name of the file where new notes will be stored
(setq org-mobile-inbox-for-pull "~/org/flagged.org")
;; Set to <your Dropbox root directory>/MobileOrg.
(setq org-mobile-directory "~/Dropbox/MobileOrg")
(add-hook 'org-mode-hook
	  (lambda () (auto-fill-mode 1) (set-fill-column 80)))

;;; Python
;;; TODO: Fix ipython for use in emacs.
;(setq py-install-directory "~/emacs/")
;(require 'python-mode)
;(setq py-shell-name "ipython")

;(add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))
;(add-to-list 'interpreter-mode-alist '("python" . python-mode))

;;; Journal command.
(defun journal ()
	"Start journaling"
	(interactive)

	(switch-to-buffer "journal")
	(text-mode)
	(auto-fill-mode 1)
	(set-fill-column 80))

;;; Coffee-mode.
;;;
;;; Want to change the regex when loading files from
;;; fixtures directory. Some kind of hook or advice.
;;; Or, could somehow fix the regex.
;;;
(require 'coffee-mode)
(defun coffee-custom ()
  "coffee-mode-hook"

  (make-local-variable 'tab-width)
  (set 'tab-width 2)
  (set 'coffee-tab-width 2)
  (set-fill-column 80)
  ;; TODO: figure out how to point this to the active environment.
  ;; Is there a way to set it in an environment variable?
  ; (setq coffee-command "~/dev/coffee")

)
(add-hook 'coffee-mode-hook 'coffee-custom)

(add-hook 'coffee-mode-hook
          (lambda ()
            (add-to-list 'write-file-functions 'delete-trailing-whitespace)))

;;; TODO: coffee-beginning-of-defun. Search backward to -> not in
;;; string or comment.

;;; Catch common typo.
(add-hook 'coffee-mode-hook
          (lambda()
            (add-hook 'local-write-file-hooks
                      '(lambda()
                         (save-excursion
                           (perform-replace "commong" "common" nil nil nil nil nil (point-min) (point-max)))))))

;;; json
(require 'json)
(require 'json-pretty-print)

;;; log mode
(autoload 'log4j-mode "log4j-mode" "Major mode for viewing log files." t)
(add-to-list 'auto-mode-alist '("\\.log\\'" . log4j-mode))

;;; php
(autoload 'php-mode "php-mode" "Major mode for editing php code." t)
(add-to-list 'auto-mode-alist '("\\.php$" . php-mode))

;;; less-css-mode
(autoload 'less-css-mode "less-css-mode" "Major mode for LESS CSS." )
(add-to-list 'auto-mode-alist '("\\.less$" . less-css-mode))

;;; jade
(require 'sws-mode)
(require 'jade-mode)
(add-to-list 'auto-mode-alist '("\\.styl$" . sws-mode))
(add-to-list 'auto-mode-alist '("\\.jade$" . jade-mode))

;;; Smart-tab. See: https://raw.github.com/genehack/smart-tab/master/smart-tab.el
(require 'smart-tab)
(global-smart-tab-mode 1)

;;; Open up some dirs in dirtree.
(let ((dirtree-buffer "*dirtree*"))
  (dolist (dir initial-dirs-to-open)
    (dirtree dir dirtree-buffer))
  ;; Dedicate window and resize.
  (let ((window (get-buffer-window dirtree-buffer)))
    (set-window-dedicated-p window 'true)
    ;; TODO: Resize more intelligently.
    (adjust-window-trailing-edge window -5 t)))

;;; multiple-cursors.
;;; See: https://github.com/magnars/multiple-cursors.el
(require 'multiple-cursors)
(defun create-cursor ()
  (interactive)
  (mc/create-fake-cursor-at-point))

;(global-set-key (kbd "C-x r t") 'inline-string-rectangle)
(global-set-key (kbd "C-x r t") 'set-rectangular-region-anchor)
(global-set-key (kbd "C->") 'mc/mark-next-like-this)
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
(global-set-key (kbd "C-*") 'mc/mark-all-like-this)
(global-set-key (kbd "C-c ,") 'create-cursor)
(global-set-key (kbd "C-c C-,") 'create-cursor)
(global-set-key (kbd "C-c .") 'multiple-cursors-mode)
(global-set-key (kbd "C-c C-.") 'multiple-cursors-mode)

;;; expand-region.
;;; See: https://github.com/magnars/expand-region.el
(require 'expand-region)
(global-set-key (kbd "C-=") 'er/expand-region)

;;; smart-forward
;;; See: https://github.com/magnars/smart-forward.el
(require 'smart-forward)
(global-set-key (kbd "M-<up>") 'smart-up)
(global-set-key (kbd "M-<down>") 'smart-down)
(global-set-key (kbd "M-<left>") 'smart-backward)
(global-set-key (kbd "M-<right>") 'smart-forward)

;;; js2-mode
(autoload 'js2-mode "js2-mode" nil t)
(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
;;; add buffer-local indicator for whether prog-mode-hook has run.
;;; See:
;;; http://yoo2080.wordpress.com/2012/03/15/js2-mode-setup-recommendation/
(defun my-set-pmh-ran ()
  (set (make-local-variable 'my-pmh-ran) t))

(add-hook 'prog-mode-hook 'my-set-pmh-ran)

;;; Ensure js2-mode runs prog-mode-hook.
(add-hook 'js2-mode-hook 'my-run-pmh-if-not-ran)
(defun my-run-pmh-if-not-ran ()
  (unless (bound-and-true-p my-pmh-ran)
    (run-hooks 'prog-mode-hook)))

;;; Handlebars mode.
(autoload 'handlebars-mode "handlebars-mode"
  "Major mode for editing Handlebars")
(add-to-list 'auto-mode-alist '("\\.handlebars$" . js2-mode))

;;; Scheme.
(setq scheme-program-name
      "/usr/local/bin/racket")

;;; Common Lisp.
;;; Inferior Lisp.
(set-variable 'inferior-lisp-program "/usr/local/bin/clisp")

;;; SLIME.
(add-to-list 'load-path "~/scm/slime/")
;;; Autoload on use. See: http://ambience.info.ucl.ac.be/slime.html
(when (load "slime-autoloads" t)
  (setq slime-auto-connect 'always)
  (slime-setup '(slime-fancy inferior-slime)))
;(require 'slime-autoloads)
;(slime-setup '(slime-fancy))

;;; EPG.
(require 'epa-file)
(epa-file-enable)

;;; ========================================
;;; Key bindings.
;;; ========================================

(global-set-key "\C-x\C-b" 'electric-buffer-list)
(global-set-key "\C-xp" 'bury-buffer)
(global-set-key "\M-/" 'hippie-expand)
(global-set-key "\M- " 'hippie-expand)
(global-set-key "\C-cs" 'ansi-term)
(global-set-key "\C-cr" 'replace-regexp)
(global-set-key "q" 'query-replace)
(global-set-key "b" 'rename-buffer)
(global-set-key "\C-cp" 'python-mode)
(global-set-key "v" 'describe-variable)
(global-set-key "w" 'whitespace-mode)
(global-set-key "i" 'indent-relative)
(global-set-key "d" 'dirtree)
(global-set-key " " 'just-one-space)
(global-set-key "h" 'whack-whitespace)
(global-set-key "e" 'delete-trailing-whitespace)
(global-set-key "c" 'comment-region)
(global-set-key "u" 'uncomment-region)
(global-set-key "" 're-builder)
(global-set-key "g" 'grep-find)
(global-set-key "i" 'find-in-fluensa)  ; Clobbers insert-file.
(global-set-key (kbd "C-c f i") 'find-in-fluensa)
(global-set-key "j" 'journal)
(global-set-key "t" 'toggle-window-dedicated)
(global-set-key "g" 'magit-status)
(global-set-key "j" 'magit-status)
(global-set-key (kbd "M-=") 'mark-sexp) ; Clobbers count-words-region.
(global-set-key (kbd "C-0") 'idomenu)
(global-set-key (kbd "C-c 0") 'idomenu)
(global-set-key (kbd "C-c C-0") 'idomenu)
;(global-set-key (kbd "C-9") 'mine-goto-symbol-at-point) ; Reserved for mine-goto-symbol-at-point
;;; Available to use: C-z, C-,, C-., C-', C-c 0

;;; Ido keymap.
(defun wjb-ido-keys ()
  "Add my keybindings for ido."
  (define-key ido-completion-map
    (kbd "C-n") 'ido-next-match)
  (define-key ido-completion-map
    (kbd "C-p") 'ido-prev-match))

(add-hook 'ido-setup-hook 'wjb-ido-keys)

(defun get-marker-replacer (marker)
  "Returns a marker-replacer function for `marker`."
  (lambda ()
    (interactive)
    (save-excursion
      (while (search-forward marker nil t)
        (replace-match "" nil t)))))

;;; Shortcut to clear marker from test config file.  TODO: When
;;; turning on, if grep is unsuccessful, insert new grep under all
;;; greps (most specific).
;;;
(defun wjb-toggle-marker-in-buffer (arg marker)
  "Toggle `marker` on or off in `wjb-test-config-buffer`."
  (interactive "P\nsMarker: ")
  (with-current-buffer wjb-test-config-buffer
    (let ((commented (concat " grep: \"" marker "\""))
          (uncommented (concat " #grep: \"" marker "\"")))
      (progn
        (beginning-of-buffer)
        (cond ((null arg)
               ;; Null arg. Turn on.
               (unless (null (re-search-forward uncommented (point-max) t))
                 (replace-match commented)))
              (t
               ;; Non-null arg. Turn off.
               (unless (null (re-search-forward commented (point-max) t))
                 (replace-match uncommented))))
        (back-to-indentation)
        (save-buffer)))))

(defun wjb-toggle-marker (arg marker &optional handle-in-current-buffer)
  (interactive "P\nsMarker: ")
  (cond
   ((null arg)  ;; Turn on marker.
    (progn
      ;; Insert marker in this buffer.
      (unless (null handle-in-current-buffer)
        (insert marker)
        (save-buffer))
      ;; Turn on marker in test config.
      (wjb-toggle-marker-in-buffer nil marker)
      (message (concat marker " tests on."))))
   (t           ;; Turn off marker.
    (progn
      (unless (null handle-in-current-buffer)
        ;; Get a marker-replacer and use it in this buffer.
        (command-execute
         (get-marker-replacer marker))
        (save-buffer))
      ;; Turn off the marker in test config.
      (wjb-toggle-marker-in-buffer t marker)
      (message (concat marker " tests off."))))))

;;; Set shortcuts to clear custom markers. Requires lexical binding.
(dolist (marker-data wjb-custom-markers)
        (let ((marker (pop marker-data))
              (marker-register (pop marker-data))
              (marker-key (pop marker-data))
              (handle-in-current-buffer (pop marker-data)))
          (progn
            (set-register marker-register marker)
            (global-set-key marker-key (lambda (arg)
                                          (interactive "P")
                                          (wjb-toggle-marker arg marker handle-in-current-buffer))))))

;;; ========================================
;;; Misc.
;;; ========================================

;;; Open grep results in the same frame. See:
;;; http://stackoverflow.com/questions/2299133/emacs-grep-find-link-in-same-window/2299261#2299261
(eval-after-load "compile"
  '(defun compilation-goto-locus (msg mk end-mk)
     "Jump to an error corresponding to MSG at MK.
All arguments are markers.  If END-MK is non-nil, mark is set there
and overlay is highlighted between MK and END-MK."
     ;; Show compilation buffer in other window, scrolled to this error.
     (let* ((from-compilation-buffer (eq (window-buffer (selected-window))
                                         (marker-buffer msg)))
            ;; Use an existing window if it is in a visible frame.
            (pre-existing (get-buffer-window (marker-buffer msg) 0))
            (w (if (and from-compilation-buffer pre-existing)
                   ;; Calling display-buffer here may end up (partly) hiding
                   ;; the error location if the two buffers are in two
                   ;; different frames.  So don't do it if it's not necessary.
                   pre-existing
                 (let ((display-buffer-reuse-frames t)
                       (pop-up-windows t))
                   ;; Pop up a window.
                   (display-buffer (marker-buffer msg)))))
            (highlight-regexp (with-current-buffer (marker-buffer msg)
                                ;; also do this while we change buffer
                                (compilation-set-window w msg)
                                compilation-highlight-regexp)))
       ;; Ideally, the window-size should be passed to `display-buffer' (via
       ;; something like special-display-buffer) so it's only used when
       ;; creating a new window.
       (unless pre-existing (compilation-set-window-height w))

       (switch-to-buffer (marker-buffer mk))

       ;; was
       ;; (if from-compilation-buffer
       ;;     ;; If the compilation buffer window was selected,
       ;;     ;; keep the compilation buffer in this window;
       ;;     ;; display the source in another window.
       ;;     (let ((pop-up-windows t))
       ;;       (pop-to-buffer (marker-buffer mk) 'other-window))
       ;;   (if (window-dedicated-p (selected-window))
       ;;       (pop-to-buffer (marker-buffer mk))
       ;;     (switch-to-buffer (marker-buffer mk))))
       ;; If narrowing gets in the way of going to the right place, widen.
       (unless (eq (goto-char mk) (point))
         (widen)
         (goto-char mk))
       (if end-mk
           (push-mark end-mk t)
         (if mark-active (setq mark-active)))
       ;; If hideshow got in the way of
       ;; seeing the right place, open permanently.
       (dolist (ov (overlays-at (point)))
         (when (eq 'hs (overlay-get ov 'invisible))
           (delete-overlay ov)
           (goto-char mk)))

       (when highlight-regexp
         (if (timerp next-error-highlight-timer)
             (cancel-timer next-error-highlight-timer))
         (unless compilation-highlight-overlay
           (setq compilation-highlight-overlay
                 (make-overlay (point-min) (point-min)))
           (overlay-put compilation-highlight-overlay 'face 'next-error))
         (with-current-buffer (marker-buffer mk)
           (save-excursion
             (if end-mk (goto-char end-mk) (end-of-line))
             (let ((end (point)))
               (if mk (goto-char mk) (beginning-of-line))
               (if (and (stringp highlight-regexp)
                        (re-search-forward highlight-regexp end t))
                   (progn
                     (goto-char (match-beginning 0))
                     (move-overlay compilation-highlight-overlay
                                   (match-beginning 0) (match-end 0)
                                   (current-buffer)))
                 (move-overlay compilation-highlight-overlay
                               (point) end (current-buffer)))
               (if (or (eq next-error-highlight t)
                       (numberp next-error-highlight))
                   ;; We want highlighting: delete overlay on next input.
                   (add-hook 'pre-command-hook
                             'compilation-goto-locus-delete-o)
                 ;; We don't want highlighting: delete overlay now.
                 (delete-overlay compilation-highlight-overlay))
               ;; We want highlighting for a limited time:
               ;; set up a timer to delete it.
               (when (numberp next-error-highlight)
                 (setq next-error-highlight-timer
                       (run-at-time next-error-highlight nil
                                    'compilation-goto-locus-delete-o)))))))
       (when (and (eq next-error-highlight 'fringe-arrow))
         ;; We want a fringe arrow (instead of highlighting).
         (setq next-error-overlay-arrow-position
               (copy-marker (line-beginning-position)))))))


;;; ========================================
;;; Final.
;;; ========================================

;;; Save initial window configuration.
(window-configuration-to-register ?w)