update packages
This commit is contained in:
@@ -5,8 +5,8 @@
|
||||
;; Author: Harry Bournis <harrybournis@gmail.com>
|
||||
;; Created: 5 Feb 2018
|
||||
;; Version: 1.1
|
||||
;; Package-Version: 20180328.2331
|
||||
;; Package-Commit: 819bb993b71e7253cefef7047306ab4e0f9d0a86
|
||||
;; Package-Version: 20210830.1657
|
||||
;; Package-Commit: 7f677c6c14ecf05eab8e0efbfe7f1b00ae68eb1d
|
||||
;; Keywords: convenience faces outlines
|
||||
;; Homepage: https://github.com/harrybournis/org-fancy-priorities
|
||||
;;
|
||||
@@ -115,18 +115,20 @@ PRIORITY Is a string of just the priority value e.g. \"A\" \"B\" etc."
|
||||
|
||||
(defun org-fancy-priorities-create-overlays ()
|
||||
"Search with regex for priorities and add an overlay with their replacement string on their position."
|
||||
(let (ol)
|
||||
(while (re-search-forward org-fancy-priorities-regex nil t)
|
||||
(setq ol (make-overlay (match-beginning 1) (- (match-end 1) 1)))
|
||||
(overlay-put ol 'display (org-fancy-priorities-get-value (match-string 2)))
|
||||
(push ol org-fancy-priorities-overlay-list))))
|
||||
(save-excursion
|
||||
(let (ol)
|
||||
(while (re-search-forward org-fancy-priorities-regex nil t)
|
||||
(setq ol (make-overlay (match-beginning 1) (- (match-end 1) 1)))
|
||||
(overlay-put ol 'display (org-fancy-priorities-get-value (match-string 2)))
|
||||
(push ol org-fancy-priorities-overlay-list)))))
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode org-fancy-priorities-mode
|
||||
"Customize the appearance of org-mode priorities.
|
||||
This mode does not alter your files in any way, it
|
||||
only changes the way that priorities are shown in your editor."
|
||||
nil " FancyPriorities" nil
|
||||
:lighter " FancyPriorities"
|
||||
:keymap nil
|
||||
(let ((keyword `((,org-fancy-priorities-regex
|
||||
(0 (progn
|
||||
(let ((custom-priority (org-fancy-priorities-get-value (match-string 2))))
|
||||
|
||||
Reference in New Issue
Block a user