refactor(config): Tidy Emacs config across modules

lisp/init-org.el

@@ -6,17 +6,21 @@
 
 (use-package org
   :hook
-  (org-mode . (lambda ()
-		(org-indent-mode)
-		(visual-line-mode)
-		(jinx-mode)
-		(electric-pair-local-mode)
-		(require 'org-tempo)
-		(setq-local electric-pair-inhibit-predicate
-                            (lambda (char)
-                              (or (eq char ?<)
-				  (electric-pair-default-inhibit char))))))
+  (org-mode . org-indent-mode)
+  (org-mode . visual-line-mode)
+  (org-mode . jinx-mode)
+  (org-mode . my-org-electric-pair-fix)
+  (org-mode . electric-pair-local-mode)
+
   :config
+  (require 'org-tempo)
+
+  (defun my-org-electric-pair-fix ()
+    (setq-local electric-pair-inhibit-predicate
+		(lambda (char)
+                  (or (eq char ?<)
+                      (electric-pair-default-inhibit char)))))
+
   ;; log默认放入drawer中
   (setq org-log-done t
 	org-log-into-drawer t)
@@ -60,6 +64,7 @@
 (use-package denote
   :hook
   (after-init . denote-rename-buffer-mode)
+  (dired-mode . denote-dired-mode)
   :config
   (if *is-android*
       (setq denote-directory "~/storage/shared/my-org-note/")
@@ -238,12 +243,13 @@ See `org-capture-templates' for more information."
                      (function org-hugo-new-subtree-post-capture-template)))))
 
   ;; 快速部署
-  (defun my-blog-publish ()
+  (defun my-blog-publish (&optional directory)
     "Publish blog , git add/commit/push , generate commit message."
     (interactive)
-    (let* ((blog-dir (if *is-windows*
-			 "h:/emacs/hugo/this-is-my-blog/"
-                       "~/org/hugo/this-is-my-blog/"))
+    (let* ((blog-dir (or directory
+			 (if *is-windows*
+			     "h:/emacs/hugo/this-is-my-blog/"
+			   "~/org/hugo/this-is-my-blog/")))
            (timestamp (format-time-string "%Y-%m-%d %H:%M:%S"))
            (default-directory blog-dir))
       ;; save buffer