diff options
Diffstat (limited to '+org.el')
| -rw-r--r-- | +org.el | 104 |
1 files changed, 0 insertions, 104 deletions
diff --git a/+org.el b/+org.el deleted file mode 100644 index fbd57db..0000000 --- a/+org.el +++ /dev/null @@ -1,104 +0,0 @@ -;;; $DOOMDIR/+org.el -*- lexical-binding: t; -*- -(setq org-directory "~/org/") -(after! org - (setq - org-startup-indented t - org-pretty-entities t - org-hide-emphasis-markers t - org-capture-templates-contexts nil - org-confirm-babel-evaluate nil) - (org-babel-do-load-languages - 'org-babel-load-languages - '((emacs-lisp . t) - (python . t) - (C . t) - (lisp . t)))) - -(add-hook 'org-capture-mode-hook #'delete-other-windows) -(add-hook 'org-capture-mode-hook - (lambda () (set-window-dedicated-p (selected-window) nil))) - -(after! org-roam - (setq org-roam-directory (file-truename "~/org/")) - (org-roam-db-autosync-mode) - - (defun my/org-roam-short-id () - (let ((chars "abcdefghijklmnopqrstuvwxyz0123456789")) - (apply #'string - (cl-loop repeat 4 - collect (aref chars (random (length chars))))))) - - (setq org-roam-capture-templates - '(("d" "default" plain - "* %?" - :if-new - (file+head - (lambda () (concat (my/org-roam-short-id) ".org")) - "#+TITLE: %^{title|Untitled}\n#+FILETAGS: :%^{tags}:\n\n") - :unnarrowed t))) - - (cl-defmethod org-roam-node-file-stem ((node org-roam-node)) - (file-name-base (org-roam-node-file node))) - - (setq org-roam-node-display-template - (concat "${title:*} " (propertize "${file-stem}" 'face 'org-tag))) - - (setq org-roam-mode-sections - '(org-roam-backlinks-section - org-roam-reflinks-section - org-roam-unlinked-references-section)) - - (defun my/org-roam-check-self-link () - (when-let* ((node (org-roam-node-at-point)) - (id (org-roam-node-id node))) - (save-excursion - (goto-char (point-min)) - (while (re-search-forward org-link-any-re nil t) - (when (string-match-p (regexp-quote id) (match-string 0)) - (message "Warning: self-link detected")))))) - - (defun my/org-roam-check-dead-links () - (dolist (link (org-roam-db-query - [:select [dest] :from links - :where (= source $s1)] (org-roam-id-at-point))) - (unless (org-roam-db-query [:select id :from nodes :where (= id $s1)] (car link)) - (message "Error: dead link to %s" (car link))))) - - (add-hook 'before-save-hook - (lambda () - (when (org-roam-file-p) - (my/org-roam-check-self-link) - (my/org-roam-check-dead-links))) - nil t) - (map! - :leader - :prefix ("n r" . "roam") - :desc "Find node" "f" #'org-roam-node-find - :desc "Insert node" "i" #'org-roam-node-insert - :desc "Backlinks" "b" #'org-roam-buffer-toggle - :desc "Capture" "c" #'org-roam-capture - :desc "Graph" "g" #'org-roam-graph - :desc "Random node" "r" #'org-roam-node-random - :desc "Toggle buffer" "t" #'org-roam-buffer-toggle - :desc "Open link" "o" #'org-open-at-point - :desc "Jump back" "O" #'org-mark-ring-goto)) -(with-eval-after-load 'ox-html - (setq org-html-xml-declaration nil - org-html-doctype "html5" - org-html-html5-fancy t - org-html-head-include-default-style nil - org-html-postamble nil)) -(use-package! websocket :after org-roam) -(use-package! org-roam-ui - :after org-roam - :config - (setq org-roam-ui-sync-theme t - org-roam-ui-follow t - org-roam-ui-update-on-save t)) -(use-package! org-appear - :hook (org-mode . org-appear-mode) - :config - (setq org-appear-autoemphasis t - org-appear-autolinks t - org-appear-autosubmarkers t - org-appear-autoentities t)) |
