emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor my-commands.el

Browse source
This commit is contained in:
Henrik Lissner 2016-02-13 01:13:10 -05:00
parent ee5cec5f60
commit 7a7712223d
1 changed files with 52 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

104
private/my-commands.el
View file

@ -1,72 +1,72 @@
;;; my-commands.el ;;; my-commands.el
;; Emacs utilities ;; Emacs utilities
(exmap "acomp[ile]" 'narf:compile-autoloads) (exmap "acomp[ile]" 'narf:compile-autoloads)
(exmap "bcomp[ile]" 'narf:compile-el) (exmap "bcomp[ile]" 'narf:compile-el)
(exmap "echo" 'narf:echo) (exmap "echo" 'narf:echo)
(exmap "minor" 'what-minor-modes) (exmap "minor" 'helm-describe-modes)
;; Editing ;; Editing
(exmap "@" 'narf/evil-macro-on-all-lines) (exmap "@" 'narf/evil-macro-on-all-lines)
(exmap "al[ign]" 'narf:align) (exmap "al[ign]" 'narf:align)
(exmap "en[ew]" 'narf:file-create) (exmap "en[ew]" 'narf:file-create)
(exmap "na[rrow]" 'narf:narrow) ; Narrow buffer to selection (exmap "na[rrow]" 'narf:narrow) ; Narrow buffer to selection
(exmap "ref[actor]" 'emr-show-refactor-menu) (exmap "ref[actor]" 'emr-show-refactor-menu)
(exmap "retab" 'narf:whitespace-retab) (exmap "retab" 'narf:whitespace-retab)
(exmap "settr[im]" 'narf:toggle-delete-trailing-whitespace) (exmap "settr[im]" 'narf:toggle-delete-trailing-whitespace)
(exmap "snip[pets]" 'narf:yas-snippets) ; snip[!] (exmap "snip[pets]" 'narf:yas-snippets) ; snip[!]
(exmap "tsnip[pets]" 'narf:yas-file-templates) ; tsnip[!] (exmap "tsnip[pets]" 'narf:yas-file-templates) ; tsnip[!]
(exmap "wal[ign]" 'narf:whitespace-align) (exmap "wal[ign]" 'narf:whitespace-align)
(exmap "rec[ent]" 'narf:helm-recentf) (exmap "rec[ent]" 'narf:helm-recentf)
(exmap "reo[rient]" 'narf/window-reorient) (exmap "reo[rient]" 'narf/window-reorient)
(exmap "cols" 'narf:set-columns)
;; External resources ;; External resources
(exmap "dash" 'dash-at-point) (exmap "dash" 'dash-at-point)
(exmap "http" 'httpd-start) (exmap "http" 'httpd-start)
(exmap "re[gex]" 'narf:regex) (exmap "re[gex]" 'narf:regex)
(exmap "repl" 'narf:repl) (exmap "repl" 'narf:repl)
(exmap "t[mux]" 'narf:tmux) (exmap "t[mux]" 'narf:tmux)
(exmap "t[mux]w" 'narf/tmux-new-window) (exmap "t[mux]w" 'narf/tmux-new-window)
(exmap "tcd" 'narf:tmux-cd) (exmap "tcd" 'narf:tmux-cd)
(exmap "x" 'narf:send-to-scratch-or-org) (exmap "x" 'narf:send-to-scratch-or-org)
;; GIT ;; GIT
(exmap "br[owse]" 'narf:git-remote-browse) (exmap "br[owse]" 'narf:git-remote-browse)
;; Dealing with buffers ;; Dealing with buffers
(exmap "k[ill]" 'narf/kill-real-buffer) ; Kill current buffer (exmap "k[ill]" 'narf/kill-real-buffer) ; Kill current buffer
(exmap "k[ill]all" 'narf:kill-all-buffers) ; Kill all buffers (bang = in project) (exmap "k[ill]all" 'narf:kill-all-buffers) ; Kill all buffers (bang = in project)
(exmap "k[ill]buried" 'narf:kill-buried-buffers) ; Kill all buried buffers (bang = in project) (exmap "k[ill]buried" 'narf:kill-buried-buffers) ; Kill all buried buffers (bang = in project)
(exmap "k[ill]o" 'narf:kill-unreal-buffers) (exmap "k[ill]o" 'narf:kill-unreal-buffers)
(exmap "k[ill]match" 'narf:kill-matching-buffers) (exmap "k[ill]match" 'narf:kill-matching-buffers)
(exmap "l[ast]" 'narf/popup-last-buffer) (exmap "l[ast]" 'narf/popup-last-buffer)
(exmap "m[sg]" 'narf/popup-messages) (exmap "m[sg]" 'narf/popup-messages)
;; Project navigation ;; Project navigation
(exmap "a" 'helm-projectile-find-other-file) (exmap "a" 'helm-projectile-find-other-file)
(exmap "ag" 'narf:helm-ag-search) (exmap "ag" 'narf:helm-ag-search)
(exmap "ag[cw]d" 'narf:helm-ag-search-cwd) (exmap "ag[cw]d" 'narf:helm-ag-search-cwd)
(exmap "agr" 'narf:helm-ag-regex-search) (exmap "agr" 'narf:helm-ag-regex-search)
(exmap "agr[cw]d" 'narf:helm-ag-regex-search-cwd) (exmap "agr[cw]d" 'narf:helm-ag-regex-search-cwd)
(exmap "cd" 'narf:cd) (exmap "cd" 'narf:cd)
(exmap "f[ind]" 'narf:helm-swoop) (exmap "f[ind]" 'narf:helm-swoop)
;; Project tools ;; Project tools
(exmap "ma[ke]" 'narf:build) (exmap "ma[ke]" 'narf:build)
;; File operations ;; File operations
(exmap "mv" 'narf:file-move) (exmap "mv" 'narf:file-move)
(exmap "rm" 'narf:file-delete) ; rm[!] (exmap "rm" 'narf:file-delete) ; rm[!]
;; Presentation/demo ;; Presentation/demo
(exmap "big" 'narf:toggle-big-mode) (exmap "big" 'big-mode)
(exmap "full[scr]" 'narf:toggle-fullscreen) (exmap "full[scr]" 'narf:toggle-fullscreen)
(exmap "fullw[rite]" 'narf:toggle-write-mode) (exmap "wr[iting]" 'write-mode-toggle)
;; Org-mode ;; Org-mode
(exmap "cap[ture]" 'helm-org-capture-templates) (exmap "cols" 'narf:set-columns)
(exmap "org" 'narf/helm-org) (exmap "org" 'narf/helm-org)
(exmap "cont[act]" 'narf:org-crm-contact) (exmap "cap[ture]" 'helm-org-capture-templates)
(exmap "proj[ect]" 'narf:org-crm-project) (exmap "cont[act]" 'narf:org-crm-contact)
(exmap "invo[ice]" 'narf:org-crm-invoice) (exmap "proj[ect]" 'narf:org-crm-project)
(exmap "invo[ice]" 'narf:org-crm-invoice)
;; Sessions/tabs ;; Sessions/tabs
(exmap "sl[oad]" 'narf:load-session) (exmap "sl[oad]" 'narf:load-session)
@ -82,7 +82,7 @@
;; Plugins ;; Plugins
(after! flycheck (after! flycheck
(exmap "er[rors]" (λ! (flycheck-buffer) (flycheck-list-errors)))) (exmap "er[rors]" (λ! (flycheck-buffer) (flycheck-list-errors))))
(provide 'my-commands) (provide 'my-commands)
;;; my-commands.el ends here ;;; my-commands.el ends here