sqrtminusone/org-journal-tags
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/org-journal-tags.git synced 2025-12-10 19:03:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: rx in query search

Browse source
This commit is contained in:
Pavel Korytov 2022-02-05 23:26:41 +03:00
parent d1acc5b176
commit aa2537d2ee
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
org-journal-tags.el
View file

@ -1378,7 +1378,9 @@ BODY is put in that lambda."
("q" "Quit" transient-quit-one)])
(define-derived-mode org-journal-tags-status-mode magit-section "Org Journal Tags"
"A major mode to display the org-journal-tags status buffer.")
"A major mode to display the org-journal-tags status buffer."
:group 'org-journal-tags
(setq-local buffer-read-only t))
(defun org-journal-tags--buffer-render-info ()
"Render the miscellaneous information for the status buffer."
@ -1832,7 +1834,12 @@ OBJ in an instance of that class."
Used in the `org-journal-tags--transient-regex' class. PROMPT is
a string to prompt with, INITIAL-INPUT is the default state of
the minibuffer."
(read-from-minibuffer prompt initial-input))
(let ((value (read-from-minibuffer prompt initial-input)))
(if (string-match-p (rx "(rx") value)
(condition-case err
(eval (car (read-from-string value)))
(error (format "Error: %s" (prin1-to-string err))))
value)))
(cl-defmethod transient-format-value ((obj org-journal-tags--transient-regex))
"Format value of `org-journal-tags--transient-regex'.