about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--config.org27
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