Draw org-mode bullets on margin

This is a simple function that substitutes org-indent--compute-prefixes function from the org-indent package. Paired with org-hide-leading-stars configuration variable or properly configured org-superstar-mode package, can produce really nice-looking headlines.

Install

(use-package org-margin-bullet
  :config (org-margin-bullet-load))

Doom emacs

Package recipe:

(package! org-margin-bullet
  :recipe (:repo "mskorzhinskiy/org-margin-bullet"
           :host github :branch "main"))

Usage and example configuration

Style 1

(use-package org-superstar
  :hook (org-mode . org-superstar-mode)
  :config
  (setq org-superstar-headline-bullets-list '(("  " . "x")))
  (setq org-superstar-leading-bullet " ")
  (setq org-hide-leading-stars nil)
  (setq org-superstar-special-todo-items t)
  (setq org-superstar-todo-bullet-alist
        '(("TODO" "☐ ")
          ("NEXT" "☐ ")
          ("DONE" "☑ "))))

(set-ligatures! 'org-mode
    :alist '(("TODO " . "")
             ("DONE " . "")))

Style 2

Notice that first several headline levels are exactly on the same line.

Moving things around also works wonderful:

(use-package org-superstar
  :hook (org-mode . org-superstar-mode)
  :config
  (setq org-superstar-headline-bullets-list '(("  " . "x")))
  (setq org-superstar-leading-bullet "")
  (setq org-hide-leading-stars nil)
  (setq org-superstar-special-todo-items t)
  (setq org-superstar-todo-bullet-alist
        '(("TODO" "☐ ")
          ("NEXT" "☐ ")
          ("DONE" "☑ "))))

(set-ligatures! 'org-mode
    :alist '(("TODO " . "")
             ("DONE " . "")))