diff options
-rw-r--r-- | config.org | 27 |
1 files changed, 18 insertions, 9 deletions
diff --git a/config.org b/config.org index 322e820..f241008 100644 --- a/config.org +++ b/config.org | |||
@@ -1022,6 +1022,12 @@ from [[https://github.com/mpereira/.emacs.d#make-cursor-movement-an-order-of-mag | |||
1022 | I’ve pretty much cribbed this from [[https://github.com/ncaq/recentf-remove-sudo-tramp-prefix/][recentf-remove-sudo-tramp-prefix]] – it’s a small enough package that I can just include it completely here. | 1022 | I’ve pretty much cribbed this from [[https://github.com/ncaq/recentf-remove-sudo-tramp-prefix/][recentf-remove-sudo-tramp-prefix]] – it’s a small enough package that I can just include it completely here. |
1023 | 1023 | ||
1024 | #+begin_src emacs-lisp | 1024 | #+begin_src emacs-lisp |
1025 | ;; appease the compiler | ||
1026 | (declare-function tramp-tramp-file-p "tramp") | ||
1027 | (declare-function tramp-dissect-file-name "tramp") | ||
1028 | (declare-function tramp-file-name-method "tramp") | ||
1029 | (declare-function tramp-file-name-localname "tramp") | ||
1030 | |||
1025 | (defun recentf-remove-sudo-tramp-prefix (path) | 1031 | (defun recentf-remove-sudo-tramp-prefix (path) |
1026 | "Remove sudo from PATH." | 1032 | "Remove sudo from PATH." |
1027 | (require 'tramp) | 1033 | (require 'tramp) |
@@ -1030,15 +1036,15 @@ from [[https://github.com/mpereira/.emacs.d#make-cursor-movement-an-order-of-mag | |||
1030 | (if (string-equal "sudo" (tramp-file-name-method tx)) | 1036 | (if (string-equal "sudo" (tramp-file-name-method tx)) |
1031 | (tramp-file-name-localname tx) | 1037 | (tramp-file-name-localname tx) |
1032 | path)) | 1038 | path)) |
1033 | path)) | 1039 | path) |
1034 | 1040 | ||
1035 | (defun recentf-remove-sudo-tramp-prefix-from-recentf-list () | 1041 | (defun recentf-remove-sudo-tramp-prefix-from-recentf-list () |
1036 | (require 'recentf) | 1042 | (require 'recentf) |
1037 | (setq recentf-list | 1043 | (setq recentf-list |
1038 | (mapcar #'recentf-remove-sudo-tramp-prefix recentf-list))) | 1044 | (mapcar #'recentf-remove-sudo-tramp-prefix recentf-list))) |
1039 | 1045 | ||
1040 | (advice-add 'recentf-cleanup | 1046 | (advice-add 'recentf-cleanup |
1041 | :before #'recentf-remove-sudo-tramp-prefix-from-recentf-list) | 1047 | :before #'recentf-remove-sudo-tramp-prefix-from-recentf-list)) |
1042 | #+end_src | 1048 | #+end_src |
1043 | 1049 | ||
1044 | ** Text editing | 1050 | ** Text editing |
@@ -1534,8 +1540,9 @@ from [[https://github.com/mpereira/.emacs.d#align-all-tags-in-the-buffer-on-tag- | |||
1534 | **** Source blocks | 1540 | **** Source blocks |
1535 | 1541 | ||
1536 | #+begin_src emacs-lisp | 1542 | #+begin_src emacs-lisp |
1537 | (set-face-attribute 'org-block-begin-line nil | 1543 | (with-eval-after-load 'org-faces |
1538 | :height 0.85) | 1544 | (set-face-attribute 'org-block-begin-line nil |
1545 | :height 0.85)) | ||
1539 | #+end_src | 1546 | #+end_src |
1540 | 1547 | ||
1541 | **** Prettify | 1548 | **** Prettify |
@@ -1837,6 +1844,8 @@ from [[https://github.com/mpereira/.emacs.d#align-all-tags-in-the-buffer-on-tag- | |||
1837 | **** Keybindings | 1844 | **** Keybindings |
1838 | 1845 | ||
1839 | #+begin_src emacs-lisp | 1846 | #+begin_src emacs-lisp |
1847 | (require 'org-capture) | ||
1848 | |||
1840 | (with-eval-after-load 'org-capture | 1849 | (with-eval-after-load 'org-capture |
1841 | (define-key acdw/map (kbd "C-c") #'org-capture)) | 1850 | (define-key acdw/map (kbd "C-c") #'org-capture)) |
1842 | #+end_src | 1851 | #+end_src |