3 files changed, 100 insertions, 26 deletions

@@ -28,7 +28,8 @@
 ;;; Speed up init
 ;; see doom-emacs, et al.
 
-(setq orig-file-name-handler-alist file-name-handler-alist
+(setq load-prefer-newer noninteractive
+      orig-file-name-handler-alist file-name-handler-alist
       file-name-handler-alist nil)
 (acdw/gc-disable)
 
@@ -66,7 +66,7 @@
            calendar-longitude -91.1)
   
   ;; Lines
-  (:option fill-column 80
+  (:option fill-column 79
            word-wrap t
            truncate-lines nil)
 
@@ -115,7 +115,7 @@
   ;; Cursor
   (:option cursor-type 'bar
            cursor-in-non-selected-windows 'hollow
-           blink-cursor-blinks 1)
+       blink-cursor-blinks 1)
   (blink-cursor-mode +1)
 
   ;; Scrolling
@@ -306,7 +306,14 @@
     (write-region "" nil ispell-personal-dictionary nil 0))
 
   (add-hook 'text-mode-hook #'flyspell-mode)
-  (add-hook 'prog-mode-hook #'flyepell-prog-mode))
+  (add-hook 'prog-mode-hook #'flyspell-prog-mode))
+
+(setup scratch
+  (hook-defun immortal-scratch kill-buffer-query-functions
+    (if (eq (current-buffer (get-buffer "*scratch*")))
+        (progn (bury-buffer)
+               nil)
+      t)))
 
 
 ;; Applications
@@ -405,17 +412,17 @@
            '("\\.\\(gemini\\|gmi\\)\\'" . gemini-mode)))
 
 (setup dired
-  (:setq-default dired-recursive-copies 'always
-                 dired-recursive-deletes 'always
-                 delete-by-moving-to-trash t
-                 dired-listing-switches "-Al"
-                 ls-lisp-dirs-first t
-                 dired-ls-F-marks-symlinks t
-                 dired-no-confirm '(byte-compile
-                                    chgrp chmod chown copy
-                                    hardlink load move
-                                    shell touch symlink)
-                 dired-dwim-target t)
+  (:option dired-recursive-copies 'always
+           dired-recursive-deletes 'always
+           delete-by-moving-to-trash t
+           dired-listing-switches "-Al"
+           ls-lisp-dirs-first t
+           dired-ls-F-marks-symlinks t
+           dired-no-confirm '(byte-compile
+                              chgrp chmod chown copy
+                              hardlink load move
+                              shell touch symlink)
+           dired-dwim-target t)
   (:also-load dired-x)
   (:hook dired-hide-details-mode
          hl-line-mode)
