[elpa] externals/hyperbole 7e3cdc77b9 3/3: Merge pull request #326 from rswgnu/rsw

[ELPA Syncer]

branch: externals/hyperbole
commit 7e3cdc77b9cb9be39fed5280f8b1c9adbfc15f0c
Merge: 9096ea849e f6e9cb1604
Author: Robert Weiner <rsw@gnu.org>
Commit: GitHub <noreply@github.com>

    Merge pull request #326 from rswgnu/rsw
    
    Fix font size to 20px for kexport to HTML; also fix a number of 
byte-compilation warnings
---
 ChangeLog       | 16 ++++++++++++++++
 hibtypes.el     |  4 ++--
 hsys-youtube.el |  6 +++++-
 hypb.el         | 12 ++++++------
 kotl/kexport.el | 17 ++++++++++++-----
 5 files changed, 41 insertions(+), 14 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1fe7741a4a..4274b8d878 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,21 @@
 2023-05-14  Bob Weiner  <rsw@gnu.org>
 
+* hibtypes.el (action): Remove unneeded comma before args that triggered
+    byte compilation error.
+
+* hsys-youtube.el: Add magic autoload comments for internal functions
+    since defact and defalias autoloads do not actually load the library
+    but simply define themselves.
+
+* hypb.el (hypb:oct-to-int): Change mapconcat to mapc since don't use result.
+    Silences byte-compiler warning.
+
+* kotl/kexport.el (kexport:font-awesome-css-include-with-menus): Fix font size
+    at 20px for all elements, so is large enough by default.
+
+* hui-window.el (hmouse-drag-item-mode-forms): Fix treemacs-mode paren error
+    that had error clause outside if statement.
+
 * hib-debbugs.el (debbugs-gnu-mode:help):
   hui-window.el (hmouse-kill-and-yank-region, hmouse-yank-region):
   hargs.el (hargs:sexpression-p):
diff --git a/hibtypes.el b/hibtypes.el
index 1c49ca0005..4f260be2c4 100644
--- a/hibtypes.el
+++ b/hibtypes.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    19-Sep-91 at 20:45:31
-;; Last-Mod:      7-May-23 at 13:23:19 by Bob Weiner
+;; Last-Mod:     14-May-23 at 10:57:23 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -1551,7 +1551,7 @@ arg1 ... argN '>'.  For example, <mail nil 
\"user@somewhere.org\">."
                  #'actype:eval)))
           (if (eq hrule:action #'actype:identity)
               `(hact ,actype ,@args)
-            `(hact ,actype ,@(mapcar #'eval ,args))))))))
+            `(hact ,actype ,@(mapcar #'eval args))))))))
 
 (defun action:help (hbut)
   "Display documentation for action button at point.
diff --git a/hsys-youtube.el b/hsys-youtube.el
index 36180a2c19..4c49e7fd04 100644
--- a/hsys-youtube.el
+++ b/hsys-youtube.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    10-Jul-22 at 18:10:56
-;; Last-Mod:     14-May-23 at 02:09:33 by Bob Weiner
+;; Last-Mod:     14-May-23 at 11:27:53 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -150,6 +150,7 @@ Called when the Assist Key is pressed on such a button."
 ;;; Private functions
 ;;; ************************************************************************
 
+;;;###autoload
 (defun hsys-youtube-end-url (video-id &optional start-time-string 
end-time-string)
   "Return url to play VIDEO-ID from optional START-TIME-STRING to 
END-TIME-STRING.
 VIDEO-ID must be a string and can be a video identifier,
@@ -175,6 +176,7 @@ e.g. WkwZHSbHmPg, or a full url to the video."
            ;; replay, so add unused random parameter.
            (random 10000000))))
 
+;;;###autoload
 (defun hsys-youtube-start-url (video-id &optional start-time-string)
   "Return url to play VIDEO-ID starting at beginning or optional 
START-TIME-STRING.
 VIDEO-ID must be a string and can be a video identifier,
@@ -192,6 +194,7 @@ e.g. WkwZHSbHmPg, or a full url to the video."
          (format (concat video-id "&t=%s") start-time-string))
       (format hsys-youtube-start-format video-id start-time-string))))
 
+;;;###autoload
 (defun hsys-youtube-time-in-hms (start-time-string)
   "Return the start time for a Youtube url from START-TIME-STRING.
 Start time is returned as hours, minutes and seconds.
@@ -215,6 +218,7 @@ format is invalid, return it unchanged."
               (concat part1 "h" part2 "m" part3 "s"))))
     start-time-string))
 
+;;;###autoload
 (defun hsys-youtube-time-in-seconds (start-time-string)
   "Return the number of seconds time for a Youtube url given a 
START-TIME-STRING.
 Hours and minutes are optional within the START-TIME-STRING,
diff --git a/hypb.el b/hypb.el
index 24c0035d8e..71e8712d44 100644
--- a/hypb.el
+++ b/hypb.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:     6-Oct-91 at 03:42:38
-;; Last-Mod:     19-Apr-23 at 22:27:32 by Bob Weiner
+;; Last-Mod:     14-May-23 at 10:51:09 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -1045,11 +1045,11 @@ Without file, the banner is prepended to the current 
buffer."
        (dec-num 0))
     (and (string-match "[^0-7]" oct-str)
         (error "(hypb:oct-to-int): Bad octal number: %s" oct-str))
-    (mapconcat (lambda (o)
-                (setq dec-num (+ (* dec-num 8)
-                                 (when (and (>= o ?0) (<= o ?7))
-                                   (- o ?0)))))
-              oct-str "")
+    (mapc (lambda (o)
+           (setq dec-num (+ (* dec-num 8)
+                            (when (and (>= o ?0) (<= o ?7))
+                              (- o ?0)))))
+         oct-str "")
     dec-num))
 
 ;;; ************************************************************************
diff --git a/kotl/kexport.el b/kotl/kexport.el
index e0c65a745b..1dd1ab9cf9 100644
--- a/kotl/kexport.el
+++ b/kotl/kexport.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    26-Feb-98
-;; Last-Mod:     12-Mar-23 at 17:14:19 by Mats Lidell
+;; Last-Mod:     14-May-23 at 10:29:11 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -154,12 +154,12 @@ ul {
 
 .btn:hover {
   background-color: #FAFAD2;
-  font-size: 12px;
+  font-size: 20px;
 }
 
 .content {
   display: block;
-  font-size: 12px;
+  font-size: 20px;
   margin-top: 0px;
   margin-bottom: 0px;
 }
@@ -169,11 +169,17 @@ ul {
   color: #C100C1;
 }
 
-h1, pre {
+h1 {
   margin-top: 0px;
   margin-bottom: 0px;
 }
 
+pre {
+  margin-top: 0px;
+  margin-bottom: 0px;
+  font-size: 20px;
+}
+
 body {
   background-color: white;
 }
@@ -206,6 +212,7 @@ li {
 
 .collapsible:hover {
   background-color: #FAFAD2;
+  font-size: 20px;
 }
 
 .content {
@@ -277,7 +284,7 @@ nav > menu > menuitem > a + menu:after{
    position:absolute;
    border:10px solid transparent;
    border-top: 10px solid white;
-   left:12px;
+   left:20px;
    top: -40px;
 }
 nav menuitem > menu > menuitem > a + menu:after{