[nongnu] elpa/org-tree-slide 78a5c46e55 049/144: Add autoload magic comments

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 78a5c46e55b3ccf5d972c515e00d3bec9547d270
Author: Takaaki ISHIKAWA <takaxp@ieee.org>
Commit: Takaaki ISHIKAWA <takaxp@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  <takaxp@ieee.org>
+
+       * org-tree-slide.el: Add autoload magic comments
+
 2011-12-18  Takaaki ISHIKAWA  <takaxp@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:       takaxp@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.")