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