[PATCH] rde: features: emacs-xyz: Update deprecated denote API
Export this patch
---
src/rde/features/emacs-xyz.scm | 18 ++++++++++++------
1 file changed, 12 insertions(+), 6 deletions(-)
diff --git a/src/rde/features/emacs-xyz.scm b/src/rde/features/emacs-xyz.scm
index 2f076de0..c7515ca9 100644
--- a/src/rde/features/emacs-xyz.scm
+++ b/src/rde/features/emacs-xyz.scm
@@ -5225,11 +5225,6 @@ SPELLING-DICTIONARIES inside buffers of modes defined in FLYSPELL-HOOKS
'((setq denote-date-prompt-use-org-read-date t))
'((setq denote-date-prompt-use-org-read-date nil)))
-
- ,@(if (member denote-file-type '(text markdown-toml markdown-yaml))
- '((add-hook 'find-file-hook 'denote-link-buttonize-buffer))
- '())
-
(setq denote-dired-directories (list denote-directory))
(with-eval-after-load 'dired
@@ -5281,7 +5276,18 @@ stored in directory understood by project.el."
(define-key map (kbd "C-c C-d C-i")
'denote-link-dired-marked-notes)
(define-key map (kbd "C-c C-d C-r")
- 'denote-dired-rename-marked-files))))
+ 'denote-dired-rename-marked-files)))
+
+ ,@(match denote-file-type
+ ('text
+ '((add-hook 'text-mode-hook 'denote-fontify-links-mode-maybe)))
+ ((and (or 'markdown-toml 'markdown-yaml)
+ (get-value 'markdown config))
+ '((add-hook 'markdown-mode-hook 'denote-fontify-links-mode-maybe)))
+ (else '()))
+
+ (with-eval-after-load 'denote
+ (denote-fontify-links-mode-maybe)))
#:keywords '(convenience)
#:elisp-packages (list emacs-denote))))
--
2.47.1
[PATCH v2] rde: features: emacs-xyz: Update deprecated denote API
Export this patch
---
src/rde/features/emacs-xyz.scm | 19 +++++++++++--------
1 file changed, 11 insertions(+), 8 deletions(-)
diff --git a/src/rde/features/emacs-xyz.scm b/src/rde/features/emacs-xyz.scm
index 2f076de0..a3437ca3 100644
--- a/src/rde/features/emacs-xyz.scm
+++ b/src/rde/features/emacs-xyz.scm
@@ -5225,10 +5225,13 @@ SPELLING-DICTIONARIES inside buffers of modes defined in FLYSPELL-HOOKS
'((setq denote-date-prompt-use-org-read-date t))
'((setq denote-date-prompt-use-org-read-date nil)))
-
- ,@(if (member denote-file-type '(text markdown-toml markdown-yaml))
- '((add-hook 'find-file-hook 'denote-link-buttonize-buffer))
- '())
+ ,@(match denote-file-type
+ ('text
+ '((add-hook 'text-mode-hook 'denote-fontify-links-mode-maybe)))
+ ((and (or 'markdown-toml 'markdown-yaml)
+ (get-value 'markdown config))
+ '((add-hook 'markdown-mode-hook 'denote-fontify-links-mode-maybe)))
+ (else '()))
(setq denote-dired-directories (list denote-directory))
@@ -5286,10 +5289,10 @@ stored in directory understood by project.el."
#:keywords '(convenience)
#:elisp-packages (list emacs-denote))))
- (feature
- (name f-name)
- (values `((,f-name . ,emacs-denote)))
- (home-services-getter get-home-services)))
+ (feature
+ (name f-name)
+ (values `((,f-name . ,emacs-denote)))
+ (home-services-getter get-home-services)))
;;;
--
2.47.1