(custom-set-variables
 ;; `custom-set-variables' was added by Custom.
 ;; If you edit it by hand, YOU COULD MESS IT UP, so be careful.
 '(marginalia-align-offset 1)
 '(marginalia-field-width 55)
 '(marginalia-mode nil))

(defcustom orderless-affix-dispatch-alist
`((?% . ,#'char-fold-to-regexp)
  (?! . ,#'orderless-not)
  (?& . ,#'orderless-annotation)
  (?, . ,#'orderless-initialism)
  (?= . ,#'orderless-literal)
  (?^ . ,#'orderless-literal-prefix)
  (?~ . ,#'orderless-flex))
"Alist associating characters to matching styles.
	The function `orderless-affix-dispatch' uses this list to
	determine how to match a pattern component: if the component
	either starts or ends with a character used as a key in this
	alist, the character is removed from the component and the rest is
	matched according the style associated to it."
:type `(alist
:key-type character
:value-type (choice
	(const :tag "Not" ,#'orderless-not)
	(const :tag "Flex" ,	#'orderless-flex)
	(const :tag "Regexp" ,	#'orderless-regexp)
	(const :tag "Literal" ,	#'orderless-literal)
	(const :tag "Prefixes" ,#'orderless-prefixes)
	(const :tag "Annotation" ,#'orderless-annotation)
	(const :tag "Initialism" ,#'orderless-initialism)
	(const :tag "Ignore diacritics" ,#'char-fold-to-regexp)
	(const :tag "Literal prefix" ,#'orderless-literal-prefix)
	(const :tag "Without literal" ,#'orderless-without-literal)
(function :tag "Custom matching style"))))

(defcustom orderless-affix-dispatch-alist
`((?% . ,#'char-fold-to-regexp)
  (?! . ,#'orderless-not)
  (?& . ,#'orderless-annotation)
  (?, . ,#'orderless-initialism)
  (?= . ,#'orderless-literal)
  (?^ . ,#'orderless-literal-prefix)
  (?~ . ,#'orderless-flex))
"Alist associating characters to matching styles.
	The function `orderless-affix-dispatch' uses this list to
	determine how to match a pattern component: if the component
	either starts or ends with a character used as a key in this
	alist, the character is removed from the component and the rest is
	matched according the style associated to it."
:type `(alist
:key-type character
:value-type (choice
	(const :tag "Not" ,#'orderless-not)
	(const :tag "Flex" ,	#'orderless-flex)
	(const :tag "Regexp" ,	#'orderless-regexp)
	(const :tag "Literal" ,	#'orderless-literal)
	(const :tag "Prefixes" ,#'orderless-prefixes)
	(const :tag "Annotation" ,#'orderless-annotation)
	(const :tag "Initialism" ,#'orderless-initialism)
	(const :tag "Ignore diacritics" ,#'char-fold-to-regexp)
	(const :tag "Literal prefix" ,#'orderless-literal-prefix)
	(const :tag "Without literal" ,#'orderless-without-literal)
(function :tag "Custom matching style"))))

Goodbye to Thien-Thi Nguyen

://lists.gnu.org/archive/html/info-gnu/2023-09/msg00000.html

We have learned with deep sadness that Thien-Thi Nguyen (ttn) died in October 2022. . .
://../////msg00000.html

(define-minor-mode hs-minor-mode
  ". . . "
  :group 'hideshow
  :lighter " hs"
  :keymap hs-minor-mode-map
  (setq hs-headline nil)
  (if hs-minor-mode
      (progn
        (hs-grok-mode-type)
        ;; Turn off this mode if we change major modes.
        (add-hook 'change-major-mode-hook
                  #'turn-off-hideshow
                  nil t)
        (setq-local line-move-ignore-invisible t)
        (add-to-invisibility-spec '(hs . t)))
    (remove-from-invisibility-spec '(hs . t))
    ;; hs-show-all does nothing unless h-m-m is non-nil.
    (let ((hs-minor-mode t))
      (hs-show-all))))

(define-minor-mode hs-minor-mode
  "Minor mode to selectively hide/show code and comment blocks.

When hideshow minor mode is on, the menu bar is augmented with hideshow
commands and the hidesho
w commands are enabled.
The value (hs . t) is added to `buffer-invisibility-spec'.

The main commands are: `hs-hide-all', `hs-show-all', `hs-hide-block',
`hs-show-block', `hs-hide-level' and `hs-toggle-hiding'.  There is also
`hs-hide-initial-comment-block'.

Turning hideshow minor mode off reverts the menu bar and the
variables to default values and disables the hideshow commands.

Lastly, the normal hook `hs-minor-mode-hook' is run using `run-hooks'.

Key bindings:
\\{hs-minor-mode-map}"
  :group 'hideshow
  :lighter " hs"
  :keymap hs-minor-mode-map
  (setq hs-headline nil)
  (if hs-minor-mode
      (progn
        (hs-grok-mode-type)
        ;; Turn off this mode if we change major modes.
        (add-hook 'change-major-mode-hook
                  #'turn-off-hideshow
                  nil t)
        (setq-local line-move-ignore-invisible t)
        (add-to-invisibility-spec '(hs . t)))
    (remove-from-invisibility-spec '(hs . t))
    ;; hs-show-all does nothing unless h-m-m is non-nil.
    (let ((hs-minor-mode t))
      (hs-show-all))))

"STPH-P": "{#Up}{^}",
"STPH-B": "{#Down}{^}",
"STPH-R": "{#Left}{^}",
"STPH-G": "{#Right}{^}",
"SR-RS": "{#Control_L(End)}{^}",
"STPH-RB": "{#Control_L(Left)}{^}",
"STPH-BG": "{#Control_L(Right)}{^}",
"TKUPT": "{PLOVER:ADD_TRANSLATION}",