91 lines
4.5 KiB
EmacsLisp
91 lines
4.5 KiB
EmacsLisp
;;; my-commands.el
|
|
|
|
;; Emacs utilities
|
|
(evil-ex-define-cmd "echo" 'narf:echo)
|
|
(evil-ex-define-cmd "minor" 'helm-describe-modes) ; list minor modes
|
|
;; Quick mapping keys to commands, allows :nmap \m !make
|
|
(evil-ex-define-cmd "nmap" 'narf:nmap)
|
|
(evil-ex-define-cmd "imap" 'narf:imap)
|
|
(evil-ex-define-cmd "vmap" 'narf:vmap)
|
|
(evil-ex-define-cmd "mmap" 'narf:mmap)
|
|
(evil-ex-define-cmd "omap" 'narf:omap)
|
|
|
|
;; Editing
|
|
(evil-ex-define-cmd "@" 'narf/evil-macro-on-all-lines) ; run macro on each line
|
|
(evil-ex-define-cmd "al[ign]" 'narf:align) ; align by regexp
|
|
(evil-ex-define-cmd "na[rrow]" 'narf:narrow) ; narrow buffer to selection
|
|
(evil-ex-define-cmd "ref[actor]" 'emr-show-refactor-menu) ; open emr menu
|
|
(evil-ex-define-cmd "retab" 'narf:whitespace-retab)
|
|
(evil-ex-define-cmd "settr[im]" 'narf:toggle-delete-trailing-whitespace)
|
|
(evil-ex-define-cmd "snip[pets]" 'narf:yas-snippets) ; visit a snippet
|
|
(evil-ex-define-cmd "tsnip[pets]" 'narf:yas-file-templates) ; visit a file template
|
|
(evil-ex-define-cmd "wal[ign]" 'narf:whitespace-align) ; align spaces
|
|
(evil-ex-define-cmd "rec[ent]" 'narf:helm-recentf) ; show recent files in helm
|
|
(evil-ex-define-cmd "reo[rient]" 'narf/window-reorient) ; scroll all windows to left
|
|
(evil-ex-define-cmd "ie[dit]" 'evil-multiedit-ex-match)
|
|
|
|
;; External resources
|
|
(evil-ex-define-cmd "dash" 'narf:dash) ; look up in Dash.app
|
|
(evil-ex-define-cmd "http" 'httpd-start) ; start http server
|
|
(evil-ex-define-cmd "re[gex]" 'narf:regex) ; open re-builder
|
|
(evil-ex-define-cmd "repl" 'narf:repl) ; invoke or send to repl
|
|
(evil-ex-define-cmd "t[mux]" 'narf:tmux) ; send to tmux
|
|
(evil-ex-define-cmd "tcd" 'narf:tmux-cd) ; cd to default-directory in tmux
|
|
(evil-ex-define-cmd "x" 'narf:send-to-scratch-or-org)
|
|
;; GIT
|
|
(evil-ex-define-cmd "gbr[owse]" 'narf:git-remote-browse) ; show file in github/gitlab
|
|
|
|
;; Dealing with buffers
|
|
(evil-ex-define-cmd "k[ill]" 'narf/kill-real-buffer) ; Kill current buffer
|
|
(evil-ex-define-cmd "k[ill]all" 'narf:kill-all-buffers) ; Kill all buffers (bang = in project)
|
|
(evil-ex-define-cmd "k[ill]buried" 'narf:kill-buried-buffers) ; Kill all buried buffers (bang = in project)
|
|
(evil-ex-define-cmd "k[ill]o" 'narf:kill-other-buffers) ; kill all other buffers
|
|
(evil-ex-define-cmd "k[ill]unreal" 'narf/kill-unreal-buffers) ; kill unreal buffers
|
|
(evil-ex-define-cmd "k[ill]match" 'narf:kill-matching-buffers) ; kill buffers that match regexp
|
|
(evil-ex-define-cmd "l[ast]" 'narf/popup-last-buffer) ; pop up last popup
|
|
(evil-ex-define-cmd "m[sg]" 'narf/popup-messages) ; open *messages* in popup
|
|
|
|
;; Project navigation
|
|
(evil-ex-define-cmd "a" 'helm-projectile-find-other-file) ; open alternate file
|
|
(evil-ex-define-cmd "ag" 'narf:helm-ag-search) ; project text search
|
|
(evil-ex-define-cmd "ag[cw]d" 'narf:helm-ag-search-cwd) ; current directory search
|
|
(evil-ex-define-cmd "cd" 'narf:cd)
|
|
(evil-ex-define-cmd "se[arch]" 'narf:helm-swoop) ; in-file search
|
|
;; Project tools
|
|
(evil-ex-define-cmd "ma[ke]" 'narf:build)
|
|
(evil-ex-define-cmd "build" 'narf:build)
|
|
;; File operations
|
|
(evil-ex-define-cmd "mv" 'narf:file-move)
|
|
(evil-ex-define-cmd "rm" 'narf:file-delete) ; rm[!]
|
|
|
|
;; Presentation/demo
|
|
(evil-ex-define-cmd "big" 'big-mode)
|
|
(evil-ex-define-cmd "full[scr]" 'narf:toggle-fullscreen)
|
|
|
|
;; Sessions/tabs
|
|
(evil-ex-define-cmd "sl[oad]" 'narf:load-session)
|
|
(evil-ex-define-cmd "ss[ave]" 'narf:save-session)
|
|
(evil-ex-define-cmd "tabs" 'narf/tab-display)
|
|
(evil-ex-define-cmd "tabn[ew]" 'narf:tab-create)
|
|
(evil-ex-define-cmd "tabr[ename]" 'narf:tab-rename)
|
|
(evil-ex-define-cmd "tabc[lose]" 'narf:kill-tab)
|
|
(evil-ex-define-cmd "tabc[lose]o" 'narf:kill-other-tabs)
|
|
(evil-ex-define-cmd "tabn[ext]" 'narf:switch-to-tab-right)
|
|
(evil-ex-define-cmd "tabp[rev]" 'narf:switch-to-tab-left)
|
|
(evil-ex-define-cmd "tabl[ast]" 'narf:switch-to-tab-last)
|
|
|
|
;; Org-mode
|
|
(evil-ex-define-cmd "link" 'narf:org-link)
|
|
(evil-ex-define-cmd "att[ach]" 'narf:org-attach) ; attach file to org file
|
|
(evil-ex-define-cmd "org" 'narf:org-helm-search) ; search org notes
|
|
|
|
;; Plugins
|
|
(after! flycheck
|
|
(evil-ex-define-cmd "er[rors]" (λ! (flycheck-buffer) (flycheck-list-errors))))
|
|
|
|
;; Debuggers
|
|
(evil-ex-define-cmd "debug" 'narf:debug)
|
|
|
|
(provide 'my-commands)
|
|
;;; my-commands.el ends here
|