diff options
| author | mattkae <mattkae@protonmail.com> | 2023-05-07 09:23:16 -0400 |
|---|---|---|
| committer | mattkae <mattkae@protonmail.com> | 2023-05-07 09:23:16 -0400 |
| commit | 1fab3900c5abc32bbf96ce88a7dab231b4b4c2e3 (patch) | |
| tree | bc401124ef59ac250c91aaa890eeafe4b20067b5 | |
| parent | de90342ba536efc697a6a9ce7a96a42cfceea768 (diff) | |
No longer inhibiting splash screen and just highllighting the beginning to end of lines
| -rw-r--r-- | images/true.png | bin | 0 -> 24692 bytes | |||
| -rw-r--r-- | lisp/general.el | 13 |
2 files changed, 10 insertions, 3 deletions
diff --git a/images/true.png b/images/true.png Binary files differnew file mode 100644 index 0000000..bd56505 --- /dev/null +++ b/images/true.png diff --git a/lisp/general.el b/lisp/general.el index a48cf7c..b6db8b7 100644 --- a/lisp/general.el +++ b/lisp/general.el @@ -73,9 +73,8 @@ (setq-default right-fringe-width 20) ;; Initialization screen -(setq inhibit-splash-screen t) -(setq initial-scratch-message "* Scratch") -(setq initial-major-mode 'org-mode) +(setq fancy-splash-image "~/.emacs.d/images/true.png") + ;; Highlight todos (use-package hl-todo @@ -150,6 +149,14 @@ :box '(:line-width -1 :color "gray90" :style nil)) +(defun visual-line-range () + """Purpose is to only highlight the visual line even when the real line wraps. (Source: https://stackoverflow.com/questions/31541907/highlight-a-single-line-in-a-larger-word-wrapped-line)""" + (save-excursion + (cons + (progn (beginning-of-visual-line) (point)) + (progn (end-of-visual-line) (point))))) + +(setq hl-line-range-function 'visual-line-range) ;; Git |
