wee tweaks

2 files changed, 14 insertions, 7 deletions

diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el
index b079af1..3993147 100644
--- a/custom/jao-custom-notmuch.el
+++ b/custom/jao-custom-notmuch.el
@@ -5,6 +5,7 @@
 (defvar jao-notmuch-minibuffer-queries
   '((:name "" :query "tag:new and not tag:draft" :face jao-themes-f00)
     (:name "B" :query "tag:new and tag:bigml and tag:inbox" :face default)
+    (:name "A" :query "tag:new and tag:alba" :face default)
     (:name "b" :query "tag:new and tag:bigml and tag:bugs"
            :face jao-themes-error)
     (:name "S" :query "tag:new and tag:bigml and tag:support" :face default)
diff --git a/init.el b/init.el
index d5883d1..20d6daa 100644
--- a/init.el
+++ b/init.el
@@ -239,15 +239,21 @@
   (add-to-list 'mailcap-mime-extensions '(".JPEG" . "image/jpeg"))
   (add-to-list 'mailcap-mime-extensions '(".JPG" . "image/jpeg"))
 
-  (defun jao-icalendar-import-buffer ()
+  (defun jao-icalendar-import-buffer (&optional no-kill)
     (let ((icalendar-import-format "%s%u%l%d"))
       (icalendar-import-buffer diary-file t nil))
-    (kill-buffer)
+    (unless no-kill (kill-buffer))
     (message "Event imported into diary"))
 
+  (defun jao-icalendar-import-invite (file)
+    (with-temp-buffer
+      (insert-file-contents file)
+      (jao-icalendar-import-buffer t)))
+
   :custom
   ((mailcap-user-mime-data
     `((jao-icalendar-import-buffer "application/ics")
+      ("emacsclient -e '(jao-icalendar-import-invite \"%s\")'" "application/ics")
       (pdf-view-mode "application/pdf" (display-graphic-p))
       ("zathura \"%s\"" "application/pdf")
       (image-mode "image/*" (display-graphic-p))
@@ -443,9 +449,9 @@
 (defun jao-xmonad-enabled-p () jao-xmonad-enabled)
 
 (defun jao-xmonad-enable ()
-  (setq jao-browse-doc-use-emacs-p t)
+  (setq jao-browse-doc-use-emacs-p (display-graphic-p))
   (setq jao-wallpaper-random-wake t)
-  (display-battery-mode 1)
+  (display-battery-mode -1)
   (jao-set-transparency)
   (jao-trisect)
   (message "Welcome to xmonad"))
@@ -716,7 +722,7 @@
   :demand t
   :init (setq jao-tracking-bkg
               (if (jao-colors-scheme-dark-p) "grey20" "grey93")
-              jao-tracking-use-scratch (not window-system))
+              jao-tracking-use-scratch t)
   :config (jao-tracking-setup))
 
 ;;;; tmr
@@ -1279,7 +1285,7 @@
                           (not (bound-and-true-p jao-exwm--use-afio))
                           (boundp 'exwm-workspace-current-index))
                      (format "F%s" exwm-workspace-current-index))
-                    (jao-afio-use-frames (or (jao-afio-frame-name) ""))
+                    (t jao-afio-use-frames (or (jao-afio-frame-name) ""))
                     (t (format "%s" (or (jao-afio-frame-no) ""))))
               'face 'font-lock-warning-face))
 
@@ -1866,7 +1872,7 @@
               jao-use-vterm t)
   :config
 
-  (defun jao-vterm-send-C-c () (vterm-send-key "c" nil nil t))
+  (defun jao-vterm-send-C-c () (interactive) (vterm-send-key "c" nil nil t))
 
   (jao-define-attached-buffer "\\*vterm\\*" 0.5)