From b411287fd5e6020633f89878102031b49aea1b8a Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Thu, 31 Jul 2025 17:40:26 +0200 Subject: [PATCH 1/3] Delete trailing whitespace --- hbut.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hbut.el b/hbut.el index bb37b475..a08a8672 100644 --- a/hbut.el +++ b/hbut.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 18-Sep-91 at 02:57:09 -;; Last-Mod: 7-Dec-25 at 19:24:08 by Bob Weiner +;; Last-Mod: 30-Dec-25 at 14:41:21 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -963,7 +963,7 @@ The ibut used defaults to \='hbut:current or the optional IBUT-SYMBOL." (defun hattr:is-p (attr value &optional hbut-symbol) "Return t if ATTR has VALUE for \='hbut:current or optional HBUT-SYMBOL." - (and (symbolp attr) attr + (and (symbolp attr) attr (eq (hattr:get (or (and (symbolp hbut-symbol) hbut-symbol) 'hbut:current) attr) value))) From d4a8b8f6207b27aa7cda2891e197fe81bdf37db9 Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Thu, 31 Jul 2025 20:41:04 +0200 Subject: [PATCH 2/3] More minor issues reported by flycheck --- hact.el | 4 +- hasht.el | 17 +++--- hpath.el | 4 +- hsys-consult.el | 11 ++-- hui-mouse.el | 4 +- hynote.el | 3 +- hyrolo.el | 4 +- hywiki.el | 138 ++++++++++++++++++++++++++++++++++++++++++---- kotl/kcell.el | 4 +- kotl/kfile.el | 4 +- kotl/kfill.el | 6 +- kotl/kimport.el | 10 ++-- kotl/kotl-mode.el | 10 ++-- kotl/kview.el | 4 +- 14 files changed, 171 insertions(+), 52 deletions(-) diff --git a/hact.el b/hact.el index e5019021..a4e16220 100644 --- a/hact.el +++ b/hact.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 18-Sep-91 at 02:57:09 -;; Last-Mod: 29-Aug-25 at 14:20:04 by Bob Weiner +;; Last-Mod: 30-Dec-25 at 14:42:06 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -336,7 +336,7 @@ TYPE and TYPE-CATEGORY are both symbols. TYPE-CATEGORY must be one of (defun action:param-count (action) "Return the number of args in ACTION's arg list. Keywords and special symbols like &optional and &key are excluded." - (length (seq-filter (lambda (sym) + (length (seq-filter (lambda (sym) (not (or (keywordp sym) (string-match "^&" (symbol-name sym))))) (action:params action)))) diff --git a/hasht.el b/hasht.el index af5b2576..b20b0a05 100644 --- a/hasht.el +++ b/hasht.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 16-Mar-90 at 03:38:48 -;; Last-Mod: 29-Aug-25 at 02:16:00 by Bob Weiner +;; Last-Mod: 30-Dec-25 at 14:42:14 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -136,12 +136,12 @@ in the hash table. Use `hash-key-p' instead for that function." (defun hash-make (initializer &optional reverse) "Create and return a hash table from INITIALIZER. -INITIALIZER may be an alist with elements of the form (. ) +INITIALIZER may be an alist with elements of the form ( . ) from which the hash table is built ( must be a string). Alternatively, it may be a non-negative integer which is used as the minimum size of a new, empty hash table. Optional non-nil second argument REVERSE means INITIALIZER has elements of form -( . ). +\( . ). The resultant value associated with a is the from the last entry in INITIALIZER with that . See `hash-make-prepend' to @@ -151,7 +151,7 @@ merge all the values for a given instead." (make-hash-table :size initializer) (error "(hash-make): Initializer must be >= 0, not `%s'" initializer))) - ((numberp initializer) + ((numberp initializer) (error "(hash-make): Initializer must be a positive integer, not `%f'" initializer)) (t (let* ((size (length initializer)) @@ -199,8 +199,8 @@ in reverse order of occurrence (they are prepended to the list). See (defun hash-map (func hash-table) "Return the list from calling FUNC on ( . ) in HASH-TABLE. -If FUNC is in \\='(cdr key second symbol-name), then return all s -as strings. If FUNC is in \\='(car value first symbol-value), then +If FUNC is in \\='(cdr key second `symbol-name'), then return all s +as strings. If FUNC is in \\='(car value first `symbol-value'), then return all s." (unless (hash-table-p hash-table) (error "(hash-map): Invalid hash-table: `%s'" hash-table)) @@ -305,7 +305,7 @@ This is suitable for use as a value of `hash-merge-values-function'." If KEY is not found in HASH-TABLE, it is added with a value of (list VALUE). Trigger an error if an existing VALUE is not a list. Do nothing and return nil -if KEY or HASH-TABLE are of the wrong type." +if KEY or HASH-TABLE are of the wrong type." (when (and (hash-table-p hash-table) (stringp key)) (let* ((key-sym (intern key)) @@ -349,7 +349,7 @@ An error will occur if KEY is not found in HASH-TABLE." (let ((key-sym (intern-soft key))) (if (gethash key-sym hash-table) (puthash key-sym value hash-table) - (error "(hash-replace): `%s' key not found in hash table." key))))) + (error "(hash-replace): `%s' key not found in hash table" key))))) (defun hash-size (hash-table) "Return size of HASH-TABLE which is >= number of elements in the table. @@ -381,3 +381,4 @@ Optional COUNT conses number of duplicates on to front of list before return." (if count (cons count sorted-strings) sorted-strings)) (provide 'hasht) +;;; hasht.el ends here diff --git a/hpath.el b/hpath.el index 08d2dc27..808d9344 100644 --- a/hpath.el +++ b/hpath.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 1-Nov-91 at 00:44:23 -;; Last-Mod: 7-Dec-25 at 21:12:14 by Bob Weiner +;; Last-Mod: 30-Dec-25 at 14:42:19 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -1835,7 +1835,7 @@ the end following a # or , character are temporarily stripped, and path variables are expanded with `hpath:substitute-value'. This normalized path form is what is returned for PATH." (when (and (stringp path) - (or + (or ;; Due to the colons, "hui.el#save-excursion:I2:L2:C30", ;; will improperly match to a PATH variable. Ensure it doesn't. (string-match hpath:instance-line-column-regexp path) diff --git a/hsys-consult.el b/hsys-consult.el index 6790750e..45340ccc 100644 --- a/hsys-consult.el +++ b/hsys-consult.el @@ -2,7 +2,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 4-Jul-24 at 09:57:18 -;; Last-Mod: 10-Aug-25 at 12:43:19 by Bob Weiner +;; Last-Mod: 30-Dec-25 at 14:42:23 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -177,10 +177,11 @@ prompt." (defun hsys-consult-grep-headlines-read-regexp (grep-function prompt &optional regexp) - "With `consult', use GREP-FUNCTION and PROMPT to completing read an -optional REGEXP, the initial pattern for the grep. Suppress preview -and return the selected \"file:line:line-contents\". GREP-FUNCTION - must take these arguments: regexp max-matches path-list prompt. + "With `consult', use GREP-FUNCTION and PROMPT to completing read. +The optional REGEXP is an initial pattern for the grep. Suppress +preview and return the selected \"file:line:line-contents\". +GREP-FUNCTION must take these arguments: regexp max-matches path-list +prompt. Without `consult', just read a REGEXP with PROMPT." (if (hsys-consult-active-p) diff --git a/hui-mouse.el b/hui-mouse.el index 3e4372c9..a017e107 100644 --- a/hui-mouse.el +++ b/hui-mouse.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 04-Feb-89 -;; Last-Mod: 7-Dec-25 at 20:15:46 by Bob Weiner +;; Last-Mod: 30-Dec-25 at 14:42:28 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -1866,7 +1866,7 @@ When the Action Key is pressed and `hsys-org-enable-smart-keys' is t: 3. On an Org agenda view item, jump to the item for editing. When the Action Key is pressed and `hsys-org-enable-smart-keys' is -either `t' or `:buttons': +either t or `:buttons': 4. Within a radio or internal target or a link to it, jump between the target and the first link to it, allowing two-way navigation. diff --git a/hynote.el b/hynote.el index 4a01fff1..47aef7cf 100644 --- a/hynote.el +++ b/hynote.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 23-Jun-24 at 12:50:37 -;; Last-Mod: 1-Sep-24 at 14:26:02 by Bob Weiner +;; Last-Mod: 31-Jul-25 at 20:15:52 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -165,3 +165,4 @@ relative to `hynote-directory-list'." ;;; ************************************************************************ (provide 'hynote) +;;; hynote.el ends here diff --git a/hyrolo.el b/hyrolo.el index c068fd15..48ada801 100644 --- a/hyrolo.el +++ b/hyrolo.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 7-Jun-89 at 22:08:29 -;; Last-Mod: 22-Nov-25 at 07:54:28 by Bob Weiner +;; Last-Mod: 30-Dec-25 at 14:42:32 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -1590,7 +1590,7 @@ the entry to be inserted. With optional prefix arg, REGEXP-FLAG, treat NAME as a regular expression instead of a string." - (interactive (list + (interactive (list (hsys-consult-grep-headlines-read-regexp #'hyrolo-consult-grep "Yank rolo headline matching") current-prefix-arg)) diff --git a/hywiki.el b/hywiki.el index a2f0703e..bbdcbee3 100644 --- a/hywiki.el +++ b/hywiki.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 21-Apr-24 at 22:41:13 -;; Last-Mod: 30-Nov-25 at 18:06:52 by Bob Weiner +;; Last-Mod: 31-Jul-25 at 20:34:29 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -124,7 +124,7 @@ ;; ;; hywiki-referent-prompt-flag When nil When t ;; ------------------------------------------------------------------------------------- -;; Action Key hywiki-word-create-and-display +;; Action Key hywiki-word-create-and-display ;; or HyWiki/Create Create Page and Display Create Referent and Display ;; Assist Key hywiki-word-create-and-display ;; or C-u HyWiki/Create Create Referent and Display Create Page and Display @@ -357,8 +357,9 @@ nil means no full buffer highlighting has occurred.") open-line ;; C-o quoted-insert ;; C-q ) - "Commands that insert characters but whose input events do not - arrive as characters or that quote another character for input.") + "List of non character commands. +Commands that insert characters but whose input events do not arrive as +characters or that quote another character for input.") ;; Define the keymap for hywiki-mode. (defvar hywiki-mode-map nil @@ -2714,7 +2715,7 @@ If deleted, update HyWikiWord highlighting across all frames." ('prefix (company-grab-word)) ('candidates (let ((prefix (company-grab-word))) - (when prefix + (when prefix (cl-loop for key being the hash-keys in (hywiki-get-wikiword-list) when (string-prefix-p prefix key) collect key)))) @@ -3027,7 +3028,7 @@ since a prior publish. Files are saved in: (hywiki-org-get-publish-property :publishing-directory) Customize this directory with: - {M-x customize-variable RET hywiki-org-publishing-directory RET}." + {\\`M-x' `customize-variable' RET hywiki-org-publishing-directory RET}." (interactive "P") ;; Export Org to html with useful link ids. ;; Instead of random ids like "orga1b2c3", use heading titles with @@ -3497,7 +3498,7 @@ Search across `hywiki-directory'." (defun hywiki-word-is-p (word) "Return non-nil if WORD is a HyWikiWord and optional #section:Lnum:Cnum. WORD may not yet have a referent (non-existent). Use `hywiki-get-referent' -to determine whether a HyWikiWord referent exists. +to determine whether a HyWikiWord referent exists. Return nil if WORD is a prefixed, typed hy:HyWikiWord, since these are handled by the Org mode link handler." @@ -3847,9 +3848,126 @@ This must be called within a `save-excursion' or it may move point." #'hywiki-maybe-highlight-page-names 1 hywiki--buttonize-start hywiki--buttonize-end)) - (when (= (char-syntax (or (char-before) 0)) ?\ ) - (goto-char (1- (point)))) - (hywiki-maybe-highlight-between-page-names)) + (cond ((= (char-syntax (or (char-before) 0)) ?\ ) + (goto-char (1- (point))) + (hywiki-maybe-highlight-between-page-names)) + ((= (char-syntax (or (char-after) 0)) ?\ ) + (hywiki-maybe-highlight-between-page-names)))) + +;;; ************************************************************************ +;;; Private Org export override functions +;;; ************************************************************************ + +;; Thanks to alphapapa for the GPLed code upon which these hywiki--org +;; functions are based. These change the html ids that Org export +;; generates to use the text of headings rather than randomly +;; generated ids. + +(require 'cl-extra) ;; for `cl-some' +(require 'ox) ;; for `org-export-get-reference' +(require 'url-util) ;; for `url-hexify-string' + +(defun hywiki--org-export-get-reference (datum info) + "Return a unique reference for DATUM, as a string. +Like `org-export-get-reference' but uses modified heading strings as +link ids rather than generated ids. To form an id, spaces in headings +are replaced with dashes and to make each id unique, heading parent +ids are prepended separated by '--'. + +DATUM is either an element or an object. INFO is the current +export state, as a plist. + +References for the current document are stored in the +`:internal-references' property. Its value is an alist with +associations of the following types: + + (REFERENCE . DATUM) and (SEARCH-CELL . ID) + +REFERENCE is the reference string to be used for object or +element DATUM. SEARCH-CELL is a search cell, as returned by +`org-export-search-cells'. ID is a number or a string uniquely +identifying DATUM within the document. + +This function also checks `:crossrefs' property for search cells +matching DATUM before creating a new reference." + (let ((cache (plist-get info :internal-references))) + (or (car (rassq datum cache)) + (let* ((crossrefs (plist-get info :crossrefs)) + (cells (org-export-search-cells datum)) + ;; Preserve any pre-existing association between + ;; a search cell and a reference, i.e., when some + ;; previously published document referenced a location + ;; within current file (see + ;; `org-publish-resolve-external-link'). + ;; + ;; However, there is no guarantee that search cells are + ;; unique, e.g., there might be duplicate custom ID or + ;; two headings with the same title in the file. + ;; + ;; As a consequence, before reusing any reference to + ;; an element or object, we check that it doesn't refer + ;; to a previous element or object. + (new (or (when (org-element-property :raw-value datum) + ;; Heading with a title + (hywiki--org-export-new-title-reference datum cache)) + (cl-some + (lambda (cell) + (let ((stored (cdr (assoc cell crossrefs)))) + (when stored + (let ((old (org-export-format-reference stored))) + (and (not (assoc old cache)) stored))))) + cells) + (org-export-format-reference + (org-export-new-reference cache)))) + (reference-string new)) + ;; Cache contains both data already associated to + ;; a reference and in-use internal references, so as to make + ;; unique references. + (dolist (cell cells) (push (cons cell new) cache)) + ;; Retain a direct association between reference string and + ;; DATUM since (1) not every object or element can be given + ;; a search cell (2) it permits quick lookup. + (push (cons reference-string datum) cache) + (plist-put info :internal-references cache) + reference-string)))) + +(defun hywiki--org-export-new-title-reference (datum cache) + "Return new heading title reference for DATUM that is unique in CACHE." + (let* ((title (org-element-property :raw-value datum)) + (ref (hywiki--org-format-reference title)) + (parent (org-element-property :parent datum)) + raw-parent) + (while (cl-some (lambda (elt) (equal ref (car elt))) + cache) + ;; Title not unique: make it so. + (if parent + ;; Append ancestor title. + (setq raw-parent (org-element-property :raw-value parent) + title (if (and (stringp raw-parent) (not (string-empty-p raw-parent))) + (concat raw-parent "--" title) + title) + ref (hywiki--org-format-reference title) + parent (org-element-property :parent parent)) + ;; No more ancestors: add and increment a number. + (when (string-match "\\`\\([[:unibyte:]]\\)+?\\(--\\([0-9]+\\)\\)?\\'" + ref) + (let ((num (match-string 3 ref))) + (setq parent (match-string 1 ref) + parent (if (stringp parent) (concat parent "--") "") + num (if num + (string-to-number num) + 0) + num (1+ num) + ref (format "%s%s" parent num)))))) + ref)) + +(defun hywiki--org-format-reference (title) + "Format TITLE string as an html id." + (url-hexify-string + (replace-regexp-in-string "\\[\\[\\([a-z]+:\\)?\\|\\]\\[\\|\\]\\]" "" + (subst-char-in-string + ?\ ?- + (substring-no-properties title))))) ;;; ************************************************************************ ;;; Private initializations diff --git a/kotl/kcell.el b/kotl/kcell.el index a1da88c8..0e9c67b8 100644 --- a/kotl/kcell.el +++ b/kotl/kcell.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 1-May-93 -;; Last-Mod: 25-Nov-23 at 16:33:20 by Mats Lidell +;; Last-Mod: 31-Jul-25 at 20:35:20 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -122,7 +122,7 @@ returned. If CELL-REF is invalid or does not exist, nil is returned. If optional KVIEWSPEC-FLAG is non-nil and CELL-REF includes a viewspec, return the the idstamp concatenated with the viewspec -(begins with a | character) as a string. +\(begins with a | character) as a string. CELL-REF may be a whole number: diff --git a/kotl/kfile.el b/kotl/kfile.el index a1879aaf..a1edb5f0 100644 --- a/kotl/kfile.el +++ b/kotl/kfile.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 10/31/93 -;; Last-Mod: 19-Oct-24 at 10:30:56 by Bob Weiner +;; Last-Mod: 31-Jul-25 at 20:35:42 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -69,7 +69,7 @@ Return the new kview." ;;;###autoload (defun kfile:is-p () "Iff current buffer contains a koutline, return file format version string. -If not a koutline, return nil. This works both for unformatted +If not a koutline, return nil. This works both for unformatted and formatted koutlines." (let (ver-string) (save-excursion diff --git a/kotl/kfill.el b/kotl/kfill.el index c5e794da..6df5dc79 100644 --- a/kotl/kfill.el +++ b/kotl/kfill.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 23-Jan-94 -;; Last-Mod: 20-Jan-24 at 15:42:54 by Mats Lidell +;; Last-Mod: 31-Jul-25 at 20:36:46 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -54,9 +54,7 @@ ;; This keeps normal paragraphs from interacting unpleasantly with ;; the types given above. ("[^ \t/#%?!~*+-]" . kfill:normal)) -"Value is an alist of the form - - ((REGXP . FUNCTION) ...) + "Value is an alist of the form ((REGEXP . FUNCTION) ...). When `fill-paragraph' is called, the REGEXP of each alist element is compared with the beginning of the current line. If a match is found the corresponding diff --git a/kotl/kimport.el b/kotl/kimport.el index 6b16a260..abbbfa23 100644 --- a/kotl/kimport.el +++ b/kotl/kimport.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 15-Nov-93 at 11:57:05 -;; Last-Mod: 25-Feb-24 at 18:03:16 by Mats Lidell +;; Last-Mod: 31-Jul-25 at 20:37:32 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -200,7 +200,7 @@ on." (kcell-view:sibling-p))))) (when (eq import-from output-to) - (error "(kimport:aug-post-outline): Import and output buffers may not be the same.")) + (error "(kimport:aug-post-outline): Import and output buffers may not be the same")) (set-buffer import-from) (outline-show-all) @@ -274,7 +274,7 @@ placed. (kcell-view:sibling-p))))) (when (eq import-from output-to) - (error "(kimport:star-outline): Import and output buffers may not be the same.")) + (error "(kimport:star-outline): Import and output buffers may not be the same")) (set-buffer import-from) (outline-show-all) @@ -354,7 +354,7 @@ paragraphs as a sequence of same level cells. The variable, (kcell-view:sibling-p))))) (when (eq import-from output-to) - (error "(kimport:text): Import and output buffers may not be the same.")) + (error "(kimport:text): Import and output buffers may not be the same")) (set-buffer import-from) (let ((kotl-import (derived-mode-p 'kotl-mode)) @@ -604,7 +604,7 @@ will be added as children of the cell where this function leaves point (goto-char (point-max))) (kotl-mode:to-valid-position)) (error - "(kimport:initialize): Second arg, %s, must be a koutline file." + "(kimport:initialize): Second arg, %s, must be a koutline file" (buffer-name output-to))) (when erase-flag (widen) diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el index d8501f4b..e90da522 100644 --- a/kotl/kotl-mode.el +++ b/kotl/kotl-mode.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 6/30/93 -;; Last-Mod: 6-Oct-25 at 00:16:41 by Mats Lidell +;; Last-Mod: 30-Dec-25 at 14:43:38 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -2974,7 +2974,7 @@ Prefix ARG selects the cells whose attributes are removed or set: "Split the current cell into two cells and move to the new cell. The cell contents after point become part of the newly created cell. The default is to create the new cell as a sibling of the current cell. -With optional universal ARG, {C-u}, the new cell is added as the child of +With optional universal ARG, {\\`C-u'}, the new cell is added as the child of the current cell. Non-read-only attributes from the current cell are replicated in the new cell." (interactive "*P") @@ -3117,7 +3117,7 @@ to a specified buffer, otherwise, copy the active region. Use 0 to copy the whole outline buffer. Prompt for whether or not to expand and include any hidden/invisible text within the copied text." (interactive) - (call-interactively + (call-interactively (if (use-region-p) #'kotl-mode:copy-region-to-buffer #'kotl-mode:copy-tree-to-buffer))) @@ -3409,7 +3409,7 @@ because, in this case the deletion might narrow the column." (lambda () (org-force-self-insert n)))) (defun kotl-mode:org-self-insert-command (n) - "Like `self-insert-command’, use overwrite-mode for whitespace in tables. + "Like `self-insert-command’, use `overwrite-mode' for whitespace in tables. If the cursor is in a table looking at whitespace, the whitespace is overwritten, and the table is not marked as requiring realignment." (interactive "p") @@ -3433,7 +3433,7 @@ conflicting binding to this key outside orgtbl-mode." (lambda () (orgtbl-create-or-convert-from-region arg)))) (defun kotl-mode:orgtbl-self-insert-command (n) - "Like `self-insert-command', use overwrite-mode for whitespace in tables. + "Like `self-insert-command', use `overwrite-mode' for whitespace in tables. If the cursor is in a table looking at whitespace, the whitespace is overwritten, and the table is not marked as requiring realignment." (interactive "p") diff --git a/kotl/kview.el b/kotl/kview.el index c4a960fe..816f4c45 100644 --- a/kotl/kview.el +++ b/kotl/kview.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 6/30/93 -;; Last-Mod: 20-Jun-25 at 00:40:40 by Bob Weiner +;; Last-Mod: 31-Jul-25 at 20:40:10 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -385,7 +385,7 @@ Return t unless no such cell." found)) (defun kcell-view:get-attr (attribute &optional pos) - "Return ATTRIBUTE's value for current cell or cell at optional POS + "Return ATTRIBUTE's value for current cell or cell at optional POS. Use 0 for POS to retrieve top cell's attributes." (if (eq pos 0) (if (eq attribute 'idstamp) From 6513e9643a40e1e904a3670a969cdcc8ed2cda26 Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Wed, 31 Dec 2025 00:20:27 +0100 Subject: [PATCH 3/3] More flycheck cleanup's --- hbut.el | 6 +++--- hsys-org.el | 4 ++-- hui-mini.el | 6 +++--- hywiki.el | 6 +++--- 4 files changed, 11 insertions(+), 11 deletions(-) diff --git a/hbut.el b/hbut.el index a08a8672..96c53c23 100644 --- a/hbut.el +++ b/hbut.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 18-Sep-91 at 02:57:09 -;; Last-Mod: 30-Dec-25 at 14:41:21 by Mats Lidell +;; Last-Mod: 30-Dec-25 at 23:55:08 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -1553,7 +1553,7 @@ positions at which the button delimiter begins and ends." (defun hbut:map (but-func &optional regexp-match include-delims) "Apply BUT-FUNC to a set of hbuttons in the visible part of the current buffer. Finds both ebuts and named ibuts that match any optional REGEXP-MATCH -(may be a partial match but must include delimiters). +\(may be a partial match but must include delimiters). Any regexp given must have grouping 1 match the label. @@ -1909,7 +1909,7 @@ excluding delimiters, not just one." (setq lbl-start-end (if (and start-delim end-delim) (ibut:label-p nil start-delim end-delim t t) - (or + (or ;; buttons can be longer ;; than two lines, so don't limit ;; the length. diff --git a/hsys-org.el b/hsys-org.el index a7c5a15e..add084ec 100644 --- a/hsys-org.el +++ b/hsys-org.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 2-Jul-16 at 14:54:14 -;; Last-Mod: 22-Nov-25 at 12:07:13 by Bob Weiner +;; Last-Mod: 31-Dec-25 at 00:03:26 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -512,7 +512,7 @@ either [[referent][description]] or [[referent]]. If point is on a HyWikiWord within an Org link and HyWikiWords are recognized in the current buffer, ignore the Org link and return nil -(handle these elsewhere as implicit buttons). +\(handle these elsewhere as implicit buttons). Assume caller has already checked that the current buffer is in `org-mode' or is looking for an Org link in a non-Org buffer type." diff --git a/hui-mini.el b/hui-mini.el index ac09f626..b20d1106 100644 --- a/hui-mini.el +++ b/hui-mini.el @@ -3,7 +3,7 @@ ;; Author: Bob Weiner ;; ;; Orig-Date: 15-Oct-91 at 20:13:17 -;; Last-Mod: 30-Nov-25 at 17:51:11 by Bob Weiner +;; Last-Mod: 31-Dec-25 at 00:07:10 by Mats Lidell ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; @@ -817,7 +817,7 @@ command instead. Typically prevents clashes over {\\`C-c' /}." ("Proportionally" (setq smart-scroll-proportional t)) ("Windowful" (setq smart-scroll-proportional nil)))) '(cust-hywiki-mode . - (("HyWiki Mode>") + (("HyWiki Mode>") ("All-Editable-Buffers" (hywiki-mode :all) "HyWikiWords are highlighted and active in buffers outside of the HyWiki page directory.") ("HyWiki-Pages-Only" (hywiki-mode :pages) @@ -1039,7 +1039,7 @@ command instead. Typically prevents clashes over {\\`C-c' /}." ;;; ************************************************************************ (defcustom hui:menu-highlight-flag t - "*If non-nil, highlight the first capitalized character of each menu item. + "Non-nil means highlight the first capitalized character of each menu item. Highlight with `read-multiple-choice-face'. The display must support underlined faces as well." :type 'boolean diff --git a/hywiki.el b/hywiki.el index bbdcbee3..9325c9a8 100644 --- a/hywiki.el +++ b/hywiki.el @@ -255,12 +255,12 @@ Each element is of the form: (wikiword . (referent-type . referent-value)).") ;;; ************************************************************************ (defcustom hywiki-word-highlight-flag t - "The default, non-nil value treats HyWikiWords in HyWiki pages as hyperlinks. + "Non-nil means HyWikiWords in HyWiki pages are treated as hyperlinks. A nil value disables HyWikiWord hyperlink buttons in both HyWiki pages and all other buffers (since it also disables `hywiki-mode'). Outside of HyWiki pages, the global minor mode `hywiki-mode' must be -manually enabled for auto-HyWikiWord highlighting. Interactively, {C-h +manually enabled for auto-HyWikiWord highlighting. Interactively, {C-h h h m a} does this; programmatically, use `(hywiki-mode :all)' to enable it. @@ -480,7 +480,7 @@ For reference, this is set when `window-buffer-change-functions' calls `hywiki-maybe-highlight-page-names' which calls `hywiki-in-page-p'.") (defcustom hywiki-referent-prompt-flag nil - "When t, the Action Key and HyWiki/Create always prompt for referent type. + "Non-nil means the Action Key and HyWiki/Create always prompt for referent type. Nil by default." :type 'boolean :initialize #'custom-initialize-default