From eaac9d4843bf87d6e50eeff0a0da349e64d465ec Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 24 Feb 2021 13:00:53 -0600
Subject: Add shit, apparently UNIX line endings are being stupid

---
 early-init.el | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

(limited to 'early-init.el')

diff --git a/early-init.el b/early-init.el
index b8a6c6c..1a26b03 100644
--- a/early-init.el
+++ b/early-init.el
@@ -14,6 +14,7 @@
 
 ;;; Code:
 
+(message "%s..." "Loading early-init.el")
 ;; BOOTSTRAP PACKAGE MANAGEMENT
 (let ((win-app-dir "~/Applications"))
   (dolist (path (list
@@ -85,5 +86,38 @@
 (horizontal-scroll-bar-mode -1)
 (setq-default frame-inhibit-implied-resize t
               frame-resize-pixelwise t)
+(setq-default indicate-empty-lines t)
+(setq-default indicate-buffer-boundaries 'right)
+(setq-default visual-line-fringe-indicators '(left-curly-arrow nil))
+(defun hook--setup-fringes-curly-arrows ()
+  "Set up curly-arrow fringes."
+  (define-fringe-bitmap 'left-curly-arrow
+      [#b11000000
+       #b01100000
+       #b00110000
+       #b00011000])
 
+  (define-fringe-bitmap 'right-curly-arrow
+      [#b00011000
+       #b00110000
+       #b01100000
+       #b11000000]))
+
+(add-hook 'after-init-hook #'hook--setup-fringes-curly-arrows)
+(defun hook--setup-fringes-arrows ()
+  "Setup arrow fringe bitmaps."
+  (define-fringe-bitmap 'left-arrow
+      [#b00000000
+       #b01010100
+       #b01010100
+       #b00000000])
+
+  (define-fringe-bitmap 'right-arrow
+      [#b00000000
+       #b00101010
+       #b00101010
+       #b00000000]))
+
+(add-hook 'after-init-hook #'hook--setup-fringes-arrows)
+(message "%s... Done." "Loading early-init.el")
 ;;; early-init.el ends here
-- 
cgit 1.4.1-21-gabe81