aboutsummaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
authorYuchen Pei <id@ypei.org>2023-08-03 08:29:49 +1000
committerYuchen Pei <id@ypei.org>2023-08-03 08:29:49 +1000
commit53d94b9afd8dd51dd591f70b4f00b77c3ed403b4 (patch)
treecc0a805c0077ac7869e6e6af6773c37ceff0ee1f /emacs
parent66aac92722ec86788367749aa25214a0baaa89a6 (diff)
fixing a few things in bbdb, json and org
Diffstat (limited to 'emacs')
-rw-r--r--emacs/.emacs.d/init/ycp-gnus.el1
-rw-r--r--emacs/.emacs.d/init/ycp-markup.el2
-rw-r--r--emacs/.emacs.d/init/ycp-org.el1
-rw-r--r--emacs/.emacs.d/lisp/my/my-prog.el3
4 files changed, 6 insertions, 1 deletions
diff --git a/emacs/.emacs.d/init/ycp-gnus.el b/emacs/.emacs.d/init/ycp-gnus.el
index 8485a86..4c68f2b 100644
--- a/emacs/.emacs.d/init/ycp-gnus.el
+++ b/emacs/.emacs.d/init/ycp-gnus.el
@@ -185,6 +185,7 @@
(setq bbdb-message-all-addresses t)
(setq bbdb-mua-pop-up-window-size .15)
(setq bbdb-new-mails-primary nil)
+ (setq bbdb-ignore-redundant-mails t)
(setq bbdb-mail-user-agent 'gnus-user-agent)
(setq bbdb-update-records-p 'create)
(setq bbdb-message-clean-mail-function 'my-bbdb-clean-mail)
diff --git a/emacs/.emacs.d/init/ycp-markup.el b/emacs/.emacs.d/init/ycp-markup.el
index 1330f0a..d4879dd 100644
--- a/emacs/.emacs.d/init/ycp-markup.el
+++ b/emacs/.emacs.d/init/ycp-markup.el
@@ -101,7 +101,7 @@
(:delay 30)
(:install t)
(require 'my-prog)
- (add-hook 'json-mode-hook 'my-json-set-header-line-to-path)
+ (add-hook 'json-mode-hook 'my-json-set-header-line-hook)
)
(provide 'ycp-markup)
diff --git a/emacs/.emacs.d/init/ycp-org.el b/emacs/.emacs.d/init/ycp-org.el
index 2d40c37..f13fb0f 100644
--- a/emacs/.emacs.d/init/ycp-org.el
+++ b/emacs/.emacs.d/init/ycp-org.el
@@ -294,6 +294,7 @@
(setq org-use-speed-commands t)
(setq org-speed-commands
'(("User commands")
+ ("g" . org-delete-property)
("W" . my-org-clock-refile-clocking)
("+" . my-org-vote-up)
("-" . my-org-vote-down)
diff --git a/emacs/.emacs.d/lisp/my/my-prog.el b/emacs/.emacs.d/lisp/my/my-prog.el
index a38f956..e84478d 100644
--- a/emacs/.emacs.d/lisp/my/my-prog.el
+++ b/emacs/.emacs.d/lisp/my/my-prog.el
@@ -417,6 +417,9 @@ REVISION is the commit hash."
(mapcar 'prin1-to-string (plist-get (json-path-to-position (point)) :path))
"/"))
+(defun my-json-set-header-line-hook ()
+ (when (< (point-max) 100000 (my-json-set-header-line-to-path))))
+
(defun my-json-set-header-line-to-path ()
(setq header-line-format
'((:eval (my-json-mode-path)))))