JaeUs/dotfiles
1
0
Fork 0
mirror of http://github.com/JaeUs3792/dotfiles synced 2025-12-14 08:01:35 +09:00
Code Issues Packages Projects Releases Wiki Activity

Emacs : org roam some function added.

Browse Source
This commit is contained in:
JaeYoo-Im
2023-02-01 13:25:45 +09:00
parent cd67639de3
commit 5ffa2b5bbf
1 changed files with 35 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
.config/emacs/emacs.org
View File

@ -1214,6 +1214,31 @@ latex export code block
;;:desc "org roam find with ripgrep (preview)" ;;:desc "org roam find with ripgrep (preview)"
;;"nrg" 'my/org-roam-rg-search) ;;"nrg" 'my/org-roam-rg-search)
#+end_src #+end_src
- Org roam related function
#+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-org.el
(defun my/org-roam-rg-search ()
"Search org-roam directory using consult-ripgrep. With live-preview."
(interactive)
(let ((consult-ripgrep-command "rg --null --ignore-case --type org --line-buffered --color=always --max-columns=500 --no-heading --line-number . -e ARG OPTS"))
(consult-ripgrep org-roam-directory)))
(defun my/org-roam-node-insert-with-capture (arg &rest args)
"Org roam insert node with capture templates"
(interactive "P")
(let ((args (push arg args))
(org-roam-capture-templates (list (append (car org-roam-capture-templates)
'(:immediate-finish t)))))
(apply #'org-roam-node-insert args)))
(defun my/org-roam-filter-by-tag (tag-name)
(lambda (node)
(member tag-name (org-roam-node-tags node))))
(defun my/org-roam-list-notes-by-tag (tag-name)
(mapcar #'org-roam-node-file
(seq-filter
(my/org-roam-filter-by-tag tag-name)
(org-roam-node-list))))
#+end_src
***** Org Agenda ***** Org Agenda
#+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-org.el #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-org.el
(setq org-agenda-files (list "~/org/agenda/agenda.org")) (setq org-agenda-files (list "~/org/agenda/agenda.org"))
@ -1303,9 +1328,17 @@ get link from pdf,
"n r l" 'org-roam-buffer-toggle "n r l" 'org-roam-buffer-toggle
"n r f" 'org-roam-node-find "n r f" 'org-roam-node-find
"n r i" 'org-roam-node-insert "n r i" 'org-roam-node-insert
"n r I" 'org-roam-node-insert-immediate "n r I" 'org-id-get-create
"n r p" 'my/org-roam-find-project) "n r p" 'my/org-roam-find-project
"n r g" 'my/org-roam-rg-search
"n r t" '(:ignore t :which-key "Org Roam Tags")
"n r t n" '(org-roam-tag-add :which-key "new tag")
"n r t d" '(org-roam-tag-remove :which-key "delete tag"))
;; TODO org-roam-ref-find
;; TODO citar
#+end_src #+end_src
**** Provide Modules **** Provide Modules
#+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-org.el #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-org.el
(provide 'custom-org) (provide 'custom-org)