From c8c60fe728512aab1b0ec578fed96153227c9896 Mon Sep 17 00:00:00 2001 From: Lucas Sta Maria Date: Fri, 23 Feb 2024 01:44:31 -0500 Subject: [PATCH] feat(emacs): add helper command `org-roam-migrate` Signed-off-by: Lucas Sta Maria --- .emacs.d/include/orgconfig.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/.emacs.d/include/orgconfig.el b/.emacs.d/include/orgconfig.el index f4242f7..afb7eb9 100644 --- a/.emacs.d/include/orgconfig.el +++ b/.emacs.d/include/orgconfig.el @@ -6,6 +6,7 @@ (require 'org) (require 'org-roam) (require 'org-capture) +(require 'org-id) (require 'org-modern) ;; Templates for org-mode (require 'org-tempo) @@ -33,6 +34,20 @@ '((:session . "none") (:results . "output"))) +(defun org-roam-migrate () + "Migrate a regular org file into an org-roam file in my format." + (interactive) + (unless (eq major-mode 'dired-mode) + (error "BAD!")) + (dired-find-file) + (let* ((id (org-id-get)) + (filename-old (buffer-file-name (current-buffer))) + (filename-min (file-name-sans-extension filename-old)) + (filename-new (format "%s:%s.org" filename-min id))) + (rename-file filename-old filename-new) + (kill-buffer (current-buffer)) + (revert-buffer))) + (setcar (nthcdr 4 org-emphasis-regexp-components) 20) (org-set-emph-re 'org-emphasis-regexp-components org-emphasis-regexp-components) (setq org-agenda-files '("~/org/inbox.org"