branch: elpa/org-tree-slide
commit 78a5c46e55b3ccf5d972c515e00d3bec9547d270
Author: Takaaki ISHIKAWA <tak...@ieee.org>
Commit: Takaaki ISHIKAWA <tak...@ieee.org>
Add autoload magic comments
---
ChangeLog | 4 ++++
README.org | 17 +++++++++++++++--
org-tree-slide.el | 32 ++++++++++++++++++++++----------
3 files changed, 41 insertions(+), 12 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 2679701550..d26bbf5529 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2012-01-11 Takaaki ISHIKAWA <tak...@ieee.org>
+
+ * org-tree-slide.el: Add autoload magic comments
+
2011-12-18 Takaaki ISHIKAWA <tak...@ieee.org>
* org-tree-slide.el (org-tree-slide-move-next-tree): Fix a bug
diff --git a/README.org b/README.org
index 4c73739318..2c752fa370 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
#+AUTHOR: Takaaki Ishikawa
#+EMAIL: tak...@ieee.org
#+STARTUP: content
-#+Last Update: 2011-12-18@10:58
+#+Last Update: 2012-01-11@23:02
* 1. What's this?
@@ -35,6 +35,18 @@ OR
Then open an org file, just type =<right>= and =<left>=. A presentation will
begin with a header, slide-in effect, and slide number.
+** el-get recipe
+
+If you are an [[https://github.com/dimitri/el-get][el-get]] user, please use
this recipe.
+
+#+BEGIN_SRC emacs-lisp
+(:name org-tree-slide
+ :description "A presentation tool for org-mode"
+ :type git
+ :url "git://github.com/takaxp/org-tree-slide.git"
+ :required nil)
+#+END_SRC
+
** 2.1 Requirements
- Org-mode 6.33x or higher version is required.
- This elisp doesn't require any additional packages.
@@ -91,7 +103,7 @@ Type =M-x org-tree-slide-simple-profile= while
=org-tree-slide-mode= is ON.
This profile is used as the default setting of org-tree-slide. If an org
buffer includes =#+TITLE:=, =#+EMAIL:=, and =#+AUTHOR:=, org-tree-slide
attempts to use those variables in the slide header. A date in the header will
be set with the presentation of the day. You can enjoy a slide-in effect, the
current slide number in mode line. A presentation with a count down timer is
started by =M-x org-tree-slide-play-with-timer=.
-If you want to show the content of your presentation, type =C-x s c= or =M-x
org-tree-slide-content=. All of the headers will be shown like a Table Of
Content. Find a heading that you want to show, and type =<right>=, the
presentation will be resumed.
+If you want to show the content of your presentation, type =C-x s c= or =M-x
org-tree-slide-content=. All of the headings will be shown like a Table Of
Content. Find a heading that you want to show, and type =<right>=, the
presentation will be resumed.
It is possible to skip slides when a heading level is higher than or equal to
a value of =org-tree-slide-skip-outline-level=. see User variables.
@@ -203,6 +215,7 @@ see also ChangeLog
|---------+------------------+-----------------------------------------------|
| Version | Date | Description |
|---------+------------------+-----------------------------------------------|
+| v2.5.4 | 2012-01-11@23:02 | Add autoload magic comments |
| v2.5.3 | 2011-12-18@00:50 | Fix a bug for an org buffer without header |
| v2.5.2 | 2011-12-17@17:52 | Set presentation profile as the default |
| v2.5.1 | 2011-12-17@13:34 | org-tree-slide-skip-done set nil as default |
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 1e83a26de6..332595015c 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -64,7 +64,7 @@
(require 'org-timer)
(require 'org-clock) ; org-clock-in, -out, -clocking-p
-(defconst org-tree-slide "2.5.3"
+(defconst org-tree-slide "2.5.4"
"The version number of the org-tree-slide.el")
(defgroup org-tree-slide nil
@@ -160,6 +160,8 @@
(defvar org-tree-slide-mode-hook nil)
(defvar display-tree-slide-string nil)
+
+;;;###autoload
(define-minor-mode org-tree-slide-mode
"A presentation tool for org-mode.
@@ -213,15 +215,7 @@ Profiles:
(run-hooks 'org-mode-slide-mode-hook))
(ots-abort)))
-(defvar ots-slide-number " TSlide")
-(defun ots-update-modeline ()
- (cond ((equal org-tree-slide-modeline-display 'lighter)
- (if (and (ots-active-p) (org-on-heading-p))
- (setq ots-slide-number (format " %s" (ots-count-slide (point))))
- ots-slide-number))
- ((equal org-tree-slide-modeline-display 'outside) "")
- (t " TSlide")))
-
+;;;###autoload
(defun org-tree-slide-play-with-timer ()
"Start slideshow with setting a count down timer."
(interactive)
@@ -229,6 +223,7 @@ Profiles:
(unless (ots-active-p)
(org-tree-slide-mode)))
+;;;###autoload
(defun org-tree-slide-without-init-play ()
"Start slideshow without the init play. Just enter org-tree-slide-mode."
(interactive)
@@ -237,6 +232,7 @@ Profiles:
(org-overview)
(goto-char 1))
+;;;###autoload
(defun org-tree-slide-content ()
"Change the display for viewing content of the org file during
the slide view mode is active."
@@ -248,6 +244,7 @@ Profiles:
(org-content)
(message "<< CONTENT >>")))
+;;;###autoload
(defun org-tree-slide-simple-profile ()
"Set variables for simple use.
`org-tree-slide-header' => nil
@@ -266,6 +263,7 @@ Profiles:
(setq org-tree-slide-skip-done nil)
(message "simple profile: ON"))
+;;;###autoload
(defun org-tree-slide-presentation-profile ()
"Set variables for presentation use.
`org-tree-slide-header' => t
@@ -284,6 +282,7 @@ Profiles:
(setq org-tree-slide-skip-done nil)
(message "presentation profile: ON"))
+;;;###autoload
(defun org-tree-slide-narrowing-control-profile ()
"Set variables for TODO pursuit with narrowing.
`org-tree-slide-header' => nil
@@ -302,6 +301,7 @@ Profiles:
(setq org-tree-slide-skip-done t)
(message "narrowing control profile: ON"))
+;;;###autoload
(defun org-tree-slide-display-header-toggle ()
"Toggle displaying the slide header"
(interactive)
@@ -310,18 +310,21 @@ Profiles:
(ots-hide-slide-header))
(ots-display-tree-with-narrow))
+;;;###autoload
(defun org-tree-slide-slide-in-effect-toggle ()
"Toggle using slide-in effect"
(interactive)
(setq org-tree-slide-slide-in-effect (not org-tree-slide-slide-in-effect))
(ots-display-tree-with-narrow))
+;;;###autoload
(defun org-tree-slide-heading-emphasis-toggle ()
"Toggle applying emphasis to heading"
(interactive)
(setq org-tree-slide-heading-emphasis (not org-tree-slide-heading-emphasis))
(ots-apply-custom-heading-face org-tree-slide-heading-emphasis))
+;;;###autoload
(defun org-tree-slide-skip-done-toggle ()
"Toggle show TODO item only or not"
(interactive)
@@ -375,6 +378,15 @@ Profiles:
;;; Internal functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(defvar ots-slide-number " TSlide")
+(defun ots-update-modeline ()
+ (cond ((equal org-tree-slide-modeline-display 'lighter)
+ (if (and (ots-active-p) (org-on-heading-p))
+ (setq ots-slide-number (format " %s" (ots-count-slide (point))))
+ ots-slide-number))
+ ((equal org-tree-slide-modeline-display 'outside) "")
+ (t " TSlide")))
+
(defvar ots-header-overlay nil
"Flag to check the status of overlay for a slide header.")