@@ -435,7 +442,7 @@
       (:option trashed-action-confirmer 'y-or-n-p))))
 
 (setup (:straight magit)
-  (:acdw/leader "g" magit-status)
+  (:leader "g" magit-status)
   (:option magit-display-buffer-function
            (defun magit-display-buffer-same-window (buffer)
              "Display BUFFER in the selected window like God intended."
@@ -736,8 +743,8 @@ if ripgrep is installed, otherwise `consult-grep'."
 (when (executable-find "fennel")
   (setup (:straight fennel-mode)
     (autoload 'fennel-mode "fennel-mode" nil t)
-    (:option (append auto-mode-alist) '("\\.fnl\\'" . fennel-mode))
-    (:bind "C-c C-c" )))
+    (autoload 'fennel-repl "fennel-mode" nil t)
+    (:option (append auto-mode-alist) '("\\.fnl\\'" . fennel-mode))))
 
 (setup (:straight geiser))
 
@@ -22,9 +22,9 @@
 ;; Utility constants
 
 (defconst acdw/system (pcase system-type
-            ('gnu/linux :home)
-            ((or 'msdos 'windows-nt) :work)
-            (_ :other))
+                        ('gnu/linux :home)
+                        ((or 'msdos 'windows-nt) :work)
+                        (_ :other))
   "Which computer system is currently being used.")
 
 
@@ -38,7 +38,7 @@ is unfocused."
     `(progn
        (defun ,func-name () "Defined by `when-unfocused'."
               (when (seq-every-p #'null
-                 (mapcar #'frame-focus-state (frame-list)))
+                                 (mapcar #'frame-focus-state (frame-list)))
                 ,@forms))
        (add-function :after after-focus-change-function #',func-name))))
 
@@ -52,7 +52,7 @@ each hook in HOOKS."
     `(progn
        (defun ,func-name () "Defined by `hook-defun'." ,@forms)
        ,@(dolist (hook hook-list hook-defun-add-hook-list)
-          (push `(add-hook ',hook #',func-name) hook-defun-add-hook-list)))))
+           (push `(add-hook ',hook #',func-name) hook-defun-add-hook-list)))))
 
 (defun refresh-emacs ()
   "Reload Emacs's configuration files."
@@ -73,7 +73,7 @@ if MAKE-DIRECTORY is non-nil."
                                user-emacs-directory)))
     (if file
         (let ((file-name (expand-file-name (convert-standard-filename file)
-                       dir)))
+                                           dir)))
           (when make-directory
             (make-directory (file-name-directory file-name) 'parents))
           file-name)
@@ -82,12 +82,33 @@ if MAKE-DIRECTORY is non-nil."
 (defun acdw/gc-enable ()
   "Enable the Garbage collector."
   (setq gc-cons-threshold (* 800 1024 1024)
-    gc-cons-percentage 0.1))
+        gc-cons-percentage 0.1))
 
 (defun acdw/gc-disable ()
   "Functionally disable the Garbage collector."
   (setq gc-cons-threshold most-positive-fixnum
-    gc-cons-percentage 0.8))
+        gc-cons-percentage 0.8))
+
+(defun acdw/sunrise-sunset (sunrise-command sunset-command)
+  "Run commands at sunrise and sunset."
+  (let* ((times-regex (rx (* nonl)
+                          (: (any ?s ?S) "unrise") " "
+                          (group (repeat 1 2 digit) ":"
+                                 (repeat 1 2 digit)
+                                 (: (any ?a ?A ?p ?P) (any ?m ?M)))
+                          (* nonl)
+                          (: (any ?s ?S) "unset") " "
+                          (group (repeat 1 2 digit) ":"
+                                 (repeat 1 2 digit)
+                                 (: (any ?a ?A ?p ?P) (any ?m ?M)))
+                          (* nonl)))
+         (ss (sunrise-sunset))
+         (_m (string-match times-regex ss))
+         (sunrise-time (match-string 1 ss))
+         (sunset-time (match-string 2 ss)))
+    (run-at-time sunrise-time (* 60 60 24) sunrise-command)
+    (run-at-time sunset-time (* 60 60 24) sunset-command)
+    (run-at-time "12:00am" (* 60 60 24) sunset-command)))
 
 
 ;; Make `C-z' more useful
@@ -98,5 +119,50 @@ if MAKE-DIRECTORY is non-nil."
     (define-key map "\C-z" c-z)
     map))
 
+
+;; `acdw/reading-mode'
+(define-minor-mode acdw/reading-mode
+  "A mode for reading."
+  :init-value nil
+  :lighter " Read"
+  (if acdw/reading-mode
+      (progn ;; turn on
+        ;; settings
+        (setq-local mode-line-format
+                    '(:eval
+                      (let* ((fmt " Reading %b")
+                             (len (length (format-mode-line fmt))))
+                        (concat
+                         (propertize " "
+                                     'display `((space :align-to (- right
+                                                                    ,len)))
+                                     'face '(:inherit italic))
+                         fmt)))
+                    orig-indicate-empty-lines indicate-empty-lines
+                    indicate-empty-lines nil
+                    orig-indicate-buffer-boundaries indicate-buffer-boundaries
+                    indicate-buffer-boundaries nil)
+        ;; disable modes
+        (dolist (mode '(display-fill-column-indicator-mode))
+          (when (fboundp mode)
+            (funcall mode -1)))
+        ;; enable modes
+        (dolist (mode '(iscroll-mode olivetti-mode))
+          (when (fboundp mode)
+            (funcall mode +1))))
+    ;; turn off
+    ;; settings
+    (setq-local indicate-empty-lines orig-indicate-empty-lines
+                indicate-buffer-boundaries orig-indicate-buffer-boundaries)
+    (kill-local-variable 'mode-line-format)
+    ;; enable modes
+    (dolist (mode '(display-fill-column-indicator-mode))
+      (when (fboundp mode)
+        (funcall mode +1)))
+    ;; disable modes
+    (dolist (mode '(olivetti-mode iscroll-mode))
+      (when (fboundp mode)
+        (funcall mode -1)))))
+
 (provide 'acdw)
 ;;; acdw.el ends here