From 046aac0fc185b4e4ac2362812024dca026ab84aa Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 11 Oct 2021 18:01:41 -0500 Subject: Change pulse-iness of eval-region --- init.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index c8db6d7..bbda9aa 100644 --- a/init.el +++ b/init.el @@ -351,7 +351,8 @@ ;; Add advice to pulse evaluated regions (:advise eval-region :around (defun eval-region@pulse (fn beg end &rest args) - (pulse-momentary-highlight-region beg end) + (let ((pulse-flag t)) + (pulse-momentary-highlight-region beg end)) (apply fn beg end args)))) (:with-mode lisp-interaction-mode ;; -___- -- cgit 1.4.1-21-gabe81 From 8fd9506583b22adb1dd8757463cbf82fc2db28ec Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 11 Oct 2021 18:02:00 -0500 Subject: Remember more things --- init.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index bbda9aa..301128e 100644 --- a/init.el +++ b/init.el @@ -376,10 +376,16 @@ (or (executable-find "magick") (executable-find "convert"))) kill-read-only-ok t + kill-ring-max 500 ; RAM is cheap, right? + mark-ring-max 50 + kmacro-ring-max 20 + search-ring-max 200 + global-mark-ring-max 100 + regexp-search-ring-max 100 load-prefer-newer t native-comp-async-report-warnings-errors nil password-cache t - password-cache-expiry 3600 ; 5 minutes + password-cache-expiry (* 60 5) ; seconds set-mark-command-repeat-pop t) (when (fboundp 'command-completion-default-include-p) -- cgit 1.4.1-21-gabe81 From 079a42cb8fa6999b53f7617a7024cc2e22389c72 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 11 Oct 2021 18:02:11 -0500 Subject: Enable prettify-symbols-mode --- init.el | 1 + 1 file changed, 1 insertion(+) diff --git a/init.el b/init.el index 301128e..3067953 100644 --- a/init.el +++ b/init.el @@ -823,6 +823,7 @@ specific to most general, they are these: smie-indent-basic tab-width) (:hook #'show-paren-mode + #'prettify-symbols-mode ;; #'electric-pair-local-mode #'acdw/setup-fringes #'display-fill-column-indicator-mode -- cgit 1.4.1-21-gabe81 From ce41b1a6a4851117eecdf771fe2a6748723dc5fe Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 11 Oct 2021 18:02:27 -0500 Subject: Make circe prompt simpler I'm going to see if this makes the `circe-completion-suffix' work --- init.el | 32 ++++---------------------------- 1 file changed, 4 insertions(+), 28 deletions(-) diff --git a/init.el b/init.el index 3067953..d767ffa 100644 --- a/init.el +++ b/init.el @@ -1151,33 +1151,9 @@ specific to most general, they are these: circe-format-self-say (format "{nick:%1$d.%1$ds} > {body}" (- acdw-irc/left-margin 3)) - circe-network-inhibit-autoconnect '("Pissnet" "Twitch IRC") - circe-network-options - `(("Libera Chat" - :channels ("#emacs" "#systemcrafters" "##webpals" - "#emacsconf-org") - :sasl-username ,circe-default-nick - :sasl-password ,(acdw/make-password-fetcher - :host "libera.chat")) - ("Tilde Chat" :host "irc.tilde.chat" :port 6697 :use-tls t - :channels ("#meta" "#bread" "#dadjokes" "#team" - "#emacs" "#nsfw") - :sasl-username ,circe-default-nick - :sasl-password ,(acdw/make-password-fetcher - :host "tilde.chat")) - ("Casa" :host "m455.casa" :port 6697 :use-tls t - :channels ("#basement") - :sasl-username ,circe-default-nick - :sasl-password ,(acdw/make-password-fetcher - :host "m455.casa")) - ("Pissnet" :host "piss.hmm.st" :port 6697 :use-tls t - :channels ("#i-just-peed") - :sasl-username ,circe-default-nick - :sasl-password ,(acdw/make-password-fetcher - :host "piss.hmm.st")) - ("Twitch IRC" :host "irc.chat.twitch.tv" :port 6697 :use-tls t - :nick "caseofducks" :user "caseofducks" - :pass ,(acdw/make-password-fetcher :host "irc.chat.twitch.tv"))) + circe-prompt-string (format (format "%%%ds> " + (- acdw-irc/left-margin 2)) + " ") circe-reduce-lurker-spam t circe-server-auto-join-default-type :after-auth circe-server-buffer-action (lambda (buf) @@ -1208,7 +1184,7 @@ specific to most general, they are these: #'enable-circe-color-nicks ;; #'enable-circe-display-images #'enable-circe-new-day-notifier - #'circe-chat@set-prompt + ;; #'circe-chat@set-prompt #'topsy-mode)) (:bind "C-c C-s" #'circe-command-SLAP) -- cgit 1.4.1-21-gabe81 From 0d5cc0d8f7f145ac303c760098baa08e45940378 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 11 Oct 2021 18:03:29 -0500 Subject: bleh --- init.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/init.el b/init.el index d767ffa..a33a0b1 100644 --- a/init.el +++ b/init.el @@ -1204,8 +1204,8 @@ specific to most general, they are these: (:hook #'visual-fill-column-mode #'visual-line-mode) - (:local-set visual-fill-column-extra-text-width (cons acdw-irc/left-margin - 0) + (:local-set visual-fill-column-extra-text-width + (cons acdw-irc/left-margin 0) fringes-outside-margins t right-margin-width 5 scroll-margin 0 @@ -1491,7 +1491,9 @@ See also `crux-reopen-as-root-mode'." (:with-mode elfeed-show-mode (:hook #'reading-mode) - + (:local-set shr-max-image-proportion 0.9 + shr-width nil + fill-column 0) ;; see https://irreal.org/blog/?p=8885 (:bind "SPC" (defun elfeed-scroll-up-command (&optional arg) "Scroll up or go to next feed item in Elfeed" @@ -2042,7 +2044,8 @@ browser defined in `browse-url-secondary-browser-function'." org-clock-clocked-in-display 'mode-line org-clock-frame-title-format (cons '(t org-mode-line-string) (cons " --- " frame-title-format)) - org-clock-string-limit 25 ; gives enough information + org-clock-string-limit 7 ; just the clock bit + ;; org-clock-string-limit 25 ; gives enough information org-clock-persist t org-confirm-babel-evaluate nil org-cycle-separator-lines 0 -- cgit 1.4.1-21-gabe81 From 1ce1113fc42eac05efe91c353d2ed7a210f706f9 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 11 Oct 2021 18:03:38 -0500 Subject: Add powershell.el --- init.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index a33a0b1..419f97b 100644 --- a/init.el +++ b/init.el @@ -2291,7 +2291,13 @@ the default is \"/\"." (:global "M-`" #'popper-toggle-latest "C-`" #'popper-cycle) (popper-mode +1) - (popper-echo-mode +1)) + (when (fboundp 'popper-echo-mode) + (popper-echo-mode +1))) + +(setup (:straight-when (powershell + :host github + :repo "jschaf/powershell.el") + (acdw/system :work))) ;; (setup (:straight persistent-scratch) ;; (:option persistent-scratch-backup-directory (acdw/dir "scratch" t) -- cgit 1.4.1-21-gabe81 From 63335b9fde86613d603c633b33c1c30b0687c472 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 11 Oct 2021 18:03:50 -0500 Subject: Auto-save after a minute of idle time --- init.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index 419f97b..421bf9c 100644 --- a/init.el +++ b/init.el @@ -2432,7 +2432,8 @@ the default is \"/\"." (setup (:straight super-save) (:option auto-save-default nil - super-save-auto-save-when-idle nil + super-save-auto-save-when-idle t + super-save-idle-duration 60 super-save-exclude '(".gpg") super-save-remote-files nil) (auto-save-visited-mode -1) -- cgit 1.4.1-21-gabe81 From bfd024dd2b2e3a3e180eb541852968d3e18e0d6d Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 11 Oct 2021 18:09:13 -0500 Subject: Change up the modeline - Constant width for buffer name - Re-think nyan-mode minimum window width --- init.el | 2 +- lisp/acdw-modeline.el | 4 +--- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/init.el b/init.el index 421bf9c..e24e971 100644 --- a/init.el +++ b/init.el @@ -1943,7 +1943,7 @@ browser defined in `browse-url-secondary-browser-function'." :files ("nyan-mode.el" "img"))) (:option nyan-animate-nyancat nil nyan-bar-length 20 - nyan-minimum-window-width fill-column) + nyan-minimum-window-width (+ fill-column (/ nyan-bar-length 2))) (nyan-mode +1) (defun disable-nyan-mode () "Disable `nyan-mode' in current buffer." diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index a9020c5..adfcb44 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el @@ -33,9 +33,7 @@ Otherwise, cdr should be a function that takes two points (see `count-words')." (defun acdw-modeline/buffer-name () ; gonsie "Display the buffer name in a face reflecting its modified status." - (propertize (concat " " - (truncate-string (/ (window-total-width) 2) - (buffer-name) "~")) + (propertize (concat (format " %-20s" (truncate-string 20 (buffer-name) "~"))) 'face 'bold ;; (if (buffer-modified-p) ;; 'font-lock-warning-face -- cgit 1.4.1-21-gabe81