From 1fab3900c5abc32bbf96ce88a7dab231b4b4c2e3 Mon Sep 17 00:00:00 2001
From: mattkae <mattkae@protonmail.com>
Date: Sun, 7 May 2023 09:23:16 -0400
Subject: No longer inhibiting splash screen and just highllighting the
 beginning to end of lines

---
 images/true.png | Bin 0 -> 24692 bytes
 lisp/general.el |  13 ++++++++++---
 2 files changed, 10 insertions(+), 3 deletions(-)
 create mode 100644 images/true.png

diff --git a/images/true.png b/images/true.png
new file mode 100644
index 0000000..bd56505
Binary files /dev/null and b/images/true.png differ
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
-- 
cgit v1.2.1