From 53d94b9afd8dd51dd591f70b4f00b77c3ed403b4 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Thu, 3 Aug 2023 08:29:49 +1000
Subject: fixing a few things in bbdb, json and org

---
 emacs/.emacs.d/init/ycp-gnus.el   | 1 +
 emacs/.emacs.d/init/ycp-markup.el | 2 +-
 emacs/.emacs.d/init/ycp-org.el    | 1 +
 emacs/.emacs.d/lisp/my/my-prog.el | 3 +++
 4 files changed, 6 insertions(+), 1 deletion(-)

(limited to 'emacs/.emacs.d')

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)))))
-- 
cgit v1.2.3