admin/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Config: migrate from org-journal to denote-journal

Browse Source
This commit is contained in:
andsy10
2026-05-10 01:15:28 +08:00
parent 5ee06f8500
commit 1b7d2d1e5e
7 changed files with 71 additions and 189 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/init-kbd-func.el
View File

@@ -94,17 +94,20 @@ Disable jinx-mode if it's enable and global-jinx-mode is disable , otherwise tog
(consult-ripgrep (unless *is-windows*
'("~/org/my-org-note/" "~/org/hugo/this-is-my-blog/all-blog.org"))))
(defun org-journal-open-current-journal-file-delete-other-window()
"Call org-journal-open-current-journal-file and delete other window."
(interactive)
(org-journal-open-current-journal-file)
(delete-other-windows))
(defun my-denote-journal-path-to-existing-entry (&optional date interval)
"Return the path of current denote journal if it exists, otherwise return nil."
(require 'denote-journal)
(let* ((internal-date (denote-journal--date-in-interval-p (or date (current-time)) interval))
(files (denote-journal--get-entry internal-date interval)))
(if files
(denote-journal-select-file-prompt files))))
(defun org-journal-new-entry-delete-other-window()
"Call org-journal-new-entry and delete other window."
(defun my-denote-journal-open-entry ()
"Open current denote-journal entry."
(interactive)
(org-journal-new-entry nil)
(delete-other-windows))
(if (my-denote-journal-path-to-existing-entry)
(find-file (my-denote-journal-path-to-existing-entry))
(message "No journal for today yet")))
(defun org-table-align-all ()
"Ajust all table in current buffer."