From ba5b225f2e1676581201e3b8fa339ad7d0898826 Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Mon, 14 Oct 2024 08:37:57 +0200
Subject: .

---
 emacs | 27 ++++++++++++++++-----------
 1 file changed, 16 insertions(+), 11 deletions(-)

diff --git a/emacs b/emacs
index 81864c5..369c876 100644
--- a/emacs
+++ b/emacs
@@ -10,7 +10,7 @@
  inhibit-startup-screen t
  display-time-format "%a, %d/%m/%Y %H:%M"
  default-frame-alist '((font . "Iosevka SS13 Extended")
-		       (height . 170)
+		       (height . 150)
 		       (line-spacing . 0.5))
 
 
@@ -122,13 +122,17 @@
                           (interactive)
                           (exwm-workspace-switch-create ,i))))
                     (number-sequence 0 9))))
+  (exwm-input-set-key (kbd "<print>")
+		      (lambda () (interactive)
+			(shell-command "scrot -F '/home/mccd/screenshots/%Y-%m-%d_$wx$h.png'")))
+  (exwm-input-set-key (kbd "C-<print>")
+		      (lambda () (interactive)
+			(shell-command "scrot -s -F '/home/mccd/screenshots/%Y-%m-%d_$wx$h.png'"))) 
   (exwm-enable)
   (exwm-xim-mode)
   (push ?\C-\\ exwm-input-prefix-keys)
   :hook
-  ((exwm-init . (lambda ()
-		  (set-face-attribute 'default nil :height 170)))
-   ;; Make sure titles match X window
+  (;; Make sure titles match X window
    (exwm-update-title . (lambda ()
 			  (exwm-workspace-rename-buffer
 			   (concat exwm-class-name ":"
@@ -434,11 +438,11 @@ Uses `marcc/timestamp-format' for formatting the date/time."
   (global-set-key (kbd "C-c C-o") #'org-open-at-point-global)
   (global-set-key (kbd "C-c C-s") #'sync-org)
   :hook
-  ((org-mode . auto-save-visited-mode))
-  (org-mode . org-indent-mode)
-  (org-mode . flyspell-mode)
-  (org-mode . visual-line-mode)
-  (org-mode . variable-pitch-mode))
+  ((org-mode . auto-save-visited-mode)
+   (org-mode . org-indent-mode)
+   (org-mode . flyspell-mode)
+   (org-mode . visual-line-mode)
+   (org-mode . variable-pitch-mode)))
 
 (use-package rec-mode
   :ensure t)
@@ -632,8 +636,9 @@ Uses `marcc/timestamp-format' for formatting the date/time."
  '(markdown-inline-code-face ((t (:inherit markdown-code-face))))
  '(markdown-pre-face ((t (:inherit markdown-code-face))))
  '(mastodon-display-name-face ((t (:inherit nil :weight bold))))
- '(mode-line ((t (:foreground "black" :box (:line-width (8 . 8) :style flat-button) :overline "#e0e0e0" :family "Iosevka Aile"))))
- '(mode-line-inactive ((t (:inherit mode-line :background "grey95" :foreground "grey20" :underline (:color "#e0e0e0" :style line :position 0) :weight light))))
+ '(mode-line ((t (:background "gray95" :foreground "black" :box (:line-width (8 . 8) :style flat-button) :overline "#e0e0e0" :underline (:color "#e0e0e0" :style line :position t) :family "Iosevka Aile"))))
+ '(mode-line-emphasis ((t (:weight semi-bold))))
+ '(mode-line-inactive ((t (:inherit mode-line :background "grey95" :foreground "grey60" :underline (:color "#e0e0e0" :style line :position 0) :weight light))))
  '(mu4e-header-highlight-face ((t (:inherit hl-line :extend t :weight bold))))
  '(mu4e-highlight-face ((t (:inherit highlight))))
  '(org-date ((t (:inherit fixed-pitch :foreground "gray40" :underline t))))
-- 
cgit v1.2.3