[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [emacs-humanities] Paper Zettelkasten safety [was: Why Emacs-humanit
Re: [emacs-humanities] Paper Zettelkasten safety [was: Why Emacs-humanities?]
Mon, 19 Jul 2021 08:00:06 +0300
Mutt/2.0.7+183 (3d24855) (2021-05-28)
* Ihor Radchenko <firstname.lastname@example.org> [2021-07-18 17:51]:
> Jean Louis <email@example.com> writes:
> > How do I display the list of tags in Org mode?
> There is nothing like dashboard of tags in Org mode. However, you can
> get a list of all the tags using (org-global-tags-completion-table).
I will move the email to org mode mailing list. Here I am showing
the concept on how to show the tags create buttons. I am using
this in Hyperscope as to list all the tags. But I am not using
Org mode to display it, though that would be better for Org
mode. I did not delete those not necessary variables and
functions below as it is only to show the concept.
When you run M-x rcd-org-tags you would get a new pop up window
with the list of tags, you can then use Enter or Mouse to invoke
Org agenda on the tag.
Having tags index is useful. Something like this should be in Org mode.
(defun rcd-org-tags (&optional prefix)
"Report ordered Org tags"
(let* ((tags (flatten-list (org-global-tags-completion-table)))
(tags (seq-sort 'string< (seq-uniq tags))))
(defun rcd-org-insert-button (tag)
(org-tags-view nil ,tag)))
(defun rcd-org-insert-buttons (tags)
(insert "TAGS: ")
(let* ((tag (pop tags)))
(insert " ")
(when (> (current-column) 70) (insert "\n")))))
(defun rcd-pop-to-report (string &optional buffer-name map place refresh
"Pop the new buffer and inserts STRING.
Quits with `q' if necessary.
BUFFER-NAME is optional.
It will destroy the buffer before display of report."
(let ((buffer (or buffer-name "*RCD Report*")))
(when (buffer-live-p (get-buffer buffer))
(kill-buffer (get-buffer buffer)))
(let ((word-wrap truncate))
(when word-wrap (toggle-truncate-lines 1))
(setq rcd-current-table (when (listp place) (cdr (assoc "table"
(setq rcd-current-column (when (listp place) (cdr (assoc "column"
(setq rcd-current-table-id (when (listp place) (cdr (assoc "table-id"
(setq rcd-tabulated-refresh-function refresh)
(local-set-key (kbd "q") 'delete-window)
Take action in Free Software Foundation campaigns:
In support of Richard M. Stallman
|[Prev in Thread]
||[Next in Thread]|
- Re: [emacs-humanities] Paper Zettelkasten safety [was: Why Emacs-humanities?],
Jean Louis <=