bth/um-mode
Watch
1
Fork
You've already forked um-mode
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

um-tag-regexp

Browse source
This commit is contained in:
bth 2026-06-04 21:05:52 -07:00
commit 2608b6d479
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
um.el
View file

@ -93,7 +93,7 @@ ISO8601."
:group 'um
)
(defconst um-tag-re "^\\+ \\([[:alpha:]\\_\\-]+$\\)"
(defconst um-tag-regexp "^\\+ \\([[:alpha:]\\_\\-]+\\)$"
"um tag regexp. Allows hypens and underscores within the tag.")
(defface font-lock-um-date-face
@ -127,14 +127,14 @@ ISO8601."
`(
(,um-date-re 1 'font-lock-um-date-face)
(,um-locale-re 0 'font-lock-um-locale-face)
(,um-tag-re 1 'font-lock-um-tag-face)
(,um-tag-regexp 1 'font-lock-um-tag-face)
))
(defvar um-minor-mode-keywords
`(
(,um-date-re 1 'font-lock-um-date-face)
(,um-locale-re 0 'font-lock-um-locale-face)
(,um-tag-re 1 'font-lock-um-tag-face)
(,um-tag-regexp 1 'font-lock-um-tag-face)
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -235,8 +235,6 @@ ISO8601."
(defvar um-tags-history nil "History of inserted or searched for tags. Populates
`completing-read'.")
(defconst um-tag-regexp "^\\+ \\(.*\\)$")
(defun um-header-current-buffer ()
(car (split-string (buffer-substring-no-properties (point-min) (point-max))
"\n\n" t