This commit is contained in:
parent
0f458f78cb
commit
fc72ca6248
41
init.el
41
init.el
|
@ -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))
|
||||
|
||||
|
|
82
lisp/acdw.el
82
lisp/acdw.el
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue