Group with-eval-after-load emacs instead of unless noninteractive
This commit is contained in:
Gerard Vermeulen
parent
781427c182
commit
93489d05a9
360
README.org
360
README.org
@ -167,6 +167,8 @@ the ~custom-file~ as [[info:emacs#Saving Customizations][saving customizations (
|
||||
'(epg-pinentry-mode 'loopback)
|
||||
'(global-hl-line-mode t)
|
||||
'(global-hl-line-sticky-flag t)
|
||||
'(history-delete-duplicates t)
|
||||
'(history-length 500)
|
||||
'(indent-tabs-mode nil)
|
||||
'(inhibit-startup-buffer-menu t)
|
||||
'(inhibit-startup-screen t)
|
||||
@ -286,34 +288,36 @@ background.
|
||||
#+caption: Improve the visibility of faces in =faces.el=.
|
||||
#+name: lst:tweak-faces-faces-after
|
||||
#+begin_src emacs-lisp
|
||||
(defun tweak-region-face-background-color ()
|
||||
(when (featurep 'gtk)
|
||||
(set-face-attribute
|
||||
'region nil
|
||||
:background (cdr (assoc (face-attribute 'default :background)
|
||||
'(("white" . "LightGoldenrod2")
|
||||
("black" . "blue3")))))))
|
||||
(with-eval-after-load 'emacs
|
||||
(defun tweak-region-face-background-color ()
|
||||
(when (featurep 'gtk)
|
||||
(set-face-attribute
|
||||
'region nil
|
||||
:background (cdr (assoc (face-attribute 'default :background)
|
||||
'(("white" . "LightGoldenrod2")
|
||||
("black" . "blue3")))))))
|
||||
|
||||
(tweak-region-face-background-color)
|
||||
(tweak-region-face-background-color))
|
||||
#+end_src
|
||||
|
||||
#+caption[Improve the visibility of faces in =org-faces.el=]:
|
||||
#+caption: Improve the visibility of faces in =org-faces.el=.
|
||||
#+name: lst:tweak-org-faces-before
|
||||
#+begin_src emacs-lisp
|
||||
;; Shadow the definition in org-faces.el:
|
||||
(defface org-block
|
||||
;; https://emacs.stackexchange.com/questions/9600/
|
||||
;; how-can-i-override-a-pre-defined-face-for-light-and-dark-backgrounds
|
||||
`((((background dark))
|
||||
:inherit (fixed-pitch)
|
||||
,@(and (>= emacs-major-version 27) '(:extend t))
|
||||
:background "#444444")
|
||||
(t
|
||||
:inherit (fixed-pitch)
|
||||
,@(and (>= emacs-major-version 27) '(:extend t))
|
||||
:background "#FFFFD0"))
|
||||
"My face used for text inside various blocks.
|
||||
(with-eval-after-load 'emacs
|
||||
;; Shadow the definition in org-faces.el:
|
||||
(defface org-block
|
||||
;; https://emacs.stackexchange.com/a/9604 answers:
|
||||
;; How to override a defined face for light and dark backgrounds?
|
||||
`((((background dark))
|
||||
:inherit (fixed-pitch)
|
||||
,@(and (>= emacs-major-version 27) '(:extend t))
|
||||
:background "#444444")
|
||||
(t
|
||||
:inherit (fixed-pitch)
|
||||
,@(and (>= emacs-major-version 27) '(:extend t))
|
||||
:background "#FFFFD0"))
|
||||
"My face used for text inside various blocks.
|
||||
|
||||
It is always used for source blocks. You can refine what face
|
||||
should be used depending on the source block language by setting,
|
||||
@ -321,22 +325,23 @@ background.
|
||||
|
||||
When `org-fontify-quote-and-verse-blocks' is not nil, text inside
|
||||
verse and quote blocks are fontified using the `org-verse' and
|
||||
`org-quote' faces, which inherit from `org-block'.")
|
||||
`org-quote' faces, which inherit from `org-block'."))
|
||||
#+end_src
|
||||
|
||||
#+caption[Improve the visibility of faces in =sh-script.el=]:
|
||||
#+caption: Improve the visibility of faces in =sh-script.el=.
|
||||
#+name: lst:tweak-sh-script-faces-before
|
||||
#+begin_src emacs-lisp
|
||||
;; Shadow the definition in sh-script.el:
|
||||
(defface sh-heredoc
|
||||
'((((class color) (background dark))
|
||||
(:foreground "yellow"))
|
||||
(((class color) (background light))
|
||||
(:foreground "magenta"))
|
||||
(t
|
||||
(:weight bold)))
|
||||
"My face to show a here-document.")
|
||||
(with-eval-after-load 'emacs
|
||||
;; Shadow the definition in sh-script.el:
|
||||
(defface sh-heredoc
|
||||
'((((class color) (background dark))
|
||||
(:foreground "yellow"))
|
||||
(((class color) (background light))
|
||||
(:foreground "magenta"))
|
||||
(t
|
||||
(:weight bold)))
|
||||
"My face to show a here-document."))
|
||||
#+end_src
|
||||
|
||||
** [[info:emacs#Dired][Dired: directory editor as file manager (info)]]
|
||||
@ -559,15 +564,16 @@ users from shooting themselves in the feet. Listing
|
||||
#+caption: Configure the =disabled-command-function=.
|
||||
#+name: lst:configure-disabled-command-function
|
||||
#+begin_src emacs-lisp
|
||||
(setq disabled-command-function
|
||||
(defun my-enable-this-command (&rest _args)
|
||||
"Called when a disabled command is executed.
|
||||
(with-eval-after-load 'emacs
|
||||
(setq disabled-command-function
|
||||
(defun my-enable-this-command (&rest _args)
|
||||
"Called when a disabled command is executed.
|
||||
Enable it and re-execute it."
|
||||
(put this-command 'disabled nil)
|
||||
(message "You typed %s. %s was disabled until now."
|
||||
(key-description (this-command-keys)) this-command)
|
||||
(sit-for 0)
|
||||
(call-interactively this-command)))
|
||||
(put this-command 'disabled nil)
|
||||
(message "You typed %s. %s was disabled until now."
|
||||
(key-description (this-command-keys)) this-command)
|
||||
(sit-for 0)
|
||||
(call-interactively this-command))))
|
||||
#+end_src
|
||||
|
||||
* [[info:emacs#Emacs Server][Using Emacs as a server (info)]]
|
||||
@ -703,23 +709,21 @@ file.
|
||||
#+caption: Enable =savehist-mode= and =vertico-mode=.
|
||||
#+name: lst:enable-vertico-mode
|
||||
#+begin_src emacs-lisp
|
||||
(unless noninteractive
|
||||
(when (fboundp 'savehist-mode)
|
||||
(savehist-mode +1)
|
||||
(custom-set-variables
|
||||
'(history-delete-duplicates t)
|
||||
'(history-length 500)
|
||||
'(savehist-additional-variables
|
||||
'(eww-history
|
||||
kill-ring
|
||||
regexp-search-string
|
||||
search-ring
|
||||
search-string)))
|
||||
(savehist-mode +1)
|
||||
(when (fboundp 'vertico-mode)
|
||||
(vertico-mode +1))
|
||||
(with-eval-after-load 'vertico
|
||||
(define-key vertico-map (kbd "RET") #'vertico-directory-enter)
|
||||
(define-key vertico-map (kbd "DEL") #'vertico-directory-delete-char)
|
||||
(define-key vertico-map (kbd "M-DEL") #'vertico-directory-delete-word)))
|
||||
search-string))))
|
||||
(when (fboundp 'vertico-mode)
|
||||
(vertico-mode +1))
|
||||
(with-eval-after-load 'vertico
|
||||
(define-key vertico-map (kbd "RET") #'vertico-directory-enter)
|
||||
(define-key vertico-map (kbd "DEL") #'vertico-directory-delete-char)
|
||||
(define-key vertico-map (kbd "M-DEL") #'vertico-directory-delete-word))
|
||||
#+end_src
|
||||
|
||||
#+attr_latex: :booktabs yes :float table
|
||||
@ -760,17 +764,16 @@ Listing [[lst:configure-orderless]] enables =orderless=.
|
||||
#+caption: Configure =orderless=.
|
||||
#+name: lst:configure-orderless
|
||||
#+begin_src emacs-lisp
|
||||
(unless noninteractive
|
||||
(when (fboundp 'orderless-filter)
|
||||
(custom-set-variables
|
||||
;; https://github.com/purcell/emacs.d/issues/778
|
||||
'(completion-styles '(basic completion-partial orderless))
|
||||
'(completion-category-defaults nil)
|
||||
'(completion-category-overrides
|
||||
'((file (styles partial-completion)))))
|
||||
(add-hook 'minibuffer-setup-hook
|
||||
(defun my-on-minibuffer-setup-hook()
|
||||
(setq-default completion-styles '(substring orderless))))))
|
||||
(when (fboundp 'orderless-filter)
|
||||
(custom-set-variables
|
||||
;; https://github.com/purcell/emacs.d/issues/778
|
||||
'(completion-styles '(basic completion-partial orderless))
|
||||
'(completion-category-defaults nil)
|
||||
'(completion-category-overrides
|
||||
'((file (styles partial-completion)))))
|
||||
(add-hook 'minibuffer-setup-hook
|
||||
(defun my-on-minibuffer-setup-hook()
|
||||
(setq-default completion-styles '(substring orderless)))))
|
||||
#+end_src
|
||||
|
||||
** [[info:embark#Top][Embark (info)]]
|
||||
@ -787,12 +790,11 @@ minibuffer help after a prefix key.
|
||||
#+caption: Configure =embark=.
|
||||
#+name: lst:configure-embark
|
||||
#+begin_src emacs-lisp
|
||||
(unless noninteractive
|
||||
(when (cl-every #'fboundp '(embark-act embark-bindings embark-dwim))
|
||||
(global-set-key (kbd "C-,") #'embark-act)
|
||||
(global-set-key (kbd "C-:") #'embark-dwim)
|
||||
(global-set-key (kbd "C-h B") #'embark-bindings)
|
||||
(setq prefix-help-command #'embark-prefix-help-command)))
|
||||
(when (cl-every #'fboundp '(embark-act embark-bindings embark-dwim))
|
||||
(global-set-key (kbd "C-,") #'embark-act)
|
||||
(global-set-key (kbd "C-:") #'embark-dwim)
|
||||
(global-set-key (kbd "C-h B") #'embark-bindings)
|
||||
(setq prefix-help-command #'embark-prefix-help-command))
|
||||
#+end_src
|
||||
|
||||
** [[info:marginalia#Top][Marginalia (info)]]
|
||||
@ -806,9 +808,8 @@ Listing [[lst:enable-marginalia-mode]] enables =marginalia-mode=.
|
||||
#+caption: Enable =marginalia-mode=.
|
||||
#+name: lst:enable-marginalia-mode
|
||||
#+begin_src emacs-lisp
|
||||
(unless noninteractive
|
||||
(when (fboundp 'marginalia-mode)
|
||||
(marginalia-mode +1)))
|
||||
(when (fboundp 'marginalia-mode)
|
||||
(marginalia-mode +1))
|
||||
#+end_src
|
||||
|
||||
** [[info:consult#Top][Consult (info)]]
|
||||
@ -870,41 +871,40 @@ Listing [[lst:configure-consult]] configures =consult=.
|
||||
#+caption: Configure =consult=.
|
||||
#+name: lst:configure-consult
|
||||
#+begin_src emacs-lisp
|
||||
(unless noninteractive
|
||||
(when (fboundp 'consult-apropos)
|
||||
(custom-set-variables
|
||||
'(consult-project-root-function #'vc-root-dir))
|
||||
;; C-c bindings (mode-specific-map)
|
||||
(global-set-key (kbd "C-c h") #'consult-history)
|
||||
(global-set-key (kbd "C-c m") #'consult-mode-command)
|
||||
;; C-x bindings (ctl-x-map)
|
||||
(define-key ctl-x-map (kbd "M-:") #'consult-complex-command)
|
||||
(define-key ctl-x-map (kbd "b") #'consult-buffer)
|
||||
(define-key ctl-x-map (kbd "4 b") #'consult-buffer-other-window)
|
||||
(define-key ctl-x-map (kbd "5 b") #'consult-buffer-other-frame)
|
||||
(define-key ctl-x-map (kbd "r x") #'consult-register)
|
||||
(define-key ctl-x-map (kbd "r b") #'consult-bookmark)
|
||||
;; M-g bindings (goto-map)
|
||||
(define-key goto-map (kbd "g") #'consult-goto-line)
|
||||
(define-key goto-map (kbd "M-g") #'consult-goto-line)
|
||||
(define-key goto-map (kbd "o") #'consult-outline)
|
||||
(define-key goto-map (kbd "m") #'consult-mark)
|
||||
(define-key goto-map (kbd "k") #'consult-global-mark)
|
||||
(define-key goto-map (kbd "i") #'consult-imenu-project)
|
||||
(define-key goto-map (kbd "e") #'consult-compile-error)
|
||||
;; M-s bindings (search-map)
|
||||
(define-key search-map (kbd "g") #'consult-git-grep)
|
||||
(define-key search-map (kbd "f") #'consult-find)
|
||||
(define-key search-map (kbd "k") #'consult-keep-lines)
|
||||
(define-key search-map (kbd "l") #'consult-line)
|
||||
(define-key search-map (kbd "m") #'consult-multi-occur)
|
||||
(define-key search-map (kbd "u") #'consult-focus-lines)
|
||||
;; Other bindings
|
||||
(global-set-key (kbd "M-y") #'consult-yank-pop)
|
||||
(global-set-key (kbd "<help> a") #'consult-apropos)
|
||||
;; Tweak functions
|
||||
(advice-add 'completing-read-multiple
|
||||
:override #'consult-completing-read-multiple)))
|
||||
(when (fboundp 'consult-apropos)
|
||||
(custom-set-variables
|
||||
'(consult-project-root-function #'vc-root-dir))
|
||||
;; C-c bindings (mode-specific-map)
|
||||
(global-set-key (kbd "C-c h") #'consult-history)
|
||||
(global-set-key (kbd "C-c m") #'consult-mode-command)
|
||||
;; C-x bindings (ctl-x-map)
|
||||
(define-key ctl-x-map (kbd "M-:") #'consult-complex-command)
|
||||
(define-key ctl-x-map (kbd "b") #'consult-buffer)
|
||||
(define-key ctl-x-map (kbd "4 b") #'consult-buffer-other-window)
|
||||
(define-key ctl-x-map (kbd "5 b") #'consult-buffer-other-frame)
|
||||
(define-key ctl-x-map (kbd "r x") #'consult-register)
|
||||
(define-key ctl-x-map (kbd "r b") #'consult-bookmark)
|
||||
;; M-g bindings (goto-map)
|
||||
(define-key goto-map (kbd "g") #'consult-goto-line)
|
||||
(define-key goto-map (kbd "M-g") #'consult-goto-line)
|
||||
(define-key goto-map (kbd "o") #'consult-outline)
|
||||
(define-key goto-map (kbd "m") #'consult-mark)
|
||||
(define-key goto-map (kbd "k") #'consult-global-mark)
|
||||
(define-key goto-map (kbd "i") #'consult-imenu-project)
|
||||
(define-key goto-map (kbd "e") #'consult-compile-error)
|
||||
;; M-s bindings (search-map)
|
||||
(define-key search-map (kbd "g") #'consult-git-grep)
|
||||
(define-key search-map (kbd "f") #'consult-find)
|
||||
(define-key search-map (kbd "k") #'consult-keep-lines)
|
||||
(define-key search-map (kbd "l") #'consult-line)
|
||||
(define-key search-map (kbd "m") #'consult-multi-occur)
|
||||
(define-key search-map (kbd "u") #'consult-focus-lines)
|
||||
;; Other bindings
|
||||
(global-set-key (kbd "M-y") #'consult-yank-pop)
|
||||
(global-set-key (kbd "<help> a") #'consult-apropos)
|
||||
;; Tweak functions
|
||||
(advice-add 'completing-read-multiple
|
||||
:override #'consult-completing-read-multiple))
|
||||
#+end_src
|
||||
|
||||
** [[https://company-mode.github.io/][Company: a modular complete anything framework for Emacs]]
|
||||
@ -918,20 +918,19 @@ Listing [[lst:configure-company]] configures =company=.
|
||||
#+caption: Configure =company=.
|
||||
#+name: lst:configure-company
|
||||
#+begin_src emacs-lisp
|
||||
(unless noninteractive
|
||||
(when (fboundp 'company-mode)
|
||||
(custom-set-variables
|
||||
;; https://github.com/purcell/emacs.d/issues/778
|
||||
'(company-transformers '(company-sort-by-occurrence)))
|
||||
(dolist (hook '(LaTeX-mode-hook
|
||||
org-mode-hook
|
||||
emacs-lisp-mode-hook
|
||||
lisp-interaction-mode-hook
|
||||
lisp-mode-hook
|
||||
python-mode-hook
|
||||
ielm-mode-hook
|
||||
sly-mrepl-mode-hook))
|
||||
(add-hook hook #'company-mode))))
|
||||
(when (fboundp 'company-mode)
|
||||
(custom-set-variables
|
||||
;; https://github.com/purcell/emacs.d/issues/778
|
||||
'(company-transformers '(company-sort-by-occurrence)))
|
||||
(dolist (hook '(LaTeX-mode-hook
|
||||
org-mode-hook
|
||||
emacs-lisp-mode-hook
|
||||
lisp-interaction-mode-hook
|
||||
lisp-mode-hook
|
||||
python-mode-hook
|
||||
ielm-mode-hook
|
||||
sly-mrepl-mode-hook))
|
||||
(add-hook hook #'company-mode)))
|
||||
#+end_src
|
||||
|
||||
** [[https://lists.gnu.org/archive/html/emacs-devel/2021-12/msg00802.html][Minibuffer history completion]]
|
||||
@ -947,30 +946,31 @@ previous input in the minibuffer. Listing
|
||||
#+caption: Enable =minibuffer-history-completion=.
|
||||
#+name: lst:enable-minibuffer-history-completion
|
||||
#+begin_src emacs-lisp
|
||||
(defun minibuffer-setup-history-completions ()
|
||||
(unless (or minibuffer-completion-table minibuffer-completion-predicate)
|
||||
(setq-local minibuffer-completion-table
|
||||
(symbol-value minibuffer-history-variable))))
|
||||
(with-eval-after-load 'emacs
|
||||
(defun minibuffer-setup-history-completions ()
|
||||
(unless (or minibuffer-completion-table minibuffer-completion-predicate)
|
||||
(setq-local minibuffer-completion-table
|
||||
(symbol-value minibuffer-history-variable))))
|
||||
|
||||
(add-hook 'minibuffer-setup-hook 'minibuffer-setup-history-completions)
|
||||
(add-hook 'minibuffer-setup-hook 'minibuffer-setup-history-completions)
|
||||
|
||||
;; Stolen from Emacs-28.1 for Emacs-27.2:
|
||||
(unless (fboundp 'minibuffer--completion-prompt-end)
|
||||
(defun minibuffer--completion-prompt-end ()
|
||||
(let ((end (minibuffer-prompt-end)))
|
||||
(if (< (point) end)
|
||||
(user-error "Can't complete in prompt")
|
||||
end))))
|
||||
;; Stolen from Emacs-28.1 for Emacs-27.2:
|
||||
(unless (fboundp 'minibuffer--completion-prompt-end)
|
||||
(defun minibuffer--completion-prompt-end ()
|
||||
(let ((end (minibuffer-prompt-end)))
|
||||
(if (< (point) end)
|
||||
(user-error "Can't complete in prompt")
|
||||
end))))
|
||||
|
||||
;; Adapted from ‘minibuffer-complete’:
|
||||
(defun minibuffer-complete-history ()
|
||||
"Allow minibuffer completion on previous input."
|
||||
(interactive)
|
||||
(completion-in-region (minibuffer--completion-prompt-end) (point-max)
|
||||
(symbol-value minibuffer-history-variable)
|
||||
nil))
|
||||
;; Adapted from ‘minibuffer-complete’:
|
||||
(defun minibuffer-complete-history ()
|
||||
"Allow minibuffer completion on previous input."
|
||||
(interactive)
|
||||
(completion-in-region (minibuffer--completion-prompt-end) (point-max)
|
||||
(symbol-value minibuffer-history-variable)
|
||||
nil))
|
||||
|
||||
(define-key minibuffer-local-map (kbd "C-<tab>") #'minibuffer-complete-history)
|
||||
(define-key minibuffer-local-map (kbd "C-<tab>") #'minibuffer-complete-history))
|
||||
#+end_src
|
||||
|
||||
* [[info:emacs#Search][Search and replace (info)]]
|
||||
@ -984,8 +984,8 @@ previous input in the minibuffer. Listing
|
||||
:END:
|
||||
|
||||
[[https://github.com/Wilfred/deadgrep#readme][Deadgrep]] uses [[https://github.com/BurntSushi/ripgrep#readme][ripgrep]] for superfast text searching in the default directory or
|
||||
the current [[https://en.wikipedia.org/wiki/Version_control][VCS]] directory tree. Listing [[lst:configure-deadgrep]] binds the
|
||||
=deadgrep= function to {{{kbd(M-s d)}}}.
|
||||
the current [[https://en.wikipedia.org/wiki/Version_control][VCS]] directory tree. Listing [[lst:configure-deadgrep]] binds =deadgrep=
|
||||
to {{{kbd(M-s d)}}} and =deadgrep-edit-mode= to {{{kbd(C-c C-w)}}}.
|
||||
|
||||
#+caption[Configure =deadgrep=]:
|
||||
#+caption: Configure =deadgrep=.
|
||||
@ -993,6 +993,8 @@ the current [[https://en.wikipedia.org/wiki/Version_control][VCS]] directory tre
|
||||
#+begin_src emacs-lisp
|
||||
(when (autoload 'deadgrep "deadgrep" nil t)
|
||||
(define-key search-map (kbd "d") #'deadgrep))
|
||||
(with-eval-after-load 'deadgrep
|
||||
(define-key deadgrep-mode-map (kbd "C-c C-w") #'deadgrep-edit-mode))
|
||||
#+end_src
|
||||
|
||||
* Reading
|
||||
@ -1042,17 +1044,17 @@ rebuild the =epdfinfo= executable that serves the [[https://en.wikipedia.org/wik
|
||||
#+caption: Enable =pdf-tools=.
|
||||
#+name: lst:enable-pdf-tools
|
||||
#+begin_src emacs-lisp
|
||||
;; `pdf-loader-install' is the lazy equivalent of `pdf-tools-install':
|
||||
;; see the README file.
|
||||
(when (fboundp 'pdf-loader-install)
|
||||
(pdf-loader-install))
|
||||
;; `pdf-loader-install' is the lazy equivalent of `pdf-tools-install':
|
||||
;; see the README file.
|
||||
(pdf-loader-install)
|
||||
|
||||
(with-eval-after-load 'pdf-view
|
||||
(custom-set-variables
|
||||
'(pdf-view-display-size 'fit-page))
|
||||
(with-eval-after-load 'pdf-view
|
||||
(custom-set-variables
|
||||
'(pdf-view-display-size 'fit-page))
|
||||
|
||||
(when (fboundp 'pdf-view-restore-mode)
|
||||
(add-hook 'pdf-view-mode-hook #'pdf-view-restore-mode)))
|
||||
(when (fboundp 'pdf-view-restore-mode)
|
||||
(add-hook 'pdf-view-mode-hook #'pdf-view-restore-mode))))
|
||||
#+end_src
|
||||
|
||||
* Writing
|
||||
@ -1206,15 +1208,14 @@ advising to override ~TeX-brace-count-line~ with ~my-TeX-brace-count-line~.
|
||||
#+caption: Activate =Org=.
|
||||
#+name: lst:activate-org
|
||||
#+begin_src emacs-lisp
|
||||
;; Inspect:
|
||||
;; function with "C-h f"
|
||||
;; symbols with "C-h o"
|
||||
;; variables with "C-h v"
|
||||
|
||||
(global-set-key (kbd "C-c a") #'org-agenda)
|
||||
(global-set-key (kbd "C-c c") #'org-capture)
|
||||
(global-set-key (kbd "C-c l") #'org-store-link)
|
||||
(global-set-key (kbd "C-c C-l") #'org-insert-link-global)
|
||||
(when (cl-every #'fboundp '(org-agenda
|
||||
org-capture
|
||||
org-store-link
|
||||
org-store-link-global))
|
||||
(global-set-key (kbd "C-c a") #'org-agenda)
|
||||
(global-set-key (kbd "C-c c") #'org-capture)
|
||||
(global-set-key (kbd "C-c l") #'org-store-link)
|
||||
(global-set-key (kbd "C-c C-l") #'org-insert-link-global))
|
||||
#+end_src
|
||||
|
||||
*** Org customization
|
||||
@ -1517,8 +1518,10 @@ compatibility with [[https://github.com/jkitchin/org-ref][org-ref]]. Listing [[
|
||||
from the definition of =docview-org-link= and =doi-org-link= types to define an
|
||||
=pdfview-org-link= type for use with [[https://github.com/vedang/pdf-tools][pdf-tools]]. Finally, listing
|
||||
[[lst:emacs-lisp-setup-patch-ol-info]] patches the function =org-info-export= and
|
||||
the constant ~org-info-other-documents~, to export the =info-org-link= types in
|
||||
this document to =html= and LaTeX correctly.
|
||||
listing [[lst:emacs-lisp-setup-buffer-local-ol-info]] sets the constants
|
||||
~org-info-emacs-documents~ and ~org-info-other-documents~ as buffer local
|
||||
variables in order to export the =info-org-link= types in this document to
|
||||
=html= and LaTeX correctly.
|
||||
|
||||
#+caption[Define =org-link= types for backwards compatibility with =org-ref=]:
|
||||
#+caption: Define =org-link= types for backwards compatibility with =org-ref=.
|
||||
@ -1632,8 +1635,14 @@ this document to =html= and LaTeX correctly.
|
||||
(`texinfo
|
||||
(let ((title (or desc "")))
|
||||
(format "@ref{%s,%s,,%s,}" node title manual)))
|
||||
(_ nil))))
|
||||
(_ nil)))))
|
||||
#+end_src
|
||||
|
||||
#+caption[Patch buffer local =ol-info=]:
|
||||
#+caption: Patch buffer local =ol-info=.
|
||||
#+name: lst:emacs-lisp-setup-buffer-local-ol-info
|
||||
#+begin_src emacs-lisp :exports code :silent :tangle no
|
||||
(with-eval-after-load 'ol-info
|
||||
(make-variable-buffer-local 'org-info-emacs-documents)
|
||||
(setq org-info-emacs-documents (delete "org" org-info-emacs-documents))
|
||||
(make-variable-buffer-local 'org-info-other-documents)
|
||||
@ -1645,10 +1654,8 @@ this document to =html= and LaTeX correctly.
|
||||
("orderless" . "https://github.com/oantolin/orderless")
|
||||
("sly" . "https://joaotavora.github.io/sly/")
|
||||
("vertico" . "https://github.com/minad/vertico"))
|
||||
org-info-other-documents
|
||||
:test #'equal)))
|
||||
org-info-other-documents :test #'equal)))
|
||||
#+end_src
|
||||
|
||||
*** [[https://tecosaur.github.io/emacs-config/#translate-capital-keywords][Translate capital keywords (old) to lower case (new)]]
|
||||
:PROPERTIES:
|
||||
:CUSTOM_ID: sec:convert-upper-to-lower-case-keywords
|
||||
@ -2087,7 +2094,7 @@ exporting from Org-mode to LaTeX.
|
||||
#+caption: Define buffer local =-ox-latex= variables.
|
||||
#+header: :var title-page=lst/title-page
|
||||
#+name: lst:ox-latex-emacs-lisp-setup
|
||||
#+begin_src emacs-lisp :results silent
|
||||
#+begin_src emacs-lisp :results silent :tangle no
|
||||
(when (require 'ox-latex nil 'noerror)
|
||||
;; https://emacs.stackexchange.com/questions/47347/
|
||||
;; customizing-org-latex-title-command-to-edit-title-page
|
||||
@ -2879,7 +2886,7 @@ library. It is a requirement of several packages in this Emacs setup ([[https:/
|
||||
#+caption: Enable =iedit=.
|
||||
#+name: lst:enable-iedit
|
||||
#+begin_src emacs-lisp
|
||||
(unless noninteractive
|
||||
(with-eval-after-load 'emacs
|
||||
(require 'iedit nil 'noerror))
|
||||
#+end_src
|
||||
|
||||
@ -2892,12 +2899,11 @@ library. It is a requirement of several packages in this Emacs setup ([[https:/
|
||||
#+caption: Configure =ws-butler=.
|
||||
#+name: lst:configure-ws-butler
|
||||
#+begin_src emacs-lisp
|
||||
(unless noninteractive
|
||||
(when (require 'ws-butler nil 'noerror)
|
||||
(custom-set-variables
|
||||
'(ws-butler-keep-whitespace-before-point nil))
|
||||
(add-hook 'prog-mode-hook #'ws-butler-mode)
|
||||
(add-hook 'text-mode-hook #'ws-butler-mode)))
|
||||
(when (require 'ws-butler nil 'noerror)
|
||||
(custom-set-variables
|
||||
'(ws-butler-keep-whitespace-before-point nil))
|
||||
(add-hook 'prog-mode-hook #'ws-butler-mode)
|
||||
(add-hook 'text-mode-hook #'ws-butler-mode))
|
||||
#+end_src
|
||||
|
||||
** [[https://countvajhula.com/2021/09/25/the-animated-guide-to-symex/][Structural editing]]
|
||||
@ -2944,7 +2950,7 @@ contrary to for instance [[https://github.com/Fanael/rainbow-delimiters#readme][
|
||||
#+caption: Configure =smartparens=.
|
||||
#+name: lst:configure-smartparens
|
||||
#+begin_src emacs-lisp
|
||||
(unless noninteractive
|
||||
(with-eval-after-load 'emacs
|
||||
;; To disables pairing of the quote character for lisp modes,
|
||||
;; require smartparens-config instead of smartparens.
|
||||
(when (require 'smartparens-config nil 'noerror)
|
||||
@ -3098,7 +3104,7 @@ of the default face on all frames.
|
||||
#+caption: Configure =face-attributes=.
|
||||
#+name: lst:configure-face-attributes
|
||||
#+begin_src emacs-lisp
|
||||
(unless noninteractive
|
||||
(with-eval-after-load 'emacs
|
||||
;; Set face attributes.
|
||||
(cond
|
||||
((eq system-type 'darwin)
|
||||
@ -3119,7 +3125,7 @@ of the default face on all frames.
|
||||
#+caption: Implement =my-set-default-face-height=.
|
||||
#+name: lst:my-set-default-face-height
|
||||
#+begin_src emacs-lisp
|
||||
(unless noninteractive
|
||||
(with-eval-after-load 'emacs
|
||||
(defun my-set-default-face-height ()
|
||||
"Set the default face height in all current and future frames.
|
||||
|
||||
@ -3139,7 +3145,7 @@ of the default face on all frames.
|
||||
#+caption: Implement =my-invert-default-face=.
|
||||
#+name: lst:my-invert-default-face
|
||||
#+begin_src emacs-lisp
|
||||
(unless noninteractive
|
||||
(with-eval-after-load 'emacs
|
||||
(defun my-invert-default-face ()
|
||||
"Invert the default face."
|
||||
(interactive)
|
||||
@ -3182,7 +3188,7 @@ and names in buffers for debugging.
|
||||
#+caption: Implement =my-pulse-one-line=.
|
||||
#+name: lst:my-pulse-one-line
|
||||
#+begin_src emacs-lisp
|
||||
(unless noninteractive
|
||||
(with-eval-after-load 'emacs
|
||||
;; https://karthinks.com/software/batteries-included-with-emacs/
|
||||
;; https://www.reddit.com/r/emacs/comments/jwhr6g/batteries_included_with_emacs/
|
||||
(defun my-pulse-one-line (&rest _)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user