From 649d6ff53accc4c07f3f771c7354b95c19511aa2 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 3 Oct 2022 02:28:02 +0100 Subject: attic --- attic/elisp/misc.el | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'attic') diff --git a/attic/elisp/misc.el b/attic/elisp/misc.el index 12da196..8ae7ab8 100644 --- a/attic/elisp/misc.el +++ b/attic/elisp/misc.el @@ -687,3 +687,28 @@ (unless jao-modeline-in-minibuffer (add-hook 'jao-afio-switch-hook #'jao-afio--set-mode-line)) + +;; + +(defun jao-word-definition-lookup () + "Look up the word under cursor in a browser." + (interactive) + (require 'thingatpt) + (browse-url + (concat "http://www.wordnik.com/words/" + ;; "http://www.answers.com/main/ntquery?s=" + (thing-at-point 'word)))) + +;; + +(defun jao-notmuch-format-author (width msg) + (let* ((headers (plist-get msg :headers)) + (auth (notmuch-tree-clean-address (plist-get headers :From))) + (awidth (string-width auth)) + (auth (if (> awidth width) + (substring auth 0 width) + (concat auth (make-string (- width awidth) 32)))) + (face (if (plist-get msg :match) + 'notmuch-tree-match-author-face + 'notmuch-tree-no-match-author-face))) + (propertize auth 'face face))) -- cgit v1.2.3