From 21d9cfaee14110e95c4385dccead33a9dc9d9423 Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Sat, 2 Nov 2024 21:00:53 +0200
Subject: .

---
 home/dots/.emacs | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

(limited to 'home/dots')

diff --git a/home/dots/.emacs b/home/dots/.emacs
index 95aa554..ae44e38 100644
--- a/home/dots/.emacs
+++ b/home/dots/.emacs
@@ -3,6 +3,7 @@
 (fset 'yes-or-no-p 'y-or-n-p)
 (setq
  default-frame-alist '((font . "Iosevka SS13 Extended")
+		       (bottom-divider-width . 2)
 		       (height . 150)
 		       (line-spacing . 0.5))
  ;; undo
@@ -101,19 +102,24 @@
 			(shell-command "scrot -s -F '/home/mccd/screenshots/%Y-%m-%d_$wx$h.png'")))
   (exwm-input-set-key (kbd "<XF86AudioMute>")
 		      (lambda () (interactive)
-			(shell-command "amixer set Master toggle 1> /dev/null")))
+			(let ((inhibit-message t))
+			  (shell-command "amixer set Master toggle 1> /dev/null"))))
   (exwm-input-set-key (kbd "<XF86AudioRaiseVolume>")
 		      (lambda () (interactive)
-			(shell-command "amixer set Master 10%+ 1> /dev/null")))  
+			(let ((inhibit-message t))
+			  (shell-command "amixer set Master 10%+ 1> /dev/null"))))  
   (exwm-input-set-key (kbd "<XF86AudioLowerVolume>")
 		      (lambda () (interactive)
-			(shell-command "amixer set Master 10%- 1> /dev/null")))  
+			(let ((inhibit-message t))
+			  (shell-command "amixer set Master 10%- 1> /dev/null"))))  
   (exwm-input-set-key (kbd "<XF86MonBrightnessDown>")
 		      (lambda () (interactive)
-			(shell-command "brightnessctl set 5%- 1> /dev/null")))
+			(let ((inhibit-message t))
+			  (shell-command "brightnessctl set 5%- 1> /dev/null"))))
   (exwm-input-set-key (kbd "<XF86MonBrightnessUp>")
 		      (lambda () (interactive)
-			(shell-command "brightnessctl set +5% 1> /dev/null")))
+			(let ((inhibit-message t))
+			  (shell-command "brightnessctl set +5% 1> /dev/null"))))
   (exwm-input-set-key (kbd "s-<SPC>")
 		      (lambda (cmd) ;; s-&: Launch application.
 			(interactive (list (read-shell-command "$ ")))
@@ -213,6 +219,8 @@
 
 (use-package frame
   :config
+  (setq-default window-divider-default-bottom-width 2
+		window-divider-default-places t)
   (window-divider-mode))
 
 (use-package files
@@ -757,7 +765,7 @@
   ;; Enables notifications for org
   :init
   (setq appt-message-warning-time 15
-	appt-display-interval 10
+	appt-display-interval 5
 	appt-disp-window-function (lambda (remaining new-time msg)
 				    (notifications-notify
 				     :title (message "In %s minutes" remaining)
@@ -766,7 +774,8 @@
   (advice-add 'appt-check
             :before
             (lambda (&rest args)
-              (org-agenda-to-appt t)))
+	      (let ((inhibit-message t))
+		(org-agenda-to-appt t))))
   (appt-activate t))
 
 (use-package rec-mode
-- 
cgit v1.2.3