tmtxt-key-bindings.el

;;; util functions for defining/undefining keys
;;; should be loaded at the end
(defun tmtxt/define-keys (key-map &rest ps)
  "Define key binding pairs for KEY-MAP."
  (declare (indent 1))
  (let ((i 0))
    (while (< i (length ps))
      (if (= (mod i 2) 0)
          (let ((src (elt ps i))
                (dst (elt ps (1+ i))))
            (define-key key-map
              (read-kbd-macro src) (if (stringp dst)
                                       (read-kbd-macro dst)
                                     dst))))
      (setq i (+ i 2)))))

(defun tmtxt/undefine-keys (key-map keys)
  "Undefine keys for keymap"
  (declare (indent 1))
  (dolist (key keys)
    (define-key key-map (read-kbd-macro key) nil)))

(defmacro tmtxt/keys (package map &rest mappings)
  (declare (indent 2))
  `(eval-after-load ,package
     (quote (progn
              (tmtxt/define-keys ,map
                ,@mappings)
              (message "Updated keymap `%s'" ',map)))))

(tmtxt/undefine-keys
    global-map
  '("C-M-j" "C-M-l" "C-x C-d"))

(tmtxt/set-up 'paredit
  (tmtxt/undefine-keys
      paredit-mode-map
    '("C-j")))

(tmtxt/define-keys
    global-map
  "C-c f"   'find-file-in-project
  "C-+"     'text-scale-increase
  "C--"     'text-scale-decrease
  "M-%"     'query-replace-regexp
  "C-M-%"   'query-replace
  "C-x C-i" 'imenu
  "C-x M-f" 'ido-find-file-other-window
  "C-c y"   'bury-buffer
  "C-c r"   'revert-buffer
  "C-c g"   'magit-status
  "C-x c"   'compile
  "M-;"     'comment-dwim
  "M-:"     'evilnc-comment-or-uncomment-lines

  "M-x"     'smex
  "C-M-\""  'mark-defun

  ;; editing
  "C-c q"   'join-line
  "C-c C-a" 'tmtxt/select-all-line
  "C-S-a"   'tmtxt/select-all-line
  "C-M-\\"  'tmtxt/indent-region-or-buffer
  "C-x F"   'tmtxt/find-file-as-root
  "C-S-j"   'textmate-shift-left
  "C-S-l"   'textmate-shift-right
  "C-m"     'newline-and-indent
  "C-M-u"   'upcase-word
  "C-M-j"   'downcase-word
  "M-/"     'hippie-expand

  ;; isearch
  "C-s"     'isearch-forward-regexp
  "\C-r"    'isearch-backward-regexp
  "C-M-s"   'isearch-forward
  "C-M-r"   'isearch-backward

  ;; eshell
  "C-x m"   'eshell
  "C-x M"   (lambda () (interactive) (eshell t)) ;Start a new eshell even if one is active.

  ;; org mode
  "C-c l"   'org-store-link
  "C-c a"   'org-agenda
  "C-c b"   'org-iswitchb

  ;; buffer managements
  "C-S-<tab>"          'tmtxt/switch-to-last-buffer ;OSX
  "<C-S-iso-lefttab>"  'tmtxt/switch-to-last-buffer ;Linux
  "C-x C-b"            'ibuffer
  "s-k"                'kill-this-buffer
  "<C-tab>"            'ido-switch-buffer

  ;; ECB
  ;; "C-x C-;"   'ecb-activate
  ;; "C-x C-'"   'tmtxt/ecb-deactivate
  ;; "C-;"       'tmtxt/ecb-show-ecb-windows
  ;; "C-'"       'tmtxt/ecb-hide-ecb-windows

  "C-S-f"     'yas-expand
  "M-="       'er/expand-region         ;expand region
  "C-M-S-s"   'tmtxt/sql-connect-server
  )

;;; TODO: rebind these keys
;;; M-j (comment-indent-new-line)

(tmtxt/define-keys
    key-translation-map

  ;; ergonomic layout
  "M-i"     "C-p"
  "M-k"     "C-n"
  "M-j"     "C-b"
  "M-l"     "C-f"
  "M-I"     "M-v"
  "M-K"     "C-v"
  "M-L"     "C-e"
  "M-J"     "C-a"
  "M-o"     "M-f"
  "M-u"     "M-b"
  "M-n"     "M-<"
  "M-N"     "M->"
  "M-d"     "C-d"
  "M-f"     "DEL"
  "M-z"     "C-/"
  "M-c"     "M-w"
  "M-w"     "C-w"
  "M-v"     "C-y"
  "M-s"     "C-x C-s"
  "M-U"     "C-M-b"
  "M-O"     "C-M-f"
  "M-a"     "C-x h"
  "M-D"     "M-d"
  "M-F"     "M-DEL"
  "M-W"     "s-k"
  "M-1"     "C-c C-a"
  "M-2"     "C-x o"
  "M-m"     "C-m"
  "M-SPC"   "C-SPC"
  "M-g"     "C-k"
  )

(tmtxt/define-keys
    org-mode-map

  ;; move meta up/down/left/right
  "C-s-j"       'org-metaleft
  "C-s-l"       'org-metaright
  "C-s-i"       'org-metaup
  "C-s-k"       'org-metadown

  ;; shift meta up/down/left/right
  "C-S-s-j"       'org-shiftmetaleft
  "C-S-s-l"       'org-shiftmetaright
  "C-S-s-i"       'org-shiftmetaup
  "C-S-s-k"       'org-shiftmetadown

  ;; navigation between headings
  "C-M-S-k"       'outline-next-visible-heading
  "C-M-S-i"       'outline-previous-visible-heading
  "C-M-S-l"       'org-forward-heading-same-level
  "C-M-S-j"       'org-backward-heading-same-level
  "C-M-S-u"       'outline-up-heading
  "<C-tab>"       'ido-switch-buffer
  )

(tmtxt/in '(darwin)
  (tmtxt/define-keys
      org-mode-map
    "<C-s-268632074>"   'org-metaleft
    "<C-s-268632076>"   'org-metaright
    "<C-s-268632073>"   'org-metaup
    "<C-s-268632075>"   'org-metadown
    ))

(tmtxt/define-keys
    c++-mode-map
  "C-S-<return>"    'ac-complete-clang)

(tmtxt/define-keys
    dired-mode-map
  "s-b"     'tmtxt/dired-mark-backward
  "s-u"     'tmtxt/dired-do-shell-unmount-device
  "C-c C-r"   'tda/rsync
  "C-c C-a"   'tda/rsync-multiple-mark-file
  "C-c C-e"   'tda/rsync-multiple-empty-list
  "C-c C-d"   'tda/rsync-multiple-remove-item
  "C-c C-v"   'tda/rsync-multiple
  "C-c C-z"   'tda/zip
  "C-c C-u"   'tda/unzip
  "C-c C-t"   'tda/rsync-delete
  "C-c C-k"   'tat/kill-all
  "C-c C-n"   'tat/move-to-bottom-all
  "C-c C-s"   'tda/get-files-size
  "C-c C-q"   'tda/download-to-current-dir
  "C-c C-l"   'tda/download-clipboard-link-to-current-dir
  "C-S-n"   'dired-create-directory
  "C-S-u"   'dired-up-directory
  "C-o"     'dired-omit-mode
  )

(tmtxt/define-keys
    dired-mode-map
  "s-o"     'tmtxt/dired-do-shell-open
  "s-O"     'tmtxt/dired-open-current-directory)

(tmtxt/in '(darwin)
  (tmtxt/define-keys
      dired-mode-map
    "C-c C-o"   'tmtxt/open-current-dir-in-terminal))

;; (tmtxt/keys 'ecb
;;     ecb-mode-map
;;   "C-M-<"     'ecb-toggle-compile-window-height
;;   "C-)"       'ecb-goto-window-edit1
;;   "C-!"       'ecb-goto-window-directories
;;   "C-@"       'ecb-goto-window-sources
;;   "C-#"       'ecb-goto-window-methods
;;   "C-%"       'ecb-goto-window-compilation
;;   )

(tmtxt/set-up 'hideshow
  (tmtxt/define-keys
    hs-minor-mode-map
  "C-c C-h"   'hs-hide-block
  "C-c C-d"   'hs-show-block
  "C-c C-t"   'hs-toggle-hiding
  "C-c C-;"   'hs-hide-all
  "C-c C-'"   'hs-show-all
  "C-c C-l"   'hs-hide-level
  "C-S-r"     'hs-toggle-hiding
  ))

(tmtxt/define-keys
    ac-completing-map
  "M-/"     'ac-stop)

(tmtxt/keys 'wdired wdired-mode-map
  "TAB"   'tmtxt/mark-file-name-forward
  "S-TAB" 'tmtxt/mark-file-name-backward
  "s-o"   'tmtxt/dired-do-shell-open)

(tmtxt/set-up 'projectile
  (tmtxt/keys 'projectile
      global-map
    "C-x C-S-f"        'helm-projectile-find-file
    "C-x C-S-d"        'helm-projectile-find-dir
    "C-x C-d"     'helm-projectile-dired
    "C-x i"       'helm-projectile-invalidate-cache))

(tmtxt/keys 'helm
    global-map
  "M-X"                  'helm-M-x
  "C-x f"                'helm-recentf
  "<C-M-S-tab>"          'tmtxt/helm
  "<C-M-S-iso-lefttab>"  'tmtxt/helm
  "M-V"    'helm-show-kill-ring
  "C-S-s"     'helm-occur)

;; (tmtxt/set-up 'helm-swoop
;;   (tmtxt/keys 'helm-swoop
;;       global-map
;;     "C-S-s"        'helm-swoop))

(tmtxt/keys 'helm-dired-recent-dirs
    global-map
  "C-c C-y"  'helm-dired-recent-dirs-view)

(tmtxt/define-keys js2-minor-mode-map
  "C-M-?" 'ac-js2-jump-to-definition
  "C-M-\"" 'js2-mark-defun
  "C-M-:" 'js2-mode-toggle-hide-functions
  "C-M->" 'js2-mode-toggle-element
  "C-t"  'tmtxt/delete-tern-process)

(tmtxt/set-up 'helm-flycheck
  (tmtxt/keys 'flycheck
      flycheck-mode-map
    "C-c C-p"     'helm-flycheck))

(tmtxt/set-up 'ac-helm
  (tmtxt/keys 'ac-helm
      global-map
    "C-:"        'ac-complete-with-helm)

  (tmtxt/keys 'ac-helm
      ac-complete-mode-map
    "C-:"        'ac-complete-with-helm))

(tmtxt/keys 'evil
    evil-motion-state-map
  "i"        'evil-insert-state)

(tmtxt/keys 'evil
    evil-emacs-state-map
  "M-q"        'tmtxt/evil-exit-insert-state)

(tmtxt/set-up 'smart-forward
  (tmtxt/keys 'smart-forward
      global-map
    "C-M-S-l"        'smart-forward
    "C-M-S-j"        'smart-backward
    "C-M-S-i"        'smart-up
    "C-M-S-k"        'smart-down))

(tmtxt/keys 'moz
    moz-minor-mode-map
  "C-c C-q"        'moz-send-region)

(tmtxt/define-keys comint-mode-map
  "C-M-i"    'comint-previous-matching-input-from-input
  "C-M-k"    'comint-next-matching-input-from-input)

(tmtxt/set-up 'sql-indent
  (tmtxt/define-keys sql-mode-map
    "C-M-\\"  'sql-indent-buffer))

(tmtxt/set-up 'git-messenger
  (tmtxt/define-keys global-map
    "C-c m"   'git-messenger:popup-message))

(tmtxt/set-up 'zygospore
  (tmtxt/define-keys global-map
    "C-x 1"     'zygospore-toggle-delete-other-windows))

(tmtxt/set-up 'ace-jump-mode
  (tmtxt/define-keys global-map
    "C-c SPC" 'ace-jump-mode))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; the rest is taken from starter kit
;; Help should search more than just commands
(define-key 'help-command "a" 'apropos)

;; This is a little hacky since VC doesn't support git add internally
(eval-after-load 'vc
  (define-key vc-prefix-map "i"
    '(lambda () (interactive)
       (if (not (eq 'Git (vc-backend buffer-file-name)))
           (vc-register)
         (shell-command (format "git add %s" buffer-file-name))
         (message "Staged changes.")))))

;; Activate occur easily inside isearch
(define-key isearch-mode-map (kbd "C-o")
  (lambda () (interactive)
    (let ((case-fold-search isearch-case-fold-search))
      (occur (if isearch-regexp isearch-string (regexp-quote isearch-string))))))

(provide 'tmtxt-key-bindings)