Skip to content

Commit

Permalink
Differentiate between resolved and unresolved breakpoints
Browse files Browse the repository at this point in the history
Unresolved breakpoints are displayed using a hallow icon instead of a plain
icon.

* indium-breakpoint.el: (indium-breakpoint--add-overlay):
(indium-breakpoint--fringe-icon): Use a hallow icon for unresolved breakpoints.
  • Loading branch information
NicolasPetton committed Jul 25, 2018
1 parent 316e4fd commit 308eff0
Showing 1 changed file with 11 additions and 6 deletions.
17 changes: 11 additions & 6 deletions indium-breakpoint.el
Original file line number Diff line number Diff line change
Expand Up @@ -120,7 +120,7 @@ An icon is added to the left fringe."
(let ((ov (indium-breakpoint--ensure-overlay)))
(overlay-put ov
'before-string
(indium-breakpoint--fringe-icon))
(indium-breakpoint--fringe-icon breakpoint))
(overlay-put ov
'indium-breakpoint
breakpoint)
Expand Down Expand Up @@ -187,10 +187,13 @@ An icon is added to the left fringe."
(indium-backend-register-breakpoint (indium-current-connection-backend)
brk)))))

(defun indium-breakpoint--fringe-icon ()
"Return the fringe icon used for breakpoints."
(defun indium-breakpoint--fringe-icon (breakpoint)
"Return the fringe icon used for BREAKPOINT."
(propertize "b" 'display
(list 'left-fringe 'indium-breakpoint 'indium-breakpoint-face)))
(list 'left-fringe (if (indium-breakpoint-resolved breakpoint)
'indium-breakpoint-resolved
'indium-breakpoint-unresolved)
'indium-breakpoint-face)))

(defun indium-breakpoint--overlay-on-current-line ()
"Return the breakpoint overlay on the current-line.
Expand Down Expand Up @@ -233,8 +236,10 @@ overlay."
(funcall fn brk ov)))))

(when (and (fboundp 'define-fringe-bitmap) (display-images-p))
(define-fringe-bitmap 'indium-breakpoint
"\x3c\x7e\xff\xff\xff\xff\x7e\x3c"))
(define-fringe-bitmap 'indium-breakpoint-resolved
"\x3c\x7e\xff\xff\xff\xff\x7e\x3c")
(define-fringe-bitmap 'indium-breakpoint-unresolved
"\x3c\x42\x81\x81\x81\x81\x42\x3c"))

(provide 'indium-breakpoint)
;;; indium-breakpoint.el ends here

0 comments on commit 308eff0

Please sign in to comment.