[nongnu] elpa/org-tree-slide 362bea826d 077/144: Hide org-clock related code

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 362bea826d71fa4df66a5797867ec4be65af12b8
Author: Takaaki ISHIKAWA <takaxp@ieee.org>
Commit: Takaaki ISHIKAWA <takaxp@ieee.org>

    Hide org-clock related code
---
 ChangeLog         |  5 +++++
 README.org        |  1 +
 org-tree-slide.el | 22 ++++++----------------
 3 files changed, 12 insertions(+), 16 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 3289b3c4dd..b4a00e535b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-27  Takaaki ISHIKAWA  <takaxp@ieee.org>
+
+       * org-tree-slide.el: Hide org-clock related code
+       - To reduce loading time, org-clock related code was hidden.
+
 2015-02-20  Takaaki ISHIKAWA  <takaxp@ieee.org>
 
        * org-tree-slide.el: Default keymap was changed
diff --git a/README.org b/README.org
index dfa62def11..4fa6106ec7 100644
--- a/README.org
+++ b/README.org
@@ -228,6 +228,7 @@ see also ChangeLog
 
|---------+------------------+-------------------------------------------------|
 | Version | Date             | Description                                     
|
 
|---------+------------------+-------------------------------------------------|
+| v2.8.1  | 2015-02-27@10:42 | Hide org-clock related code                     
|
 | v2.8.0  | 2015-02-20@21:27 | Changed Keymap, and renamed/added hooks         
|
 | v2.7.5  | 2015-02-15@16:29 | Replace ots- with org-tree-slide--              
|
 | v2.7.4  | 2015-02-14@23:30 | Refine displaying slide number in modeline      
|
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 7a5f0ca2cf..63d3ef9532 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -66,9 +66,9 @@
 
 (require 'org)
 (require 'org-timer)
-(require 'org-clock)                   ; org-clock-in, -out, -clocking-p
+;;(require 'org-clock)                 ; org-clock-in, -out, -clocking-p
 
-(defconst org-tree-slide "2.8.0"
+(defconst org-tree-slide "2.8.1"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -412,10 +412,7 @@ Profiles:
       (org-tree-slide--outline-next-heading))
      ;; stay the same slide (for CONTENT MODE, on the subtrees)
      (t nil))
-    (when (and org-tree-slide-skip-done
-              (looking-at (concat "^\\*+ " org-not-done-regexp)))
-      ;; (org-clock-in)
-      )
+;;    (when (and org-tree-slide-skip-done (looking-at (concat "^\\*+ " 
org-not-done-regexp))) (org-clock-in) )
     (org-tree-slide--display-tree-with-narrow)))
 
 (defun org-tree-slide-move-previous-tree ()
@@ -434,10 +431,7 @@ Profiles:
       (org-tree-slide--outline-previous-heading)
       (org-tree-slide--outline-previous-heading))
      (t (org-tree-slide--outline-previous-heading)))
-    (when (and org-tree-slide-skip-done
-              (looking-at (concat "^\\*+ " org-not-done-regexp)))
-      ;; (org-clock-in)
-      )
+;;    (when (and org-tree-slide-skip-done (looking-at (concat "^\\*+ " 
org-not-done-regexp))) (org-clock-in) )
     (org-tree-slide--display-tree-with-narrow)
     ;; To avoid error of missing header in Emacs24
     (if (= emacs-major-version 24)
@@ -514,14 +508,10 @@ Profiles:
          (t nil)))
   (org-tree-slide--hide-slide-header)
   (when org-timer-start-time
-      (org-timer-stop))
+    (org-timer-stop))
   (when org-tree-slide-heading-emphasis
     (org-tree-slide--apply-custom-heading-face nil))
-  (when (and org-tree-slide-skip-done
-            (looking-at (concat "^\\*+ " org-not-done-regexp)))
-    (when (org-clocking-p)
-      ;; (org-clock-out)
-      ))
+;;  (when (and org-tree-slide-skip-done (looking-at (concat "^\\*+ " 
org-not-done-regexp))) (when (org-clocking-p) (org-clock-out) ) )
   (run-hooks 'org-tree-slide-mode-stop-hook)
   (run-hooks 'org-tree-slide-stop-hook)
   (when org-tree-slide-deactivate-message