[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole 1c5327c5fa 26/47: Keep group lines
From: |
ELPA Syncer |
Subject: |
[elpa] externals/hyperbole 1c5327c5fa 26/47: Keep group lines |
Date: |
Sun, 25 Jun 2023 15:58:36 -0400 (EDT) |
branch: externals/hyperbole
commit 1c5327c5fa52ee5e77a0cd01b233c52422b9a47d
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: Mats Lidell <mats.lidell@lidells.se>
Keep group lines
https://github.com/rswgnu/hyperbole/pull/343/files#r1237901090
---
hyrolo.el | 50 ++++++++++++++++++++++++++++++--------------------
1 file changed, 30 insertions(+), 20 deletions(-)
diff --git a/hyrolo.el b/hyrolo.el
index 191a748a72..211e270278 100644
--- a/hyrolo.el
+++ b/hyrolo.el
@@ -71,10 +71,11 @@
:group 'hyperbole)
(defcustom hyrolo-date-format "%m/%d/%Y"
- "Format of date string used in Rolo automatic date stamps.
+ "*Format of date string used in Rolo automatic date stamps.
Default is American style. See documentation of the function
`format-time-string' for format options."
- :type 'string)
+ :type 'string
+ :group 'hyperbole-rolo)
(defvar hyrolo-display-format-function
(lambda (entry)
@@ -83,32 +84,37 @@ Default is American style. See documentation of the
function
The argument is a rolo entry string.")
(defcustom hyrolo-email-format "%s\t\t<%s>"
- "Format string to use when adding an entry with e-mail addr from a mail msg.
+ "*Format string to use when adding an entry with e-mail addr from a mail msg.
It must contain a %s indicating where to put the entry name and a second
%s indicating where to put the e-mail address."
- :type 'string)
+ :type 'string
+ :group 'hyperbole-rolo)
(defvar hyrolo-entry-name-regexp "[-_a-zA-Z0-9@.]+\\( ?, ?[-_a-zA-Z0-9@.]+\\)?"
"*Regexp matching a hyrolo entry name after matching to
`hyrolo-entry-regexp'.")
(defcustom hyrolo-file-suffix-regexp "\\.\\(kotl\\|md\\|org\\|otl\\)$"
"File suffix regexp used to select files to search with HyRolo."
- :type 'string)
+ :type 'string
+ :group 'hyperbole-rolo)
(defcustom hyrolo-find-file-function #'find-file
- "Function to interactively display a `hyrolo-file-list' file for editing.
+ "*Function to interactively display a `hyrolo-file-list' file for editing.
Use the `hyrolo-edit' function instead to edit a new or existing entry."
- :type 'function)
+ :type 'function
+ :group 'hyperbole-rolo)
(defcustom hyrolo-find-file-noselect-function #'find-file-noselect
- "Function used by HyRolo to read `hyrolo-file-list' files into Emacs."
- :type 'function)
+ "*Function used by HyRolo to read `hyrolo-file-list' files into Emacs."
+ :type 'function
+ :group 'hyperbole-rolo)
(defcustom hyrolo-google-contacts-flag t
- "Non-nil means search Google Contacts on each hyrolo query.
+ "*Non-nil means search Google Contacts on each hyrolo query.
The google-contact package must be loaded and a gpg encryption
executable must be found as well (for Oauth security)."
- :type 'boolean)
+ :type 'boolean
+ :group 'hyperbole-rolo)
(defvar hyrolo-next-match-function #'hyrolo-next-regexp-match
"Value is the function to find next match within a HyRolo file.
@@ -179,30 +185,34 @@ A hyrolo-file consists of:
hyrolo-hdr-regexp;
(2) one or more rolo entries which each begin with
hyrolo-entry-regexp and may be nested."
+ :group 'hyperbole-rolo
:type '(repeat file))
(defcustom hyrolo-highlight-face 'match
- "Face used to highlight rolo search matches."
+ "*Face used to highlight rolo search matches."
:type 'face
- :initialize #'custom-initialize-default)
+ :initialize #'custom-initialize-default
+ :group 'hyperbole-rolo)
(defcustom hyrolo-kill-buffers-after-use nil
- "Non-nil means kill rolo file buffers after searching them for entries.
+ "*Non-nil means kill rolo file buffers after searching them for entries.
Only unmodified buffers are killed."
- :type 'boolean)
+ :type 'boolean
+ :group 'hyperbole-rolo)
(defcustom hyrolo-save-buffers-after-use t
- "Non-nil means save rolo file after an entry is killed."
- :type 'boolean)
+ "*Non-nil means save rolo file after an entry is killed."
+ :type 'boolean
+ :group 'hyperbole-rolo)
;; Insert or update the entry date each time an entry is added or edited.
(add-hook 'hyrolo-add-hook #'hyrolo-set-date)
(add-hook 'hyrolo-edit-hook #'hyrolo-set-date)
-(defvar hyrolo-yank-reformat-function #'ignore
- "*A function of two arguments, START and END, invoked after a `hyrolo-yank'.
+(defvar hyrolo-yank-reformat-function nil
+ "*A function of two arguments, START and END, invoked after a hyrolo-yank.
It should reformat the region given by the arguments to some preferred style.
-Default value is to perform no reformatting.")
+Default value is nil, meaning no reformmating is done.")
;;; ************************************************************************
;;; Commands
- [elpa] externals/hyperbole 00dcf534ca 32/47: Revert "Try and avoid using `hyperb:stack-frame`", (continued)
- [elpa] externals/hyperbole 00dcf534ca 32/47: Revert "Try and avoid using `hyperb:stack-frame`", ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole e1bd2e95e5 34/47: Revert Stefan set-buffer and macroexp-file-name (not in Emacs 27.1), ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole d115b6d357 35/47: Don't remove hyperb:automount-prefixes and hyperb:path-being-loaded, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole a06d9a4a8c 33/47: Revert "Get rid of `hyperb:stack-frame`", ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole a69d994d5a 31/47: ibut:operate - Add 2nd edit-flag parameter; non-nil means modifying, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole c085ed7099 39/47: Merge branch 'master' into rsw, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 7bd5a86a4c 40/47: Merge pull request #349 from rswgnu/rsw, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole f0182ad215 44/47: Merge branch 'master' into insert_missing_changelog_entry, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 4842d3fde0 14/47: (man-show): Fix miscompilation, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 3c6dcafe4f 21/47: Revert hunk, will be applied elsewhere, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 1c5327c5fa 26/47: Keep group lines,
ELPA Syncer <=
- [elpa] externals/hyperbole d6415dd593 27/47: Keep orig until explained, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 876ad5cea7 17/47: * hargs.el (hargs:set-string-to-complete): Don't mess with windows, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole cfca16eb9e 04/47: * hversion.el (hyperb:path-being-loaded): Delete function, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 095cb3c1db 19/47: Use gnu make pattern substitution for load-file command, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 0e006d705d 23/47: Remove XEmacs check, explain NeXT dependency, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 03b10e117b 01/47: Verify url is called, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole e09292484e 03/47: * hload-path.el (hyperb:dir): Use `macroexp-file-name`, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole d1c349912b 37/47: Merge pull request #348 from rswgnu/rsw_stefan-scratch-hyperbole-20230621-without-questions-no-fixme, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole db55e1a77b 45/47: Merge pull request #346 from rswgnu/insert_missing_changelog_entry, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole f7d4494daf 05/47: Try and avoid using `hyperb:stack-frame`, ELPA Syncer, 2023/06/25