gav451/emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Clean up six listings

Browse Source
This commit is contained in:
Gerard Vermeulen 2024-06-15 17:01:51 +02:00
parent 47c25f53ee
commit 65f01b03c0
1 changed files with 6 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
README.org
View File

@ -1703,7 +1703,7 @@ regexp strings.
#+caption: Ensure =xr= installation. #+caption: Ensure =xr= installation.
#+name: lst:ensure-xr-installation #+name: lst:ensure-xr-installation
#+begin_src emacs-lisp -n :results silent #+begin_src emacs-lisp -n :results silent
(when (ensure-package-installation 'xr) t) (ensure-package-installation 'xr)
#+end_src #+end_src
* [[info:emacs#Version Control][Version Control (info)]] * [[info:emacs#Version Control][Version Control (info)]]
@ -1855,8 +1855,7 @@ Listing [[lst:configure-nov]] configures [[https://depp.brause.cc/nov.el/][nov.e
#+caption: Configure =nov=. #+caption: Configure =nov=.
#+name: lst:configure-nov #+name: lst:configure-nov
#+begin_src emacs-lisp -n :results silent #+begin_src emacs-lisp -n :results silent
(when (and (ensure-package-installation 'nov) (when (ensure-package-installation 'nov)
(fboundp 'nov-mode))
(add-to-list 'auto-mode-alist `(,(rx ".epub" eos) . nov-mode))) (add-to-list 'auto-mode-alist `(,(rx ".epub" eos) . nov-mode)))
#+end_src #+end_src
@ -1879,8 +1878,7 @@ file.
#+caption: Setup =pdf-tools=. #+caption: Setup =pdf-tools=.
#+name: lst:setup-pdf-tools #+name: lst:setup-pdf-tools
#+begin_src emacs-lisp -n :results silent #+begin_src emacs-lisp -n :results silent
(when (and (ensure-package-installation 'pdf-tools) (when (ensure-package-installation 'pdf-tools)
(fboundp 'pdf-loader-install))
;; Use `pdf-loader-install' for faster startup than with `pdf-tools-install'. ;; Use `pdf-loader-install' for faster startup than with `pdf-tools-install'.
(pdf-loader-install) (pdf-loader-install)
@ -2147,9 +2145,7 @@ list detailing and motivating each listing:
"\\documentclass[preview]{standalone}\n"))) "\\documentclass[preview]{standalone}\n")))
(with-eval-after-load 'ob-lisp (with-eval-after-load 'ob-lisp
;; Default to `sly-eval' whenever feasible: (when (package-installed-p 'sly)
(when (and (package-installed-p 'sly)
(fboundp 'sly-eval))
(setopt org-babel-lisp-eval-fn #'sly-eval))) (setopt org-babel-lisp-eval-fn #'sly-eval)))
#+end_src #+end_src
@ -3887,9 +3883,7 @@ it for this buffer is by typing {{{kbd(C-c C-e t U)}}} to export the it to a
#+caption: Configure =writegood-mode=. #+caption: Configure =writegood-mode=.
#+name: lst:configure-writegood-mode #+name: lst:configure-writegood-mode
#+begin_src emacs-lisp -n :results silent #+begin_src emacs-lisp -n :results silent
(when (and (ensure-package-installation 'writegood-mode) (when (ensure-package-installation 'writegood-mode)
(fboundp 'writegood-mode))
(add-hook 'after-init-hook (add-hook 'after-init-hook
(defun on-after-change-mode-hook-enable-writegood-mode () (defun on-after-change-mode-hook-enable-writegood-mode ()
(add-hook 'after-change-major-mode-hook (add-hook 'after-change-major-mode-hook
@ -3919,15 +3913,7 @@ true in case document headlines contain links. The code in listing
#+name: lst:setup-which-function-mode #+name: lst:setup-which-function-mode
#+begin_src emacs-lisp -n :results silent #+begin_src emacs-lisp -n :results silent
(with-eval-after-load 'which-func (with-eval-after-load 'which-func
(setopt which-func-modes (setopt which-func-modes '(emacs-lisp-mode org-mode pdf-view-mode)))
'(emacs-lisp-mode org-mode pdf-view-mode)))
;; It looks like `python-mode' does nothing when it is an element of
;; `which-func-modes'.
;; (setopt which-func-modes t)
;; (setopt which-func-display 'header) ;; AFAIU, fails on my system.
#+end_src #+end_src
#+caption[Define functions for ~which-func-functions~]: #+caption[Define functions for ~which-func-functions~]: