attic

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)))