Fixed my org roam db loading

This commit is contained in:
Emmet 2023-06-01 20:08:11 -05:00
parent 219a65b161
commit ce6f2b4e0a
2 changed files with 26 additions and 26 deletions

View file

@ -111,12 +111,12 @@
:desc "Jump to register" :desc "Jump to register"
"r" 'jump-to-register) "r" 'jump-to-register)
(set-register ?f '(file . "/home/librephoenix/Org/Family.s/Notes/hledger.org")) (set-register ?f '(file . "/home/emmet/Org/Family.s/Notes/hledger.org"))
(set-register ?r '(file . "/home/librephoenix/README.org")) (set-register ?r '(file . "/home/emmet/README.org"))
(set-register ?d '(file . "/home/librephoenix/.doom.d/doom.org")) (set-register ?d '(file . "/home/emmet/.doom.d/doom.org"))
(set-register ?h '(file . "/home/librephoenix")) (set-register ?h '(file . "/home/emmet"))
(set-register ?x '(file . "/home/librephoenix/.xmonad/xmonad.org")) (set-register ?x '(file . "/home/emmet/.xmonad/xmonad.org"))
(set-register ?s '(file . "/home/librephoenix/.install/install.org")) (set-register ?s '(file . "/home/emmet/.install/install.org"))
;;;------ Org mode configuration ------;;; ;;;------ Org mode configuration ------;;;
@ -281,7 +281,7 @@ same directory as the org-buffer and insert a link to this file."
(file-name-nondirectory (buffer-file-name)) (file-name-nondirectory (buffer-file-name))
"_" "_"
(format-time-string "%Y%m%d_%H%M%S_")) ) (file-name-extension template-file t))) (format-time-string "%Y%m%d_%H%M%S_")) ) (file-name-extension template-file t)))
(copy-file (concat "/home/librephoenix/Templates/" template-file) filename) (copy-file (concat "/home/emmet/Templates/" template-file) filename)
(setq prettyname (read-from-minibuffer "Pretty name:")) (setq prettyname (read-from-minibuffer "Pretty name:"))
(insert (concat "[[./files/" (file-name-nondirectory filename) "][" prettyname "]]")) (insert (concat "[[./files/" (file-name-nondirectory filename) "][" prettyname "]]"))
(org-display-inline-images)) (org-display-inline-images))
@ -445,8 +445,8 @@ same directory as the org-buffer and insert a link to this file."
(setq output-pptx-file-name (replace-regexp-in-string "\.org" "\.pptx" (buffer-file-name))) (setq output-pptx-file-name (replace-regexp-in-string "\.org" "\.pptx" (buffer-file-name)))
(setq output-odp-file-name (replace-regexp-in-string "\.org" "\.odp" (buffer-file-name))) (setq output-odp-file-name (replace-regexp-in-string "\.org" "\.odp" (buffer-file-name)))
(setq odp-style-file-name (completing-read "Choose style: " (setq odp-style-file-name (completing-read "Choose style: "
'("/home/librephoenix/.doom.d/scripts/ox-odp/styles/water.odp" '("/home/emmet/.doom.d/scripts/ox-odp/styles/water.odp"
"/home/librephoenix/.doom.d/scripts/ox-odp/styles/dark.odp" "/home/emmet/.doom.d/scripts/ox-odp/styles/dark.odp"
) nil t)) ) nil t))
(shell-command (concat "~/.doom.d/scripts/ox-odp/ox-odp.sh \"" (buffer-file-name) "\" \"" odp-style-file-name "\" > /dev/null")) (shell-command (concat "~/.doom.d/scripts/ox-odp/ox-odp.sh \"" (buffer-file-name) "\" \"" odp-style-file-name "\" > /dev/null"))
) )
@ -480,7 +480,7 @@ same directory as the org-buffer and insert a link to this file."
(dolist (item full-org-roam-db-list) (dolist (item full-org-roam-db-list)
(setq full-org-roam-db-list-pretty (setq full-org-roam-db-list-pretty
(append (list (append (list
(replace-regexp-in-string "\\/home\\/librephoenix\\/Org\\/" "" item)) full-org-roam-db-list-pretty))) (replace-regexp-in-string "\\/home\\/emmet\\/Org\\/" "" item)) full-org-roam-db-list-pretty)))
(defun org-roam-open-dashboard () (defun org-roam-open-dashboard ()
"Open ${org-roam-directory}/dashboard.org (I use this naming convention to create dashboards for each of my org roam maps)" "Open ${org-roam-directory}/dashboard.org (I use this naming convention to create dashboards for each of my org roam maps)"
@ -505,7 +505,7 @@ same directory as the org-buffer and insert a link to this file."
(dolist (item full-org-roam-db-list) (dolist (item full-org-roam-db-list)
(setq full-org-roam-db-list-pretty (setq full-org-roam-db-list-pretty
(append (list (append (list
(replace-regexp-in-string "\\/home\\/librephoenix\\/Org\\/" "" item)) full-org-roam-db-list-pretty))) (replace-regexp-in-string "\\/home\\/emmet\\/Org\\/" "" item)) full-org-roam-db-list-pretty)))
(setq org-roam-db-choice (completing-read "Select org roam database: " (setq org-roam-db-choice (completing-read "Select org roam database: "
full-org-roam-db-list-pretty nil t))) full-org-roam-db-list-pretty nil t)))
@ -770,7 +770,7 @@ same directory as the org-buffer and insert a link to this file."
(setq org-super-agenda-groups (setq org-super-agenda-groups
'(;; Each group has an implicit boolean OR operator between its selectors. '(;; Each group has an implicit boolean OR operator between its selectors.
(:name "Home Tech" (:name "Home Tech"
:and(:file-path "librephoenix/Agenda" :not (:tag "event")) :and(:file-path "emmet/Agenda" :not (:tag "event"))
:order 3) :order 3)
(:name "Family" (:name "Family"
@ -870,7 +870,7 @@ https://github.com/magit/magit/issues/460 (@cpitclaudel)."
(add-to-list 'auto-mode-alist '("\\.journal\\'" . hledger-mode)) (add-to-list 'auto-mode-alist '("\\.journal\\'" . hledger-mode))
;; The default journal location is too opinionated. ;; The default journal location is too opinionated.
(setq hledger-jfile "/home/librephoenix/Org/Family.s/Notes/hledger.journal") (setq hledger-jfile "/home/emmet/Org/Family.s/Notes/hledger.journal")
;;; Auto-completion for account names ;;; Auto-completion for account names
;; For company-mode users: ;; For company-mode users:

View file

@ -166,12 +166,12 @@ I use this functionality to load my private config file with non-public informat
:desc "Jump to register" :desc "Jump to register"
"r" 'jump-to-register) "r" 'jump-to-register)
(set-register ?f '(file . "/home/librephoenix/Org/Family.s/Notes/hledger.org")) (set-register ?f '(file . "/home/emmet/Org/Family.s/Notes/hledger.org"))
(set-register ?r '(file . "/home/librephoenix/README.org")) (set-register ?r '(file . "/home/emmet/README.org"))
(set-register ?d '(file . "/home/librephoenix/.doom.d/doom.org")) (set-register ?d '(file . "/home/emmet/.doom.d/doom.org"))
(set-register ?h '(file . "/home/librephoenix")) (set-register ?h '(file . "/home/emmet"))
(set-register ?x '(file . "/home/librephoenix/.xmonad/xmonad.org")) (set-register ?x '(file . "/home/emmet/.xmonad/xmonad.org"))
(set-register ?s '(file . "/home/librephoenix/.install/install.org")) (set-register ?s '(file . "/home/emmet/.install/install.org"))
#+END_SRC #+END_SRC
** Org Mode Configuration ** Org Mode Configuration
@ -343,7 +343,7 @@ same directory as the org-buffer and insert a link to this file."
(file-name-nondirectory (buffer-file-name)) (file-name-nondirectory (buffer-file-name))
"_" "_"
(format-time-string "%Y%m%d_%H%M%S_")) ) (file-name-extension template-file t))) (format-time-string "%Y%m%d_%H%M%S_")) ) (file-name-extension template-file t)))
(copy-file (concat "/home/librephoenix/Templates/" template-file) filename) (copy-file (concat "/home/emmet/Templates/" template-file) filename)
(setq prettyname (read-from-minibuffer "Pretty name:")) (setq prettyname (read-from-minibuffer "Pretty name:"))
(insert (concat "[[./files/" (file-name-nondirectory filename) "][" prettyname "]]")) (insert (concat "[[./files/" (file-name-nondirectory filename) "][" prettyname "]]"))
(org-display-inline-images)) (org-display-inline-images))
@ -534,8 +534,8 @@ exit
(setq output-pptx-file-name (replace-regexp-in-string "\.org" "\.pptx" (buffer-file-name))) (setq output-pptx-file-name (replace-regexp-in-string "\.org" "\.pptx" (buffer-file-name)))
(setq output-odp-file-name (replace-regexp-in-string "\.org" "\.odp" (buffer-file-name))) (setq output-odp-file-name (replace-regexp-in-string "\.org" "\.odp" (buffer-file-name)))
(setq odp-style-file-name (completing-read "Choose style: " (setq odp-style-file-name (completing-read "Choose style: "
'("/home/librephoenix/.doom.d/scripts/ox-odp/styles/water.odp" '("/home/emmet/.doom.d/scripts/ox-odp/styles/water.odp"
"/home/librephoenix/.doom.d/scripts/ox-odp/styles/dark.odp" "/home/emmet/.doom.d/scripts/ox-odp/styles/dark.odp"
) nil t)) ) nil t))
(shell-command (concat "~/.doom.d/scripts/ox-odp/ox-odp.sh \"" (buffer-file-name) "\" \"" odp-style-file-name "\" > /dev/null")) (shell-command (concat "~/.doom.d/scripts/ox-odp/ox-odp.sh \"" (buffer-file-name) "\" \"" odp-style-file-name "\" > /dev/null"))
) )
@ -791,7 +791,7 @@ styletree.write('styles.xml')
(dolist (item full-org-roam-db-list) (dolist (item full-org-roam-db-list)
(setq full-org-roam-db-list-pretty (setq full-org-roam-db-list-pretty
(append (list (append (list
(replace-regexp-in-string "\\/home\\/librephoenix\\/Org\\/" "" item)) full-org-roam-db-list-pretty))) (replace-regexp-in-string "\\/home\\/emmet\\/Org\\/" "" item)) full-org-roam-db-list-pretty)))
(defun org-roam-open-dashboard () (defun org-roam-open-dashboard ()
"Open ${org-roam-directory}/dashboard.org (I use this naming convention to create dashboards for each of my org roam maps)" "Open ${org-roam-directory}/dashboard.org (I use this naming convention to create dashboards for each of my org roam maps)"
@ -816,7 +816,7 @@ styletree.write('styles.xml')
(dolist (item full-org-roam-db-list) (dolist (item full-org-roam-db-list)
(setq full-org-roam-db-list-pretty (setq full-org-roam-db-list-pretty
(append (list (append (list
(replace-regexp-in-string "\\/home\\/librephoenix\\/Org\\/" "" item)) full-org-roam-db-list-pretty))) (replace-regexp-in-string "\\/home\\/emmet\\/Org\\/" "" item)) full-org-roam-db-list-pretty)))
(setq org-roam-db-choice (completing-read "Select org roam database: " (setq org-roam-db-choice (completing-read "Select org roam database: "
full-org-roam-db-list-pretty nil t))) full-org-roam-db-list-pretty nil t)))
@ -1116,7 +1116,7 @@ I want this to be able to automatically open ORUI in EAF Browser in a split to t
(setq org-super-agenda-groups (setq org-super-agenda-groups
'(;; Each group has an implicit boolean OR operator between its selectors. '(;; Each group has an implicit boolean OR operator between its selectors.
(:name "Home Tech" (:name "Home Tech"
:and(:file-path "librephoenix/Agenda" :not (:tag "event")) :and(:file-path "emmet/Agenda" :not (:tag "event"))
:order 3) :order 3)
(:name "Family" (:name "Family"
@ -1228,7 +1228,7 @@ https://github.com/magit/magit/issues/460 (@cpitclaudel)."
(add-to-list 'auto-mode-alist '("\\.journal\\'" . hledger-mode)) (add-to-list 'auto-mode-alist '("\\.journal\\'" . hledger-mode))
;; The default journal location is too opinionated. ;; The default journal location is too opinionated.
(setq hledger-jfile "/home/librephoenix/Org/Family.s/Notes/hledger.journal") (setq hledger-jfile "/home/emmet/Org/Family.s/Notes/hledger.journal")
;;; Auto-completion for account names ;;; Auto-completion for account names
;; For company-mode users: ;; For company-mode users: