From 74aa9c9e3a7ebc7e142107347b150d1e0adc8065 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 30 Apr 2021 17:36:25 -0500
Subject: Customize fringes

Still to think about: changing the `fringe' face.  Do I want it another color?
Do I even need any buffer boundaries?  Hm....
---
 lisp/acdw.el | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'lisp')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index dcb3967..dac91b7 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -206,6 +206,32 @@ Prompt only if there are unsaved changes."
     (run-at-time sunset-time (* 60 60 24) sunset-command)
     (run-at-time "12:00am" (* 60 60 24) sunset-command)))
 
+(defun acdw/setup-fringes ()
+  "Set up fringes how I likes 'em."
+  (define-fringe-bitmap 'left-curly-arrow
+    [#b01100000
+     #b00110000
+     #b00011000
+     #b00001100]
+    4 8 'center)
+  (define-fringe-bitmap 'right-curly-arrow
+    [#b00000011
+     #b00000110
+     #b00001100
+     #b00011000]
+    4 8 'center)
+  (define-fringe-bitmap 'left-arrow
+    [#b01100000
+     #b01010000]
+    2 8 '(top t))
+  (define-fringe-bitmap 'right-arrow
+    [#b00000011
+     #b00000101]
+    2 8 '(top t))
+  (setq-local indicate-empty-lines nil
+              indicate-buffer-boundaries '((top . right)
+                                           (bottom . right))))
+
 
 ;;; Keymaps
 
-- 
cgit 1.4.1-21-gabe81