From 563fb78037f21c6503c6489758e8f0d86173bb7e Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Thu, 30 Jan 2025 21:53:08 -0500 Subject: Various updates --- .emacs.d/eshell/alias | 2 +- .emacs.d/init.el | 12 +++++++++++- 2 files changed, 12 insertions(+), 2 deletions(-) (limited to '.emacs.d') diff --git a/.emacs.d/eshell/alias b/.emacs.d/eshell/alias index a324d78..450b8e2 100644 --- a/.emacs.d/eshell/alias +++ b/.emacs.d/eshell/alias @@ -17,4 +17,4 @@ alias vi find-file $1 alias vim find-file $1 alias mbsync mbsync -c $XDG_CONFIG_HOME/isync/mbsyncrc $* alias getmail getmail --getmaildir $XDG_CONFIG_HOME/getmail --rcfile getmailrc $* -alias m mbsync csclub; mbsync kelar; mbsync shemshak; mbsync gnub; getmail +alias m mbsync kelar; getmail diff --git a/.emacs.d/init.el b/.emacs.d/init.el index e852f1c..f1b8bf9 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -219,7 +219,8 @@ plain variables. This means that `setopt' will execute any (run-with-idle-timer 0.1 nil #'require 'battery) (with-eval-after-load 'battery (setopt battery-mode-line-format (format " [%s]" b/battery-format)) - (display-battery-mode)) + ;; (display-battery-mode -1) + ) (run-with-idle-timer 0.5 nil #'require 'winner) (with-eval-after-load 'winner @@ -407,6 +408,14 @@ for all frames." (when (fboundp #'exwm-systemtray--refresh-background-color) (exwm-systemtray--refresh-background-color 'remap)))) +(defun b/unfill-paragraph-or-region (&optional beg end) + "Unfill paragraph, or region (if active)." + (interactive "r") + (let ((fill-column most-positive-fixnum)) + (if (use-region-p) + (fill-region beg end) + (fill-paragraph)))) + ;;; General key bindings @@ -417,6 +426,7 @@ for all frames." ("C-S-j" . b/join-line-top) ("C-c s c" . b/*scratch*) ("C-c v" . b/invert-default-face) + ("C-c q" . b/unfill-paragraph-or-region) ;; evaling and macro-expanding ("C-c e b" . eval-buffer) ("C-c e e" . eval-last-sexp) -- cgit v1.2.3-60-g2f50