diff options
| author | bdunahu <bdunahu@operationnull.com> | 2026-01-04 13:13:39 -0700 |
|---|---|---|
| committer | bdunahu <bdunahu@operationnull.com> | 2026-01-04 13:13:39 -0700 |
| commit | c2b706ff2f3aa42d58a03febad1d1b8f8d5a1142 (patch) | |
| tree | d6786f531f02717472abdc992cc6c6ef81e660b3 /guix/kolwynia/home/bdunahu/files/.config/emacs/libraries/fill-column.el | |
| parent | c4ca05231236c7e9bdf5304275eadde954acf588 (diff) | |
remove unnecessary nested guix dir
Diffstat (limited to 'guix/kolwynia/home/bdunahu/files/.config/emacs/libraries/fill-column.el')
| -rw-r--r-- | guix/kolwynia/home/bdunahu/files/.config/emacs/libraries/fill-column.el | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/guix/kolwynia/home/bdunahu/files/.config/emacs/libraries/fill-column.el b/guix/kolwynia/home/bdunahu/files/.config/emacs/libraries/fill-column.el deleted file mode 100644 index 2a70cd6..0000000 --- a/guix/kolwynia/home/bdunahu/files/.config/emacs/libraries/fill-column.el +++ /dev/null @@ -1,39 +0,0 @@ -;;; -*- lexical-binding: t; -*- -;;; Commentary: - -;; yanked from https://codeberg.org/daviwil/dotfiles/src/branch/master/emacs - -;;; Code: - - -(defvar fill-column-desired-width 120 - "The desired width of a document centered in the window.") - -(defun fill-column--adjust-margins () - "Resets window margins, then calculates the appropriate -margin given the window width and `fill-column-desired-width' -if fill-column-mode is t." - (set-window-parameter nil 'min-margins nil) - (set-window-margins nil nil) - (when fill-column-mode - (let ((margin-width (max 0 - (truncate - (/ (- (window-width) - fill-column-desired-width) - 2.0))))) - (when (> margin-width 0) - (set-window-parameter nil 'min-margins '(0 . 0)) - (set-window-margins nil margin-width margin-width))))) - -(define-minor-mode fill-column-mode - "Toggle centered text layout in the current buffer." - :lighter " Centered" - :group 'editing - (if fill-column-mode - (add-hook 'window-configuration-change-hook #'fill-column--adjust-margins 'append 'local) - (remove-hook 'window-configuration-change-hook #'fill-column--adjust-margins 'local)) - (fill-column--adjust-margins)) - - -(provide 'fill-column) -;;; fill-column ends here |
