From 2f74624a89e06af9ee7b40f4eec31725b6fbe3ff Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Thu, 23 Nov 2023 19:50:43 +0100 Subject: [PATCH] update demo-it Signed-off-by: Andreas Gerler --- elpa/demo-it-20190828.26/demo-it-pkg.el | 9 ---- .../demo-it-autoloads.el | 38 +++++++++++--- .../demo-it-custom.el | 0 .../demo-it-extras.el | 0 elpa/demo-it-20211221.2152/demo-it-pkg.el | 11 ++++ .../demo-it-present.el | 0 .../demo-it.el | 51 +++++++++++-------- .../demo-it.info | 0 .../dir | 0 9 files changed, 70 insertions(+), 39 deletions(-) delete mode 100644 elpa/demo-it-20190828.26/demo-it-pkg.el rename elpa/{demo-it-20190828.26 => demo-it-20211221.2152}/demo-it-autoloads.el (55%) rename elpa/{demo-it-20190828.26 => demo-it-20211221.2152}/demo-it-custom.el (100%) rename elpa/{demo-it-20190828.26 => demo-it-20211221.2152}/demo-it-extras.el (100%) create mode 100644 elpa/demo-it-20211221.2152/demo-it-pkg.el rename elpa/{demo-it-20190828.26 => demo-it-20211221.2152}/demo-it-present.el (100%) rename elpa/{demo-it-20190828.26 => demo-it-20211221.2152}/demo-it.el (98%) rename elpa/{demo-it-20190828.26 => demo-it-20211221.2152}/demo-it.info (100%) rename elpa/{demo-it-20190828.26 => demo-it-20211221.2152}/dir (100%) diff --git a/elpa/demo-it-20190828.26/demo-it-pkg.el b/elpa/demo-it-20190828.26/demo-it-pkg.el deleted file mode 100644 index d7d0484d..00000000 --- a/elpa/demo-it-20190828.26/demo-it-pkg.el +++ /dev/null @@ -1,9 +0,0 @@ -(define-package "demo-it" "20190828.26" "Create demonstrations" 'nil :keywords - '("demonstration" "presentation" "test") - :authors - '(("Howard Abrams" . "howard.abrams@gmail.com")) - :maintainer - '("Howard Abrams" . "howard.abrams@gmail.com")) -;; Local Variables: -;; no-byte-compile: t -;; End: diff --git a/elpa/demo-it-20190828.26/demo-it-autoloads.el b/elpa/demo-it-20211221.2152/demo-it-autoloads.el similarity index 55% rename from elpa/demo-it-20190828.26/demo-it-autoloads.el rename to elpa/demo-it-20211221.2152/demo-it-autoloads.el index 3ace9e77..1671f971 100644 --- a/elpa/demo-it-20190828.26/demo-it-autoloads.el +++ b/elpa/demo-it-20211221.2152/demo-it-autoloads.el @@ -1,10 +1,12 @@ -;;; demo-it-autoloads.el --- automatically extracted autoloads +;;; demo-it-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- ;; ;;; 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 "demo-it" "demo-it.el" (23994 46778 418279 -;;;;;; 743000)) +;;;### (autoloads nil "demo-it" "demo-it.el" (0 0 0 0)) ;;; Generated autoloads from demo-it.el (autoload 'demo-it-start "demo-it" "\ @@ -25,10 +27,28 @@ keywords, like `:advanced-mode' and `:variable-width'. \(fn &rest FORMS)" nil t) +(register-definition-prefixes "demo-it" '("demo-it-")) + +;;;*** + +;;;### (autoloads nil "demo-it-custom" "demo-it-custom.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from demo-it-custom.el + +(register-definition-prefixes "demo-it-custom" '("demo-it--")) + +;;;*** + +;;;### (autoloads nil "demo-it-extras" "demo-it-extras.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from demo-it-extras.el + +(register-definition-prefixes "demo-it-extras" '("demo-it-")) + ;;;*** -;;;### (autoloads nil "demo-it-present" "demo-it-present.el" (23994 -;;;;;; 46778 422898 680000)) +;;;### (autoloads nil "demo-it-present" "demo-it-present.el" (0 0 +;;;;;; 0 0)) ;;; Generated autoloads from demo-it-present.el (autoload 'demo-it-single-presentation "demo-it-present" "\ @@ -37,10 +57,11 @@ full-screen presentation. SIZE is the text scaling size, and STYLE is the presen \(fn FILE &optional SIZE STYLE SECTION)" t nil) +(register-definition-prefixes "demo-it-present" '("demo-it-")) + ;;;*** -;;;### (autoloads nil nil ("demo-it-custom.el" "demo-it-extras.el" -;;;;;; "demo-it-pkg.el") (23994 46778 425002 862000)) +;;;### (autoloads nil nil ("demo-it-pkg.el") (0 0 0 0)) ;;;*** @@ -48,5 +69,6 @@ full-screen presentation. SIZE is the text scaling size, and STYLE is the presen ;; version-control: never ;; no-byte-compile: t ;; no-update-autoloads: t +;; coding: utf-8 ;; End: ;;; demo-it-autoloads.el ends here diff --git a/elpa/demo-it-20190828.26/demo-it-custom.el b/elpa/demo-it-20211221.2152/demo-it-custom.el similarity index 100% rename from elpa/demo-it-20190828.26/demo-it-custom.el rename to elpa/demo-it-20211221.2152/demo-it-custom.el diff --git a/elpa/demo-it-20190828.26/demo-it-extras.el b/elpa/demo-it-20211221.2152/demo-it-extras.el similarity index 100% rename from elpa/demo-it-20190828.26/demo-it-extras.el rename to elpa/demo-it-20211221.2152/demo-it-extras.el diff --git a/elpa/demo-it-20211221.2152/demo-it-pkg.el b/elpa/demo-it-20211221.2152/demo-it-pkg.el new file mode 100644 index 00000000..2625fec3 --- /dev/null +++ b/elpa/demo-it-20211221.2152/demo-it-pkg.el @@ -0,0 +1,11 @@ +(define-package "demo-it" "20211221.2152" "Create demonstrations" 'nil :commit "8ade739bb2605275f1f56128a0a9a8c6b55bab6a" :authors + '(("Howard Abrams" . "howard.abrams@gmail.com")) + :maintainers + '(("Howard Abrams" . "howard.abrams@gmail.com")) + :maintainer + '("Howard Abrams" . "howard.abrams@gmail.com") + :keywords + '("demonstration" "presentation" "test")) +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/demo-it-20190828.26/demo-it-present.el b/elpa/demo-it-20211221.2152/demo-it-present.el similarity index 100% rename from elpa/demo-it-20190828.26/demo-it-present.el rename to elpa/demo-it-20211221.2152/demo-it-present.el diff --git a/elpa/demo-it-20190828.26/demo-it.el b/elpa/demo-it-20211221.2152/demo-it.el similarity index 98% rename from elpa/demo-it-20190828.26/demo-it.el rename to elpa/demo-it-20211221.2152/demo-it.el index 45d521c3..a3314a39 100644 --- a/elpa/demo-it-20190828.26/demo-it.el +++ b/elpa/demo-it-20211221.2152/demo-it.el @@ -214,18 +214,7 @@ keywords, like `:advanced-mode' and `:variable-width'." (demo-it--set-properties (cl-remove-if-not 'keywordp '(,@forms))) (setq demo-it--steps (cl-remove-if 'keywordp '(,@forms))))) -(defun demo-it--set-properties (l) - "Sets a series of single property values from list, L." - ;; First, save all the customization properties... - (demo-it-setq-save demo-it--keymap-mode-style - demo-it--shell-or-eshell - demo-it--open-windows - demo-it--text-scale - demo-it--start-fullscreen - demo-it--start-single-window - demo-it--insert-text-speed) - ;; Second, set all the new customization properties: - (mapc 'demo-it--set-property l)) + (defun demo-it-end () "End the current demonstration by resetting the values @@ -557,11 +546,14 @@ the height if the window is `:above' or `:below'." in a particular DIRECTORY." (let ((default-directory (or directory (file-name-directory (buffer-file-name))))) - (if (eq demo-it--shell-or-eshell :shell) - (shell title) + (cond + ((not (keywordp demo-it--shell-or-eshell)) + (funcall-interactively demo-it--shell-or-eshell title)) - (eshell "new-shell") - (rename-buffer title)) + ((eq demo-it--shell-or-eshell :shell) (shell title)) + (t (progn + (eshell "new-shell") + (rename-buffer title)))) (read-only-mode -1) (text-scale-set (demo-it--get-text-scale size)) @@ -589,9 +581,9 @@ TITLE in a particular DIRECTORY." "Inserts some text in the given shell or eshell. The optional SPEED overrides the custom, `demo-it--insert-text-speed'." (demo-it-insert command speed) - (if (eq demo-it--shell-or-eshell :shell) - (comint-send-input) - (eshell-send-input))) + (if (eq demo-it--shell-or-eshell :eshell) + (eshell-send-input) + (comint-send-input))) (defun demo-it-insert (str &optional speed) "Insert STR into the current buffer as if you were typing it by hand. @@ -601,12 +593,15 @@ The SPEED (if non-nil) overrides the default value settings of the (if (eq timings :instant) (insert str) - (let ((bottom-limit (car timings)) - (top-limit (cdr timings))) + (let ((entries (if (stringp str) + (string-to-list str) + str)) + (bottom-limit (car timings)) + (top-limit (cdr timings))) ;; If we are not inserting instantaneously, then loop over each ;; character in the string with a random delay based on this range: - (dolist (ch (string-to-list str)) + (dolist (ch entries) (insert ch) (let ((tm (+ (/ bottom-limit 1000.0) (/ (random top-limit) 1000.0)))) @@ -745,6 +740,18 @@ the variables." (setq demo-it--setq-nilvars nil demo-it--setq-voidvars nil)) +(defun demo-it--set-properties (l) + "Sets a series of single property values from list, L." + ;; First, save all the customization properties... + (demo-it-setq-save demo-it--keymap-mode-style + demo-it--shell-or-eshell + demo-it--open-windows + demo-it--text-scale + demo-it--start-fullscreen + demo-it--start-single-window + demo-it--insert-text-speed) + ;; Second, set all the new customization properties: + (mapc 'demo-it--set-property l)) ;; Helper Functions (defun demo-it-message-keybinding (key command) diff --git a/elpa/demo-it-20190828.26/demo-it.info b/elpa/demo-it-20211221.2152/demo-it.info similarity index 100% rename from elpa/demo-it-20190828.26/demo-it.info rename to elpa/demo-it-20211221.2152/demo-it.info diff --git a/elpa/demo-it-20190828.26/dir b/elpa/demo-it-20211221.2152/dir similarity index 100% rename from elpa/demo-it-20190828.26/dir rename to elpa/demo-it-20211221.2152/dir -- 2.47.3