From d10bb5b657bba8b179f6fa8cdd4ccbc2a7624afa Mon Sep 17 00:00:00 2001 From: Jacopo De Simoi Date: Wed, 7 Jun 2023 14:54:09 -0400 Subject: [PATCH] Update patch to work with newer mu4e --- global.org | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/global.org b/global.org index 49ffefb..0f73846 100644 --- a/global.org +++ b/global.org @@ -925,25 +925,25 @@ (gnus-text-property-search 'action 'browse-url t t t)) (cons start (point)))) - (defun mu4e~view-activate-urls () + (defun mu4e--view-activate-urls () "Turn things that look like URLs into clickable things. Also number them so they can be opened using `mu4e-view-go-to-url'." (let ((num 0) (use-gnus-properties mu4e-view-use-gnus)) (save-excursion - (setq mu4e~view-link-map ;; buffer local + (setq mu4e--view-link-map ;; buffer local (make-hash-table :size 32 :weakness nil)) (goto-char (point-min)) (while (if use-gnus-properties (gnus-next-url) - (re-search-forward mu4e~view-beginning-of-url-regexp nil t)) + (re-search-forward mu4e--view-beginning-of-url-regexp nil t)) (let ((bounds (if use-gnus-properties (gnus-bounds-of-url-at-point) (thing-at-point-bounds-of-url-at-point)))) (when bounds (let* ((url (or (get-text-property (car bounds) 'button-data) (thing-at-point-url-at-point))) (ov (make-overlay (car bounds) (cdr bounds)))) - (when (string-match-p "https?" url) - (puthash (cl-incf num) url mu4e~view-link-map) + (when (string-match-p "https?" url) + (puthash (cl-incf num) url mu4e--view-link-map) (add-text-properties (car bounds) (cdr bounds) @@ -1032,7 +1032,8 @@ set my preferred indentation #+begin_src emacs-lisp (setq org-ellipsis "…" - org-adapt-indentation t) + org-adapt-indentation t + org-tags-column -75) #+end_src *** Ligatures [not in working order] These require a patched ~hackminus~ font. Too bad it does not work