diff options
| author | Yuchen Pei <id@ypei.org> | 2023-09-05 00:14:03 +1000 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2023-09-05 00:14:03 +1000 |
| commit | 1622ac38772868d101e48107591db8f4700627c4 (patch) | |
| tree | d026b120b2cf15e90a9da62df26b6e646085f7f4 /emacs/.emacs.d/lisp/my/my-gnus.el | |
| parent | 7e6e98e5683f2b0d8d335f53100b6b3623823df3 (diff) | |
A few changes
- add dedicate-windows-by-modes as window-configuration-change-hook,
but it did not work well when used on gnus-summary-mode
- copying gnus article regions also copies links, which are appended
at the end of the copy as footnote
- overload org-id-store-link so that capturing today's work could
include the item priority
- org should open a gnus link in other-window
- fixing my-org-clean-up-entry so that it deletes trailing empty lines
- added a silly utility function to clean a red energy bill pay link
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-gnus.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-gnus.el | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-gnus.el b/emacs/.emacs.d/lisp/my/my-gnus.el index aee03b5..1f7ff18 100644 --- a/emacs/.emacs.d/lisp/my/my-gnus.el +++ b/emacs/.emacs.d/lisp/my/my-gnus.el @@ -323,5 +323,37 @@ The archiving target comes from `my-gnus-group-alist'." (message "Displaying %s..." command)) 'external))))))) +(defun my-gnus-article-copy-region (beg end) + "Copy an gnus article region from beginning to end, links included." + (interactive "r") + (let ((pairs) + (copied (buffer-substring-no-properties beg end)) + (inhibit-message t)) + (save-excursion + (goto-char beg) + (when-let* ((button (button-at (point))) + (url (button-get button 'shr-url))) + (push (cons (buffer-substring-no-properties + (button-start button) + (button-end button)) + url) + pairs)) + (while (and (shr-next-link) + (<= (point) end)) + (let ((button (button-at (point)))) + (push (cons (buffer-substring-no-properties + (button-start button) + (button-end button)) + (button-get button 'shr-url)) + pairs))) + (pcase-dolist (`(,label . ,url) (reverse pairs)) + (setq copied + (concat copied + (format "[%s] %s\n" label url))))) + (kill-new copied) + (setq deactivate-mark t) + (let ((inhibit-message nil)) + (message "Copied region with %d links." (length pairs))))) + (provide 'my-gnus) ;;; my-gnus.el ends here |