]> git.notmuchmail.org Git - notmuch/blob - debian/notmuch.emacsen-startup
emacs: Centralize notmuch command error handling
[notmuch] / debian / notmuch.emacsen-startup
1 ;; -*-emacs-lisp-*-
2 ;;
3 ;; Emacs startup file, e.g.  /etc/emacs/site-start.d/50notmuch.el
4 ;; for the Debian notmuch package
5
6 ;; The notmuch package follows the Debian/GNU Linux 'emacsen' policy and
7 ;; byte-compiles its elisp files for each 'emacs flavor' (emacs19,
8 ;; xemacs19, emacs20, xemacs20...).  The compiled code is then
9 ;; installed in a subdirectory of the respective site-lisp directory.
10
11 (cond
12  ((not (file-exists-p "/usr/share/emacs/site-lisp/notmuch"))
13   (message "Package notmuch removed but not purged.  Skipping setup."))
14  ((not (file-exists-p (concat "/usr/share/"
15                               (symbol-name debian-emacs-flavor)
16                               "/site-lisp/notmuch")))
17   (message "Package notmuch not fully installed.  Skipping setup."))
18  (t
19   (debian-pkg-add-load-path-item
20    (concat "/usr/share/"
21            (symbol-name debian-emacs-flavor)
22            "/site-lisp/notmuch"))
23   (autoload 'notmuch "notmuch" "Run notmuch and display saved searches, known tags, etc." t)
24   (autoload 'notmuch-hello "notmuch" "Run notmuch and display saved searches, known tags, etc." t)
25   (autoload 'notmuch-search "notmuch" "Run \"notmuch search\" with the given query string and display results." t)
26   (autoload 'notmuch-show "notmuch" "Run \"notmuch show\" with the given thread ID and display results." t)
27
28   ))