quick access to sieve-manage

2 files changed, 11 insertions, 5 deletions

diff --git a/custom/jao-custom-eww.el b/custom/jao-custom-eww.el
index 221f442..dda2de9 100644
--- a/custom/jao-custom-eww.el
+++ b/custom/jao-custom-eww.el
@@ -24,7 +24,7 @@
 
 ;;; multipart html renderer
 (defun jao-shr-html-renderer (handle)
-  (let* ((w (min 120 (- (window-width) 10)))
+  (let* ((w (min 10ai0 (- (window-width) 10)))
          (fill-column nil)
          (shr-width w)
          (shr-max-width w))
diff --git a/init.el b/init.el
index 2c7d28a..c4a43c5 100644
--- a/init.el
+++ b/init.el
@@ -1115,10 +1115,11 @@
  `((horizontal-scroll-bars . nil)
    (vertical-scroll-bars . nil)
    (scroll-bar-width . 0)
-   (menu-bar . nil)
+   ,@(jao-when-linux '((menu-bar . nil)))
    ,@(jao-when-darwin '((internal-border-width . 5)
                         (width . 163)
                         (height . 70)
+                        (menu-bar . t)
                         ;; (right-divider-width . 6)
                         ;; (bottom-divider-width . 6)
                         ))))
@@ -1128,7 +1129,7 @@
 (use-package fringe)
 (fringe-mode)
 
-(menu-bar-mode -1)
+(jao-when-linux (menu-bar-mode -1))
 
 (setq ns-pop-up-frames nil)
 
@@ -1803,6 +1804,10 @@
 (jao-def-exec-in-term "aptitude" "aptitude" (jao-afio-goto-scratch))
 (jao-def-exec-in-term "htop" "htop" (jao-afio-goto-scratch))
 
+(defun jao-sieve-manage ()
+  (interactive)
+  (sieve-manage "imap.mailbox.org"))
+
 (jao-d-l
  (progn
    (defun jao-open-firefox () (interactive) (jao-mac-open "-a Firefox"))
@@ -1851,7 +1856,8 @@
        ("f" "main" jao-afio-goto-main)]
       ["Network"
        ("s" "ssh" jao-ssh)
-       ("r" "r2e" jao-r2e)]
+       ("r" "r2e" jao-r2e)
+       ("S" "sieve" jao-sieve-manage)]
       ["Utilities"
        ("m" "mpc" jao-transient-media)
        ("l" "packages" jao-list-packages)
@@ -1880,7 +1886,7 @@
      ("s" "ssh" jao-ssh)
      ("b" "bluetooth" bluetooth-list-devices)
      ("c" "connect chats" jao-all-chats)
-     ("m" "proton bridge" run-proton-bridge)]
+     ("S" "sieve" jao-sieve-manage)]
     ["Chats"
      ("i"  "irc" jao-chats-irc)
      ;; ("M" "mastodon" jao-mastodon)