summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-04-30 17:36:25 -0500
committerCase Duckworth2021-04-30 17:36:25 -0500
commit74aa9c9e3a7ebc7e142107347b150d1e0adc8065 (patch)
tree9eb2a8fbb6e434041e2c44d4af79d97c891900ce /lisp
parentMove emoji font configuration to the initial frame setup function (diff)
downloademacs-74aa9c9e3a7ebc7e142107347b150d1e0adc8065.tar.gz
emacs-74aa9c9e3a7ebc7e142107347b150d1e0adc8065.zip
Customize fringes
Still to think about: changing the `fringe' face.  Do I want it another color?
Do I even need any buffer boundaries?  Hm....
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw.el26
1 files changed, 26 insertions, 0 deletions
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."
206 (run-at-time sunset-time (* 60 60 24) sunset-command) 206 (run-at-time sunset-time (* 60 60 24) sunset-command)
207 (run-at-time "12:00am" (* 60 60 24) sunset-command))) 207 (run-at-time "12:00am" (* 60 60 24) sunset-command)))
208 208
209(defun acdw/setup-fringes ()
210 "Set up fringes how I likes 'em."
211 (define-fringe-bitmap 'left-curly-arrow
212 [#b01100000
213 #b00110000
214 #b00011000
215 #b00001100]
216 4 8 'center)
217 (define-fringe-bitmap 'right-curly-arrow
218 [#b00000011
219 #b00000110
220 #b00001100
221 #b00011000]
222 4 8 'center)
223 (define-fringe-bitmap 'left-arrow
224 [#b01100000
225 #b01010000]
226 2 8 '(top t))
227 (define-fringe-bitmap 'right-arrow
228 [#b00000011
229 #b00000101]
230 2 8 '(top t))
231 (setq-local indicate-empty-lines nil
232 indicate-buffer-boundaries '((top . right)
233 (bottom . right))))
234
209 235
210;;; Keymaps 236;;; Keymaps
211 237