Browse Source

Add reload theme function

master
Riyyi 4 years ago
parent
commit
1beff5e568
  1. 30
      .emacs.d/config.org

30
.emacs.d/config.org

@ -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")

Loading…
Cancel
Save