Skip to content

Commit db42d6d

Browse files
committed
Define self bitmap
1 parent cd5a7c0 commit db42d6d

File tree

1 file changed

+31
-6
lines changed

1 file changed

+31
-6
lines changed

line-reminder.el

Lines changed: 31 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@
77
;; Description: Line annotation for changed and saved lines.
88
;; Keyword: annotation line number linum reminder highlight display
99
;; Version: 0.4.5
10-
;; Package-Requires: ((emacs "24.4") (indicators "0.0.4"))
10+
;; Package-Requires: ((emacs "24.4") (indicators "0.0.4") (fringe-helper "1.0.1"))
1111
;; URL: https://github.com/jcs-elpa/line-reminder
1212

1313
;; This file is NOT part of GNU Emacs.
@@ -33,6 +33,7 @@
3333
;;; Code:
3434

3535
(require 'cl-lib)
36+
(require 'fringe-helper)
3637

3738
(defgroup line-reminder nil
3839
"Line annotation for changed and saved lines."
@@ -81,12 +82,36 @@
8182
:type 'string
8283
:group 'line-reminder)
8384

85+
(fringe-helper-define 'line-reminder-bitmap nil
86+
"..xxx.."
87+
"..xxx.."
88+
"..xxx.."
89+
"..xxx.."
90+
"..xxx.."
91+
"..xxx.."
92+
"..xxx.."
93+
"..xxx.."
94+
"..xxx.."
95+
"..xxx.."
96+
"..xxx.."
97+
"..xxx.."
98+
"..xxx.."
99+
"..xxx.."
100+
"..xxx.."
101+
"..xxx.."
102+
"..xxx.."
103+
"..xxx.."
104+
"..xxx.."
105+
"..xxx.."
106+
"..xxx..")
107+
84108
(defcustom line-reminder-fringe-placed 'left-fringe
85109
"Line indicators fringe location."
86-
:type 'symbol
110+
:type '(choice (const :tag "On the left fringe" left-fringe)
111+
(const :tag "On the right fringe" right-fringe))
87112
:group 'line-reminder)
88113

89-
(defcustom line-reminder-fringe 'filled-rectangle
114+
(defcustom line-reminder-fringe 'line-reminder-bitmap
90115
"Line indicators fringe symbol."
91116
:type 'symbol
92117
:group 'line-reminder)
@@ -252,9 +277,9 @@ TYPE : type of the propertize sign you want.
252277
LN : Pass is line number for normal sign."
253278
(cl-case type
254279
(normal (if (not ln)
255-
(error "Normal line but with no line number pass in")
256-
;; Just return normal linum format.
257-
(line-reminder--get-propertized-normal-sign ln)))
280+
(error "Normal line but with no line number pass in")
281+
;; Just return normal linum format.
282+
(line-reminder--get-propertized-normal-sign ln)))
258283
(modified (line-reminder--get-propertized-modified-sign))
259284
(saved (line-reminder--get-propertized-saved-sign))))
260285

0 commit comments

Comments
 (0)