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

Compare commits

base: exot:b38b2ede6a4ac56fa2d4c2befda081909e59eeeb
Branches Tags
exot:master
...
compare: exot:762d035611ae9687082ac0fbecaa452fdd0fff75
Branches Tags
exot:master

2 Commits
b38b2ede6a ... 762d035611

Author SHA1 Message Date
Daniel Borchmann
762d035611
Search RSS links from end of article 
The “Link” link is usually placed at the very end of the article, so search from there.
Furthermore, when another link also contains “Link”, searching from the end will avoid opening this
link instead.
 2025-06-22 10:44:08 +02:00
Daniel Borchmann
7a14c64ef0
Explicitly configure top margin for org-tree-slide presentations 
Better to remember how the variable was named, in case I need to adjust this locally.
 2025-06-22 10:43:35 +02:00
2 changed files with 18 additions and 17 deletions
Show Stats Expand all files Collapse all files

27
init.el
View File

@ -1455,19 +1455,20 @@ accordingly."
(use-package org-tree-slide (use-package org-tree-slide
:commands (org-tree-slide-mode) :commands (org-tree-slide-mode)
;; Configuration from https://protesilaos.com/dotemacs/ ;; Configuration from https://protesilaos.com/dotemacs/
:init (setq org-tree-slide-breadcrumbs " → " :init (setopt org-tree-slide-breadcrumbs " → "
org-tree-slide-header t org-tree-slide-header t
org-tree-slide-slide-in-effect nil org-tree-slide-slide-in-effect nil
org-tree-slide-heading-emphasis nil org-tree-slide-heading-emphasis nil
org-tree-slide-cursor-init t org-tree-slide-cursor-init t
org-tree-slide-modeline-display nil org-tree-slide-modeline-display nil
org-tree-slide-skip-done nil org-tree-slide-content-margin-top 2
org-tree-slide-skip-comments t org-tree-slide-skip-done nil
org-tree-slide-fold-subtrees-skipped t org-tree-slide-skip-comments t
org-tree-slide-skip-outline-level 8 org-tree-slide-fold-subtrees-skipped t
org-tree-slide-never-touch-face t org-tree-slide-skip-outline-level 8
org-tree-slide-activate-message (propertize "Presentation mode ON" 'face 'success) org-tree-slide-never-touch-face t
org-tree-slide-deactivate-message (propertize "Presentation mode OFF" 'face 'error)) org-tree-slide-activate-message (propertize "Presentation mode ON" 'face 'success)
org-tree-slide-deactivate-message (propertize "Presentation mode OFF" 'face 'error))
:bind (:map org-tree-slide-mode-map :bind (:map org-tree-slide-mode-map
("<C-down>" . org-tree-slide-display-header-toggle) ("<C-down>" . org-tree-slide-display-header-toggle)
("<C-right>" . org-tree-slide-move-next-tree) ("<C-right>" . org-tree-slide-move-next-tree)

8
site-lisp/db-mail.el
View File

@ -318,7 +318,7 @@ METHOD specifies the encrypt method used. Can be either
(delete-trailing-whitespace))) (delete-trailing-whitespace)))
(defun db/gnus-summary-open-Link () (defun db/gnus-summary-open-Link ()
"Open link named \"Link\" in current article." "Open last link named \"Link\" in current article."
(interactive) (interactive)
(save-window-excursion (save-window-excursion
(save-mark-and-excursion (save-mark-and-excursion
@ -327,10 +327,10 @@ METHOD specifies the encrypt method used. Can be either
(let ((url nil)) (let ((url nil))
(unless (eq major-mode 'gnus-article-mode) (unless (eq major-mode 'gnus-article-mode)
(gnus-summary-select-article-buffer)) (gnus-summary-select-article-buffer))
(goto-char (point-min)) (goto-char (point-max))
(while (and (not url) (while (and (not url)
(search-forward "Link")) (search-backward "Link"))
(backward-char) (forward-char)
(setq url (get-text-property (point) 'shr-url))) (setq url (get-text-property (point) 'shr-url)))
(when url (when url
(browse-url url))))))) (browse-url url)))))))