[MERGED] Helpers to manage `org-roam` tags -- https://d12frosted.io/posts/2020-06-10-org-roam-tags.html

+org-roam-tags.el

(defun +org-notes-tags-read ()
  "Return list of tags as set in the buffer."
  (org-roam--extract-tags-prop (buffer-file-name (buffer-base-buffer))))

(defun +org-notes-tags-delete ()
  "Delete a tag from current note."
  (interactive)
  (unless (+org-notes-buffer-p)
    (user-error "Current buffer is not a note"))
  (let* ((tags (+org-notes-tags-read))
         (tag (completing-read "Tag: " tags nil 'require-match)))
    (+org-buffer-prop-set
     "ROAM_TAGS"
     (combine-and-quote-strings (delete tag tags)))
    (org-roam-db--update-tags)))

(defun +org-notes-tags-add ()
  "Add a tag to current note."
  (interactive)
  (unless (+org-notes-buffer-p)
    (user-error "Current buffer is not a note"))
  (let* ((tags (seq-uniq
                (+seq-flatten
                 (+seq-flatten
                  (org-roam-db-query [:select tags :from tags])))))
         (tag (completing-read "Tag: " tags)))
    (when (string-empty-p tag)
      (user-error "Tag can't be empty"))
    (+org-buffer-prop-set
     "ROAM_TAGS"
     (combine-and-quote-strings (seq-uniq (cons tag (+org-notes-tags-read)))))
    (org-roam-db--update-tags)))

(defun +org-notes-buffer-p ()
  "Return non-nil if the currently visited buffer is a note."
  (and buffer-file-name
       (string-equal (expand-file-name (file-name-as-directory org-roam-directory))
                     (file-name-directory buffer-file-name))))

(defun +seq-flatten (list-of-lists)
  "Flatten LIST-OF-LISTS."
  (apply #'append list-of-lists))

(defun +org-buffer-prop-set (name value)
  "Set a buffer property called NAME to VALUE."
  (save-excursion
    (widen)
    (goto-char (point-min))
    (if (re-search-forward (concat "^#\\+" name ": \\(.*\\)") (point-max) t)
        (replace-match (concat "#+" name ": " value))
      ;; find the first line that doesn't begin with ':' or '#'
      (let ((found))
        (while (not (or found (eobp)))
          (beginning-of-line)
          (if (or (looking-at "^#")
                  (looking-at "^:"))
              (line-move 1 t)
            (setq found t)))
        (insert "#+" name ": " value "\n")))))

README.md

Code from Org-roam tags blogpost.

Similar stuff for aliases:

(defun +org-notes-alias-add ()
  "Add an alias to current note."
  (interactive)
  (unless (+org-notes-buffer-p)
    (user-error "Current buffer is not a note"))
  (let ((alias (read-string "Alias: " )))
    (when (string-empty-p alias)
      (user-error "Alias can't be empty"))
    (+org-buffer-prop-set
     "ROAM_ALIAS"
     (combine-and-quote-strings (seq-uniq (cons alias (+org-notes-alias-read)))))
    (org-roam-db--update-file (buffer-file-name (buffer-base-buffer)))))

(defun +org-notes-alias-delete ()
  "Delete an alias from current note."
  (interactive)
  (unless (+org-notes-buffer-p)
    (user-error "Current buffer is not a note"))
  (let* ((aliases (+org-notes-alias-read))
         (alias (completing-read "Alias: " aliases nil 'require-match)))
    (+org-buffer-prop-set
     "ROAM_ALIAS"
     (combine-and-quote-strings (delete alias aliases)))
    (org-roam-db--update-file (buffer-file-name (buffer-base-buffer)))))

(defun +org-notes-alias-read ()
  "Return list of aliases as set in the buffer."
  (unless (+org-notes-buffer-p)
    (user-error "Current buffer is not a note"))
  (org-roam--extract-titles-alias))

Thanks for sharing this. Tiny functions but very useful.

@randomwangran shared this also because of this org-roam/org-roam#1149 (comment)

@randomwangran FYI org-roam/org-roam#1183

The version there is even better than I have in my configurations 😸

Perfect!

Time to upgrade org-roam and play with it. 😃

Thanks for your effort, @d12frosted .

Was already merged https://github.com/org-roam/org-roam/pull/1183/files

Does this code works with v2 ?

@anoopd See previous comments. This code was already merged into org-roam and available as part of V2.

@anoopd just realised that the linked post contains instructions for V2. See screenshot attached.

Thank you for the reply .......... will have a look :)