branch: elpa/org-tree-slide
commit 362bea826d71fa4df66a5797867ec4be65af12b8
Author: Takaaki ISHIKAWA <tak...@ieee.org>
Commit: Takaaki ISHIKAWA <tak...@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 <tak...@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 <tak...@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
