|
|
|
@ -876,6 +876,19 @@ Functions that only use built-in Emacs functionality.
|
|
|
|
|
(_ (evil-ret)) |
|
|
|
|
))) |
|
|
|
|
|
|
|
|
|
(defun dot/recentf-open-files () |
|
|
|
|
"Use `completing-read' to open a recent file." |
|
|
|
|
(interactive) |
|
|
|
|
(let ((files (mapcar 'abbreviate-file-name recentf-list))) |
|
|
|
|
(find-file (completing-read "Find recent file: " files nil t)))) |
|
|
|
|
|
|
|
|
|
(defun dot/reload-theme () |
|
|
|
|
"Reload custom theme." |
|
|
|
|
(interactive) |
|
|
|
|
(mapc 'load (file-expand-wildcards |
|
|
|
|
(concat (car custom-theme-load-path) "*.el"))) |
|
|
|
|
(load-theme load-theme t)) |
|
|
|
|
|
|
|
|
|
(defun dot/sudo-find-file (filename) |
|
|
|
|
"Edit file FILENAME as root." |
|
|
|
|
(interactive "FOpen file (as root): ") |
|
|
|
@ -888,12 +901,6 @@ Functions that only use built-in Emacs functionality.
|
|
|
|
|
(find-alternate-file (concat "/sudo:root@localhost:" buffer-file-name)) |
|
|
|
|
(princ "Current buffer isn't a file"))) |
|
|
|
|
|
|
|
|
|
(defun dot/recentf-open-files () |
|
|
|
|
"Use `completing-read' to open a recent file." |
|
|
|
|
(interactive) |
|
|
|
|
(let ((files (mapcar 'abbreviate-file-name recentf-list))) |
|
|
|
|
(find-file (completing-read "Find recent file: " files nil t)))) |
|
|
|
|
|
|
|
|
|
(defun dot/M-x (command) |
|
|
|
|
"Prompt and execute COMMAND." |
|
|
|
|
(interactive "CCommand: ") |
|
|
|
@ -1134,13 +1141,13 @@ Set custom keybinds to functionality of default modes.
|
|
|
|
|
(global-set-key (kbd "C-c r") 'config-reload) |
|
|
|
|
(global-set-key (kbd "C-c v") 'config-visit) |
|
|
|
|
|
|
|
|
|
;; Find file |
|
|
|
|
(global-set-key (kbd "C-x C-f") 'find-file-in-project-root) |
|
|
|
|
|
|
|
|
|
;; Split and follow window |
|
|
|
|
(global-set-key (kbd "C-x 2") 'split-follow-horizontally) |
|
|
|
|
(global-set-key (kbd "C-x 3") 'split-follow-vertically) |
|
|
|
|
|
|
|
|
|
;; Find file |
|
|
|
|
(global-set-key (kbd "C-x C-f") 'find-file-in-project-root) |
|
|
|
|
|
|
|
|
|
;; Terminal |
|
|
|
|
(global-set-key (kbd "<s-backspace>") 'ansi-term) |
|
|
|
|
#+END_SRC |
|
|
|
@ -1302,7 +1309,7 @@ General.el ~leader key binds.
|
|
|
|
|
"e e" '(eval-last-sexp :which-key "Evaluate last sexp") |
|
|
|
|
"e r" '(eval-region :which-key "Evaluate region") |
|
|
|
|
|
|
|
|
|
;; Find file |
|
|
|
|
;; File |
|
|
|
|
"f" '(:ignore t :which-key "file") |
|
|
|
|
"f f" '(find-file-in-project-root :which-key "Find file") |
|
|
|
|
"f r" '(dot/recentf-open-files :which-key "Recent files") |
|
|
|
@ -1335,6 +1342,9 @@ General.el ~leader key binds.
|
|
|
|
|
"q f" '(delete-frame :which-key "Close frame") |
|
|
|
|
"q o" '(delete-other-frames :which-key "Close other frames") |
|
|
|
|
|
|
|
|
|
"r" '(:ignore t :which-key "reload") |
|
|
|
|
"r t" '(dot/reload-theme :which-key "Reload theme") |
|
|
|
|
|
|
|
|
|
;; Search |
|
|
|
|
"s" '(:ignore t :which-key "search") |
|
|
|
|
"s a" '(avy-goto-char-timer :which-key "Avy goto char") |
|
|
|
|