none in fragment style list to disable list item's fragment.

hexmode · Feb 25, 2015 · 07900f2 · 07900f2
1 parent 220eaeb
commit 07900f2
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 6 deletions.
diff --git a/Readme.org b/Readme.org
@@ -324,18 +324,23 @@ $ git clone https://github.com/yjwen/org-reveal.git
     To define fragment styles for every list item, please enumerate
     each item's style within parenthesis.
 #+BEGIN_SRC org
-,#+ATTR_REVEAL: :frag (grow shrink roll-in fade-out)
+,#+ATTR_REVEAL: :frag (grow shrink roll-in fade-out none)
    * I will grow.
    * I will shrink.
    * I rolled in.
    * I will fade out.
+   * I don't fragment.
 #+END_SRC
 
-#+ATTR_REVEAL: :frag (grow shrink roll-in fade-out)
+    ~none~ in the style list will disable fragment for the
+    corresponding list item.
+
+#+ATTR_REVEAL: :frag (grow shrink roll-in fade-out none)
    * I will grow.
    * I will shrink.
    * I rolled in.
    * I will fade out.
+   * I don't fragment.
 
 ** Data State
    :PROPERTIES:

diff --git a/ox-reveal.el b/ox-reveal.el
@@ -821,10 +821,11 @@ transformed fragment attribute to ELEM's attr_html plist."
              (lambda (item frag)
                "Overwrite item's `:checkbox' property with
                reveal's fragment attribute."
-               (org-element-put-property
-                item :checkbox
-                (intern (cond ((string= frag t) "fragment")
-                              (t (format "fragment %s" frag))))))
+               (and (not (string= frag "none"))
+                    (org-element-put-property
+                     item :checkbox
+                     (intern (cond ((string= frag t) "fragment")
+                                   (t (format "fragment %s" frag)))))))
              (org-element-contents elem)
              (car (read-from-string frag-attr))))
            (t