Add shit, apparently UNIX line endings are being stupid

1 files changed, 34 insertions, 0 deletions

@@ -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