ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-org-roam] Improve the list of reading books, link the pages

Browse source
This commit is contained in:
Tom Willemse 2023-03-25 22:33:29 -07:00
parent 3a3460b0d7
commit f4204b42a7
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
oni-org-roam.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2023.0325.115622 ;; Version: 2023.0325.222921
;; Package-Requires: (oni-org org-roam) ;; Package-Requires: (oni-org org-roam)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -80,7 +80,11 @@
(let ((buffer (get-buffer-create "*books-to-read*"))) (let ((buffer (get-buffer-create "*books-to-read*")))
(with-current-buffer buffer (with-current-buffer buffer
(erase-buffer) (erase-buffer)
(mapc (lambda (item) (insert (caddr item) "\n")) (oni-org-roam--books-to-read))) (save-excursion
(mapc (lambda (item) (insert "- [["(cadr item) "]["
(caddr item) "]]\n"))
(oni-org-roam--books-to-read))
(org-mode)))
(switch-to-buffer buffer))) (switch-to-buffer buffer)))
(defun oni-org-roam-random-book-to-read () (defun oni-org-roam-random-book-to-read ()