# HG changeset patch # User Zachary Kanfer # Date 1518587418 18000 # Wed Feb 14 00:50:18 2018 -0500 # Node ID 65d0855fd53e84e122e60e9a17863547858b5313 # Parent 30f08346a9eb2fcf54be1f22e6e01f8e1d273e01 make a way to not hav a bullet. diff --git a/zpresent.el b/zpresent.el --- a/zpresent.el +++ b/zpresent.el @@ -276,6 +276,7 @@ ("*" ?*) (")" ?\)) ("." ?.) + ("none" ?\s) (_ (gethash :bullet-type structure))))) (defun zpresent--format-bullet (structure prior-siblings &optional parent-structure) @@ -611,6 +612,7 @@ (insert (propertize (make-string (window-total-height) ?\n) 'face 'zpresent-base))) (face-spec-set 'zpresent-whole-screen-face + ;;we don't get the new properties from the children! `((t . (:background ,(if-let ((background-color (alist-get "background-color" (gethash :properties slide) nil nil #'equal))) background-color