|
7 | 7 | ;; Description: Line annotation for changed and saved lines. |
8 | 8 | ;; Keyword: annotation line number linum reminder highlight display |
9 | 9 | ;; 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")) |
11 | 11 | ;; URL: https://github.com/jcs-elpa/line-reminder |
12 | 12 |
|
13 | 13 | ;; This file is NOT part of GNU Emacs. |
|
33 | 33 | ;;; Code: |
34 | 34 |
|
35 | 35 | (require 'cl-lib) |
| 36 | +(require 'fringe-helper) |
36 | 37 |
|
37 | 38 | (defgroup line-reminder nil |
38 | 39 | "Line annotation for changed and saved lines." |
|
81 | 82 | :type 'string |
82 | 83 | :group 'line-reminder) |
83 | 84 |
|
| 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 | + |
84 | 108 | (defcustom line-reminder-fringe-placed 'left-fringe |
85 | 109 | "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)) |
87 | 112 | :group 'line-reminder) |
88 | 113 |
|
89 | | -(defcustom line-reminder-fringe 'filled-rectangle |
| 114 | +(defcustom line-reminder-fringe 'line-reminder-bitmap |
90 | 115 | "Line indicators fringe symbol." |
91 | 116 | :type 'symbol |
92 | 117 | :group 'line-reminder) |
@@ -252,9 +277,9 @@ TYPE : type of the propertize sign you want. |
252 | 277 | LN : Pass is line number for normal sign." |
253 | 278 | (cl-case type |
254 | 279 | (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))) |
258 | 283 | (modified (line-reminder--get-propertized-modified-sign)) |
259 | 284 | (saved (line-reminder--get-propertized-saved-sign)))) |
260 | 285 |
|
|
0 commit comments