maint: org-roam: moved org-branch-to-org-roam-node from webclipper

1 files changed, 0 insertions, 90 deletions

diff --git a/modules/org-webclipper.el b/modules/org-webclipper.el
index ed0e28da..e8f2cf23 100644
--- a/modules/org-webclipper.el
+++ b/modules/org-webclipper.el
@@ -182,96 +182,6 @@ Return the yanked content as a string so templates can insert it."
     ;; extract the webpage content from the kill ring
     (car kill-ring)))
 
-;; ------------------------ Org-Branch To Org-Roam-Node ------------------------
-
-(defun cj/org-link-get-description (text)
-  "Extract the description from an org link, or return the text unchanged.
-If TEXT contains an org link like [[url][description]], return description.
-If TEXT contains multiple links, only process the first one.
-Otherwise return TEXT unchanged."
-  (if (string-match "\\[\\[\\([^]]+\\)\\]\\(?:\\[\\([^]]+\\)\\]\\)?\\]" text)
-      (let ((description (match-string 2 text))
-            (url (match-string 1 text)))
-        ;; If there's a description, use it; otherwise use the URL
-        (or description url))
-    text))
-
-;;;###autoload
-(defun cj/move-org-branch-to-roam ()
-  "Move the org subtree at point to a new org-roam node.
-The node filename will be timestamp-based with the heading name.
-The heading becomes the node title, and the entire subtree is demoted to level 1.
-If the heading contains a link, extract the description for the title."
-  (interactive)
-  ;; Lazy load org and org-roam when needed
-  (require 'org)
-  (require 'org-id)
-  (require 'org-roam)
-
-  (unless (org-at-heading-p)
-    (user-error "Not at an org heading"))
-
-  (let* ((heading-components (org-heading-components))
-         (current-level (nth 0 heading-components))
-         (raw-title (nth 4 heading-components))
-         ;; Extract clean title from potential link
-         (title (cj/org-link-get-description raw-title))
-         (timestamp (format-time-string "%Y%m%d%H%M%S"))
-         ;; Convert title to filename-safe format
-         (title-slug (replace-regexp-in-string
-                      "[^a-zA-Z0-9]+" "-"
-                      (downcase title)))
-         ;; Remove leading/trailing hyphens
-         (title-slug (replace-regexp-in-string
-                      "^-\\|-$" "" title-slug))
-         (filename (format "%s-%s.org" timestamp title-slug))
-         (filepath (expand-file-name filename org-roam-directory))
-         ;; Generate a unique ID for the node
-         (node-id (org-id-new))
-         ;; Store the subtree in a temporary buffer
-         subtree-content)
-
-    ;; Copy the subtree content
-    (org-copy-subtree)
-    (setq subtree-content (current-kill 0))
-
-    ;; Now cut it to remove from original buffer
-    (org-cut-subtree)
-
-    ;; Process the subtree to demote it to level 1
-    (with-temp-buffer
-      (org-mode)
-      (insert subtree-content)
-      ;; Demote the entire tree so the top level becomes level 1
-      (goto-char (point-min))
-      (when (> current-level 1)
-        (let ((demote-count (- current-level 1)))
-          (while (re-search-forward "^\\*+ " nil t)
-            (beginning-of-line)
-            (dotimes (_ demote-count)
-              (when (looking-at "^\\*\\*")
-                (delete-char 1)))
-            (forward-line))))
-      (setq subtree-content (buffer-string)))
-
-    ;; Create the new org-roam file
-    (with-temp-file filepath
-      ;; Insert the org-roam template with ID at file level
-      (insert ":PROPERTIES:\n")
-      (insert ":ID:       " node-id "\n")
-      (insert ":END:\n")
-      (insert "#+TITLE: " title "\n")
-      (insert "#+CATEGORY: " title "\n")
-      (insert "#+FILETAGS: Topic\n\n")
-
-      ;; Insert the demoted subtree content
-      (insert subtree-content))
-
-    ;; Sync the org-roam database
-    (org-roam-db-sync)
-
-    ;; Message to user
-    (message "'%s' added as an org-roam node." title)))
 
 ;; ----------------------------- Webclipper Keymap -----------------------------