From 53d94b9afd8dd51dd591f70b4f00b77c3ed403b4 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 3 Aug 2023 08:29:49 +1000 Subject: fixing a few things in bbdb, json and org --- emacs/.emacs.d/lisp/my/my-prog.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'emacs/.emacs.d/lisp/my/my-prog.el') 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