Merge pull request takaxp#8 from eikek/tree-slide-content

use `ots-skip-outline-level' in `ots-slide-content'
legalcodes · Jan 12, 2015 · c01b48e · c01b48e
2 parents 6cf6e4e + b7471ef
commit c01b48e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/org-tree-slide.el b/org-tree-slide.el
@@ -268,7 +268,8 @@ Profiles:
     (ots-hide-slide-header)
     (ots-move-to-the-first-heading)
     (org-overview)
-    (org-content)
+    (org-content (if (> org-tree-slide-skip-outline-level 0)
+                     (1- org-tree-slide-skip-outline-level)))
     (message "<<  CONTENT  >>")))
 
 ;;;###autoload