From e667d1ee9acffa1b78b191ab3a53b2c9a1055785 Mon Sep 17 00:00:00 2001 From: JSDurand Date: Wed, 6 May 2026 23:54:07 +0800 Subject: Ithkuil-related * ibuffer.el (durand-ithkuil): Filter for Ithkuil-related buffers. (durand-bongo-set-filter): Add the above filter. * input-conf.el (durand-input-method-list): Add input method for Ithkuil and Hebrew. (durand-transient-punct, global-map): Add a key-binding for transiently inputting Chinese punctuation. * ithkuil.el: Define an input method for inputting transliteration of Ithkuil. --- ibuffer.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'ibuffer.el') diff --git a/ibuffer.el b/ibuffer.el index 9066617..5f7f614 100644 --- a/ibuffer.el +++ b/ibuffer.el @@ -431,6 +431,24 @@ value of `default-directory' in that buffer." (expand-file-name (buffer-local-value buf default-directory))))))) +;;; For ITHKUIL +(define-ibuffer-filter durand-ithkuil + "Matches ITHKUIL buffers. +These are EWW buffers whose URL starts with www.ithkuil.net, +along with the buffers of files in a dedicated Ithkuil directory." + (:description "ITHKUIL" :reader (read-string "no effect")) + (with-current-buffer buf + (let ((buf-name default-directory)) + (ignore-errors + (cond + ((derived-mode-p 'eww-mode) + (string-prefix-p + "https://www.ithkuil.net" (plist-get eww-data :url))) + (buf-name + (string-prefix-p + "/Users/durand/Desktop/Centre/Ithkuil/" + (expand-file-name buf-name)))))))) + ;;;###autoload (defun durand-bongo-set-filter () "Set my custom filters." @@ -441,6 +459,7 @@ value of `default-directory' in that buffer." (mode . rustic-mode) (mode . rust-mode)))) (cons "TeX" '((derived-mode . tex-mode))) + (cons "ITHKUIL" '((durand-ithkuil))) (cons "C" '((mode . c-mode))) (cons "ELisp" '((mode . emacs-lisp-mode))) (cons "EWW" '((mode . eww-mode))) -- cgit v1.2.3-18-g5258