lucas/dotfiles
1
0
Fork 0
Code Activity

feat(emacs): add helper command org-roam-migrate

Browse source 
Signed-off-by: Lucas Sta Maria <lucas@priime.dev>
This commit is contained in:
Lucas Sta Maria 2024-02-23 01:44:31 -05:00
parent 3a70182408
commit c8c60fe728
No known key found for this signature in database
GPG key ID: F07FB16A826E3B47
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
.emacs.d/include/orgconfig.el
View file

@ -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"