summaryrefslogtreecommitdiffhomepage
path: root/attic
diff options
context:
space:
mode:
Diffstat (limited to 'attic')
-rw-r--r--attic/elisp/misc.el25
1 files changed, 25 insertions, 0 deletions
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)))