New Upstream Snapshot - org-tree-slide
Ready changes
Summary
Merged new upstream version: 2.8.16+git20221017.d6529bc (was: 2.8.16+git20201215.d6e8e91).
Resulting package
Built on 2022-10-26T01:29 (took 6m1s)
The resulting binary packages can be installed (if you have the apt repository enabled) by running one of:
apt install -t fresh-snapshots elpa-org-tree-slide
Lintian Result
Diff
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..ed45a5d
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,4 @@
+README.html
+index.html
+*.elc
+.DS_Store
diff --git a/README.org b/README.org
index 2fa18e8..d326628 100644
--- a/README.org
+++ b/README.org
@@ -1,7 +1,7 @@
#+title: README for Org Tree Slide
#+author: Takaaki Ishikawa
#+email: takaxp@ieee.org
-#+date: [2020-06-05 Fri 23:39]
+#+date: [2021-10-10 Sun 02:05]
#+startup: content
[[http://melpa.org/#/org-tree-slide][http://melpa.org/packages/org-tree-slide-badge.svg]]
@@ -247,7 +247,35 @@ These functions will toggle =org-tree-slide-mode= ON, automatically.
NOTE: For senior user, some hook were renamed, please update your configurations
-* 7. History
+* 7. Additional settings
+** Hide org-meta-line
+
+The following code could be useful if you want to make =#+= lines invisible during presentation.
+
+#+begin_src emacs-lisp
+(with-eval-after-load "org-tree-slide"
+ (defvar my-hide-org-meta-line-p nil)
+ (defun my-hide-org-meta-line ()
+ (interactive)
+ (setq my-hide-org-meta-line-p t)
+ (set-face-attribute 'org-meta-line nil
+ :foreground (face-attribute 'default :background)))
+ (defun my-show-org-meta-line ()
+ (interactive)
+ (setq my-hide-org-meta-line-p nil)
+ (set-face-attribute 'org-meta-line nil :foreground nil))
+
+ (defun my-toggle-org-meta-line ()
+ (interactive)
+ (if my-hide-org-meta-line-p
+ (my-show-org-meta-line) (my-hide-org-meta-line)))
+
+ (add-hook 'org-tree-slide-play-hook #'my-hide-org-meta-line)
+ (add-hook 'org-tree-slide-stop-hook #'my-show-org-meta-line))
+#+end_src
+
+
+* 8. History
see also [[https://github.com/takaxp/org-tree-slide/blob/master/ChangeLog][ChangeLog]] for details
@@ -264,7 +292,15 @@ see also [[https://github.com/takaxp/org-tree-slide/blob/master/ChangeLog][Chang
| v2.0.0 | 2011-12-01@17:41 | Add profiles and support org 6.33x |
| v1.0.0 | 2011-09-28@20:59 | Release the initial version |
-* 8. Contact
+* 9. Contact
The author is Takaaki ISHIKAWA (takaxp@ieee.org).
Feel free to email me or use a mention of twitter ([[https://twitter.com/#!/takaxp][@takaxp]])
+
+* 10. Videos
+
+We can watch some videos that kindly introduce =org-tree-slide.el=:
+- [[https://www.youtube.com/watch?v=vz9aLmxYJB0][Emacs Tips - How to Give Presentations with Org Mode]] (presented by [[https://www.youtube.com/channel/UCAiiOTio8Yu69c3XnR7nQBQ][System Crafters]])
+- [[https://www.youtube.com/watch?v=uSwJQIGMyPk][Show presentation using Org Mode]] (presented by [[https://www.youtube.com/channel/UC0ds7DW6IIl7mXcyz5vMEHQ][Blackberry Boy]])
+
+Thank you!
diff --git a/debian/changelog b/debian/changelog
index 11fa2e2..44e93ea 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+org-tree-slide (2.8.16+git20221017.d6529bc-1) UNRELEASED; urgency=low
+
+ * New upstream snapshot.
+
+ -- Debian Janitor <janitor@jelmer.uk> Wed, 26 Oct 2022 01:25:26 -0000
+
org-tree-slide (2.8.16+git20201215.d6e8e91-2) unstable; urgency=medium
* Source-only upload
diff --git a/org-tree-slide.el b/org-tree-slide.el
index bb83faa..4bc0480 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -3,8 +3,8 @@
;; Copyright (C) 2011-2020 Takaaki ISHIKAWA
;;
;; Author: Takaaki ISHIKAWA <takaxp at ieee dot org>
-;; Version: 2.8.16
-;; Package-Requires: ((emacs "24.3"))
+;; Version: 2.8.18
+;; Package-Requires: ((emacs "24.4"))
;; Maintainer: Takaaki ISHIKAWA <takaxp at ieee dot org>
;; Twitter: @takaxp
;; URL: https://github.com/takaxp/org-tree-slide
@@ -78,7 +78,7 @@
(require 'org)
(require 'org-timer)
-(defconst org-tree-slide "2.8.16"
+(defconst org-tree-slide "2.8.18"
"The version number of the org-tree-slide.el.")
(defgroup org-tree-slide nil
@@ -123,10 +123,10 @@ When nil, the body of the subtrees will be revealed."
:group 'org-tree-slide)
(defcustom org-tree-slide-cursor-init t
- "Specify a cursor position when exit slideshow.
+ "Specify a cursor position at start and exit of the slideshow.
Non-nil: the cursor will move automatically to the head of buffer.
-nil: keep the same position."
+nil: keep the same position. The slideshow will start from the heading that has the cursor."
:type 'boolean
:group 'org-tree-slide)
@@ -200,45 +200,30 @@ If you want to show anything, just specify nil."
map)
"The keymap for `org-tree-slide'.")
-(defface org-tree-slide-heading-level-1-init
- '((t (:inherit outline-1)))
+(defcustom org-tree-slide-heading-level-1
+ '(outline-1 :height 1.5 bold)
"Level 1."
:group 'org-tree-slide)
-(defface org-tree-slide-heading-level-2-init
- '((t (:inherit outline-2)))
+(defcustom org-tree-slide-heading-level-2
+ '(outline-2 :height 1.4 bold)
"Level 2."
:group 'org-tree-slide)
-(defface org-tree-slide-heading-level-3-init
- '((t (:inherit outline-3)))
+(defcustom org-tree-slide-heading-level-3
+ '(outline-3 :height 1.3 bold)
"Level 3."
:group 'org-tree-slide)
-(defface org-tree-slide-heading-level-4-init
- '((t (:inherit outline-4)))
+(defcustom org-tree-slide-heading-level-4
+ '(outline-4 :height 1.2 bold)
"Level 4."
:group 'org-tree-slide)
-(defface org-tree-slide-heading-level-1
- '((t (:inherit outline-1 :height 1.5 :bold t)))
- "Level 1."
- :group 'org-tree-slide)
-
-(defface org-tree-slide-heading-level-2
- '((t (:inherit outline-2 :height 1.4 :bold t)))
- "Level 2."
- :group 'org-tree-slide)
-
-(defface org-tree-slide-heading-level-3
- '((t (:inherit outline-3 :height 1.3 :bold t)))
- "Level 3."
- :group 'org-tree-slide)
-
-(defface org-tree-slide-heading-level-4
- '((t (:inherit outline-4 :height 1.2 :bold t)))
- "Level 4."
- :group 'org-tree-slide)
+(defvar-local org-tree-slide-heading-level-1-cookie nil)
+(defvar-local org-tree-slide-heading-level-2-cookie nil)
+(defvar-local org-tree-slide-heading-level-3-cookie nil)
+(defvar-local org-tree-slide-heading-level-4-cookie nil)
(defvar org-tree-slide-mode nil)
(defvar org-tree-slide-play-hook nil
@@ -258,7 +243,7 @@ If you want to show anything, just specify nil."
;;;###autoload
(define-minor-mode org-tree-slide-mode
- "A presentation tool for org-mode.
+ "A presentation tool for Org Mode.
Usage:
- Set minimal recommendation settings in .emacs
@@ -272,7 +257,7 @@ Usage:
Profiles:
- [ Simple ]
- => M-x `org-tree-slide-simple-profile'
+ => \\`M-x org-tree-slide-simple-profile'
1. No header display
2. No slide-in effect
@@ -281,7 +266,7 @@ Profiles:
5. Display every type of tree
- [ Presentation ]
- => M-x `org-tree-slide-presentation-profile'
+ => \\`M-x org-tree-slide-presentation-profile'
1. Display header
2. Enable slide-in effect
@@ -290,14 +275,13 @@ Profiles:
5. Display every type of tree
- [ TODO Pursuit with narrowing ]
- => M-x `org-tree-slide-narrowing-control-profile'
+ => \\`M-x org-tree-slide-narrowing-control-profile'
1. No header display
2. No slide-in effect
3. The cursor will keep the same position when exit
4. Display slide number in mode line
- 5. Display TODO trees only
-"
+ 5. Display TODO trees only"
:init-value nil
:lighter (:eval (org-tree-slide--update-modeline))
:keymap org-tree-slide-mode-map
@@ -550,6 +534,7 @@ This is displayed by default if `org-tree-slide-modeline-display' is nil.")
(defvar org-tree-slide--header-overlay nil
"Flag to check the status of overlay for a slide header.")
+(defvar org-tree-slide--header-face-autoconfig nil)
(defun org-tree-slide--setup ()
"Setup."
(when (org-tree-slide--active-p)
@@ -777,10 +762,8 @@ concat the headers."
(set header-variable
(if (re-search-forward regexp limit t) (match-string 1) nil)))
-(defface org-tree-slide-header-overlay-face
- `((t (:bold t :foreground ,(face-foreground 'default)
- :background ,(face-background 'default))))
- "Face for org-tree-slide--header-overlay"
+(defface org-tree-slide-header-overlay-face '((t :inherit default))
+ "Face for org-tree-slide--header-overlay."
:group 'org-tree-slide)
(defun org-tree-slide--get-parents (&optional delim)
@@ -859,17 +842,20 @@ Otherwise, return the point. This doesn't check whether skipping or not."
(unless org-tree-slide-never-touch-face
(cond
(status
- (custom-set-faces
- '(org-level-1 ((t (:inherit org-tree-slide-heading-level-1))))
- '(org-level-2 ((t (:inherit org-tree-slide-heading-level-2))))
- '(org-level-3 ((t (:inherit org-tree-slide-heading-level-3))))
- '(org-level-4 ((t (:inherit org-tree-slide-heading-level-4))))))
+ (setq
+ org-tree-slide-heading-level-1-cookie
+ (face-remap-add-relative 'org-level-1 org-tree-slide-heading-level-1)
+ org-tree-slide-heading-level-2-cookie
+ (face-remap-add-relative 'org-level-2 org-tree-slide-heading-level-2)
+ org-tree-slide-heading-level-3-cookie
+ (face-remap-add-relative 'org-level-3 org-tree-slide-heading-level-3)
+ org-tree-slide-heading-level-4-cookie
+ (face-remap-add-relative 'org-level-4 org-tree-slide-heading-level-4)))
(t
- (custom-set-faces
- '(org-level-1 ((t (:inherit org-tree-slide-heading-level-1-init))))
- '(org-level-2 ((t (:inherit org-tree-slide-heading-level-2-init))))
- '(org-level-3 ((t (:inherit org-tree-slide-heading-level-3-init))))
- '(org-level-4 ((t (:inherit org-tree-slide-heading-level-4-init)))))))))
+ (face-remap-remove-relative org-tree-slide-heading-level-1-cookie)
+ (face-remap-remove-relative org-tree-slide-heading-level-2-cookie)
+ (face-remap-remove-relative org-tree-slide-heading-level-3-cookie)
+ (face-remap-remove-relative org-tree-slide-heading-level-4-cookie)))))
(defun org-tree-slide--count-slide (&optional pos)
"Return formatted the slide number. If POS is nil, `point' will be used."
Debdiff
[The following lists of changes regard files as different if they have different names, permissions or owners.]
Files in second set of .debs but not in first
-rw-r--r-- root/root /usr/share/emacs/site-lisp/elpa-src/org-tree-slide-2.8.18/org-tree-slide-autoloads.el -rw-r--r-- root/root /usr/share/emacs/site-lisp/elpa-src/org-tree-slide-2.8.18/org-tree-slide-pkg.el -rw-r--r-- root/root /usr/share/emacs/site-lisp/elpa-src/org-tree-slide-2.8.18/org-tree-slide.el
Files in first set of .debs but not in second
-rw-r--r-- root/root /usr/share/emacs/site-lisp/elpa-src/org-tree-slide-2.8.16/org-tree-slide-autoloads.el -rw-r--r-- root/root /usr/share/emacs/site-lisp/elpa-src/org-tree-slide-2.8.16/org-tree-slide-pkg.el -rw-r--r-- root/root /usr/share/emacs/site-lisp/elpa-src/org-tree-slide-2.8.16/org-tree-slide.el
No differences were encountered in the control files