Skip to content

Add option to make the invisible leading stars. #13

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
cadadr wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Add option to make the invisible leading stars. #13

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
e1bde8b
Add option to make the invisible leading stars.
cadadr Oct 28, 2015
20ae470
Use display property instead of invisible.
cadadr Oct 30, 2015
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
26 changes: 21 additions & 5 deletions org-bullets.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -57,6 +57,18 @@ It can contain any number of symbols, which will be repeated."
:group 'org-bullets
:type 'symbol)

(defcustom org-bullets-invisible-leading-stars nil
"Invisible leading stars, instead of hidden via colour.

Instead of making leading stars of headings have the same
colour with background, make them disappear completely. Useful
if the theme used or the contents of `org-bullets-bullet-list'
makes obvious the level of the heading. Be aware that the
distance of the bullets from the left edge of the window will be
identical for all levels."
:group 'org-bullets
:type 'boolean)

(defvar org-bullets-bullet-map
'(keymap
(mouse-1 . org-cycle)
Expand Down Expand Up @@ -99,11 +111,15 @@ Should this be undesirable, one can remove them with
(- (match-end 0) 1)
'face
org-bullets-face-name))
(put-text-property (match-beginning 0)
(- (match-end 0) 2)
'face (list :foreground
(face-attribute
'default :background)))
(if org-bullets-invisible-leading-stars
(put-text-property (match-beginning 0)
(- (match-end 0) 2)
'display '(space . (:width 0)))
(put-text-property (match-beginning 0)
(- (match-end 0) 2)
'face (list :foreground
(face-attribute
'default :background))))
(put-text-property (match-beginning 0)
(match-end 0)
'keymap
Expand Down