From e0ab67eadb7cf8e5087d522d3c4629e2ef23415d Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Fri, 31 Jan 2020 17:55:49 +0100 Subject: [PATCH] update org-tree-slide --- .../org-tree-slide-autoloads.el | 12 ++++-- .../org-tree-slide-pkg.el | 2 +- .../org-tree-slide.el | 16 +++++++- elpa/org-tree-slide-readme.txt | 37 +++++++++++++++++++ 4 files changed, 61 insertions(+), 6 deletions(-) rename elpa/{org-tree-slide-20190729.1550 => org-tree-slide-20200114.2334}/org-tree-slide-autoloads.el (92%) rename elpa/{org-tree-slide-20190729.1550 => org-tree-slide-20200114.2334}/org-tree-slide-pkg.el (52%) rename elpa/{org-tree-slide-20190729.1550 => org-tree-slide-20200114.2334}/org-tree-slide.el (98%) create mode 100644 elpa/org-tree-slide-readme.txt diff --git a/elpa/org-tree-slide-20190729.1550/org-tree-slide-autoloads.el b/elpa/org-tree-slide-20200114.2334/org-tree-slide-autoloads.el similarity index 92% rename from elpa/org-tree-slide-20190729.1550/org-tree-slide-autoloads.el rename to elpa/org-tree-slide-20200114.2334/org-tree-slide-autoloads.el index e81341ba..8d83c10e 100644 --- a/elpa/org-tree-slide-20190729.1550/org-tree-slide-autoloads.el +++ b/elpa/org-tree-slide-20200114.2334/org-tree-slide-autoloads.el @@ -1,10 +1,13 @@ ;;; org-tree-slide-autoloads.el --- automatically extracted autoloads ;; ;;; Code: -(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + -;;;### (autoloads nil "org-tree-slide" "org-tree-slide.el" (23994 -;;;;;; 46393 548148 999000)) +;;;### (autoloads nil "org-tree-slide" "org-tree-slide.el" (0 0 0 +;;;;;; 0)) ;;; Generated autoloads from org-tree-slide.el (autoload 'org-tree-slide-mode "org-tree-slide" "\ @@ -139,11 +142,14 @@ Toggle show COMMENT item or not. \(fn)" t nil) +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-tree-slide" '("org-tree-slide"))) + ;;;*** ;; Local Variables: ;; version-control: never ;; no-byte-compile: t ;; no-update-autoloads: t +;; coding: utf-8 ;; End: ;;; org-tree-slide-autoloads.el ends here diff --git a/elpa/org-tree-slide-20190729.1550/org-tree-slide-pkg.el b/elpa/org-tree-slide-20200114.2334/org-tree-slide-pkg.el similarity index 52% rename from elpa/org-tree-slide-20190729.1550/org-tree-slide-pkg.el rename to elpa/org-tree-slide-20200114.2334/org-tree-slide-pkg.el index d15616bd..3bb2c5a6 100644 --- a/elpa/org-tree-slide-20190729.1550/org-tree-slide-pkg.el +++ b/elpa/org-tree-slide-20200114.2334/org-tree-slide-pkg.el @@ -1,2 +1,2 @@ ;;; -*- no-byte-compile: t -*- -(define-package "org-tree-slide" "20190729.1550" "A presentation tool for org-mode" 'nil :commit "036a36eec1cf712d3db155572aed325daa372eb5" :keywords '("convenience" "org-mode" "presentation" "narrowing") :authors '(("Takaaki ISHIKAWA ")) :maintainer '("Takaaki ISHIKAWA ") :url "https://github.com/takaxp/org-tree-slide") +(define-package "org-tree-slide" "20200114.2334" "A presentation tool for org-mode" 'nil :commit "7bf09a02bd2d8f1ccfcb5209bfb18fbe02d1f44e" :keywords '("convenience" "org-mode" "presentation" "narrowing") :authors '(("Takaaki ISHIKAWA ")) :maintainer '("Takaaki ISHIKAWA ") :url "https://github.com/takaxp/org-tree-slide") diff --git a/elpa/org-tree-slide-20190729.1550/org-tree-slide.el b/elpa/org-tree-slide-20200114.2334/org-tree-slide.el similarity index 98% rename from elpa/org-tree-slide-20190729.1550/org-tree-slide.el rename to elpa/org-tree-slide-20200114.2334/org-tree-slide.el index 05b5882c..7efd9d18 100644 --- a/elpa/org-tree-slide-20190729.1550/org-tree-slide.el +++ b/elpa/org-tree-slide-20200114.2334/org-tree-slide.el @@ -4,7 +4,7 @@ ;; ;; Author: Takaaki ISHIKAWA ;; Version: 2.8.14 -;; Package-Version: 20190729.1550 +;; Package-Version: 20200114.2334 ;; Maintainer: Takaaki ISHIKAWA ;; Twitter: @takaxp ;; URL: https://github.com/takaxp/org-tree-slide @@ -709,6 +709,9 @@ If HEADING-LEVEL is non-nil, the provided outline level is checked." (defvar org-tree-slide-author nil "If you have \"#+author:\" line in your org buffer, it will be used as a name of the slide author.") +(defvar org-tree-slide-date nil + "If you have \"#+date:\" line in your org buffer, it will be used as the date.") + (defcustom org-tree-slide-breadcrumbs " > " "Display breadcrumbs in the slide header. @@ -734,6 +737,15 @@ concat the headers." 'org-tree-slide-author "#\\+AUTHOR:[ \t]*\\(.*\\)$" limit) (org-tree-slide--set-header-var-by-regxep 'org-tree-slide-email "#\\+EMAIL:[ \t]*\\(.*\\)$" limit) + + ; Use the date header or the current date if there isn't one + (setq org-tree-slide-date nil) + (org-tree-slide--set-header-var-by-regxep + 'org-tree-slide-date "#\\+DATE:[ \t]*\\(.*\\)$" limit) + (if (not org-tree-slide-date) + (setq org-tree-slide-date + (format-time-string "%Y-%m-%d"))) + (org-tree-slide--set-header-var-by-regxep 'org-tree-slide-startup "#\\+STARTUP:[ \t]*\\(.*\\)$" limit)))) @@ -779,7 +791,7 @@ Some number of BLANK-LINES will be shown below the header." (concat (if org-tree-slide-title org-tree-slide-title (buffer-name)) "\n" - (format-time-string "%Y-%m-%d") " " + org-tree-slide-date " " (when org-tree-slide-author (concat org-tree-slide-author " ")) (when org-tree-slide-email diff --git a/elpa/org-tree-slide-readme.txt b/elpa/org-tree-slide-readme.txt new file mode 100644 index 00000000..a1da06fa --- /dev/null +++ b/elpa/org-tree-slide-readme.txt @@ -0,0 +1,37 @@ +Requirement: + org-mode 6.33x or higher version + The latest version of the org-mode is recommended. + (see https://orgmode.org/) + +Usage: + 1. Put this elisp into your load-path + 2. Add (require 'org-tree-slide) in your .emacs + 3. Open an org-mode file + 4. Toggle org-tree-slide-mode (M-x org-tree-slide-mode) + then Slideshow will start and you can find "TSlide" in mode line. + 5. `C-<'/`C->' will move between slides + 6. `C-x s c' will show CONTENT of the org buffer + Select a heading and type `C-<', then Slideshow will start again. + 7. Toggle org-tree-slide-mode again to exit this minor mode + +Recommended minimum settings: + (global-set-key (kbd "") 'org-tree-slide-mode) + (global-set-key (kbd "S-") 'org-tree-slide-skip-done-toggle) + + and three useful profiles are available. + + 1. Simple use + M-x org-tree-slide-simple-profile + + 2. Presentation use + M-x org-tree-slide-presentation-profile + + 3. TODO Pursuit with narrowing + M-x org-tree-slide-narrowing-control-profile + + Type `C-h f org-tree-slide-mode', you can find more detail. + +Note: + - Make sure key maps below when you introduce this elisp. + - Customize variables, M-x customize-group ENT org-tree-slide ENT + - see also moom.el (https://github.com/takaxp/moom) to control Emacs frame -- 2.47.3