Make fill-column setting language-specific

Add consult-info bind
This commit is contained in:
Evie Litherland-Smith 2023-11-30 13:44:48 +00:00
parent 8e50261afb
commit 2d8253100b
2 changed files with 19 additions and 6 deletions

View file

@ -11,7 +11,6 @@
global-auto-revert-non-file-buffers t global-auto-revert-non-file-buffers t
dired-auto-revert-buffer t dired-auto-revert-buffer t
dired-dwim-target t dired-dwim-target t
fill-column 79
tab-always-indent 'complete tab-always-indent 'complete
completion-cycle-threshold 3 completion-cycle-threshold 3
completions-detailed t completions-detailed t
@ -101,7 +100,6 @@
("C-c j l" . avy-goto-line))) ("C-c j l" . avy-goto-line)))
(setq use-dialog-box nil (setq use-dialog-box nil
fill-column 80
truncate-lines nil truncate-lines nil
truncate-partial-width-windows nil) truncate-partial-width-windows nil)
@ -460,7 +458,6 @@
:hook ((nix-mode :hook ((nix-mode
fortran-mode fortran-mode
shell-script-mode shell-script-mode
markdown-mode
lua-mode lua-mode
python-mode python-mode
python-ts-mode python-ts-mode
@ -558,6 +555,7 @@
("C-c s f" . consult-fd) ("C-c s f" . consult-fd)
("C-c s g" . consult-ripgrep) ("C-c s g" . consult-ripgrep)
("C-c s e" . consult-flymake) ("C-c s e" . consult-flymake)
("C-c s i" . consult-info)
("C-c s t" . consult-theme) ("C-c s t" . consult-theme)
:map minibuffer-local-map :map minibuffer-local-map
("C-r" . consult-history)) ("C-r" . consult-history))
@ -608,6 +606,13 @@
lisp-data-mode lisp-data-mode
rust-mode)) rust-mode))
(defun my/enable-fill-column (col)
"Set and enable fill column"
(set-fill-column col)
(display-fill-column-indicator-mode +1))
(add-hook 'python-mode-hook (lambda () (my/enable-fill-column 88)))
(setq gnus-select-method '(nnrss "http://www.fsf.org/static/fsforg/rss/news.xml")) (setq gnus-select-method '(nnrss "http://www.fsf.org/static/fsforg/rss/news.xml"))
(setq sendmail-program (executable-find "msmtp") (setq sendmail-program (executable-find "msmtp")

View file

@ -19,7 +19,6 @@
global-auto-revert-non-file-buffers t global-auto-revert-non-file-buffers t
dired-auto-revert-buffer t dired-auto-revert-buffer t
dired-dwim-target t dired-dwim-target t
fill-column 79
tab-always-indent 'complete tab-always-indent 'complete
completion-cycle-threshold 3 completion-cycle-threshold 3
completions-detailed t completions-detailed t
@ -131,7 +130,6 @@
* UI * UI
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq use-dialog-box nil (setq use-dialog-box nil
fill-column 80
truncate-lines nil truncate-lines nil
truncate-partial-width-windows nil) truncate-partial-width-windows nil)
@ -551,7 +549,6 @@ For reference information, see [[https://orgmode.com][Org-mode website]]
:hook ((nix-mode :hook ((nix-mode
fortran-mode fortran-mode
shell-script-mode shell-script-mode
markdown-mode
lua-mode lua-mode
python-mode python-mode
python-ts-mode python-ts-mode
@ -672,6 +669,7 @@ For reference information, see [[https://orgmode.com][Org-mode website]]
("C-c s f" . consult-fd) ("C-c s f" . consult-fd)
("C-c s g" . consult-ripgrep) ("C-c s g" . consult-ripgrep)
("C-c s e" . consult-flymake) ("C-c s e" . consult-flymake)
("C-c s i" . consult-info)
("C-c s t" . consult-theme) ("C-c s t" . consult-theme)
:map minibuffer-local-map :map minibuffer-local-map
("C-r" . consult-history)) ("C-r" . consult-history))
@ -729,7 +727,17 @@ For reference information, see [[https://orgmode.com][Org-mode website]]
lisp-data-mode lisp-data-mode
rust-mode)) rust-mode))
#+end_src #+end_src
** Language-specific settings
*** Python
Set fill column to 88 and enable display in python buffers
#+begin_src emacs-lisp :tangle yes
(defun my/enable-fill-column (col)
"Set and enable fill column"
(set-fill-column col)
(display-fill-column-indicator-mode +1))
(add-hook 'python-mode-hook (lambda () (my/enable-fill-column 88)))
#+end_src
* Internet * Internet
** TODO Gnus ** TODO Gnus