1 files changed, 50 insertions, 14 deletions

@@ -39,6 +39,7 @@
            "C-x o" (lambda () (interactive) (switch-to-buffer nil))
            "C-x C-o" #'+open-paragraph
            "C-w" #'+kill-word-backward-or-region
+           "C-x C-m" #'execute-extended-command  ; original: coding systems
            ;; "C-x C-1" #'delete-other-windows
            ;; "C-x 2" #'+split-window-below-then
            ;; "C-x C-2" #'+split-window-below-then
@@ -342,6 +343,8 @@
            eshell-prompt-regexp (rx bol (* (not (any ?# ?$ ?\n)))
                                     " " (any ?# ?$)
                                     (* " ")))
+  (:+leader "s" #'+eshell-here
+            "C-s" #'+eshell-here)
   (with-eval-after-load 'mwim
     (setf (alist-get 'eshell-mode mwim-beginning-of-line-function)
           #'eshell-bol))
@@ -350,19 +353,19 @@
     (dolist (mode '((hungry-delete-mode . -1)))
       (funcall (car mode) (cdr mode)))
     ;; Set local settings
-    (dolist (setting (list (cons 'outline-regexp eshell-prompt-regexp)
-                           (cons 'page-delimiter eshell-prompt-regexp)
-                           (cons 'imenu-generic-expression
-                                 (list "Prompt"
-                                       (concat eshell-prompt-regexp
-                                               "\\(.*\\)")
-                                       1))
-                           (cons 'truncate-lines t)))
+    (dolist (setting `((outline-regexp . ,eshell-prompt-regexp)
+                       (page-delimiter . ,eshell-prompt-regexp)
+                       (imenu-generic-expression "Prompt"
+                                                 ,(concat eshell-prompt-regexp
+                                                          "\\(.*\\)")
+                                                 1)
+                       (truncate-lines . t)
+                       (scroll-margin . 0)))
       (set (make-local-variable (car setting)) (cdr setting)))
     ;; Bind keys
     (dolist (binding '(("C-d" . +eshell-quit-or-delete-char)))
       (define-key eshell-mode-map
-                  (kbd (car binding)) (cdr binding)))
+        (kbd (car binding)) (cdr binding)))
     ;; Environment variables
     (dolist (environment '(("PAGER" . "cat")))
       (setenv (car environment) (cdr environment)))))
@@ -425,6 +428,8 @@
 
 (setup info
   (:also-load +Info)
+  (dolist (dir (split-string (getenv "INFOPATH") ":"  t))
+    (add-to-list 'Info-additional-directory-list dir))
   (:with-mode Info-mode                 ; -_-
     (:hook #'reading-mode)
     (:bind "c" #'+Info-copy-current-node-name
@@ -836,11 +841,11 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
              (and (executable-find "find")
                   (executable-find "grep"))))
   (:load-after consult orderless vertico)
-  (setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input _type)
+  (setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input &rest _)
                                (setq input (orderless-pattern-compiler input))
                                (cons input (lambda (str) (orderless--highlight input str)))))
   (+with-eval-after-loads (affe vertico-multiform)
-    (setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input _type)
+    (setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input &rest _)
                                  (setq input (orderless-pattern-compiler input))
                                  (cons input (lambda (str) (orderless--highlight input str)))))
     (setf (alist-get 'affe-grep vertico-multiform-commands) '(buffer)
@@ -1285,7 +1290,6 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
            "M-w" #'+crux-kill-ring-save
            "C-k" #'crux-kill-and-join-forward
            "C-c d" #'+crux-insert-date-or-time)
-  (:+leader "s"  #'crux-visit-shell-buffer)
   (crux-with-region-or-buffer indent-region)
 
   (el-patch-feature crux)
@@ -1394,8 +1398,17 @@ See also `crux-reopen-as-root-mode'."
     (:hook #'reading-mode)
     (:option +elfeed--update-repeat (* 60 30) ; 1/2 hour
              +elfeed--update-first-time 60))
-  (+elfeed-update-async-mode -1)        ; It really messes with stuff for work
-  )
+  (+elfeed-update-async-mode +1)
+  (add-hook '+elfeed-update-proceed-hook (defun non-work-hours? ()
+                                           "Return nil if during work hours, t otherwise."
+                                           (let* ((now (current-time))
+                                                  (now* (decode-time now))
+                                                  (work-start* (append '(0 0 8) (cdddr now*))) ; 8:00 AM
+                                                  (work-end* (append '(0 0 18) (cdddr now*)))  ; 6:00 PM
+                                                  (work-start (encode-time work-start*))
+                                                  (work-end (encode-time work-end*)))
+                                             (or (time-less-p now work-start)
+                                                 (time-less-p work-end now))))))
 
 (setup (:straight elfeed-org)
   (:also-load +org-capture)
@@ -1530,6 +1543,7 @@ See also `crux-reopen-as-root-mode'."
                   geiser-chicken
                   macrostep-geiser
                   scheme-complete)
+  (:also-load +chicken)
   (setf (alist-get "\\.scm\\'" auto-mode-alist nil nil #'string=)
         'scheme-mode))
 
@@ -1776,6 +1790,28 @@ See also `crux-reopen-as-root-mode'."
           :now)))))
   (:face modus-themes-tab-active ((t :bold nil))
          modus-themes-tab-inactive ((t :italic t)))
+
+  (add-hook 'modus-themes-after-load-theme-hook
+            (defun +modus-themes-mostly-monochrome ()
+              "Set up mdous-themes to be mostly monochrome."
+              (modus-themes-with-colors
+                (custom-set-faces
+                 `(font-lock-builtin-face ((,class :inherit modus-themes-bold :foreground unspecified)))
+                 `(font-lock-comment-delimiter-face ((,class :inherit font-lock-comment-face)))
+                 `(font-lock-comment-face ((,class :inherit modus-themes-slant :foreground ,fg-docstring)))
+                 `(font-lock-constant-face ((,class :foreground unspecified)))
+                 `(font-lock-doc-face ((,class :inherit modus-themes-slant :foreground ,fg-docstring)))
+                 `(font-lock-function-name-face ((,class :foreground unspecified)))
+                 `(font-lock-keyword-face ((,class :inherit modus-themes-bold :foreground unspecified)))
+                 `(font-lock-negation-char-face ((,class :inherit modus-themes-bold :foreground unspecified)))
+                 `(font-lock-preprocessor-face ((,class :foreground unspecified)))
+                 `(font-lock-regexp-grouping-backslash ((,class :foreground ,fg-escape-char-backslash)))
+                 `(font-lock-regexp-grouping-construct ((,class :foreground ,fg-escape-char-construct)))
+                 `(font-lock-string-face ((,class :inherit modus-themes-slant :foreground unspecified)))
+                 `(font-lock-type-face ((,class :inherit modus-themes-bold :foreground unspecified)))
+                 `(font-lock-variable-name-face ((,class :foreground unspecified)))
+                 `(font-lock-warning-face ((,class :inherit modus-themes-bold :foreground ,red-nuanced-fg)))))))
+
   (dawn-schedule #'modus-themes-load-operandi
                  #'modus-themes-load-vivendi))