-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathinit_fringe-current-line.el
62 lines (55 loc) · 1.93 KB
/
init_fringe-current-line.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
;;; init_fringe-current-line.el --- Bimap in fringe of line with point
;; ==============================================================================
;; Fringe Current Line Set Up
;; ==============================================================================
;; Written by Jeff Russell
;; Updated: 2020-12-16 1109
;; jpowellrussell.com
;; ------------------------------------------------------------------------------
;;; Commentary:
;; Package that puts a bitmap in the fringe to show the currently used line.
;;; Code:
(use-package fringe-current-line
:straight t
:config
(global-fringe-current-line-mode 1)
(defcustom fringe-current-line-indicator-bitmap
(if (fboundp 'define-fringe-bitmap)
(define-fringe-bitmap 'fringe-current-line-indicator-bitmap
(vector #b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111
#b00000111))
'vertical-bar)
"A more prominent fringe bitmap, modeled on the Treemacs one."
:type 'fringe-bitmap
:options (if (fboundp 'fringe-bitmaps)
(cons 'fringe-current-line-indicator-bitmap fringe-bitmaps)
nil)
:group 'fringe-current-line)
(setq fcl-fringe-bitmap fringe-current-line-indicator-bitmap)
)
(provide 'init_fringe-current-line)
;;; init_fringe-current-line.el ends here