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

Update patch to work with newer mu4e

Browse Source
master
Jacopo De Simoi 3 years ago
parent e5b930c3e0
commit d10bb5b657
1 changed files with 7 additions and 6 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 13
      global.org

13
global.org
Unescape View File

@ -925,25 +925,25 @@
(gnus-text-property-search 'action 'browse-url t t t)) (gnus-text-property-search 'action 'browse-url t t t))
(cons start (point)))) (cons start (point))))
(defun mu4e~view-activate-urls () (defun mu4e--view-activate-urls ()
"Turn things that look like URLs into clickable things. "Turn things that look like URLs into clickable things.
Also number them so they can be opened using `mu4e-view-go-to-url'." Also number them so they can be opened using `mu4e-view-go-to-url'."
(let ((num 0) (let ((num 0)
(use-gnus-properties mu4e-view-use-gnus)) (use-gnus-properties mu4e-view-use-gnus))
(save-excursion (save-excursion
(setq mu4e~view-link-map ;; buffer local (setq mu4e--view-link-map ;; buffer local
(make-hash-table :size 32 :weakness nil)) (make-hash-table :size 32 :weakness nil))
(goto-char (point-min)) (goto-char (point-min))
(while (if use-gnus-properties (gnus-next-url) (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) (let ((bounds (if use-gnus-properties (gnus-bounds-of-url-at-point)
(thing-at-point-bounds-of-url-at-point)))) (thing-at-point-bounds-of-url-at-point))))
(when bounds (when bounds
(let* ((url (or (get-text-property (car bounds) 'button-data) (let* ((url (or (get-text-property (car bounds) 'button-data)
(thing-at-point-url-at-point))) (thing-at-point-url-at-point)))
(ov (make-overlay (car bounds) (cdr bounds)))) (ov (make-overlay (car bounds) (cdr bounds))))
(when (string-match-p "https?" url) (when (string-match-p "https?" url)
(puthash (cl-incf num) url mu4e~view-link-map) (puthash (cl-incf num) url mu4e--view-link-map)
(add-text-properties (add-text-properties
(car bounds) (car bounds)
(cdr bounds) (cdr bounds)
@ -1032,7 +1032,8 @@
set my preferred indentation set my preferred indentation
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq org-ellipsis "…" (setq org-ellipsis "…"
org-adapt-indentation t) org-adapt-indentation t
org-tags-column -75)
#+end_src #+end_src
*** Ligatures [not in working order] *** Ligatures [not in working order]
These require a patched ~hackminus~ font. Too bad it does not work These require a patched ~hackminus~ font. Too bad it does not work

Write Preview
Loading…
Cancel
Save