From fbc2a20439e596e8edc9ff2c47e36b960659c0c8 Mon Sep 17 00:00:00 2001 From: Comamoca Date: Tue, 3 Dec 2024 23:08:06 +0900 Subject: [PATCH] :sparkles: (init.el) Update diary settings --- emacs.d/init.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/emacs.d/init.el b/emacs.d/init.el index cd8505c..161da45 100644 --- a/emacs.d/init.el +++ b/emacs.d/init.el @@ -279,19 +279,23 @@ :cofig) ;; For diary +(setq blog-repo "/home/coma/.ghq/github.com/Comamoca/blog/") + (defun latest-diary () "Open latest diary. This function call in `src/blog/` directory at blog repository." (interactive) (let* ((date (format-time-string "%Y-%m-%d")) (file-name (format "%s-diary.md" date)) - (path (concat (file-name-as-directory "./src/blog/") file-name))) + (path (concat (expand-file-name blog-repo "/src/blog/") file-name))) + (cd blog-repo) (find-file file-name))) (defun consult-diary () (interactive) - (let* ((blog-repo "/home/coma/.ghq/github.com/Comamoca/blog/src/blog") - (diary (consult--read (sort-by-date (cl-remove-if-not (lambda (str) (string-match-p "-diary.md" str)) - (directory-files blog-repo)))))) + (let* ((diary (consult--read + (sort-by-date (cl-remove-if-not (lambda (str) (string-match-p "-diary.md" str)) + (directory-files (expand-file-name blog-repo "src/blog"))))))) + (find-file (expand-file-name diary blog-repo)))) (defun extract-date (path)