Merging 2 notes into 1 about denote

[protesilaos]

Interesting idea! I have not had the chance to experiment with it. Let's leave it here for the time being and we can resume after the release of Denote version 3.0.0 and the subsequent bugfix phase.

[zadca123]

Currently using something like this

(defun my/denote-org-extras-merge-note-to-another ()
  "Merge the current note into another selected note as a subtree."
  (interactive)
  (when (denote-filename-is-note-p buffer-file-name)

    (let* ((other-note (denote-file-prompt))
           (current-note-type (denote-filetype-heuristics buffer-file-name))
           (current-note-title (denote-retrieve-title-or-filename buffer-file-name current-note-type))
           (current-note-keywords (denote-extract-keywords-from-path buffer-file-name))
           (current-note-content (condition-case nil ;; handling case when current note is empty
                                     (denote-org-extras-dblock--get-file-contents buffer-file-name t)
                                   (error ""))))

      (with-current-buffer (find-file-noselect other-note)
        (goto-char (point-max))
        (insert (concat "\n* " current-note-title "\n"))
        (insert current-note-content)
        (save-buffer))

      (delete-file buffer-file-name)
      (kill-buffer)
      (find-file other-note)
      (denote-keywords-add current-note-keywords t)
      (message "Merged current note into %s" (file-name-nondirectory other-note)))))

[protesilaos]

From: zadca123 ***@***.***> Date: Wed, 26 Jun 2024 10:05:50 -0700 Currently using something like this [... 26 lines elided]

Thank you! Here is my variant (I did not test it thoroughly). It is based on yours, with some small tweaks: (defun my-denote-org-extras-merge-note-to-another (file) "Merge the current note into Org FILE as a subtree. FILE is an Org file in the variable `denote-directory'." (interactive (list (denote-file-prompt "\\.org\\'"))) (if (derived-mode-p 'org-mode) (let* ((current-note-title (denote-retrieve-title-or-filename buffer-file-name 'org)) (current-note-keywords (denote-extract-keywords-from-path buffer-file-name)) (current-note-content (condition-case nil ;; handling case when current note is empty ;; NOTE 2024-06-26: Maybe we should rename that function, ;; though it is okay as-is. (denote-org-extras-dblock--get-file-contents buffer-file-name t) (error ""))) (other-file-keywords (denote-retrieve-filename-keywords file)) (other-file-buffer (find-file-noselect file))) (with-current-buffer other-file-buffer (goto-char (point-max)) (insert (concat "\n* " current-note-title "\n\n")) (insert current-note-content) (save-buffer)) ;; NOTE 2024-06-26: We can discuss if we need a user option for this. (when (y-or-n-p "Delete this note once it is merged?") (delete-file buffer-file-name) (kill-buffer)) (switch-to-buffer other-file-buffer) (denote-rewrite-keywords file (delete-dups (append current-note-keywords other-file-keywords)) 'org) (message "Merged current note into %s" (file-name-nondirectory file))) (user-error "The current note is not an Org file"))) As I noted before, I prefer to review this after version 3.0.0 of Denote. I plan to publish it before the end of this week. Hopefully all will go well. Then we can discuss how to proceed with what we have here.

…

-- Protesilaos Stavrou https://protesilaos.com