lucas/dotfiles
1
0
Fork 0
Code Activity

fix(emacs): make org variable-pitch and tune display-line-numbers

Browse source 
Signed-off-by: Lucas Sta Maria <lucas@priime.dev>
This commit is contained in:
Lucas Sta Maria 2024-11-03 19:04:17 -05:00
parent 54f5683b3b
commit 7e2050e1d2
No known key found for this signature in database
GPG key ID: F07FB16A826E3B47
2 changed files with 18 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

24
.emacs.d/include/priime-general.el
View file

@ -61,16 +61,22 @@
(let ((amt (or arg 1))) (let ((amt (or arg 1)))
(scroll-right amt))) (scroll-right amt)))
(defun priime-display-relative ()
"Display relative line numbers."
(display-line-numbers-mode 1)
(setq display-line-numbers 'relative))
(defun priime-display-fixed ()
"Display fixed line numbers."
(display-line-numbers-mode 1)
(setq display-line-numbers t))
(defun priime-toggle-line-numbers () (defun priime-toggle-line-numbers ()
"Toggle the display of line numbers." "Toggle the display of line numbers."
(interactive) (interactive)
(cond ((equal display-line-numbers t) (cond ((equal display-line-numbers t) (priime-display-relative))
(setq display-line-numbers 'relative)) ((equal display-line-numbers 'relative) (priime-display-fixed))
((equal display-line-numbers 'relative) (t (priime-display-fixed))))
(setq display-line-numbers t))
(t
(display-line-numbers-mode 1)
(setq display-line-numbers t))))
(defun download-file (&optional url filepath) (defun download-file (&optional url filepath)
"Download the file from URL to FILEPATH." "Download the file from URL to FILEPATH."
@ -105,7 +111,6 @@
(visible-bell nil) (visible-bell nil)
(ring-bell-function 'ignore) (ring-bell-function 'ignore)
(initial-scratch-message nil) (initial-scratch-message nil)
(display-line-numbers 'relative)
(split-height-threshold (split-height-threshold
(cond ((string= (system-name) "framework") 100) (cond ((string= (system-name) "framework") 100)
(t 80))) (t 80)))
@ -145,6 +150,9 @@
(("C-v" . View-scroll-half-page-forward) (("C-v" . View-scroll-half-page-forward)
("M-v" . View-scroll-half-page-backward)) ("M-v" . View-scroll-half-page-backward))
:hook
((prog-mode . priime-display-relative))
:init :init
(menu-bar-mode -1) (menu-bar-mode -1)
(tool-bar-mode -1) (tool-bar-mode -1)

3
.emacs.d/include/priime-org.el
View file

@ -126,7 +126,8 @@
:hook :hook
((org-mode . auto-save-mode) ((org-mode . auto-save-mode)
(auto-save . org-save-all-org-buffers) (auto-save . org-save-all-org-buffers)
(org-agenda-finalize-hook . org-modern-agenda)) (org-agenda-finalize-hook . org-modern-agenda)
(org-mode . variable-pitch-mode))
:init :init
(keymap-global-set "C-c o" org-roam-keymap) (keymap-global-set "C-c o" org-roam-keymap)
(org-babel-do-load-languages (org-babel-do-load-languages