emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/hyperbole efaedbf 3/4: Improve some kexport:html settin


From: ELPA Syncer
Subject: [elpa] externals/hyperbole efaedbf 3/4: Improve some kexport:html settings
Date: Sun, 26 Sep 2021 12:57:23 -0400 (EDT)

branch: externals/hyperbole
commit efaedbf8fa31e2da469823b9b29425e2a8d370b3
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    Improve some kexport:html settings
---
 ChangeLog       | 5 +++++
 hsettings.el    | 2 +-
 kotl/kexport.el | 6 ++++--
 3 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d9eb33b..dc44578 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2021-09-26  Bob Weiner  <rsw@gnu.org>
 
+* kotl/kexport.el (kexport:html): Improve vertical alignment of expand/collapse
+    chevrons and kcell text.
+
+* hsettings.el (hyperbole-web-search-browser-function): Use 'function type.
+
 * hui-mini.el (hui:menu-item-keys): Fix bug in catch fallthrough that returned
     the item rather than nil, causing numbers and non-ASCII chars to not work.
 
diff --git a/hsettings.el b/hsettings.el
index 94d6f46..beb15ee 100644
--- a/hsettings.el
+++ b/hsettings.el
@@ -219,7 +219,7 @@ Hyperbole, and then restart Emacs."
 
 (defcustom hyperbole-web-search-browser-function browse-url-browser-function
   "*Function of one url argument called by any Hyperbole Find/Web search."
-  :type browse-url--browser-defcustom-type
+  :type 'function
   :group 'hyperbole-commands)
 
 (defcustom hyperbole-web-search-alist
diff --git a/kotl/kexport.el b/kotl/kexport.el
index 3949206..9cd444d 100644
--- a/kotl/kexport.el
+++ b/kotl/kexport.el
@@ -468,7 +468,8 @@ hard newlines are not used.  Also converts Urls and Klinks 
into Html hyperlinks.
               (princ "<ul>")
               (setq i (1- i)))
             (princ "<li list-style-type=none>\n<table><tr 
valign=text-bottom>\n")
-            (princ "<td width=1% valign=top>")
+            ;; (princ "<td width=1% valign=top>")
+            (princ "<td width=1%>")
             (princ (format "<span class=\"fas fa-chevron-down 
fa-fw\"%s></span>"
                            (if is-parent
                                ""
@@ -476,7 +477,8 @@ hard newlines are not used.  Also converts Urls and Klinks 
into Html hyperlinks.
                              ;; show collapsible chevron when not a parent
                              " style=\"visibility:hidden\"")))
             (princ "</td>\n")
-            (princ "<td width=2% valign=top>\n")
+            ;; (princ "<td width=2% valign=top>\n")
+            (princ "<td width=2%>\n")
             (setq label (kcell-view:label))
             (princ (format "<a id=\"k%s\"></a>" label))
             (princ (format "<a id=\"k%s\"></a>\n" (kcell-view:idstamp)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]