From 6ce5f612c74f4ab3e64c6d372219b4ee45489104 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 2 Sep 2022 03:13:26 +0100
Subject: lowercase frame names

---
 custom/jao-custom-email.el   | 2 +-
 custom/jao-custom-eww.el     | 2 +-
 custom/jao-custom-notmuch.el | 2 +-
 custom/jao-custom-w3m.el     | 2 +-
 init.el                      | 2 +-
 lib/eos/jao-afio.el          | 4 ++--
 6 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/custom/jao-custom-email.el b/custom/jao-custom-email.el
index 83707ee..c3a9804 100644
--- a/custom/jao-custom-email.el
+++ b/custom/jao-custom-email.el
@@ -301,7 +301,7 @@
                  (mapcar #'buffer-name
                          (seq-filter #'jao-mail-buffer-p (buffer-list))))))
 
-(jao-consult-add-buffer-source 'jao-mail-consult-source "Mail" ?n)
+(jao-consult-add-buffer-source 'jao-mail-consult-source "mail" ?n)
 
 ;;; .
 (provide 'jao-custom-email)
diff --git a/custom/jao-custom-eww.el b/custom/jao-custom-eww.el
index ae486fb..f33aed1 100644
--- a/custom/jao-custom-eww.el
+++ b/custom/jao-custom-eww.el
@@ -77,7 +77,7 @@
                            (propertize (if (string-blank-p tl) url tl)
                                        'buffer b 'url url))))
                      (seq-filter #'jao-www--buffer-p (buffer-list))))))
-  (jao-consult-add-buffer-source 'jao-eww-buffer-source "Web" ?e))
+  (jao-consult-add-buffer-source 'jao-eww-buffer-source "web" ?e))
 
 ;;; images
 (defun jao-eww-next-image ()
diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el
index 142b962..b079af1 100644
--- a/custom/jao-custom-notmuch.el
+++ b/custom/jao-custom-notmuch.el
@@ -272,7 +272,7 @@
 (defun jao-notmuch-refresh-hello (&optional agenda)
   (interactive "P")
   (ignore-errors
-    (when (and (string= "Mail" (jao-afio-frame-name))
+    (when (and (string= "mail" (jao-afio-frame-name))
                (derived-mode-p 'notmuch-hello-mode))
       (when (not (string-blank-p jao-notmuch-minibuffer-string))
         (let ((notmuch-hello-auto-refresh nil)) (notmuch-hello)))
diff --git a/custom/jao-custom-w3m.el b/custom/jao-custom-w3m.el
index 0edac5e..e36d23f 100644
--- a/custom/jao-custom-w3m.el
+++ b/custom/jao-custom-w3m.el
@@ -124,7 +124,7 @@
             :action (lambda (b)
                       (jao-afio-goto-www)
                       (switch-to-buffer (get-text-property 0 'buffer b)))))
-    (jao-consult-add-buffer-source 'jao-consult-w3m-source "Web" ?w)))
+    (jao-consult-add-buffer-source 'jao-consult-w3m-source "web" ?w)))
 
 ;;; package
 (use-package w3m
diff --git a/init.el b/init.el
index 1ee6ea3..770688c 100644
--- a/init.el
+++ b/init.el
@@ -1382,7 +1382,7 @@
 
 (defun jao-afio--set-mode-line ()
   (when (and window-system (fboundp 'jao-mode-line-hide-inactive))
-    (if (string= "Docs" (jao-afio-frame-name))
+    (if (string= "docs" (jao-afio-frame-name))
         (jao-mode-line-show-inactive nil)
       (jao-mode-line-hide-inactive nil))))
 
diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el
index 7bb85a0..627630e 100644
--- a/lib/eos/jao-afio.el
+++ b/lib/eos/jao-afio.el
@@ -159,8 +159,8 @@
 
 (defun jao-afio-frame-name (&optional c)
   (alist-get (or c (jao-afio--current-config))
-             '((?c . "Main") (?s . "Scratch") (?g . "Mail")
-               (?p . "Docs") (?w . "Web"))))
+             '((?c . "main") (?s . "scratch") (?g . "mail")
+               (?p . "docs") (?w . "web"))))
 
 (defun jao-afio-frame-no (&optional c)
   (alist-get (or c (jao-afio--current-config))
-- 
cgit v1.2.3