mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-25 12:28:09 +01:00
7171e77d4d
kill-this-buffer appears to be a function intended specifically for use in the menu bar, and causes problem killing notmuch buffers when multiple frames have been used. This patch replaces kill-this-buffer with notmuch-kill-this-buffer, which in turn just simply calls (kill-buffer (current-buffer)).
112 lines
3.5 KiB
EmacsLisp
112 lines
3.5 KiB
EmacsLisp
;; notmuch-lib.el --- common variables, functions and function declarations
|
|
;;
|
|
;; Copyright © Carl Worth
|
|
;;
|
|
;; This file is part of Notmuch.
|
|
;;
|
|
;; Notmuch is free software: you can redistribute it and/or modify it
|
|
;; under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
;;
|
|
;; Notmuch is distributed in the hope that it will be useful, but
|
|
;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
;; General Public License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with Notmuch. If not, see <http://www.gnu.org/licenses/>.
|
|
;;
|
|
;; Authors: Carl Worth <cworth@cworth.org>
|
|
|
|
;; This is an part of an emacs-based interface to the notmuch mail system.
|
|
|
|
(defvar notmuch-command "notmuch"
|
|
"Command to run the notmuch binary.")
|
|
|
|
(defgroup notmuch nil
|
|
"Notmuch mail reader for Emacs."
|
|
:group 'mail)
|
|
|
|
(defcustom notmuch-search-oldest-first t
|
|
"Show the oldest mail first when searching."
|
|
:type 'boolean
|
|
:group 'notmuch)
|
|
|
|
;;
|
|
|
|
(defcustom notmuch-saved-searches nil
|
|
"A list of saved searches to display."
|
|
:type '(alist :key-type string :value-type string)
|
|
:group 'notmuch)
|
|
|
|
(defvar notmuch-folders nil
|
|
"Deprecated name for what is now known as `notmuch-saved-searches'.")
|
|
|
|
(defun notmuch-saved-searches ()
|
|
"Common function for querying the notmuch-saved-searches variable.
|
|
|
|
We do this as a function to support the old name of the
|
|
variable (`notmuch-folders') as well as for the default value if
|
|
the user hasn't set this variable with the old or new value."
|
|
(if notmuch-saved-searches
|
|
notmuch-saved-searches
|
|
(if notmuch-folders
|
|
notmuch-folders
|
|
'(("inbox" . "tag:inbox")
|
|
("unread" . "tag:unread")))))
|
|
|
|
(defun notmuch-version ()
|
|
"Return a string with the notmuch version number."
|
|
(let ((long-string
|
|
;; Trim off the trailing newline.
|
|
(substring (shell-command-to-string
|
|
(concat notmuch-command " --version"))
|
|
0 -1)))
|
|
(if (string-match "^notmuch\\( version\\)? \\(.*\\)$"
|
|
long-string)
|
|
(match-string 2 long-string)
|
|
"unknown")))
|
|
|
|
(defun notmuch-config-get (item)
|
|
"Return a value from the notmuch configuration."
|
|
;; Trim off the trailing newline
|
|
(substring (shell-command-to-string
|
|
(concat notmuch-command " config get " item))
|
|
0 -1))
|
|
|
|
(defun notmuch-database-path ()
|
|
"Return the database.path value from the notmuch configuration."
|
|
(notmuch-config-get "database.path"))
|
|
|
|
(defun notmuch-user-name ()
|
|
"Return the user.name value from the notmuch configuration."
|
|
(notmuch-config-get "user.name"))
|
|
|
|
(defun notmuch-user-primary-email ()
|
|
"Return the user.primary_email value from the notmuch configuration."
|
|
(notmuch-config-get "user.primary_email"))
|
|
|
|
(defun notmuch-kill-this-buffer ()
|
|
"Kill the current buffer."
|
|
(interactive)
|
|
(kill-buffer (current-buffer)))
|
|
|
|
;;
|
|
|
|
;; XXX: This should be a generic function in emacs somewhere, not
|
|
;; here.
|
|
(defun point-invisible-p ()
|
|
"Return whether the character at point is invisible.
|
|
|
|
Here visibility is determined by `buffer-invisibility-spec' and
|
|
the invisible property of any overlays for point. It doesn't have
|
|
anything to do with whether point is currently being displayed
|
|
within the current window."
|
|
(let ((prop (get-char-property (point) 'invisible)))
|
|
(if (eq buffer-invisibility-spec t)
|
|
prop
|
|
(or (memq prop buffer-invisibility-spec)
|
|
(assq prop buffer-invisibility-spec)))))
|
|
|
|
(provide 'notmuch-lib)
|