diff options
| author | Yuchen Pei <id@ypei.org> | 2023-08-03 08:29:49 +1000 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2023-08-03 08:29:49 +1000 |
| commit | 53d94b9afd8dd51dd591f70b4f00b77c3ed403b4 (patch) | |
| tree | cc0a805c0077ac7869e6e6af6773c37ceff0ee1f /emacs/.emacs.d/lisp/my/my-prog.el | |
| parent | 66aac92722ec86788367749aa25214a0baaa89a6 (diff) | |
fixing a few things in bbdb, json and org
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-prog.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-prog.el | 3 |
1 files changed, 3 insertions, 0 deletions
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))))) |