lib: make notmuch_query_add_tag_exclude return a status value

[notmuch] / emacs / notmuch-hello.el

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index 8a31f9a1c52ca6aeb7e90c62a8dda4b54686b77c..c858a20b6cc751d73d457272b0586da3d20e49db 100644 (file)
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -1,4 +1,4 @@
-;; notmuch-hello.el --- welcome to notmuch, a frontend
+;;; notmuch-hello.el --- welcome to notmuch, a frontend

 ;;
 ;; Copyright © David Edmondson
 ;;
 ;;
 ;; Copyright © David Edmondson
 ;;


@@ -15,10 +15,12 @@
 ;; General Public License for more details.
 ;;
 ;; You should have received a copy of the GNU General Public License
 ;; 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/>.
+;; along with Notmuch.  If not, see <https://www.gnu.org/licenses/>.

 ;;
 ;; Authors: David Edmondson <dme@dme.org>
 
 ;;
 ;; Authors: David Edmondson <dme@dme.org>
 

+;;; Code:
+

 (eval-when-compile (require 'cl))
 (require 'widget)
 (require 'wid-edit) ; For `widget-forward'.
 (eval-when-compile (require 'cl))
 (require 'widget)
 (require 'wid-edit) ; For `widget-forward'.


@@ -263,7 +265,7 @@ International Bureau of Weights and Measures."
   :group 'notmuch-hello
   :group 'notmuch-hooks)
 
   :group 'notmuch-hello
   :group 'notmuch-hooks)
 

-(defvar notmuch-hello-url "http://notmuchmail.org"
+(defvar notmuch-hello-url "https://notmuchmail.org"

   "The `notmuch' web site.")
 
 (defvar notmuch-hello-custom-section-options
   "The `notmuch' web site.")
 
 (defvar notmuch-hello-custom-section-options


@@ -602,10 +604,11 @@ with `notmuch-hello-query-counts'."
 
 (defimage notmuch-hello-logo ((:type png :file "notmuch-logo.png")))
 
 
 (defimage notmuch-hello-logo ((:type png :file "notmuch-logo.png")))
 

-(defun notmuch-hello-update (&optional no-display)
-  "Update the current notmuch view."
+(defun notmuch-hello-update ()
+  "Update the notmuch-hello buffer."

   ;; Lazy - rebuild everything.
   ;; Lazy - rebuild everything.

-  (notmuch-hello no-display))
+  (interactive)
+  (notmuch-hello t))

 
 (defun notmuch-hello-window-configuration-change ()
   "Hook function to update the hello buffer when it is switched to."
 
 (defun notmuch-hello-window-configuration-change ()
   "Hook function to update the hello buffer when it is switched to."


@@ -669,7 +672,7 @@ with `notmuch-hello-query-counts'."
   "Keymap for \"notmuch hello\" buffers.")
 (fset 'notmuch-hello-mode-map notmuch-hello-mode-map)
 
   "Keymap for \"notmuch hello\" buffers.")
 (fset 'notmuch-hello-mode-map notmuch-hello-mode-map)
 

-(defun notmuch-hello-mode ()
+(define-derived-mode notmuch-hello-mode fundamental-mode "notmuch-hello"

  "Major mode for convenient notmuch navigation. This is your entry portal into notmuch.
 
 Saved searches are \"bookmarks\" for arbitrary queries. Hit RET
  "Major mode for convenient notmuch navigation. This is your entry portal into notmuch.
 
 Saved searches are \"bookmarks\" for arbitrary queries. Hit RET


@@ -700,13 +703,7 @@ The screen may be customized via `\\[customize]'.
 Complete list of currently available key bindings:
 
 \\{notmuch-hello-mode-map}"
 Complete list of currently available key bindings:
 
 \\{notmuch-hello-mode-map}"

- (interactive)
- (kill-all-local-variables)

  (setq notmuch-buffer-refresh-function #'notmuch-hello-update)
  (setq notmuch-buffer-refresh-function #'notmuch-hello-update)

- (use-local-map notmuch-hello-mode-map)
- (setq major-mode 'notmuch-hello-mode
-       mode-name "notmuch-hello")
- (run-mode-hooks 'notmuch-hello-mode-hook)

  ;;(setq buffer-read-only t)
 )
 
  ;;(setq buffer-read-only t)
 )
 


@@ -1016,3 +1013,5 @@ following:
 ;;
 
 (provide 'notmuch-hello)
 ;;
 
 (provide 'notmuch-hello)

+
+;;; notmuch-hello.el ends here