Emacs Integration for Fossil

{"header":{"message":"add work packages; delete all non-newest-version packages","description":null,"timestamp":"2023-07-28T20:39:00.1325747Z","authors":[{}]},"hash":"ZU5HLEPB6A3RP3QDKJ743UGAQDIYELZP7QHJPP3FRBXGJNUBDIHAC","authors":[{"key":"BHf1ZbRWZHWq39qfVdduJPLfvYTwiqbzp7VKYJ4zvDNC"}],"deps":{"hashes":[["ZU5HLEPB6A3RP3QDKJ743UGAQDIYELZP7QHJPP3FRBXGJNUBDIHAC","add work packages; delete all non-newest-version packages"],["AA",null],["3N3DHW62FFNPXS5YCUE4FBHLLHYN665AHPBOALDB6EOKPZAEKQTAC","add meow"],["5XOSDQM7IGIC2UL4Q5J3WSQ7DMFSUV4UGSTABTILYLEEQWDRKTFQC","suppress warnings about cl-incf from debian-packaged eldav"],["QMWQGOYZCP7KEEEITUEVIANC37HHYXAN34YMTXGZDEDQRKAGHGOQC","Geiser + Chicken + Tramp; https://gitlab.com/emacs-geiser/chicken/-/merge_requests/3"],["Z2PGQQGGCT6OUP4KJ2T2J42W7QAXPZJ43BOSEU4SQ5GJ4WFK7CVAC","say that some on-load code is safe"],["EU4NRBVMDSHLWNJYAI76S77TRQ633XHLXK3XASUUIZGTQZCFRIIAC","add ement, mastodon, caml"],["VR6TFFAKC2B5U2FKZ37WPJPG7KP4DQLVO7FPMAGDCETVJS5MCCIAC","minor changes"],["DM6OTYHCTWITRKU3TLRG3CSJE6UULS333DX5OK4WM3GOZ4IOEVMAC","add outshine, for imposing outline structure on init.el"],["TSHPLAIW6L73G6TPVVZ64TCXNUPA3SBMRTGALNLBAKG6ARHGLJRAC","initial commit: git commit 5e25bf3ff2 plus vc-pijul"]],"deps":["3N3DHW62FFNPXS5YCUE4FBHLLHYN665AHPBOALDB6EOKPZAEKQTAC","5XOSDQM7IGIC2UL4Q5J3WSQ7DMFSUV4UGSTABTILYLEEQWDRKTFQC","QMWQGOYZCP7KEEEITUEVIANC37HHYXAN34YMTXGZDEDQRKAGHGOQC","Z2PGQQGGCT6OUP4KJ2T2J42W7QAXPZJ43BOSEU4SQ5GJ4WFK7CVAC","EU4NRBVMDSHLWNJYAI76S77TRQ633XHLXK3XASUUIZGTQZCFRIIAC"],"known":["TSHPLAIW6L73G6TPVVZ64TCXNUPA3SBMRTGALNLBAKG6ARHGLJRAC","DM6OTYHCTWITRKU3TLRG3CSJE6UULS333DX5OK4WM3GOZ4IOEVMAC","VR6TFFAKC2B5U2FKZ37WPJPG7KP4DQLVO7FPMAGDCETVJS5MCCIAC"]},"hunks":[{"Replacement":{"inode":{"change":7,"pos":349305},"path":"lisp/themes/acme-theme.el","line":1,"ins":{"up_context":[{"change":7,"pos":349305}],"down_context":[],"flag":"BLOCK","start":8465,"end":42669,"inode":{"change":7,"pos":349305}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":349305},"to":{"change":7,"start":349306,"end":382981},"introduced_by":7}],"inode":{"change":7,"pos":349305}},"ins_contents":[{"Add":";;; acme-theme.el --- A color theme for Emacs based on Acme & Sam from Plan 9"},{"Add":""},{"Add":";; Copyright (C) 2020 Ian Yi-En Pan"},{"Add":""},{"Add":";; This program is free software; you can redistribute it and/or modify"},{"Add":";; it under the terms of the GNU General Public License as published by"},{"Add":";; the Free Software Foundation, either version 3 of the License, or"},{"Add":";; (at your option) any later version."},{"Add":""},{"Add":";; This program is distributed in the hope that it will be useful,"},{"Add":";; but WITHOUT ANY WARRANTY; without even the implied warranty of"},{"Add":";; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the"},{"Add":";; GNU General Public License for more details."},{"Add":""},{"Add":";; You should have received a copy of the GNU General Public License"},{"Add":";; along with this program. If not, see ."},{"Add":""},{"Add":";;; Commentary:"},{"Add":""},{"Add":";;; Credits:"},{"Add":";; This theme was modified from plan9-theme.el by John Louis Del Rosario"},{"Add":""},{"Add":";;; Code:"},{"Add":""},{"Add":"(deftheme acme \"Theme inspired by Acme\")"},{"Add":""},{"Add":";;; Color Palette"},{"Add":""},{"Add":"(defvar acme-colors-alist"},{"Add":" '((\"bg\" . \"#FFFFE8\")"},{"Add":" (\"bg-alt\" . \"#FFFFD8\")"},{"Add":" (\"bg-alt2\" . \"#eFeFd8\")"},{"Add":" (\"bg-dark\" . \"#E5E5D0\")"},{"Add":" (\"fg\" . \"#000000\")"},{"Add":" (\"fg-alt\" . \"#B8B09A\")"},{"Add":" (\"fg-alt-dark\" . \"#988d6d\")"},{"Add":" (\"fg-light\" . \"#CCCCB7\")"},{"Add":" (\"highlight\" . \"#e8eb98\")"},{"Add":" (\"cyan\" . \"#007777\")"},{"Add":" (\"cyan-light\" . \"#a8efeb\")"},{"Add":" (\"red\" . \"#880000\")"},{"Add":" (\"red-light\" . \"#f8e8e8\")"},{"Add":" (\"yellow\" . \"#888838\")"},{"Add":" (\"yellow-light\" . \"#f8fce8\")"},{"Add":" (\"green\" . \"#005500\")"},{"Add":" (\"green-light\" . \"#e8fce8\")"},{"Add":" (\"blue\" . \"#1054af\")"},{"Add":" (\"blue-light\" . \"#e1faff\")"},{"Add":" (\"purple\" . \"#555599\")"},{"Add":" (\"purple-light\" . \"#ffeaff\")))"},{"Add":""},{"Add":"(defmacro acme/with-color-variables (&rest body)"},{"Add":" \"`let' bind all colors defined in `acme-colors-alist' around BODY."},{"Add":"Also bind `class' to ((class color) (min-colors 89)).\""},{"Add":" (declare (indent 0))"},{"Add":" `(let ((class '((class color) (min-colors 89)))"},{"Add":" ,@(mapcar (lambda (cons)"},{"Add":" (list (intern (car cons)) (cdr cons)))"},{"Add":" acme-colors-alist))"},{"Add":" ,@body))"},{"Add":""},{"Add":";;; Theme Faces"},{"Add":"(acme/with-color-variables"},{"Add":" (custom-theme-set-faces"},{"Add":" 'acme"},{"Add":""},{"Add":";;;; Built-in"},{"Add":""},{"Add":";;;;; basic coloring"},{"Add":" '(button ((t (:underline t))))"},{"Add":" `(link ((t (:foreground ,blue :underline t :weight normal))))"},{"Add":" `(link-visited ((t (:foreground ,purple :underline t :weight normal))))"},{"Add":" `(default ((t (:foreground ,fg :background ,bg))))"},{"Add":" `(cursor ((t (:foreground ,bg :background ,fg))))"},{"Add":" `(escape-glyph ((t (:foreground ,cyan-light :bold nil))))"},{"Add":" `(fringe ((t (:foreground ,fg :background ,bg))))"},{"Add":" `(line-number ((t (:foreground ,fg :background ,bg-alt2))))"},{"Add":" `(line-number-current-line ((t (:foreground ,fg :background ,bg-alt2))))"},{"Add":" `(header-line ((t (:foreground ,fg :background ,blue-light :box t))))"},{"Add":" `(highlight ((t (:background ,highlight))))"},{"Add":" `(success ((t (:foreground ,green :weight normal))))"},{"Add":" `(warning ((t (:foreground ,red :weight normal))))"},{"Add":""},{"Add":";;;;; compilation"},{"Add":" `(compilation-column-face ((t (:foreground ,yellow :background ,yellow-light))))"},{"Add":" `(compilation-column-number ((t (:foreground ,yellow :background ,yellow-light))))"},{"Add":" `(compilation-error-face ((t (:foreground ,red :weight normal :underline t))))"},{"Add":" `(compilation-face ((t (:foreground ,fg))))"},{"Add":" `(compilation-info-face ((t (:foreground ,blue))))"},{"Add":" `(compilation-info ((t (:foreground ,blue :underline t))))"},{"Add":" `(compilation-line-face ((t (:foreground ,purple))))"},{"Add":" `(compilation-line-number ((t (:foreground ,yellow :background ,yellow-light))))"},{"Add":" `(compilation-message-face ((t (:foreground ,blue))))"},{"Add":" `(compilation-warning-face ((t (:foreground ,yellow :weight normal :underline t))))"},{"Add":" `(compilation-mode-line-exit ((t (:foreground ,cyan :weight normal))))"},{"Add":" `(compilation-mode-line-fail ((t (:foreground ,red :weight normal))))"},{"Add":" `(compilation-mode-line-run ((t (:foreground ,purple :weight normal))))"},{"Add":""},{"Add":";;;;; grep"},{"Add":" `(grep-context-face ((t (:foreground ,fg-alt))))"},{"Add":" `(grep-error-face ((t (:foreground ,red :weight normal :underline t))))"},{"Add":" `(grep-hit-face ((t (:foreground ,purple :weight normal))))"},{"Add":" `(grep-match-face ((t (:foreground ,cyan :weight normal))))"},{"Add":" `(match ((t (:background ,cyan :foreground ,cyan-light))))"},{"Add":""},{"Add":";;;;; ag"},{"Add":" `(ag-hit-face ((t (:foreground ,green :weight normal))))"},{"Add":" `(ag-match-face ((t (:foreground ,cyan :background ,cyan-light :weight normal))))"},{"Add":""},{"Add":";;;;; isearch"},{"Add":" `(isearch ((t (:foreground ,fg :weight normal :background ,cyan-light))))"},{"Add":" `(isearch-fail ((t (:foreground ,fg :weight normal :background ,red))))"},{"Add":" `(lazy-highlight ((t (:foreground ,fg :weight normal :background ,blue-light))))"},{"Add":""},{"Add":" `(menu ((t (:foreground ,bg :background ,fg))))"},{"Add":" `(minibuffer-prompt ((t (:foreground ,fg :weight normal))))"},{"Add":" `(region ((,class (:background ,highlight :foreground ,fg)) (t :inverse-video t)))"},{"Add":" `(secondary-selection ((t (:background ,green-light))))"},{"Add":" `(trailing-whitespace ((t (:background ,red-light))))"},{"Add":" `(vertical-border ((t (:foreground ,cyan))))"},{"Add":""},{"Add":";;;;; font lock"},{"Add":" `(font-lock-builtin-face ((t (:foreground ,fg :weight normal))))"},{"Add":" `(font-lock-function-name-face ((t (:foreground ,fg :weight normal))))"},{"Add":" `(font-lock-string-face ((t (:foreground ,red))))"},{"Add":" `(font-lock-keyword-face ((t (:foreground ,blue :weight bold)))) ; if, else, for, while, return..."},{"Add":" `(font-lock-type-face ((t (:foreground ,fg :weight bold)))) ; int, float, string, void..."},{"Add":" `(font-lock-constant-face ((t (:foreground ,fg :weight bold)))) ; NULL, nullptr, true, false..."},{"Add":" `(font-lock-variable-name-face ((t (:foreground ,fg :weight normal))))"},{"Add":" `(font-lock-comment-face ((t (:foreground ,green :italic nil))))"},{"Add":" `(font-lock-comment-delimiter-face ((t (:foreground ,green :italic nil))))"},{"Add":" `(font-lock-doc-face ((t (:foreground ,yellow :italic t))))"},{"Add":" `(font-lock-negation-char-face ((t (:foreground ,red :weight normal))))"},{"Add":" `(font-lock-preprocessor-face ((t (:foreground ,red :weight normal))))"},{"Add":" `(font-lock-regexp-grouping-construct ((t (:foreground ,purple :weight normal))))"},{"Add":" `(font-lock-regexp-grouping-backslash ((t (:foreground ,purple :weight normal))))"},{"Add":" `(font-lock-warning-face ((t (:foreground ,red :weight normal))))"},{"Add":""},{"Add":" ;;;; table"},{"Add":" `(table-cell ((t (:background ,bg-alt2))))"},{"Add":""},{"Add":" ;;;; ledger"},{"Add":" `(ledger-font-directive-face ((t (:foreground ,cyan))))"},{"Add":" `(ledger-font-periodic-xact-face ((t (:inherit ledger-font-directive-face))))"},{"Add":" `(ledger-font-posting-account-face ((t (:foreground ,blue))))"},{"Add":" `(ledger-font-posting-amount-face ((t (:foreground ,red))))"},{"Add":" `(ledger-font-posting-date-face ((t (:foreground ,red :weight normal))))"},{"Add":" `(ledger-font-payee-uncleared-face ((t (:foreground ,purple))))"},{"Add":" `(ledger-font-payee-cleared-face ((t (:foreground ,fg))))"},{"Add":" `(ledger-font-payee-pending-face ((t (:foreground ,yellow))))"},{"Add":" `(ledger-font-xact-highlight-face ((t (:background ,bg-alt2))))"},{"Add":""},{"Add":";;;; Third-party"},{"Add":""},{"Add":""},{"Add":";;;;; anzu"},{"Add":" `(anzu-mode-line ((t (:foreground ,yellow :background ,yellow-light :weight normal))))"},{"Add":""},{"Add":";;;;; clojure-mode"},{"Add":" `(clojure-interop-method-face ((t (:inherit font-lock-function-name-face))))"},{"Add":""},{"Add":";;;;; clojure-test-mode"},{"Add":" `(clojure-test-failure-face ((t (:foreground ,red :weight normal :underline t))))"},{"Add":" `(clojure-test-error-face ((t (:foreground ,red :weight normal :underline t))))"},{"Add":" `(clojure-test-success-face ((t (:foreground ,green :weight normal :underline t))))"},{"Add":""},{"Add":";;;;; diff"},{"Add":" `(diff-added ((,class (:foreground ,fg :background ,green-light))"},{"Add":" (t (:foreground ,fg :background ,green-light))))"},{"Add":" `(diff-changed ((t (:foreground ,yellow))))"},{"Add":" `(diff-context ((t (:foreground ,fg))))"},{"Add":" `(diff-removed ((,class (:foreground ,fg :background ,red-light))"},{"Add":" (t (:foreground ,fg :background ,red-light))))"},{"Add":" `(diff-refine-added ((t :inherit diff-added :background ,green-light :weight normal)))"},{"Add":" `(diff-refine-change ((t :inherit diff-changed :weight normal)))"},{"Add":" `(diff-refine-removed ((t :inherit diff-removed :background ,red-light :weight normal)))"},{"Add":" `(diff-header ((,class (:foreground ,fg :weight normal))"},{"Add":" (t (:foreground ,purple-light :weight normal))))"},{"Add":" `(diff-file-header ((,class (:foreground ,fg :background ,cyan-light :weight normal))"},{"Add":" (t (:foreground ,fg :background ,cyan-light :weight normal))))"},{"Add":" `(diff-hunk-header ((,class (:foreground ,green :weight normal))"},{"Add":" (t (:foreground ,green :weight normal))))"},{"Add":""},{"Add":";;;;; diff-hl"},{"Add":" `(diff-hl-insert ((t (:foreground ,fg :background ,green-light))))"},{"Add":" `(diff-hl-delete ((t (:foreground ,fg :background ,red-light))))"},{"Add":" `(diff-hl-change ((t (:foreground ,fg :background ,yellow-light))))"},{"Add":""},{"Add":";;;;; dired/dired+/dired-subtree"},{"Add":" `(dired-directory ((t (:foreground ,blue :weight bold))))"},{"Add":" `(diredp-display-msg ((t (:foreground ,blue))))"},{"Add":" `(diredp-compressed-file-suffix ((t (:foreground ,purple))))"},{"Add":" `(diredp-date-time ((t (:foreground ,green))))"},{"Add":" `(diredp-deletion ((t (:foreground ,red))))"},{"Add":" `(diredp-deletion-file-name ((t (:foreground ,red))))"},{"Add":" `(diredp-dir-heading ((t (:foreground ,blue :background ,blue-light :weight bold))))"},{"Add":" `(diredp-dir-priv ((t (:foreground ,blue))))"},{"Add":" `(diredp-exec-priv ((t (:foreground ,yellow))))"},{"Add":" `(diredp-executable-tag ((t (:foreground ,yellow))))"},{"Add":" `(diredp-file-name ((t (:foreground ,fg))))"},{"Add":" `(diredp-file-suffix ((t (:foreground ,yellow))))"},{"Add":" `(diredp-flag-mark ((t (:foreground ,cyan))))"},{"Add":" `(diredp-flag-mark-line ((t (:foreground ,cyan))))"},{"Add":" `(diredp-ignored-file-name ((t (:foreground ,fg-light))))"},{"Add":" `(diredp-link-priv ((t (:foreground ,purple))))"},{"Add":" `(diredp-mode-line-flagged ((t (:foreground ,yellow))))"},{"Add":" `(diredp-mode-line-marked ((t (:foreground ,yellow))))"},{"Add":" `(diredp-no-priv ((t (:foreground ,fg))))"},{"Add":" `(diredp-number ((t (:foreground ,blue))))"},{"Add":" `(diredp-other-priv ((t (:foreground ,fg))))"},{"Add":" `(diredp-rare-priv ((t (:foreground ,fg))))"},{"Add":" `(diredp-read-priv ((t (:foreground ,fg))))"},{"Add":" `(diredp-symlink ((t (:foreground ,fg :background ,blue-light))))"},{"Add":" `(diredp-write-priv ((t (:foreground ,fg))))"},{"Add":" `(diredp-dir-name ((t (:foreground ,blue :weight bold))))"},{"Add":" `(dired-subtree-depth-1-face ((t (:background ,bg))))"},{"Add":" `(dired-subtree-depth-2-face ((t (:background ,bg))))"},{"Add":" `(dired-subtree-depth-3-face ((t (:background ,bg))))"},{"Add":""},{"Add":";;;;; elfeed"},{"Add":" `(elfeed-search-date-face ((t (:foreground ,blue))))"},{"Add":" `(elfeed-search-title-face ((t (:foreground ,fg))))"},{"Add":" `(elfeed-search-unread-title-facee ((t (:foreground ,fg))))"},{"Add":" `(elfeed-search-feed-face ((t (:foreground ,green))))"},{"Add":" `(elfeed-search-tag-face ((t (:foreground ,red))))"},{"Add":" `(elfeed-search-unread-count-face ((t (:foreground ,fg))))"},{"Add":""},{"Add":";;;;; erc"},{"Add":" `(erc-default-face ((t (:foreground ,fg))))"},{"Add":" `(erc-header-line ((t (:inherit header-line))))"},{"Add":" `(erc-action-face ((t (:inherit erc-default-face))))"},{"Add":" `(erc-bold-face ((t (:inherit erc-default-face :weight normal))))"},{"Add":" `(erc-underline-face ((t (:underline t))))"},{"Add":" `(erc-error-face ((t (:inherit font-lock-warning-face))))"},{"Add":" `(erc-prompt-face ((t (:foreground ,green :background ,green-light :weight normal))))"},{"Add":" `(erc-timestamp-face ((t (:foreground ,green :background ,green-light))))"},{"Add":" `(erc-direct-msg-face ((t (:inherit erc-default))))"},{"Add":" `(erc-notice-face ((t (:foreground ,fg-light))))"},{"Add":" `(erc-highlight-face ((t (:background ,highlight))))"},{"Add":""},{"Add":" `(erc-input-face ((t (:foreground ,fg :background ,bg-alt2))))"},{"Add":" `(erc-current-nick-face ((t (:foreground ,fg :background ,cyan-light :weight normal :box (:line-width 1 :style released-button)))))"},{"Add":" `(erc-nick-default-face ((t (:weight normal :background ,bg-alt2))))"},{"Add":" `(erc-my-nick-face ((t (:foreground ,fg :background ,cyan-light :weight normal :box (:line-width 1 :style released-button)))))"},{"Add":" `(erc-nick-msg-face ((t (:inherit erc-default))))"},{"Add":" `(erc-fool-face ((t (:inherit erc-default))))"},{"Add":" `(erc-pal-face ((t (:foreground ,purple :weight normal))))"},{"Add":""},{"Add":" `(erc-dangerous-host-face ((t (:inherit font-lock-warning-face))))"},{"Add":" `(erc-keyword-face ((t (:foreground ,yellow :weight normal))))"},{"Add":""},{"Add":" ;;;;; evil"},{"Add":" `(evil-search-highlight-persist-highlight-face ((t (:inherit lazy-highlight))))"},{"Add":""},{"Add":";;;;; flx"},{"Add":" `(flx-highlight-face ((t (:foreground ,yellow :background ,green-light :weight normal :underline t))))"},{"Add":""},{"Add":";;;;; company"},{"Add":" `(company-tooltip ((t (:background ,green-light))))"},{"Add":" `(company-tooltip-selection ((t (:background ,cyan-light))))"},{"Add":" `(company-tooltip-common-selection ((t (:background ,cyan-light))))"},{"Add":" `(company-tooltip-mouse ((t (:background ,blue-light))))"},{"Add":" `(company-tooltip-search ((t (:foreground ,red))))"},{"Add":" `(company-tooltip-common ((t (:foreground ,red :background ,green-light))))"},{"Add":" `(company-tooltip-annotation ((t (:foreground ,green :background ,green-light))))"},{"Add":" `(company-scrollbar-fg ((t (:background ,cyan))))"},{"Add":" `(company-scrollbar-bg ((t (:background ,green-light))))"},{"Add":" `(company-preview ((t (:foreground ,fg :background ,cyan-light))))"},{"Add":" `(company-preview-common ((t (:foreground ,fg :background ,cyan-light))))"},{"Add":""},{"Add":";;;;; flycheck"},{"Add":" `(flycheck-error ((((supports :underline (:style wave)))"},{"Add":" (:underline (:style wave :color ,red) :inherit unspecified))"},{"Add":" (t (:foreground ,red :weight normal :underline t))))"},{"Add":" `(flycheck-warning ((((supports :underline (:style wave)))"},{"Add":" (:underline (:style wave :color ,yellow) :inherit unspecified))"},{"Add":" (t (:foreground ,yellow :weight normal :underline t))))"},{"Add":" `(flycheck-info ((((supports :underline (:style wave)))"},{"Add":" (:underline (:style wave :color ,purple) :inherit unspecified))"},{"Add":" (t (:foreground ,purple :weight normal :underline t))))"},{"Add":" `(flycheck-fringe-error ((t (:foreground ,red :weight normal))))"},{"Add":" `(flycheck-fringe-warning ((t (:foreground ,yellow :weight normal))))"},{"Add":" `(flycheck-fringe-info ((t (:foreground ,purple :weight normal))))"},{"Add":""},{"Add":";;;;; highlight-symbol"},{"Add":" `(highlight-symbol-face ((t (:background ,bg-alt2))))"},{"Add":""},{"Add":";;;;; highlight-numbers"},{"Add":" `(highlight-numbers-number ((t (:foreground ,blue))))"},{"Add":""},{"Add":";;;;; highlight-operators"},{"Add":" `(highlight-operators-face ((t (:foreground ,fg))))"},{"Add":""},{"Add":";;;;; hl-line-mode"},{"Add":" `(hl-line-face ((,class (:background ,bg-alt2)) (t :weight normal)))"},{"Add":""},{"Add":";;;;; hl-sexp"},{"Add":" `(hl-sexp-face ((,class (:background ,bg-alt2)) (t :weight normal)))"},{"Add":""},{"Add":";;;;; ido-mode"},{"Add":" `(ido-first-match ((t (:foreground ,fg :weight normal))))"},{"Add":" `(ido-only-match ((t (:foreground ,fg :weight normal))))"},{"Add":" `(ido-subdir ((t (:foreground ,blue))))"},{"Add":" `(ido-indicator ((t (:foreground ,yellow))))"},{"Add":""},{"Add":";;;;; ido-vertical"},{"Add":" `(ido-vertical-first-match-face ((t (:foreground ,fg :background ,cyan-light :weight normal))))"},{"Add":" `(ido-vertical-only-match-face ((t (:foreground ,red :background ,red-light :weight normal))))"},{"Add":" `(ido-vertical-match-face ((t (:foreground ,fg :background ,green-light :weight normal :underline t))))"},{"Add":""},{"Add":";;;;; indent-guide"},{"Add":" `(indent-guide-face ((t (:foreground ,highlight))))"},{"Add":""},{"Add":";;;;; ivy"},{"Add":" `(ivy-current-match ((t (:background ,blue-light :underline t :extend t))))"},{"Add":" `(ivy-minibuffer-match-face-1 ((t (:background ,bg-alt2))))"},{"Add":" `(ivy-minibuffer-match-face-2 ((t (:background ,cyan-light))))"},{"Add":" `(ivy-minibuffer-match-face-3 ((t (:background ,purple-light))))"},{"Add":" `(ivy-minibuffer-match-face-3 ((t (:background ,blue-light))))"},{"Add":""},{"Add":";;;;; js2-mode"},{"Add":" `(js2-warning ((t (:underline ,yellow))))"},{"Add":" `(js2-error ((t (:foreground ,red :weight normal))))"},{"Add":" `(js2-jsdoc-tag ((t (:foreground ,purple))))"},{"Add":" `(js2-jsdoc-type ((t (:foreground ,blue))))"},{"Add":" `(js2-jsdoc-value ((t (:foreground ,cyan))))"},{"Add":" `(js2-function-param ((t (:foreground ,fg))))"},{"Add":" `(js2-external-variable ((t (:foreground ,cyan))))"},{"Add":""},{"Add":";;;;; linum-mode"},{"Add":" `(linum ((t (:foreground ,fg-light))))"},{"Add":""},{"Add":";;;;; lsp-mode"},{"Add":" `(lsp-face-highlight-textual ((t (:background ,bg-dark))))"},{"Add":" `(lsp-face-highlight-read ((t (:background ,purple-light))))"},{"Add":" `(lsp-face-highlight-write ((t (:background ,green-light))))"},{"Add":""},{"Add":";;;;; magit"},{"Add":" `(magit-section-heading ((t (:foreground ,cyan :background ,blue-light :weight normal :underline t))))"},{"Add":" `(magit-section-highlight ((t (:background ,bg-alt2))))"},{"Add":" `(magit-section-heading-selection ((t (:background ,highlight))))"},{"Add":" `(magit-filename ((t (:foreground ,fg))))"},{"Add":" `(magit-hash ((t (:foreground ,yellow :weight normal))))"},{"Add":" `(magit-tag ((t (:foreground ,purple :weight normal))))"},{"Add":" `(magit-refname ((t (:foreground ,purple :weight normal))))"},{"Add":" `(magit-head ((t (:foreground ,green :weight normal))))"},{"Add":""},{"Add":" `(magit-branch-local ((t (:foreground ,blue :background ,blue-light"},{"Add":" :weight normal))))"},{"Add":" `(magit-branch-remote ((t (:foreground ,green :background ,green-light"},{"Add":" :weight normal))))"},{"Add":" `(magit-branch-current ((t (:foreground ,cyan :background ,cyan-light"},{"Add":" :weight normal"},{"Add":" :box (:line-width 1 :color ,cyan)))))"},{"Add":" `(magit-diff-file-heading ((t (:foreground ,fg :weight normal))))"},{"Add":" `(magit-diff-file-heading-highlight ((t (:background ,bg-alt2))))"},{"Add":" `(magit-diff-file-heading-selection ((t (:foreground ,red :background ,highlight))))"},{"Add":" `(magit-diff-hunk-heading ((t (:foreground ,blue :background ,blue-light :weight normal :underline t))))"},{"Add":" `(magit-diff-hunk-heading-highlight ((t (:background ,cyan-light))))"},{"Add":" `(magit-diff-added ((t (:foreground ,green :background ,green-light))))"},{"Add":" `(magit-diff-removed ((t (:foreground ,red :background ,red-light))))"},{"Add":" `(magit-diff-context ((t (:foreground ,fg-alt-dark :background nil))))"},{"Add":" `(magit-diff-added-highlight ((t (:foreground ,green :background ,green-light))))"},{"Add":" `(magit-diff-removed-highlight ((t (:foreground ,red :background ,red-light))))"},{"Add":" `(magit-diff-context-highlight ((t (:foreground ,fg-alt-dark :background ,bg-alt2))))"},{"Add":" `(magit-diffstat-added ((t (:foreground ,green :background ,green-light :weight normal))))"},{"Add":" `(magit-diffstat-removed ((t (:foreground ,red :background ,red-light :weight normal))))"},{"Add":" `(magit-log-author ((t (:foreground ,blue :weight normal))))"},{"Add":" `(magit-log-date ((t (:foreground ,purple :weight normal))))"},{"Add":" `(magit-log-graph ((t (:foreground ,red :weight normal))))"},{"Add":" `(magit-blame-heading ((t (:foreground ,fg-alt-dark :background ,bg-alt2))))"},{"Add":""},{"Add":";;;;; paren-face"},{"Add":" `(parenthesis ((t (:foreground \"#CCCCB7\"))))"},{"Add":""},{"Add":";;;;; project-explorer"},{"Add":" `(pe/file-face ((t (:foreground ,fg))))"},{"Add":" `(pe/directory-face ((t (:foreground ,blue :weight normal))))"},{"Add":""},{"Add":";;;;; rainbow-delimiters"},{"Add":" `(rainbow-delimiters-depth-1-face ((t (:foreground ,green))))"},{"Add":" `(rainbow-delimiters-depth-2-face ((t (:foreground ,blue))))"},{"Add":" `(rainbow-delimiters-depth-3-face ((t (:foreground ,red))))"},{"Add":""},{"Add":";;;;; show-paren"},{"Add":" `(show-paren-mismatch ((t (:foreground ,yellow :background ,red :weight normal))))"},{"Add":" `(show-paren-match ((t (:foreground ,fg :background ,cyan-light :weight normal))))"},{"Add":""},{"Add":";;;;; mode-line/sml-mode-line"},{"Add":" `(mode-line ((,class (:foreground ,fg :background ,blue-light :box t))))"},{"Add":" `(mode-line-inactive ((t (:foreground ,fg :background ,bg-dark :box t))))"},{"Add":" `(mode-line-buffer-id ((t (:foreground ,fg :weight bold)))) ; associated buffer/file name"},{"Add":" `(sml/global ((t (:foreground ,fg))))"},{"Add":" `(sml/modes ((t (:foreground ,green :background ,green-light))))"},{"Add":" `(sml/filename ((t (:foreground ,red))))"},{"Add":" `(sml/folder ((t (:foreground ,fg))))"},{"Add":" `(sml/prefix ((t (:foreground ,fg))))"},{"Add":" `(sml/read-only ((t (:foreground ,fg))))"},{"Add":" `(sml/modified ((t (:foreground ,red :weight normal))))"},{"Add":" `(sml/outside-modified ((t (:background ,red :foreground ,red-light :weight normal))))"},{"Add":" `(sml/line-number ((t (:foreground ,fg :weight normal))))"},{"Add":" `(sml/col-number ((t (:foreground ,fg :weight normal))))"},{"Add":" `(sml/vc ((t (:foreground ,fg :weight normal))))"},{"Add":" `(sml/vc-edited ((t (:foreground ,red :weight normal))))"},{"Add":" `(sml/git ((t (:foreground ,fg :weight normal))))"},{"Add":""},{"Add":";;;;; sh"},{"Add":" `(sh-heredoc-face ((t (:foreground ,purple))))"},{"Add":""},{"Add":";;;;; web-mode"},{"Add":" `(web-mode-builtin-face ((t (:inherit ,font-lock-builtin-face))))"},{"Add":" `(web-mode-comment-face ((t (:inherit ,font-lock-comment-face))))"},{"Add":" `(web-mode-constant-face ((t (:inherit ,font-lock-constant-face))))"},{"Add":" `(web-mode-doctype-face ((t (:inherit ,font-lock-comment-face))))"},{"Add":" `(web-mode-folded-face ((t (:underline t))))"},{"Add":" `(web-mode-function-name-face ((t (:foreground ,fg :weight normal))))"},{"Add":" `(web-mode-html-attr-name-face ((t (:foreground ,fg))))"},{"Add":" `(web-mode-html-attr-value-face ((t (:inherit ,font-lock-string-face))))"},{"Add":" `(web-mode-html-tag-face ((t (:foreground ,blue))))"},{"Add":" `(web-mode-keyword-face ((t (:inherit ,font-lock-keyword-face))))"},{"Add":" `(web-mode-preprocessor-face ((t (:inherit ,font-lock-preprocessor-face))))"},{"Add":" `(web-mode-string-face ((t (:inherit ,font-lock-string-face))))"},{"Add":" `(web-mode-type-face ((t (:inherit ,font-lock-type-face))))"},{"Add":" `(web-mode-variable-name-face ((t (:inherit ,font-lock-variable-name-face))))"},{"Add":" `(web-mode-server-background-face ((t (:background ,green-light))))"},{"Add":" `(web-mode-server-comment-face ((t (:inherit web-mode-comment-face))))"},{"Add":" `(web-mode-server-string-face ((t (:foreground ,red))))"},{"Add":" `(web-mode-symbol-face ((t (:inherit font-lock-constant-face))))"},{"Add":" `(web-mode-warning-face ((t (:inherit font-lock-warning-face))))"},{"Add":" `(web-mode-whitespaces-face ((t (:background ,red-light))))"},{"Add":" `(web-mode-block-face ((t (:background ,green-light))))"},{"Add":" `(web-mode-current-element-highlight-face ((t (:foreground ,fg :background ,blue-light))))"},{"Add":""},{"Add":";;;;; which-func-mode"},{"Add":" `(which-func ((t (:foreground ,purple :background ,purple-light))))"},{"Add":""},{"Add":";;;;; yascroll"},{"Add":" `(yascroll:thumb-text-area ((t (:background ,highlight))))"},{"Add":" `(yascroll:thumb-fringe ((t (:background ,bg :foreground ,bg :box (:line-width 1 :style released-button)))))"},{"Add":""},{"Add":";;;;; Org"},{"Add":" `(org-level-1 ((t (:height 1.4 :weight normal :background ,bg-dark))))"},{"Add":" `(org-level-2 ((t (:height 1.2 :background ,bg-dark))))"},{"Add":" `(org-level-3 ((t (:weight normal))))"},{"Add":" `(org-level-4 ((t (:foreground ,fg-alt-dark :weight normal))))"},{"Add":" `(org-level-5 ((t (:foreground ,fg-alt-dark))))"},{"Add":" `(org-level-6 ((t (:foreground ,fg-alt))))"},{"Add":" `(org-level-7 ((t (:foreground ,fg-alt))))"},{"Add":" `(org-level-8 ((t (:foreground ,fg-alt))))"},{"Add":" `(org-meta-line ((t (:foreground ,green))))"},{"Add":" `(org-document-info ((t (:foreground ,cyan :weight normal))))"},{"Add":" `(org-document-info-keyword ((t (:foreground ,cyan))))"},{"Add":" `(org-document-title ((t (:foreground ,fg :height 1.5 :weight normal :family \"Sans Serif\" :underline t))))"},{"Add":" `(org-todo ((t (:foreground ,yellow :background ,bg-alt2 :weight normal :box (:line-width 1 :style released-button)))))"},{"Add":" `(org-done ((t (:foreground ,green :background ,green-light :weight normal :box (:style released-button)))))"},{"Add":" `(org-date ((t (:foreground ,purple))))"},{"Add":" `(org-table ((t (:foreground ,purple))))"},{"Add":" `(org-formula ((t (:foreground ,blue :background ,bg-alt2))))"},{"Add":" `(org-code ((t (:foreground ,red :background ,bg-alt2))))"},{"Add":" `(org-verbatim ((t (:foreground ,fg :background ,bg-alt2 :underline t))))"},{"Add":" `(org-special-keyword ((t (:foreground ,cyan))))"},{"Add":" `(org-agenda-date ((t (:foreground ,cyan))))"},{"Add":" `(org-agenda-structure ((t (:foreground ,purple))))"},{"Add":" `(org-block ((t (:foreground ,red))))"},{"Add":" `(org-block-background ((t (:background ,bg-alt2))))"},{"Add":" `(org-block-begin-line ((t (:foreground ,fg-alt :background ,bg-dark :italic t))))"},{"Add":" `(org-block-end-line ((t (:foreground ,fg-alt :background ,bg-dark :italic t))))"},{"Add":""},{"Add":";;;;; origami"},{"Add":" `(origami-fold-replacement-face ((t (:foreground ,red :background ,red-light"},{"Add":" :box (:line-width -1)))))"},{"Add":""},{"Add":";;;;; git-gutter"},{"Add":" `(git-gutter:added ((t (:foreground ,green :weight normal))))"},{"Add":" `(git-gutter:deleted ((t (:foreground ,red :weight normal))))"},{"Add":" `(git-gutter:modified ((t (:foreground ,blue :weight normal))))"},{"Add":" `(git-gutter-fr:added ((t (:foreground ,green :weight normal))))"},{"Add":" `(git-gutter-fr:deleted ((t (:foreground ,red :weight normal))))"},{"Add":" `(git-gutter-fr:modified ((t (:foreground ,blue :weight normal))))"},{"Add":""},{"Add":";;;;; mu4e, mail"},{"Add":" `(mu4e-header-highlight-face ((t (:background ,highlight))))"},{"Add":" `(mu4e-unread-face ((t (:foreground ,blue :weight normal))))"},{"Add":" `(mu4e-flagged-face ((t (:foreground ,red :background ,red-light :weight normal))))"},{"Add":" `(mu4e-compose-separator-face ((t (:foreground ,green))))"},{"Add":" `(mu4e-header-value-face ((t (:foreground ,fg))))"},{"Add":" `(message-header-name ((t (:foreground ,purple :weight normal))))"},{"Add":" `(message-header-to ((t (:foreground ,blue))))"},{"Add":" `(message-header-subject ((t (:foreground ,blue))))"},{"Add":" `(message-header-other ((t (:foreground ,blue))))"},{"Add":" `(message-cited-text ((t (:inherit font-lock-comment-face))))"},{"Add":" ))"},{"Add":""},{"Add":";;; Theme Variables"},{"Add":"(acme/with-color-variables"},{"Add":" (custom-theme-set-variables"},{"Add":" 'acme"},{"Add":""},{"Add":";;;;; fill-column-indicator"},{"Add":" `(fci-rule-color ,yellow-light)"},{"Add":""},{"Add":";;;;; highlight-parentheses"},{"Add":" `(hl-paren-colors '(,green ,blue ,red))"},{"Add":" `(hl-paren-background-colors '(,green-light ,blue-light ,red-light))"},{"Add":""},{"Add":";;;;; sml-mode-line"},{"Add":" `(sml/active-foreground-color ,fg)"},{"Add":" `(sml/active-background-color ,blue-light)"},{"Add":" `(sml/inactive-foreground-color ,fg)"},{"Add":" `(sml/inactive-background-color ,blue)"},{"Add":" ))"},{"Add":""},{"Add":""},{"Add":";;; Footer"},{"Add":""},{"Add":";;;###autoload"},{"Add":"(and load-file-name"},{"Add":" (boundp 'custom-theme-load-path)"},{"Add":" (add-to-list 'custom-theme-load-path"},{"Add":" (file-name-as-directory"},{"Add":" (file-name-directory load-file-name))))"},{"Add":""},{"Add":"(provide-theme 'acme)"},{"Add":""},{"Add":";; Local Variables:"},{"Add":";; no-byte-compile: t"},{"Add":";; indent-tabs-mode: nil"},{"Add":";; End:"},{"Add":";;; acme-theme.el ends here"}],"del_contents":[{"Del":";;; acme-theme.el --- A color theme for Emacs based on Acme & Sam from Plan 9\n\n;; Copyright (C) 2020 Ian Yi-En Pan\n\n;; This program is free software; you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;;; Credits:\n;; This theme was modified from plan9-theme.el by John Louis Del Rosario\n\n;;; Code:\n\n(deftheme acme \"Theme inspired by Acme\")\n\n;;; Color Palette\n\n(defvar acme-colors-alist\n '((\"bg\" . \"#FFFFE8\")\n (\"bg-alt\" . \"#FFFFD8\")\n (\"bg-alt2\" . \"#eFeFd8\")\n (\"bg-dark\" . \"#E5E5D0\")\n (\"fg\" . \"#000000\")\n (\"fg-alt\" . \"#B8B09A\")\n (\"fg-alt-dark\" . \"#988d6d\")\n (\"fg-light\" . \"#CCCCB7\")\n (\"highlight\" . \"#e8eb98\")\n (\"cyan\" . \"#007777\")\n (\"cyan-light\" . \"#a8efeb\")\n (\"red\" . \"#880000\")\n (\"red-light\" . \"#f8e8e8\")\n (\"yellow\" . \"#888838\")\n (\"yellow-light\" . \"#f8fce8\")\n (\"green\" . \"#005500\")\n (\"green-light\" . \"#e8fce8\")\n (\"blue\" . \"#1054af\")\n (\"blue-light\" . \"#e1faff\")\n (\"purple\" . \"#555599\")\n (\"purple-light\" . \"#ffeaff\")))\n\n(defmacro acme/with-color-variables (&rest body)\n \"`let' bind all colors defined in `acme-colors-alist' around BODY.\nAlso bind `class' to ((class color) (min-colors 89)).\"\n (declare (indent 0))\n `(let ((class '((class color) (min-colors 89)))\n ,@(mapcar (lambda (cons)\n (list (intern (car cons)) (cdr cons)))\n acme-colors-alist))\n ,@body))\n\n;;; Theme Faces\n(acme/with-color-variables\n (custom-theme-set-faces\n 'acme\n\n;;;; Built-in\n\n;;;;; basic coloring\n '(button ((t (:underline t))))\n `(link ((t (:foreground ,blue :underline t :weight normal))))\n `(link-visited ((t (:foreground ,purple :underline t :weight normal))))\n `(default ((t (:foreground ,fg :background ,bg))))\n `(cursor ((t (:foreground ,bg :background ,fg))))\n `(escape-glyph ((t (:foreground ,cyan-light :bold nil))))\n `(fringe ((t (:foreground ,fg :background ,bg))))\n `(line-number ((t (:foreground ,fg :background ,bg-alt2))))\n `(line-number-current-line ((t (:foreground ,fg :background ,bg-alt2))))\n `(header-line ((t (:foreground ,fg :background ,blue-light :box t))))\n `(highlight ((t (:background ,highlight))))\n `(success ((t (:foreground ,green :weight normal))))\n `(warning ((t (:foreground ,red :weight normal))))\n\n;;;;; compilation\n `(compilation-column-face ((t (:foreground ,yellow :background ,yellow-light))))\n `(compilation-column-number ((t (:foreground ,yellow :background ,yellow-light))))\n `(compilation-error-face ((t (:foreground ,red :weight normal :underline t))))\n `(compilation-face ((t (:foreground ,fg))))\n `(compilation-info-face ((t (:foreground ,blue))))\n `(compilation-info ((t (:foreground ,blue :underline t))))\n `(compilation-line-face ((t (:foreground ,purple))))\n `(compilation-line-number ((t (:foreground ,yellow :background ,yellow-light))))\n `(compilation-message-face ((t (:foreground ,blue))))\n `(compilation-warning-face ((t (:foreground ,yellow :weight normal :underline t))))\n `(compilation-mode-line-exit ((t (:foreground ,cyan :weight normal))))\n `(compilation-mode-line-fail ((t (:foreground ,red :weight normal))))\n `(compilation-mode-line-run ((t (:foreground ,purple :weight normal))))\n\n;;;;; grep\n `(grep-context-face ((t (:foreground ,fg-alt))))\n `(grep-error-face ((t (:foreground ,red :weight normal :underline t))))\n `(grep-hit-face ((t (:foreground ,purple :weight normal))))\n `(grep-match-face ((t (:foreground ,cyan :weight normal))))\n `(match ((t (:background ,cyan :foreground ,cyan-light))))\n\n;;;;; ag\n `(ag-hit-face ((t (:foreground ,green :weight normal))))\n `(ag-match-face ((t (:foreground ,cyan :background ,cyan-light :weight normal))))\n\n;;;;; isearch\n `(isearch ((t (:foreground ,fg :weight normal :background ,cyan-light))))\n `(isearch-fail ((t (:foreground ,fg :weight normal :background ,red))))\n `(lazy-highlight ((t (:foreground ,fg :weight normal :background ,blue-light))))\n\n `(menu ((t (:foreground ,bg :background ,fg))))\n `(minibuffer-prompt ((t (:foreground ,fg :weight normal))))\n `(region ((,class (:background ,highlight :foreground ,fg)) (t :inverse-video t)))\n `(secondary-selection ((t (:background ,green-light))))\n `(trailing-whitespace ((t (:background ,red-light))))\n `(vertical-border ((t (:foreground ,cyan))))\n\n;;;;; font lock\n `(font-lock-builtin-face ((t (:foreground ,fg :weight normal))))\n `(font-lock-function-name-face ((t (:foreground ,fg :weight normal))))\n `(font-lock-string-face ((t (:foreground ,red))))\n `(font-lock-keyword-face ((t (:foreground ,blue :weight bold)))) ; if, else, for, while, return...\n `(font-lock-type-face ((t (:foreground ,fg :weight bold)))) ; int, float, string, void...\n `(font-lock-constant-face ((t (:foreground ,fg :weight bold)))) ; NULL, nullptr, true, false...\n `(font-lock-variable-name-face ((t (:foreground ,fg :weight normal))))\n `(font-lock-comment-face ((t (:foreground ,green :italic nil))))\n `(font-lock-comment-delimiter-face ((t (:foreground ,green :italic nil))))\n `(font-lock-doc-face ((t (:foreground ,yellow :italic t))))\n `(font-lock-negation-char-face ((t (:foreground ,red :weight normal))))\n `(font-lock-preprocessor-face ((t (:foreground ,red :weight normal))))\n `(font-lock-regexp-grouping-construct ((t (:foreground ,purple :weight normal))))\n `(font-lock-regexp-grouping-backslash ((t (:foreground ,purple :weight normal))))\n `(font-lock-warning-face ((t (:foreground ,red :weight normal))))\n\n ;;;; table\n `(table-cell ((t (:background ,bg-alt2))))\n\n ;;;; ledger\n `(ledger-font-directive-face ((t (:foreground ,cyan))))\n `(ledger-font-periodic-xact-face ((t (:inherit ledger-font-directive-face))))\n `(ledger-font-posting-account-face ((t (:foreground ,blue))))\n `(ledger-font-posting-amount-face ((t (:foreground ,red))))\n `(ledger-font-posting-date-face ((t (:foreground ,red :weight normal))))\n `(ledger-font-payee-uncleared-face ((t (:foreground ,purple))))\n `(ledger-font-payee-cleared-face ((t (:foreground ,fg))))\n `(ledger-font-payee-pending-face ((t (:foreground ,yellow))))\n `(ledger-font-xact-highlight-face ((t (:background ,bg-alt2))))\n\n;;;; Third-party\n\n\n;;;;; anzu\n `(anzu-mode-line ((t (:foreground ,yellow :background ,yellow-light :weight normal))))\n\n;;;;; clojure-mode\n `(clojure-interop-method-face ((t (:inherit font-lock-function-name-face))))\n\n;;;;; clojure-test-mode\n `(clojure-test-failure-face ((t (:foreground ,red :weight normal :underline t))))\n `(clojure-test-error-face ((t (:foreground ,red :weight normal :underline t))))\n `(clojure-test-success-face ((t (:foreground ,green :weight normal :underline t))))\n\n;;;;; diff\n `(diff-added ((,class (:foreground ,fg :background ,green-light))\n (t (:foreground ,fg :background ,green-light))))\n `(diff-changed ((t (:foreground ,yellow))))\n `(diff-context ((t (:foreground ,fg))))\n `(diff-removed ((,class (:foreground ,fg :background ,red-light))\n (t (:foreground ,fg :background ,red-light))))\n `(diff-refine-added ((t :inherit diff-added :background ,green-light :weight normal)))\n `(diff-refine-change ((t :inherit diff-changed :weight normal)))\n `(diff-refine-removed ((t :inherit diff-removed :background ,red-light :weight normal)))\n `(diff-header ((,class (:foreground ,fg :weight normal))\n (t (:foreground ,purple-light :weight normal))))\n `(diff-file-header ((,class (:foreground ,fg :background ,cyan-light :weight normal))\n (t (:foreground ,fg :background ,cyan-light :weight normal))))\n `(diff-hunk-header ((,class (:foreground ,green :weight normal))\n (t (:foreground ,green :weight normal))))\n\n;;;;; diff-hl\n `(diff-hl-insert ((t (:foreground ,fg :background ,green-light))))\n `(diff-hl-delete ((t (:foreground ,fg :background ,red-light))))\n `(diff-hl-change ((t (:foreground ,fg :background ,yellow-light))))\n\n;;;;; dired/dired+/dired-subtree\n `(dired-directory ((t (:foreground ,blue :weight bold))))\n `(diredp-display-msg ((t (:foreground ,blue))))\n `(diredp-compressed-file-suffix ((t (:foreground ,purple))))\n `(diredp-date-time ((t (:foreground ,green))))\n `(diredp-deletion ((t (:foreground ,red))))\n `(diredp-deletion-file-name ((t (:foreground ,red))))\n `(diredp-dir-heading ((t (:foreground ,blue :background ,blue-light :weight bold))))\n `(diredp-dir-priv ((t (:foreground ,blue))))\n `(diredp-exec-priv ((t (:foreground ,yellow))))\n `(diredp-executable-tag ((t (:foreground ,yellow))))\n `(diredp-file-name ((t (:foreground ,fg))))\n `(diredp-file-suffix ((t (:foreground ,yellow))))\n `(diredp-flag-mark ((t (:foreground ,cyan))))\n `(diredp-flag-mark-line ((t (:foreground ,cyan))))\n `(diredp-ignored-file-name ((t (:foreground ,fg-light))))\n `(diredp-link-priv ((t (:foreground ,purple))))\n `(diredp-mode-line-flagged ((t (:foreground ,yellow))))\n `(diredp-mode-line-marked ((t (:foreground ,yellow))))\n `(diredp-no-priv ((t (:foreground ,fg))))\n `(diredp-number ((t (:foreground ,blue))))\n `(diredp-other-priv ((t (:foreground ,fg))))\n `(diredp-rare-priv ((t (:foreground ,fg))))\n `(diredp-read-priv ((t (:foreground ,fg))))\n `(diredp-symlink ((t (:foreground ,fg :background ,blue-light))))\n `(diredp-write-priv ((t (:foreground ,fg))))\n `(diredp-dir-name ((t (:foreground ,blue :weight bold))))\n `(dired-subtree-depth-1-face ((t (:background ,bg))))\n `(dired-subtree-depth-2-face ((t (:background ,bg))))\n `(dired-subtree-depth-3-face ((t (:background ,bg))))\n\n;;;;; elfeed\n `(elfeed-search-date-face ((t (:foreground ,blue))))\n `(elfeed-search-title-face ((t (:foreground ,fg))))\n `(elfeed-search-unread-title-facee ((t (:foreground ,fg))))\n `(elfeed-search-feed-face ((t (:foreground ,green))))\n `(elfeed-search-tag-face ((t (:foreground ,red))))\n `(elfeed-search-unread-count-face ((t (:foreground ,fg))))\n\n;;;;; erc\n `(erc-default-face ((t (:foreground ,fg))))\n `(erc-header-line ((t (:inherit header-line))))\n `(erc-action-face ((t (:inherit erc-default-face))))\n `(erc-bold-face ((t (:inherit erc-default-face :weight normal))))\n `(erc-underline-face ((t (:underline t))))\n `(erc-error-face ((t (:inherit font-lock-warning-face))))\n `(erc-prompt-face ((t (:foreground ,green :background ,green-light :weight normal))))\n `(erc-timestamp-face ((t (:foreground ,green :background ,green-light))))\n `(erc-direct-msg-face ((t (:inherit erc-default))))\n `(erc-notice-face ((t (:foreground ,fg-light))))\n `(erc-highlight-face ((t (:background ,highlight))))\n\n `(erc-input-face ((t (:foreground ,fg :background ,bg-alt2))))\n `(erc-current-nick-face ((t (:foreground ,fg :background ,cyan-light :weight normal :box (:line-width 1 :style released-button)))))\n `(erc-nick-default-face ((t (:weight normal :background ,bg-alt2))))\n `(erc-my-nick-face ((t (:foreground ,fg :background ,cyan-light :weight normal :box (:line-width 1 :style released-button)))))\n `(erc-nick-msg-face ((t (:inherit erc-default))))\n `(erc-fool-face ((t (:inherit erc-default))))\n `(erc-pal-face ((t (:foreground ,purple :weight normal))))\n\n `(erc-dangerous-host-face ((t (:inherit font-lock-warning-face))))\n `(erc-keyword-face ((t (:foreground ,yellow :weight normal))))\n\n ;;;;; evil\n `(evil-search-highlight-persist-highlight-face ((t (:inherit lazy-highlight))))\n\n;;;;; flx\n `(flx-highlight-face ((t (:foreground ,yellow :background ,green-light :weight normal :underline t))))\n\n;;;;; company\n `(company-tooltip ((t (:background ,green-light))))\n `(company-tooltip-selection ((t (:background ,cyan-light))))\n `(company-tooltip-common-selection ((t (:background ,cyan-light))))\n `(company-tooltip-mouse ((t (:background ,blue-light))))\n `(company-tooltip-search ((t (:foreground ,red))))\n `(company-tooltip-common ((t (:foreground ,red :background ,green-light))))\n `(company-tooltip-annotation ((t (:foreground ,green :background ,green-light))))\n `(company-scrollbar-fg ((t (:background ,cyan))))\n `(company-scrollbar-bg ((t (:background ,green-light))))\n `(company-preview ((t (:foreground ,fg :background ,cyan-light))))\n `(company-preview-common ((t (:foreground ,fg :background ,cyan-light))))\n\n;;;;; flycheck\n `(flycheck-error ((((supports :underline (:style wave)))\n (:underline (:style wave :color ,red) :inherit unspecified))\n (t (:foreground ,red :weight normal :underline t))))\n `(flycheck-warning ((((supports :underline (:style wave)))\n (:underline (:style wave :color ,yellow) :inherit unspecified))\n (t (:foreground ,yellow :weight normal :underline t))))\n `(flycheck-info ((((supports :underline (:style wave)))\n (:underline (:style wave :color ,purple) :inherit unspecified))\n (t (:foreground ,purple :weight normal :underline t))))\n `(flycheck-fringe-error ((t (:foreground ,red :weight normal))))\n `(flycheck-fringe-warning ((t (:foreground ,yellow :weight normal))))\n `(flycheck-fringe-info ((t (:foreground ,purple :weight normal))))\n\n;;;;; highlight-symbol\n `(highlight-symbol-face ((t (:background ,bg-alt2))))\n\n;;;;; highlight-numbers\n `(highlight-numbers-number ((t (:foreground ,blue))))\n\n;;;;; highlight-operators\n `(highlight-operators-face ((t (:foreground ,fg))))\n\n;;;;; hl-line-mode\n `(hl-line-face ((,class (:background ,bg-alt2)) (t :weight normal)))\n\n;;;;; hl-sexp\n `(hl-sexp-face ((,class (:background ,bg-alt2)) (t :weight normal)))\n\n;;;;; ido-mode\n `(ido-first-match ((t (:foreground ,fg :weight normal))))\n `(ido-only-match ((t (:foreground ,fg :weight normal))))\n `(ido-subdir ((t (:foreground ,blue))))\n `(ido-indicator ((t (:foreground ,yellow))))\n\n;;;;; ido-vertical\n `(ido-vertical-first-match-face ((t (:foreground ,fg :background ,cyan-light :weight normal))))\n `(ido-vertical-only-match-face ((t (:foreground ,red :background ,red-light :weight normal))))\n `(ido-vertical-match-face ((t (:foreground ,fg :background ,green-light :weight normal :underline t))))\n\n;;;;; indent-guide\n `(indent-guide-face ((t (:foreground ,highlight))))\n\n;;;;; ivy\n `(ivy-current-match ((t (:background ,blue-light :underline t :extend t))))\n `(ivy-minibuffer-match-face-1 ((t (:background ,bg-alt2))))\n `(ivy-minibuffer-match-face-2 ((t (:background ,cyan-light))))\n `(ivy-minibuffer-match-face-3 ((t (:background ,purple-light))))\n `(ivy-minibuffer-match-face-3 ((t (:background ,blue-light))))\n\n;;;;; js2-mode\n `(js2-warning ((t (:underline ,yellow))))\n `(js2-error ((t (:foreground ,red :weight normal))))\n `(js2-jsdoc-tag ((t (:foreground ,purple))))\n `(js2-jsdoc-type ((t (:foreground ,blue))))\n `(js2-jsdoc-value ((t (:foreground ,cyan))))\n `(js2-function-param ((t (:foreground ,fg))))\n `(js2-external-variable ((t (:foreground ,cyan))))\n\n;;;;; linum-mode\n `(linum ((t (:foreground ,fg-light))))\n\n;;;;; lsp-mode\n `(lsp-face-highlight-textual ((t (:background ,bg-dark))))\n `(lsp-face-highlight-read ((t (:background ,purple-light))))\n `(lsp-face-highlight-write ((t (:background ,green-light))))\n\n;;;;; magit\n `(magit-section-heading ((t (:foreground ,cyan :background ,blue-light :weight normal :underline t))))\n `(magit-section-highlight ((t (:background ,bg-alt2))))\n `(magit-section-heading-selection ((t (:background ,highlight))))\n `(magit-filename ((t (:foreground ,fg))))\n `(magit-hash ((t (:foreground ,yellow :weight normal))))\n `(magit-tag ((t (:foreground ,purple :weight normal))))\n `(magit-refname ((t (:foreground ,purple :weight normal))))\n `(magit-head ((t (:foreground ,green :weight normal))))\n\n `(magit-branch-local ((t (:foreground ,blue :background ,blue-light\n :weight normal))))\n `(magit-branch-remote ((t (:foreground ,green :background ,green-light\n :weight normal))))\n `(magit-branch-current ((t (:foreground ,cyan :background ,cyan-light\n :weight normal\n :box (:line-width 1 :color ,cyan)))))\n `(magit-diff-file-heading ((t (:foreground ,fg :weight normal))))\n `(magit-diff-file-heading-highlight ((t (:background ,bg-alt2))))\n `(magit-diff-file-heading-selection ((t (:foreground ,red :background ,highlight))))\n `(magit-diff-hunk-heading ((t (:foreground ,blue :background ,blue-light :weight normal :underline t))))\n `(magit-diff-hunk-heading-highlight ((t (:background ,cyan-light))))\n `(magit-diff-added ((t (:foreground ,green :background ,green-light))))\n `(magit-diff-removed ((t (:foreground ,red :background ,red-light))))\n `(magit-diff-context ((t (:foreground ,fg-alt-dark :background nil))))\n `(magit-diff-added-highlight ((t (:foreground ,green :background ,green-light))))\n `(magit-diff-removed-highlight ((t (:foreground ,red :background ,red-light))))\n `(magit-diff-context-highlight ((t (:foreground ,fg-alt-dark :background ,bg-alt2))))\n `(magit-diffstat-added ((t (:foreground ,green :background ,green-light :weight normal))))\n `(magit-diffstat-removed ((t (:foreground ,red :background ,red-light :weight normal))))\n `(magit-log-author ((t (:foreground ,blue :weight normal))))\n `(magit-log-date ((t (:foreground ,purple :weight normal))))\n `(magit-log-graph ((t (:foreground ,red :weight normal))))\n `(magit-blame-heading ((t (:foreground ,fg-alt-dark :background ,bg-alt2))))\n\n;;;;; paren-face\n `(parenthesis ((t (:foreground \"#CCCCB7\"))))\n\n;;;;; project-explorer\n `(pe/file-face ((t (:foreground ,fg))))\n `(pe/directory-face ((t (:foreground ,blue :weight normal))))\n\n;;;;; rainbow-delimiters\n `(rainbow-delimiters-depth-1-face ((t (:foreground ,green))))\n `(rainbow-delimiters-depth-2-face ((t (:foreground ,blue))))\n `(rainbow-delimiters-depth-3-face ((t (:foreground ,red))))\n\n;;;;; show-paren\n `(show-paren-mismatch ((t (:foreground ,yellow :background ,red :weight normal))))\n `(show-paren-match ((t (:foreground ,fg :background ,cyan-light :weight normal))))\n\n;;;;; mode-line/sml-mode-line\n `(mode-line ((,class (:foreground ,fg :background ,blue-light :box t))))\n `(mode-line-inactive ((t (:foreground ,fg :background ,bg-dark :box t))))\n `(mode-line-buffer-id ((t (:foreground ,fg :weight bold)))) ; associated buffer/file name\n `(sml/global ((t (:foreground ,fg))))\n `(sml/modes ((t (:foreground ,green :background ,green-light))))\n `(sml/filename ((t (:foreground ,red))))\n `(sml/folder ((t (:foreground ,fg))))\n `(sml/prefix ((t (:foreground ,fg))))\n `(sml/read-only ((t (:foreground ,fg))))\n `(sml/modified ((t (:foreground ,red :weight normal))))\n `(sml/outside-modified ((t (:background ,red :foreground ,red-light :weight normal))))\n `(sml/line-number ((t (:foreground ,fg :weight normal))))\n `(sml/col-number ((t (:foreground ,fg :weight normal))))\n `(sml/vc ((t (:foreground ,fg :weight normal))))\n `(sml/vc-edited ((t (:foreground ,red :weight normal))))\n `(sml/git ((t (:foreground ,fg :weight normal))))\n\n;;;;; sh\n `(sh-heredoc-face ((t (:foreground ,purple))))\n\n;;;;; web-mode\n `(web-mode-builtin-face ((t (:inherit ,font-lock-builtin-face))))\n `(web-mode-comment-face ((t (:inherit ,font-lock-comment-face))))\n `(web-mode-constant-face ((t (:inherit ,font-lock-constant-face))))\n `(web-mode-doctype-face ((t (:inherit ,font-lock-comment-face))))\n `(web-mode-folded-face ((t (:underline t))))\n `(web-mode-function-name-face ((t (:foreground ,fg :weight normal))))\n `(web-mode-html-attr-name-face ((t (:foreground ,fg))))\n `(web-mode-html-attr-value-face ((t (:inherit ,font-lock-string-face))))\n `(web-mode-html-tag-face ((t (:foreground ,blue))))\n `(web-mode-keyword-face ((t (:inherit ,font-lock-keyword-face))))\n `(web-mode-preprocessor-face ((t (:inherit ,font-lock-preprocessor-face))))\n `(web-mode-string-face ((t (:inherit ,font-lock-string-face))))\n `(web-mode-type-face ((t (:inherit ,font-lock-type-face))))\n `(web-mode-variable-name-face ((t (:inherit ,font-lock-variable-name-face))))\n `(web-mode-server-background-face ((t (:background ,green-light))))\n `(web-mode-server-comment-face ((t (:inherit web-mode-comment-face))))\n `(web-mode-server-string-face ((t (:foreground ,red))))\n `(web-mode-symbol-face ((t (:inherit font-lock-constant-face))))\n `(web-mode-warning-face ((t (:inherit font-lock-warning-face))))\n `(web-mode-whitespaces-face ((t (:background ,red-light))))\n `(web-mode-block-face ((t (:background ,green-light))))\n `(web-mode-current-element-highlight-face ((t (:foreground ,fg :background ,blue-light))))\n\n;;;;; which-func-mode\n `(which-func ((t (:foreground ,purple :background ,purple-light))))\n\n;;;;; yascroll\n `(yascroll:thumb-text-area ((t (:background ,highlight))))\n `(yascroll:thumb-fringe ((t (:background ,bg :foreground ,bg :box (:line-width 1 :style released-button)))))\n\n;;;;; Org\n `(org-level-1 ((t (:height 1.4 :weight normal :background ,bg-dark))))\n `(org-level-2 ((t (:height 1.2 :background ,bg-dark))))\n `(org-level-3 ((t (:weight normal))))\n `(org-level-4 ((t (:foreground ,fg-alt-dark :weight normal))))\n `(org-level-5 ((t (:foreground ,fg-alt-dark))))\n `(org-level-6 ((t (:foreground ,fg-alt))))\n `(org-level-7 ((t (:foreground ,fg-alt))))\n `(org-level-8 ((t (:foreground ,fg-alt))))\n `(org-meta-line ((t (:foreground ,green))))\n `(org-document-info ((t (:foreground ,cyan :weight normal))))\n `(org-document-info-keyword ((t (:foreground ,cyan))))\n `(org-document-title ((t (:foreground ,fg :height 1.5 :weight normal :family \"Sans Serif\" :underline t))))\n `(org-todo ((t (:foreground ,yellow :background ,bg-alt2 :weight normal :box (:line-width 1 :style released-button)))))\n `(org-done ((t (:foreground ,green :background ,green-light :weight normal :box (:style released-button)))))\n `(org-date ((t (:foreground ,purple))))\n `(org-table ((t (:foreground ,purple))))\n `(org-formula ((t (:foreground ,blue :background ,bg-alt2))))\n `(org-code ((t (:foreground ,red :background ,bg-alt2))))\n `(org-verbatim ((t (:foreground ,fg :background ,bg-alt2 :underline t))))\n `(org-special-keyword ((t (:foreground ,cyan))))\n `(org-agenda-date ((t (:foreground ,cyan))))\n `(org-agenda-structure ((t (:foreground ,purple))))\n `(org-block ((t (:foreground ,red))))\n `(org-block-background ((t (:background ,bg-alt2))))\n `(org-block-begin-line ((t (:foreground ,fg-alt :background ,bg-dark :italic t))))\n `(org-block-end-line ((t (:foreground ,fg-alt :background ,bg-dark :italic t))))\n\n;;;;; origami\n `(origami-fold-replacement-face ((t (:foreground ,red :background ,red-light\n :box (:line-width -1)))))\n\n;;;;; git-gutter\n `(git-gutter:added ((t (:foreground ,green :weight normal))))\n `(git-gutter:deleted ((t (:foreground ,red :weight normal))))\n `(git-gutter:modified ((t (:foreground ,blue :weight normal))))\n `(git-gutter-fr:added ((t (:foreground ,green :weight normal))))\n `(git-gutter-fr:deleted ((t (:foreground ,red :weight normal))))\n `(git-gutter-fr:modified ((t (:foreground ,blue :weight normal))))\n\n;;;;; mu4e, mail\n `(mu4e-header-highlight-face ((t (:background ,highlight))))\n `(mu4e-unread-face ((t (:foreground ,blue :weight normal))))\n `(mu4e-flagged-face ((t (:foreground ,red :background ,red-light :weight normal))))\n `(mu4e-compose-separator-face ((t (:foreground ,green))))\n `(mu4e-header-value-face ((t (:foreground ,fg))))\n `(message-header-name ((t (:foreground ,purple :weight normal))))\n `(message-header-to ((t (:foreground ,blue))))\n `(message-header-subject ((t (:foreground ,blue))))\n `(message-header-other ((t (:foreground ,blue))))\n `(message-cited-text ((t (:inherit font-lock-comment-face))))\n ))\n\n;;; Theme Variables\n(acme/with-color-variables\n (custom-theme-set-variables\n 'acme\n\n;;;;; fill-column-indicator\n `(fci-rule-color ,yellow-light)\n\n;;;;; highlight-parentheses\n `(hl-paren-colors '(,green ,blue ,red))\n `(hl-paren-background-colors '(,green-light ,blue-light ,red-light))\n\n;;;;; sml-mode-line\n `(sml/active-foreground-color ,fg)\n `(sml/active-background-color ,blue-light)\n `(sml/inactive-foreground-color ,fg)\n `(sml/inactive-background-color ,blue)\n ))\n\n\n;;; Footer\n\n;;;###autoload\n(and load-file-name\n (boundp 'custom-theme-load-path)\n (add-to-list 'custom-theme-load-path\n (file-name-as-directory\n (file-name-directory load-file-name))))\n\n(provide-theme 'acme)\n\n;; Local Variables:\n;; no-byte-compile: t\n;; indent-tabs-mode: nil\n;; End:\n;;; acme-theme.el ends here\n"}]}},{"Replacement":{"inode":{"change":7,"pos":598903},"path":"init.el","line":1,"ins":{"up_context":[{"change":7,"pos":598903}],"down_context":[],"flag":"BLOCK","start":42672,"end":90592,"inode":{"change":7,"pos":598903}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":598903},"to":{"change":7,"start":598904,"end":598973},"introduced_by":7},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":598973},"to":{"change":2,"start":0,"end":68},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":2,"pos":68},"to":{"change":7,"start":599032,"end":602809},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":599032},"to":{"change":7,"start":599032,"end":602809},"introduced_by":7},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":602809},"to":{"change":2,"start":69,"end":3235},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":2,"pos":3235},"to":{"change":7,"start":602809,"end":605543},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":602809},"to":{"change":7,"start":602809,"end":605543},"introduced_by":7},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":605543},"to":{"change":7,"start":0,"end":34},"introduced_by":7},{"previous":"","flag":"DELETED","from":{"change":7,"pos":34},"to":{"change":7,"start":605543,"end":605893},"introduced_by":7},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":605543},"to":{"change":7,"start":605543,"end":605893},"introduced_by":7},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":605893},"to":{"change":6,"start":2344039,"end":2351625},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":2351625},"to":{"change":7,"start":613211,"end":614977},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":613211},"to":{"change":7,"start":613211,"end":614977},"introduced_by":7},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":614977},"to":{"change":6,"start":2351626,"end":2351661},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":7,"pos":71},"to":{"change":7,"start":614977,"end":617904},"introduced_by":7},{"previous":"","flag":"DELETED","from":{"change":6,"pos":2351661},"to":{"change":7,"start":614977,"end":617904},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":614977},"to":{"change":7,"start":614977,"end":617904},"introduced_by":7},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":617904},"to":{"change":6,"start":2351662,"end":2352965},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":7,"pos":1274},"to":{"change":7,"start":619169,"end":619726},"introduced_by":7},{"previous":"","flag":"DELETED","from":{"change":6,"pos":2352965},"to":{"change":7,"start":619169,"end":619726},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":619169},"to":{"change":7,"start":619169,"end":619726},"introduced_by":7},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":619726},"to":{"change":5,"start":0,"end":123},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":123},"to":{"change":7,"start":619726,"end":620775},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":619726},"to":{"change":7,"start":619726,"end":620775},"introduced_by":7},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":620775},"to":{"change":3,"start":0,"end":41},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":41},"to":{"change":7,"start":620775,"end":641889},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":620775},"to":{"change":7,"start":620775,"end":641889},"introduced_by":7},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":641889},"to":{"change":6,"start":2352966,"end":2353134},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":2353134},"to":{"change":7,"start":641889,"end":642029},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":641889},"to":{"change":7,"start":641889,"end":642029},"introduced_by":7},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":642029},"to":{"change":6,"start":2353135,"end":2353219},"introduced_by":6}],"inode":{"change":7,"pos":598903}},"ins_contents":[{"Add":";; move by file lines, not screen lines"},{"Add":"(setq line-move-visual nil)"},{"Add":""},{"Add":"; 'xah or 'evil or 'ergo or 'boon"},{"Add":"(setq jareds-mood 'meow)"},{"Add":"; make numpad + key be decoded as insertline key; this is necessary"},{"Add":"; for ergoemacs, which has no other binding for what used to be C-o."},{"Add":"(define-key input-decode-map [kp-add] [insertline])"},{"Add":""},{"Add":"(require 'package) ;; You might already have this line"},{"Add":"(let* ((no-ssl (and (memq system-type '(windows-nt ms-dos))"},{"Add":" (not (gnutls-available-p))))"},{"Add":" (url (concat (if no-ssl \"http\" \"https\") \"://melpa.org/packages/\")))"},{"Add":" (add-to-list 'package-archives (cons \"melpa\" url) t))"},{"Add":"(when (< emacs-major-version 24)"},{"Add":" ;; For important compatibility libraries like cl-lib"},{"Add":" (add-to-list 'package-archives '(\"gnu\" . \"http://elpa.gnu.org/packages/\")))"},{"Add":""},{"Add":";; Added by Package.el. This must come before configurations of"},{"Add":";; installed packages. Don't delete this line. If you don't want it,"},{"Add":";; just comment it out by adding a semicolon to the start of the line."},{"Add":";; You may delete these explanatory comments."},{"Add":"(package-initialize)"},{"Add":""},{"Add":"; (require 'fill-column-indicator)"},{"Add":""},{"Add":""},{"Add":"; http://blog.bookworm.at/2007/03/pretty-print-xml-with-emacs.html"},{"Add":"(defun bf-pretty-print-xml-region (begin end)"},{"Add":" \"Pretty format XML markup in region. You need to have nxml-mode"},{"Add":"http://www.emacswiki.org/cgi-bin/wiki/NxmlMode installed to do"},{"Add":"this. The function inserts linebreaks to separate tags that have"},{"Add":"nothing but whitespace between them. It then indents the markup"},{"Add":"by using nxml's indentation rules.\""},{"Add":" (interactive \"r\")"},{"Add":" (save-excursion"},{"Add":" (nxml-mode)"},{"Add":" (goto-char begin)"},{"Add":" (while (search-forward-regexp \"\\>[ \\\\t]*\\<\" nil t) "},{"Add":" (backward-char) (insert \"\\n\") (setq end (1+ end)))"},{"Add":" (indent-region begin end))"},{"Add":" (message \"Ah, much better!\"))"},{"Add":""},{"Add":""},{"Add":"; did not work."},{"Add":"; avoid colons in filenames during tramp autosaves: Windows can't deal with these"},{"Add":"; https://github.com/syl20bnr/spacemacs/issues/7302"},{"Add":"; (setq tramp-auto-save-directory (concat temporary-file-directory \"tramp/\"))"},{"Add":""},{"Add":"(put 'narrow-to-region 'disabled nil)"},{"Add":""},{"Add":";; customize telephone-line for my mood before starting it. other"},{"Add":";; mood-specific things after the customize blob, because customized"},{"Add":";; vars should apply."},{"Add":"(cond ((eq jareds-mood 'xah)"},{"Add":" ;; there is some cleaner way to do this without repeating all"},{"Add":" ;; of telephone-line-lhs's definition. but i didn't find it."},{"Add":" (setq telephone-line-lhs"},{"Add":"\t '((evil . (telephone-line-xah-fly-keys-segment))"},{"Add":"\t (accent . (telephone-line-vc-segment"},{"Add":"\t\t\t telephone-line-process-segment))"},{"Add":"\t (nil . (telephone-line-minor-mode-segment"},{"Add":"\t\t telephone-line-buffer-segment))))"},{"Add":" )"},{"Add":" ((eq jareds-mood 'evil)"},{"Add":" (setq telephone-line-lhs"},{"Add":" '((evil . (telephone-line-evil-tag-segment))"},{"Add":" (accent . (telephone-line-vc-segment"},{"Add":" \t\t telephone-line-process-segment))"},{"Add":" (nil . (telephone-line-minor-mode-segment"},{"Add":" \t telephone-line-buffer-segment)))))"},{"Add":" ((eq jareds-mood 'boon)"},{"Add":" (telephone-line-defsegment* telephone-line-boon-segment ()"},{"Add":" (when (boundp boon-mode)"},{"Add":" (let ((tag (cond"},{"Add":" (boon-insert-state \"INSERT\")"},{"Add":" (boon-command-state \"COMMAND\")"},{"Add":" (boon-special-state \"EMACS\"))))"},{"Add":" (if telephone-line-evil-use-short-tag"},{"Add":" (seq-take tag 1)"},{"Add":" tag))))"},{"Add":" (setq telephone-line-lhs"},{"Add":"\t '((evil . (telephone-line-boon-segment))"},{"Add":"\t (accent . (telephone-line-vc-segment"},{"Add":"\t\t\t telephone-line-process-segment))"},{"Add":"\t (nil . (telephone-line-minor-mode-segment"},{"Add":"\t\t telephone-line-buffer-segment)))) )"},{"Add":" ((eq jareds-mood 'ergo)"},{"Add":" (setq telephone-line-lhs"},{"Add":" '((accent . (telephone-line-vc-segment"},{"Add":" \t\t telephone-line-process-segment))"},{"Add":" (nil . (telephone-line-minor-mode-segment"},{"Add":" \t telephone-line-buffer-segment)))))"},{"Add":" (t nil))"},{"Add":""},{"Add":""},{"Add":""},{"Add":"(setq telephone-line-rhs"},{"Add":" '((nil . (telephone-line-misc-info-segment))"},{"Add":"\t(accent . (telephone-line-major-mode-segment))"},{"Add":"\t(evil . (telephone-line-airline-position-segment))))"},{"Add":"(setq telephone-line-primary-left-separator 'telephone-line-flat"},{"Add":" telephone-line-secondary-left-separator 'telephone-line-flat"},{"Add":" telephone-line-primary-right-separator 'telephone-line-flat"},{"Add":" telephone-line-secondary-right-separator 'telephone-line-flat)"},{"Add":"(setq telephone-line-evil-use-short-tag t)"},{"Add":"(require 'telephone-line)"},{"Add":"(telephone-line-mode 1)"},{"Add":""},{"Add":"(defcustom jlj--assets-to-obfuscate"},{"Add":" `((\"[a-zA-Z0-9.]+\\\\.example\\\\.com\" ,(apply-partially #'jlj--obfuscate-fqdn"},{"Add":" \".example.com\"))"},{"Add":" (\"192\\\\.168\\\\.1\\\\.[0-9]+\" jlj--obfuscate-ip))"},{"Add":" \"IT assets the names and addresses of which jlj--obfuscate-assets should obfuscate. For each regexp match, a new obfuscated thing is made using the given function, and all occurrences of the real name or address are replaced with the result of the function.\""},{"Add":" :type '(list (list regexp function)))"},{"Add":""},{"Add":"(defun jlj--scheme-folding ()"},{"Add":" \"Turn on folding when entering Scheme major mode. See customize group Folding.\""},{"Add":" (folding-add-to-marks-list 'scheme-mode \";;{{{ \" \";;}}}\")"},{"Add":" (turn-on-folding-mode))"},{"Add":""},{"Add":";; A boonish keymap for the folding minor mode"},{"Add":"(define-prefix-command 'jlj-folding-map)"},{"Add":"(define-key jlj-folding-map [?\\C-e] 'folding-hide-current-entry)"},{"Add":"(define-key jlj-folding-map [?\\C-i] 'folding-show-current-entry)"},{"Add":"(define-key jlj-folding-map [?\\C-k] 'folding-hide-current-subtree)"},{"Add":"(define-key jlj-folding-map [?\\/] 'folding-show-current-subtree)"},{"Add":"(define-key jlj-folding-map [?\\C-u] 'folding-previous-visible-heading)"},{"Add":"(define-key jlj-folding-map [?\\C-y] 'folding-next-visible-heading)"},{"Add":"(define-key jlj-folding-map [?\\C-c] 'folding-context-next-action)"},{"Add":"(define-key jlj-folding-map [?\\C-l] 'folding-whole-buffer)"},{"Add":"(define-key jlj-folding-map [?\\;] 'folding-open-buffer)"},{"Add":"(define-key jlj-folding-map [?\\.] 'folding-display-name)"},{"Add":"(define-key jlj-folding-map [?\\C-f] 'folding-fold-region)"},{"Add":"(define-key jlj-folding-map [?\\C--] 'folding-shift-out)"},{"Add":"(define-key jlj-folding-map [?\\=] 'folding-shift-in)"},{"Add":""},{"Add":""},{"Add":"(defun jlj--install-folding-map ()"},{"Add":" (define-key mode-specific-map \"\\C-w\" jlj-folding-map))"},{"Add":""},{"Add":"(custom-set-variables"},{"Add":" ;; custom-set-variables was added by Custom."},{"Add":" ;; If you edit it by hand, you could mess it up, so be careful."},{"Add":" ;; Your init file should contain only one such instance."},{"Add":" ;; If there is more than one, they won't work right."},{"Add":" '(ansi-color-faces-vector"},{"Add":" [default default default italic underline success warning error])"},{"Add":" '(ansi-color-names-vector"},{"Add":" [\"#242424\" \"#e5786d\" \"#95e454\" \"#cae682\" \"#8ac6f2\" \"#333366\" \"#ccaa8f\" \"#f6f3e8\"])"},{"Add":" '(avy-keys '(97 114 115 116 100 104 110 101 105 111))"},{"Add":" '(awesome-tray-mode-line-active-color \"#2fafff\")"},{"Add":" '(awesome-tray-mode-line-inactive-color \"#323232\")"},{"Add":" '(boon-quit-key [home])"},{"Add":" '(boon-special-mode-list"},{"Add":" '(Buffer-menu-mode cfw:calendar-mode debugger-mode ediff-mode ediff-meta-mode finder-mode git-rebase-mode mu4e-headers-mode mu4e-view-mode notmuch-hello-mode notmuch-search-mode notmuch-show-mode notmuch-tree-mode org-agenda-mode pass-mode view-mode edebug-mode))"},{"Add":" '(browse-url-browser-function 'eww-browse-url)"},{"Add":" '(case-fold-search nil)"},{"Add":" '(completion-styles '(orderless))"},{"Add":" '(custom-enabled-themes '(northcode))"},{"Add":" '(custom-safe-themes"},{"Add":" '(\"f0743a238e80c38ca3d73bc03327ae3e529f2bc33d67efb41616ea1caffaebd6\" \"3ebef83a2705540325b0223388796b392f9e1e54a3063e6ba4827a380ed5477c\" \"a5a788e89884387d68c6e5c4e84e9d3b1a5723500a5fcf56a112d87deb6362cf\" \"6e6982c9bbe999b057486b0cfd7ee1884ceccac1602206cb7d4ed18cdd98abad\" \"37768a79b479684b0756dec7c0fc7652082910c37d8863c35b702db3f16000f8\" \"7c0830e1aea024fc0d4e76ba3db9f78cb37c09da2290f38af1a8fe87881007f7\" \"cfe4d36ed4cf00a541f7ba0deb38c94808c13a3e4c717f07bc3b9c866670e8d1\" \"474513bacf33a439da7b9a5df1dd11a277929d8480752675fc7d5f3816d8fdef\" \"b07a04cf42fe1001b2119b45f40cbc368783b5b8e1721ce3728a5f2823d97a66\" \"72ed8b6bffe0bfa8d097810649fd57d2b598deef47c992920aef8b5d9599eefe\" \"2ff9ac386eac4dffd77a33e93b0c8236bb376c5a5df62e36d4bfa821d56e4e20\" \"09c7e6bedcc4724a003e0ff36e045822b0385582b11a52758ed77973df04f3ee\" \"930243b929e5886e97390710218558ab346b31f6d04c6320d5182a81761ce9ed\" \"1d609285d297920b97b0d230360a8d7c3f930edcf1abe96a1d82356f9a5e228d\" \"abe5ee8858cd1fbe36304a8c3b2315d3e0a4ef7c8588fcc45d1c23eafb725bb6\" \"d600c677f1777c1e4bfb066529b5b73c0179d0499dd4ffa3f599a0fb0cfbd501\" \"30289fa8d502f71a392f40a0941a83842152a68c54ad69e0638ef52f04777a4c\" \"c7f10959cb1bc7a36ee355c765a1768d48929ec55dde137da51077ac7f899521\" \"773e0bfa5450c75d613cbf29734cdc876c3d59dbf85b93cff3015a8687dea158\" \"bf798e9e8ff00d4bf2512597f36e5a135ce48e477ce88a0764cfb5d8104e8163\" \"1436d643b98844555d56c59c74004eb158dc85fc55d2e7205f8d9b8c860e177f\" \"1e9001d2f6ffb095eafd9514b4d5974b720b275143fbc89ea046495a99c940b0\" \"f11e219c9d043cbd5f4b2e01713c2c24a948a98bed48828dc670bd64ae771aa1\" \"8f97d5ec8a774485296e366fdde6ff5589cf9e319a584b845b6f7fa788c9fa9a\" \"2642a1b7f53b9bb34c7f1e032d2098c852811ec2881eec2dc8cc07be004e45a0\" \"5111a41453244802afd93eed1a434e612a8afbdf19c52384dffab129258bab6e\" \"0329c772ed96053a73b9ddddf96c1183e23c267955bbdf78e7933057ce9da04b\" \"36ca8f60565af20ef4f30783aa16a26d96c02df7b4e54e9900a5138fb33808da\" \"23b564cfb74d784c73167d7de1b9a067bcca00719f81e46d09ee71a12ef7ee82\" \"f7ef6451d988d6e2fc86deea398eee02b3371703d88f265d31a011bd240dcf99\" \"3d4df186126c347e002c8366d32016948068d2e9198c496093a96775cc3b3eaa\" \"c560237b7505f67a271def31c706151afd7aa6eba9f69af77ec05bde5408dbcd\" \"24cb0b5666e1e17fb6a378c413682f57fe176775eda015eb0a98d65fbb64b127\" \"b0eb9e6e6dcb29c6ec4bcd72605188f482d52ee019cb0ccc73b5404be4f3a6e7\" \"08a89acffece58825e75479333109e01438650d27661b29212e6560070b156cf\" \"c9ddf33b383e74dac7690255dd2c3dfa1961a8e8a1d20e401c6572febef61045\" \"a22f40b63f9bc0a69ebc8ba4fbc6b452a4e3f84b80590ba0a92b4ff599e53ad0\" \"585942bb24cab2d4b2f74977ac3ba6ddbd888e3776b9d2f993c5704aa8bb4739\" \"fa2af0c40576f3bde32290d7f4e7aa865eb6bf7ebe31eb9e37c32aa6f4ae8d10\" \"85d1dbf2fc0e5d30f236712b831fb24faf6052f3114964fdeadede8e1b329832\" \"bffb799032a7404b33e431e6a1c46dc0ca62f54fdd20744a35a57c3f78586646\" \"779df25c6240f183dd378811465566082eacc3c86ed260835382cb5c1dc54de3\" \"eee70baee3a2d093a98fa344480d2330eb3a17f8dfa883cc41d8008cd46fa669\" \"b70474b8a631f73868f01fdb047f102dd36325ecbf6789962e613e9195e165d7\" \"ccdd152be99a9250f5c24e09860911ff4b1519a8c4c73e4d67364514a3359f71\" \"ba913d12adb68e9dadf1f43e6afa8e46c4822bb96a289d5bf1204344064f041e\" \"146614f131e5029df850a268aff1f0e3ae16734a119904eab133755b574da37d\" \"c8935cb969e24ff30a6ee1da011eadc156b9f128a3b0a39cc664628838a644ad\" \"767a6105de48707dd6a593b62c05a7bf4ee9930c86e3225410110d95906772d6\" \"39546362fed4d5201b2b386dc21f21439497c9eec5fee323d953b3e230e4083e\" \"2f4f50d98073c01038b518066840638455657dc91dd1a225286d573926f36914\" \"80ae3a89f1eca6fb94a525004f66b544e347c6f756aaafb728c7cdaef85ea1f5\" \"7b1a2c8ec90a30cc5d039db0e52f192a291f4c3655103cf669721f94028eac27\" \"bcd0237b2a5b7897e482458cc62c4f3fa3d9d7f9a9667338e67d4c7a8e009819\" \"8e79884e89740cf6b7e0210f52e4ac995dc1f1a9a17151bfcfb4d660757a011b\" \"454c1c9ce70f7d807c51c890910365fd3c64a9e63f596511e9ff57dd97bbeea8\" \"387b487737860e18cbb92d83a42616a67c1edfd0664d521940e7fbf049c315ae\" \"6231254e74298a1cf8a5fee7ca64352943de4b495e615c449e9bb27e2ccae709\" \"3577ee091e1d318c49889574a31175970472f6f182a9789f1a3e9e4513641d86\" \"cbd85ab34afb47003fa7f814a462c24affb1de81ebf172b78cb4e65186ba59d2\" \"8f5b54bf6a36fe1c138219960dd324aad8ab1f62f543bed73ef5ad60956e36ae\" \"9d8ad1c413fccc14d992f6bed0ead11f1798a05ee8913daaa24a24604c212b61\" \"e246ff6951678c835ab95aedb99a48fdd665656eadf8b8bc0a4f60e17fbc6b7e\" \"e57eec7e0399272aaca7985a5cc94f3a2675db4cd2dbd79a99c72786e489e43c\" \"d0fd069415ef23ccc21ccb0e54d93bdbb996a6cce48ffce7f810826bb243502c\" \"ffba0482d3548c9494e84c1324d527f73ea4e43fff8dfd0e48faa8fc6d5c2bc7\" \"9e816bc85b64963710efdbc57db8545b53f7f359b0736e0b36fbc9efe07f12f4\" \"6ac7c0f959f0d7853915012e78ff70150bfbe2a69a1b703c3ac4184f9ae3ae02\" \"845103fcb9b091b0958171653a4413ccfad35552bc39697d448941bcbe5a660d\" \"bc836bf29eab22d7e5b4c142d201bcce351806b7c1f94955ccafab8ce5b20208\" \"7f6d4aebcc44c264a64e714c3d9d1e903284305fd7e319e7cb73345a9994f5ef\" \"10a31b6c251640d04b2fa74bd2c05aaaee915cbca6501bcc82820cdc177f5a93\" \"6e933f1668e124ec17fc7b6547f65ba760e06efb568a6c8091c600c67827e592\" \"02199888a97767d7779269a39ba2e641d77661b31b3b8dd494b1a7250d1c8dc1\" \"2a49f95b19d5926d940db11057077df2d01faaf33e66c5a8d4ee8043a904695f\" \"bdb4509c123230a059d89fc837c40defdecee8279c741b7f060196b343b2d18d\" \"ed17fef69db375ae1ced71fdc12e543448827aac5eb7166d2fd05f4c95a7be71\" \"6515fcc302292f29a94f6ac0c5795c57a396127d5ea31f37fc5f9f0308bbe19f\" \"5a45c8bf60607dfa077b3e23edfb8df0f37c4759356682adf7ab762ba6b10600\" \"6c5a5c47749e7992b4da3011595f5470f33e19f29b10564cd4f62faebbe36b91\" \"8a379e7ac3a57e64de672dd744d4730b3bdb88ae328e8106f95cd81cbd44e0b6\" \"2035a16494e06636134de6d572ec47c30e26c3447eafeb6d3a9e8aee73732396\" \"ed0b4fc082715fc1d6a547650752cd8ec76c400ef72eb159543db1770a27caa7\" \"42b9d85321f5a152a6aef0cc8173e701f572175d6711361955ecfb4943fe93af\" \"021720af46e6e78e2be7875b2b5b05344f4e21fad70d17af7acfd6922386b61e\" \"9fcac3986e3550baac55dc6175195a4c7537e8aa082043dcbe3f93f548a3a1e0\" \"242527ce24b140d304381952aa7a081179a9848d734446d913ca8ef0af3cef21\" \"8cb818e0658f6cc59928a8f2b2917adc36d882267bf816994e00c5b8fcbf6933\" \"3fa81193ab414a4d54cde427c2662337c2cab5dd4eb17ffff0d90bca97581eb6\" \"44247f2a14c661d96d2bff302f1dbf37ebe7616935e4682102b68c0b6cc80095\" \"73bff6f2ef60f8a1238a9ca666235d258e3acdeeed85d092ca532788dd7a33c4\" \"05eeb814f74b2fd4f2e6e37b4d604eb9b1daaaedfa5e692f1d485250c6b553eb\" \"0055e55e6a357a941027139152a67f93376616d3501055d06852f10fdc16bac0\" \"1f3113447a652b8436a9938bbac71ecaf022cc73ecd0d76182eb9713aa781f17\" \"b755c709cb46ba4599ab3a3c189a056e9736cbbb39ed9ecfc1ab1aa3d6f79021\" \"75c5c39809c52d48cb9dcbf1694bf2d27d5f6fd053777c194e0b69d8e49031c0\" \"54e08527b4f4b127ebf7359acbbbecfab55152da01716c4809682eb71937fd33\" \"81db42d019a738d388596533bd1b5d66aef3663842172f3696733c0aab05a150\" \"ef1e992ef341e86397b39ee6b41c1368e1b33d45b0848feac6a8e8d5753daa67\" \"ad109c1ad8115573f40e22ac2b996693b5d48052fa37b5919f70ea37c62a965e\" \"b143ad150e25f9b6d09ae313718f85cc785c89445f3369f74bd0d836d5881c56\" \"dc9a8d70c4f94a28aafc7833f8d05667601968e6c9bf998791c39fcb3e4679c9\" \"125fd2180e880802ae98b85f282b17f0aa8fa6cb9fc4f33d7fb19a38c40acef0\" \"4d80487632a0a5a72737a7fc690f1f30266668211b17ba836602a8da890c2118\" \"9a155066ec746201156bb39f7518c1828a73d67742e11271e4f24b7b178c4710\" \"4bfced46dcfc40c45b076a1758ca106a947b1b6a6ff79a3281f3accacfb3243c\" \"31992d4488dba5b28ddb0c16914bf5726dc41588c2b1c1a2fd16516ea92c1d8e\" \"0e33022384e4db1374827f51e3d9e9a2d56282c2e3568c22f1c12ad80e20cf0c\" \"83db918b06f0b1df1153f21c0d47250556c7ffb5b5e6906d21749f41737babb7\" \"47744f6c8133824bdd104acc4280dbed4b34b85faa05ac2600f716b0226fb3f6\" \"8b313e1793da427e90c034dbe74f3ad9092ac291846c0f855908c42a6bda1ff4\" \"43c1a8090ed19ab3c0b1490ce412f78f157d69a29828aa977dae941b994b4147\" \"bc4b650c41b16b98166b35da94b366c6a9e1e7883bbf4937c897fb7bd05aa619\" \"e9460a84d876da407d9e6accf9ceba453e2f86f8b86076f37c08ad155de8223c\" \"8ec2e01474ad56ee33bc0534bdbe7842eea74dccfb576e09f99ef89a705f5501\" \"d606ac41cdd7054841941455c0151c54f8bff7e4e050255dbd4ae4d60ab640c1\" \"4f2ede02b3324c2f788f4e0bad77f7ebc1874eff7971d2a2c9b9724a50fb3f65\" \"2b6bd2ebad907ee42b3ffefa4831f348e3652ea8245570cdda67f0034f07db93\" \"7f3ef7724515515443f961ef87fee655750512473b1f5bf890e2dc7e065f240c\" \"65d9573b64ec94844f95e6055fe7a82451215f551c45275ca5b78653d505bc42\" \"39dffaee0e575731c909bb3e4b411f1c4759c3d7510bf02aa5aef322a596dd57\" \"2cf7f9d1d8e4d735ba53facdc3c6f3271086b6906c4165b12e4fd8e3865469a6\" default))"},{"Add":" '(custom-theme-directory \"~/.emacs.d/lisp/themes\")"},{"Add":" '(doc-view-image-width 1150)"},{"Add":" '(doc-view-resolution 200)"},{"Add":" '(face-font-family-alternatives"},{"Add":" '((\"Inconsolata\")"},{"Add":" (\"Monospace\" \"courier\" \"fixed\")"},{"Add":" (\"courier\" \"CMU Typewriter Text\" \"fixed\")"},{"Add":" (\"Sans Serif\" \"helv\" \"helvetica\" \"arial\" \"fixed\")"},{"Add":" (\"helv\" \"helvetica\" \"arial\" \"fixed\")))"},{"Add":" '(fci-rule-color \"#f8fce8\")"},{"Add":" '(fci-rule-column 80)"},{"Add":" '(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red))"},{"Add":" '(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan))"},{"Add":" '(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow))"},{"Add":" '(folding-mode-hook '(jlj--install-folding-map))"},{"Add":" '(fringe-mode 10 nil (fringe))"},{"Add":" '(highlight-tail-colors '((\"#2f4a00\" . 0) (\"#00415e\" . 20)))"},{"Add":" '(hl-paren-background-colors '(\"#e8fce8\" \"#c1e7f8\" \"#f8e8e8\"))"},{"Add":" '(hl-paren-colors '(\"#40883f\" \"#0287c8\" \"#b85c57\"))"},{"Add":" '(hl-sexp-background-color \"#efebe9\")"},{"Add":" '(hl-todo-keyword-faces"},{"Add":" '((\"HOLD\" . \"#cfdf30\")"},{"Add":" (\"TODO\" . \"#feacd0\")"},{"Add":" (\"NEXT\" . \"#b6a0ff\")"},{"Add":" (\"THEM\" . \"#f78fe7\")"},{"Add":" (\"PROG\" . \"#00d3d0\")"},{"Add":" (\"OKAY\" . \"#4ae8fc\")"},{"Add":" (\"DONT\" . \"#80d200\")"},{"Add":" (\"FAIL\" . \"#ff8059\")"},{"Add":" (\"BUG\" . \"#ff8059\")"},{"Add":" (\"DONE\" . \"#44bc44\")"},{"Add":" (\"NOTE\" . \"#f0ce43\")"},{"Add":" (\"KLUDGE\" . \"#eecc00\")"},{"Add":" (\"HACK\" . \"#eecc00\")"},{"Add":" (\"TEMP\" . \"#ffcccc\")"},{"Add":" (\"FIXME\" . \"#ff9977\")"},{"Add":" (\"XXX+\" . \"#f4923b\")"},{"Add":" (\"REVIEW\" . \"#6ae4b9\")"},{"Add":" (\"DEPRECATED\" . \"#bfd9ff\")))"},{"Add":" '(ibuffer-deletion-face 'modus-theme-mark-del)"},{"Add":" '(ibuffer-filter-group-name-face 'modus-theme-mark-symbol)"},{"Add":" '(ibuffer-marked-face 'modus-theme-mark-sel)"},{"Add":" '(ibuffer-title-face 'modus-theme-pseudo-header)"},{"Add":" '(indent-tabs-mode nil)"},{"Add":" '(inhibit-startup-screen t)"},{"Add":" '(ispell-dictionary nil)"},{"Add":" '(ivy-mode nil)"},{"Add":" '(ivy-use-virtual-buffers t)"},{"Add":" '(ivy-virtual-abbreviate 'abbreviate)"},{"Add":" '(jdee-db-active-breakpoint-face-colors (cons nil nil))"},{"Add":" '(jdee-db-requested-breakpoint-face-colors (cons nil nil))"},{"Add":" '(jdee-db-spec-breakpoint-face-colors (cons nil nil))"},{"Add":" '(jlj--assets-to-obfuscate"},{"Add":" `((\"[a-zA-Z0-9.]+\\\\.png\\\\.loc\" ,(apply-partially #'jlj--obfuscate-fqdn \"png.loc\"))"},{"Add":" (\"10\\\\.62\\\\.[0-9]+\\\\.[0-9]+\" jlj--obfuscate-ip)"},{"Add":" (\"10\\\\.63\\\\.[0-9]+\\\\.[0-9]+\" jlj--obfuscate-ip)"},{"Add":" (\"10\\\\.70\\\\.[0-9]+\\\\.[0-9]+\" jlj--obfuscate-ip)"},{"Add":" (\"10\\\\.222\\\\.[0-9]+\\\\.[0-9]+\" jlj--obfuscate-ip)"},{"Add":" (\"10\\\\.228\\\\.[0-9]+\\\\.[0-9]+\" jlj--obfuscate-ip)"},{"Add":" (\"10\\\\.229\\\\.[0-9]+\\\\.[0-9]+\" jlj--obfuscate-ip)"},{"Add":" (\"192\\\\.168\\\\.10\\\\.[0-9]+\" jlj--obfuscate-ip)"},{"Add":" (\"192\\\\.168\\\\.12\\\\.[0-9]+\" jlj--obfuscate-ip)"},{"Add":" (\"192\\\\.168\\\\.92\\\\.[0-9]+\" jlj--obfuscate-ip)"},{"Add":" (\"192\\\\.168\\\\.199\\\\.[0-9]+\" jlj--obfuscate-ip)))"},{"Add":" '(line-number-mode nil)"},{"Add":" '(linum-format \" %6d \")"},{"Add":" '(main-line-color1 \"#222232\")"},{"Add":" '(main-line-color2 \"#333343\")"},{"Add":" '(menu-bar-mode nil)"},{"Add":" '(modus-operandi-theme-3d-modeline t)"},{"Add":" '(modus-operandi-theme-comments 'green)"},{"Add":" '(modus-operandi-theme-diffs 'desaturated)"},{"Add":" '(modus-operandi-theme-distinct-org-blocks t)"},{"Add":" '(modus-operandi-theme-faint-syntax t)"},{"Add":" '(modus-vivendi-theme-3d-modeline nil)"},{"Add":" '(modus-vivendi-theme-comments 'green)"},{"Add":" '(modus-vivendi-theme-diffs 'desaturated)"},{"Add":" '(modus-vivendi-theme-faint-syntax t)"},{"Add":" '(modus-vivendi-theme-headings ''((t)))"},{"Add":" '(modus-vivendi-theme-intense-paren-match t)"},{"Add":" '(modus-vivendi-theme-mode-line 'moody)"},{"Add":" '(modus-vivendi-theme-prompts 'subtle)"},{"Add":" '(modus-vivendi-theme-section-headings t)"},{"Add":" '(modus-vivendi-theme-slanted-constructs t)"},{"Add":" '(modus-vivendi-theme-subtle-diffs t)"},{"Add":" '(multikeyfreq-excluded-commands"},{"Add":" '(delete-backward-char eshell-send-input ivy-backward-delete-char mouse-drag-region mouse-set-point mwheel-scroll org-cycle org-delete-backward-char org-self-insert-command scroll-down-command scroll-up-command self-insert-command))"},{"Add":" '(nrepl-message-colors"},{"Add":" '(\"#CC9393\" \"#DFAF8F\" \"#F0DFAF\" \"#7F9F7F\" \"#BFEBBF\" \"#93E0E3\" \"#94BFF3\" \"#DC8CC3\"))"},{"Add":" '(objed-cursor-color nil)"},{"Add":" '(org-agenda-files '(\"h:/Documents/todo.org\"))"},{"Add":" '(org-archive-location \"%s_archive::\")"},{"Add":" '(org-babel-load-languages '((dot . t) (emacs-lisp . t)))"},{"Add":" '(org-checkbox-hierarchical-statistics nil)"},{"Add":" '(org-confirm-babel-evaluate nil)"},{"Add":" '(org-drill-done-count-color \"#663311\")"},{"Add":" '(org-drill-failed-count-color \"#880000\")"},{"Add":" '(org-drill-mature-count-color \"#005500\")"},{"Add":" '(org-drill-new-count-color \"#004488\")"},{"Add":" '(org-hierarchical-todo-statistics nil)"},{"Add":" '(org-latex-hyperref-template"},{"Add":" \"\\\\hypersetup{"},{"Add":" pdfauthor={%a},"},{"Add":" pdftitle={%t},"},{"Add":" pdfkeywords={%k},"},{"Add":" pdfsubject={%d},"},{"Add":" pdfcreator={%c},"},{"Add":" pdflang={%L},"},{"Add":" colorlinks=true}"},{"Add":"\")"},{"Add":" '(org-log-done 'time)"},{"Add":" '(org-return-follows-link t)"},{"Add":" '(org-startup-indented t)"},{"Add":" '(org-todo-keywords '((sequence \"WAITING\" \"TODO\" \"DONE\")))"},{"Add":" '(org-todo-repeat-to-state \"TODO\")"},{"Add":" '(org-use-sub-superscripts '{})"},{"Add":" '(package-selected-packages"},{"Add":" '(fennel-mode ox-gemini org-superstar omtose-phellack-theme pyvenv-auto paredit warm-night-theme geiser-guile geiser geiser-chicken spacegray-theme soft-charcoal-theme slime abyss-theme ample-theme djvu elpher ox-rst ripgrep unicode-fonts no-spam uuid marginalia embark-consult embark orderless selectrum consult vertico dockerfile-mode x509-mode forth-mode browse-at-remote cider sesman clojure-mode eziam-theme scad-mode acme-theme sexy-monochrome-theme monotropic-theme constant-theme graphviz-dot-mode mood-line mood-one-theme modus-vivendi-theme modus-operandi-theme browse-url-dwim magit parchment-theme almost-mono-themes borland-blue-theme nordless-theme northcode-theme nord-theme nofrils-acme-theme multikeyfreq fireplace boon csv-mode ein markdown-mode puppet-mode dad-joke keyfreq avy-zap avy ggtags counsel-projectile projectile command-log-mode counsel vc-fossil visible-mark esup sudden-death jammer arjen-grey-theme atom-dark-theme clues-theme dark-krystal-theme darkburn-theme eink-theme foggy-night-theme green-screen-theme gruvbox-theme heroku-theme inverse-acme-theme iodine-theme labburn-theme leuven-theme evil-visual-mark-mode excorporate telephone-line xah-fly-keys which-key url-http-ntlm toml-mode plan9-theme ergoemacs-mode))"},{"Add":" '(pdf-view-midnight-colors '(\"#eeeeee\" . \"#000000\"))"},{"Add":" '(pos-tip-background-color \"#414E63\")"},{"Add":" '(pos-tip-foreground-color \"#BEC8DB\")"},{"Add":" '(powerline-color1 \"#222232\")"},{"Add":" '(powerline-color2 \"#333343\")"},{"Add":" '(rainbow-identifiers-choose-face-function 'rainbow-identifiers-cie-l*a*b*-choose-face t)"},{"Add":" '(rainbow-identifiers-cie-l*a*b*-color-count 1024 t)"},{"Add":" '(rainbow-identifiers-cie-l*a*b*-lightness 80 t)"},{"Add":" '(rainbow-identifiers-cie-l*a*b*-saturation 25 t)"},{"Add":" '(rustic-ansi-faces [nil nil nil nil nil nil nil nil])"},{"Add":" '(scheme-mode-hook '(geiser-mode--maybe-activate jlj--scheme-folding) t)"},{"Add":" '(scroll-bar-mode nil)"},{"Add":" '(show-paren-mode nil)"},{"Add":" '(sml/active-background-color \"#98ece8\")"},{"Add":" '(sml/active-foreground-color \"#424242\")"},{"Add":" '(sml/inactive-background-color \"#4fa8a8\")"},{"Add":" '(sml/inactive-foreground-color \"#424242\")"},{"Add":" '(telephone-line-evil-use-short-tag t)"},{"Add":" '(telephone-line-mode nil)"},{"Add":" '(tool-bar-mode nil)"},{"Add":" '(transient-mark-mode nil)"},{"Add":" '(vc-annotate-background \"#2B2B2B\")"},{"Add":" '(vc-annotate-background-mode nil)"},{"Add":" '(vc-annotate-color-map"},{"Add":" '((20 . \"#BC8383\")"},{"Add":" (40 . \"#CC9393\")"},{"Add":" (60 . \"#DFAF8F\")"},{"Add":" (80 . \"#D0BF8F\")"},{"Add":" (100 . \"#E0CF9F\")"},{"Add":" (120 . \"#F0DFAF\")"},{"Add":" (140 . \"#5F7F5F\")"},{"Add":" (160 . \"#7F9F7F\")"},{"Add":" (180 . \"#8FB28F\")"},{"Add":" (200 . \"#9FC59F\")"},{"Add":" (220 . \"#AFD8AF\")"},{"Add":" (240 . \"#BFEBBF\")"},{"Add":" (260 . \"#93E0E3\")"},{"Add":" (280 . \"#6CA0A3\")"},{"Add":" (300 . \"#7CB8BB\")"},{"Add":" (320 . \"#8CD0D3\")"},{"Add":" (340 . \"#94BFF3\")"},{"Add":" (360 . \"#DC8CC3\")))"},{"Add":" '(vc-annotate-very-old-color \"#DC8CC3\")"},{"Add":" '(vertico-mode t)"},{"Add":" '(visible-bell nil)"},{"Add":" '(xterm-color-names"},{"Add":" [\"#000000\" \"#ff8059\" \"#44bc44\" \"#eecc00\" \"#2fafff\" \"#feacd0\" \"#00d3d0\" \"#a8a8a8\"])"},{"Add":" '(xterm-color-names-bright"},{"Add":" [\"#181a20\" \"#f4923b\" \"#80d200\" \"#cfdf30\" \"#79a8ff\" \"#f78fe7\" \"#4ae8fc\" \"#ffffff\"]))"},{"Add":"(custom-set-faces"},{"Add":" ;; custom-set-faces was added by Custom."},{"Add":" ;; If you edit it by hand, you could mess it up, so be careful."},{"Add":" ;; Your init file should contain only one such instance."},{"Add":" ;; If there is more than one, they won't work right."},{"Add":" '(default ((t (:inherit nil :extend nil :stipple nil :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 128 :width normal :foundry \"IBM \" :family \"IBM Plex Mono\"))))"},{"Add":" '(mode-line-highlight ((t (:box nil))))"},{"Add":" '(mode-line-inactive ((t (:box nil))))"},{"Add":" '(org-done ((t (:background \"#D0D0D0\" :foreground \"#222222\" :weight bold :height 0.8))))"},{"Add":" '(org-todo ((t (:inverse-video t :weight bold :height 0.8))))"},{"Add":" '(show-paren-match ((t (:inherit sp-show-pair-match-face :foreground \"black\" :background \"yellow\" :weight bold))))"},{"Add":" '(variable-pitch ((t (:height 1.2 :foundry \"outline\" :family \"IBM Plex Sans Light\")))))"},{"Add":""},{"Add":"(cond"},{"Add":" ((string-equal system-configuration \"x86_64-w64-mingw32\")"},{"Add":" (progn"},{"Add":" (setq python-shell-interpreter \"python.exe\")"},{"Add":" (setq x509-openssl-cmd \"C:/Program Files/Git/usr/bin/openssl.exe\")"},{"Add":" (setq python-shell-exec-path"},{"Add":" '(\"c:/program files/python310\""},{"Add":" \"c:/program files/python38\""},{"Add":" \"c:/program files/python37\"))"},{"Add":" (setq diff-command \"\\\"C:\\\\Program Files\\\\Git\\\\usr\\\\bin\\\\diff.exe\\\"\")"},{"Add":" (setq ediff-diff-program \"c:\\\\program files\\\\git\\\\usr\\\\bin\\\\diff.exe\")"},{"Add":" (setq ediff-patch-program \"\\\"c:\\\\program files\\\\git\\\\usr\\\\bin\\\\patch.exe\\\"\")"},{"Add":" (setq org-agenda-files '(\"h:/Documents/todo.org\"))"},{"Add":" ))"},{"Add":" ((string-equal system-name \"wtsvSecurity01\")"},{"Add":" (setq org-capture-templates"},{"Add":" (apply append"},{"Add":" (if (boundp 'org-capture-templates) org-capture-templates '())"},{"Add":" '((\"t\" \"todo\")"},{"Add":" (\"tt\" \"todo\" entry"},{"Add":" (file+headline \"h:/documents/todo.org\" \"inbox\")"},{"Add":" \"** TODO %? %^g\")"},{"Add":" (\"tc\" \"change\" entry"},{"Add":" (file+headline \"h:/documents/todo.org\" \"inbox\")"},{"Add":" \"** CFILE %?"},{"Add":":PROPERTIES:"},{"Add":":change: tbd"},{"Add":":END:\")"},{"Add":" (\"ts\" \"service request\" entry"},{"Add":" (file+headline \"h:/documents/todo.org\" \"inbox\")"},{"Add":" \"** SRFILE %?"},{"Add":":PROPERTIES:"},{"Add":":ticket: tbd"},{"Add":":END:\"))))"},{"Add":" )"},{"Add":" )"},{"Add":""},{"Add":""},{"Add":""},{"Add":"(add-to-list 'load-path \"~/.emacs.d/lisp/\")"},{"Add":"(load \"folding\" 'nomessage 'noerror)"},{"Add":"(folding-mode-add-find-file-hook)"},{"Add":""},{"Add":"(defun show-filename () (interactive) (message buffer-file-name))"},{"Add":"(global-set-key (kbd \"C-x g\") 'show-filename)"},{"Add":""},{"Add":"(cond ((eq jareds-mood 'xah)"},{"Add":" (require 'xah-fly-keys)"},{"Add":" (xah-fly-keys-set-layout \"colemak-mod-dhm\")"},{"Add":" ;; (xah-fly-keys-set-layout \"colemak-mod-dh\")"},{"Add":" ;; (xah-fly-keys-set-layout \"qwerty\")"},{"Add":" (xah-fly-keys 1)"},{"Add":" (require 'which-key)"},{"Add":" (which-key-mode))"},{"Add":" ((eq jareds-mood 'evil)"},{"Add":" (require 'evil)"},{"Add":" (evil-mode 1))"},{"Add":" ((eq jareds-mood 'boon)"},{"Add":" (require 'boon-colemak-dhm)"},{"Add":" (boon-mode)"},{"Add":" ;; dactyl manuform"},{"Add":" (define-key boon-moves-map \"(\" '(\"(-\" . boon-navigate-backward))"},{"Add":" (define-key boon-moves-map \")\" '(\"-)\" . boon-navigate-forward)))"},{"Add":" ((eq jareds-mood 'meow)"},{"Add":" (defun meow-setup ()"},{"Add":" (setq meow-cheatsheet-layout meow-cheatsheet-layout-colemak-dh)"},{"Add":" (meow-motion-overwrite-define-key"},{"Add":" ;; Use e to move up, n to move down."},{"Add":" ;; Since special modes usually use n to move down, we only overwrite e here."},{"Add":" '(\"e\" . meow-prev)"},{"Add":" '(\"\" . ignore))"},{"Add":" (meow-leader-define-key"},{"Add":" '(\"?\" . meow-cheatsheet)"},{"Add":" ;; To execute the originally e in MOTION state, use SPC e."},{"Add":" '(\"e\" . \"H-e\")"},{"Add":" '(\"1\" . meow-digit-argument)"},{"Add":" '(\"2\" . meow-digit-argument)"},{"Add":" '(\"3\" . meow-digit-argument)"},{"Add":" '(\"4\" . meow-digit-argument)"},{"Add":" '(\"5\" . meow-digit-argument)"},{"Add":" '(\"6\" . meow-digit-argument)"},{"Add":" '(\"7\" . meow-digit-argument)"},{"Add":" '(\"8\" . meow-digit-argument)"},{"Add":" '(\"9\" . meow-digit-argument)"},{"Add":" '(\"0\" . meow-digit-argument))"},{"Add":" (meow-normal-define-key"},{"Add":" '(\"0\" . meow-expand-0)"},{"Add":" '(\"1\" . meow-expand-1)"},{"Add":" '(\"2\" . meow-expand-2)"},{"Add":" '(\"3\" . meow-expand-3)"},{"Add":" '(\"4\" . meow-expand-4)"},{"Add":" '(\"5\" . meow-expand-5)"},{"Add":" '(\"6\" . meow-expand-6)"},{"Add":" '(\"7\" . meow-expand-7)"},{"Add":" '(\"8\" . meow-expand-8)"},{"Add":" '(\"9\" . meow-expand-9)"},{"Add":" '(\"-\" . negative-argument)"},{"Add":" '(\";\" . meow-reverse)"},{"Add":" '(\",\" . meow-inner-of-thing)"},{"Add":" '(\".\" . meow-bounds-of-thing)"},{"Add":" '(\"[\" . meow-beginning-of-thing)"},{"Add":" '(\"]\" . meow-end-of-thing)"},{"Add":" '(\"/\" . meow-visit)"},{"Add":" '(\"a\" . meow-append)"},{"Add":" '(\"A\" . meow-open-below)"},{"Add":" '(\"b\" . meow-back-word)"},{"Add":" '(\"B\" . meow-back-symbol)"},{"Add":" '(\"c\" . meow-change)"},{"Add":" '(\"d\" . meow-delete)"},{"Add":" '(\"e\" . meow-prev)"},{"Add":" '(\"E\" . meow-prev-expand)"},{"Add":" '(\"f\" . meow-find)"},{"Add":" '(\"g\" . meow-cancel-selection)"},{"Add":" '(\"G\" . meow-grab)"},{"Add":" '(\"h\" . meow-left)"},{"Add":" '(\"H\" . meow-left-expand)"},{"Add":" '(\"i\" . meow-right)"},{"Add":" '(\"I\" . meow-right-expand)"},{"Add":" '(\"j\" . meow-join)"},{"Add":" '(\"k\" . meow-kill)"},{"Add":" '(\"l\" . meow-line)"},{"Add":" '(\"L\" . meow-goto-line)"},{"Add":" '(\"m\" . meow-mark-word)"},{"Add":" '(\"M\" . meow-mark-symbol)"},{"Add":" '(\"n\" . meow-next)"},{"Add":" '(\"N\" . meow-next-expand)"},{"Add":" '(\"o\" . meow-block)"},{"Add":" '(\"O\" . meow-to-block)"},{"Add":" '(\"p\" . meow-yank)"},{"Add":" '(\"q\" . meow-quit)"},{"Add":" '(\"r\" . meow-replace)"},{"Add":" '(\"s\" . meow-insert)"},{"Add":" '(\"S\" . meow-open-above)"},{"Add":" '(\"t\" . meow-till)"},{"Add":" '(\"u\" . meow-undo)"},{"Add":" '(\"U\" . meow-undo-in-selection)"},{"Add":" '(\"v\" . meow-search)"},{"Add":" '(\"w\" . meow-next-word)"},{"Add":" '(\"W\" . meow-next-symbol)"},{"Add":" '(\"x\" . meow-delete)"},{"Add":" '(\"X\" . meow-backward-delete)"},{"Add":" '(\"y\" . meow-save)"},{"Add":" '(\"z\" . meow-pop-selection)"},{"Add":" '(\"'\" . repeat)"},{"Add":" '(\"\" . ignore)))"},{"Add":" (require 'meow)"},{"Add":" (meow-setup)"},{"Add":" (meow-global-mode 1))"},{"Add":" ((eq jareds-mood 'ergo)"},{"Add":" (require 'ergoemacs-mode)"},{"Add":" (setq ergoemacs-theme nil) ;; Uses Standard Ergoemacs keyboard theme"},{"Add":" (setq ergoemacs-keyboard-layout \"us\") ;; Assumes QWERTY keyboard layout"},{"Add":" (ergoemacs-mode 1))"},{"Add":" (t nil))"},{"Add":""},{"Add":""},{"Add":"(autoload 'scad-mode \"scad-mode\" \"A major mode for editing OpenSCAD code.\" t)"},{"Add":"(add-to-list 'auto-mode-alist '(\"\\\\.scad$\" . scad-mode))"},{"Add":""},{"Add":"(defun spit-scad-last-expression ()"},{"Add":" (interactive)"},{"Add":" (cider-interactive-eval"},{"Add":" (format "},{"Add":" \"(require 'scad-clj.scad)"},{"Add":" (spit \\\"eval.scad\\\" (scad-clj.scad/write-scad %s))\""},{"Add":" (cider-last-sexp))))"},{"Add":";(define-key cider-mode-map (kbd \"C-c 3\") 'spit-scad-last-expression)"},{"Add":""},{"Add":"(define-skeleton blog-post-skeleton \"a pelican blog post\" \"title: \""},{"Add":"\t str \"\\n\" (make-string (length str) ?#) \"\\n\" (concat \":date: \" (format-time-string \"%Y-%m-%d %H:%M\\n\")) \":author: jaredj\\n\" \":category: \" _)"},{"Add":""},{"Add":"; get the I-beam APL character for xah-fly-keys insert mode indicator"},{"Add":"(set-fontset-font \"fontset-default\" #x2336 \"APL385 Unicode\")"},{"Add":""},{"Add":""},{"Add":"(defun jared-open-line (&optional N)"},{"Add":" \"Open a new line above this one, avoiding splitting. Like vi's O, not like Emacs' C-o.\""},{"Add":" (interactive \"p\")"},{"Add":" (beginning-of-line)"},{"Add":" (open-line (or N 1))"},{"Add":" (indent-for-tab-command))"},{"Add":" "},{"Add":"\t\t\t\t\t; fix the s command in xah-fly-keys"},{"Add":"(cond ((eq jareds-mood 'xah)"},{"Add":" (progn"},{"Add":" (substitute-key-definition 'open-line 'jared-open-line"},{"Add":"\t\t\t\t xah-fly-key-map)"},{"Add":" (global-set-key (kbd \"M-DEL\") 'xah-fly-command-mode-activate))))"},{"Add":""},{"Add":"(require 'sudden-death)"},{"Add":"(transient-mark-mode 1)"},{"Add":""},{"Add":";; original at https://oremacs.com/2015/01/26/occur-dwim/"},{"Add":"(defun my/occur-dwim-silently ()"},{"Add":" \"Call `occur' with a symbol, or do nothing. No prompts.\""},{"Add":" (interactive)"},{"Add":" (let ((sym (thing-at-point 'symbol)))"},{"Add":" (cond"},{"Add":" ((region-active-p)"},{"Add":" (progn"},{"Add":" (let ((thing-to-occur"},{"Add":" (buffer-substring-no-properties"},{"Add":" (region-beginning)"},{"Add":" (region-end))))"},{"Add":" (occur thing-to-occur))))"},{"Add":" ((stringp sym)"},{"Add":" (progn"},{"Add":" (occur sym)))"},{"Add":" (t (message \"no symbol found to occur\")))))"},{"Add":""},{"Add":";; (defun my/projectile-multi-occur-dwim-silently ()"},{"Add":";; \"Call `occur' with a symbol, or do nothing. No prompts.\""},{"Add":";; (interactive)"},{"Add":";; (let ((sym (thing-at-point 'symbol)))"},{"Add":";; (cond"},{"Add":";; ((region-active-p)"},{"Add":";; (progn"},{"Add":";; (let ((thing-to-occur"},{"Add":";; (buffer-substring-no-properties"},{"Add":";; (region-beginning)"},{"Add":";; (region-end))))"},{"Add":";; (multi-occur (projectile-project-buffers)"},{"Add":";; thing-to-occur))))"},{"Add":";; ((stringp sym)"},{"Add":";; (progn"},{"Add":";; (multi-occur (projectile-project-buffers) sym)))"},{"Add":";; (t (message \"no symbol found to occur\")))))"},{"Add":""},{"Add":";; ;; Don't ask before re-reading changed TAGS files"},{"Add":";; (setq tags-revert-without-query t)"},{"Add":";; ;; NO warning when loading large TAGS files"},{"Add":";; (setq large-file-warning-threshold nil)"},{"Add":";; (add-hook 'prog-mode-hook"},{"Add":";; (lambda ()"},{"Add":";; (add-hook 'after-save-hook"},{"Add":";; 'counsel-etags-virtual-update-tags 'append 'local)))"},{"Add":""},{"Add":";; https://stackoverflow.com/a/50167337"},{"Add":""},{"Add":"(when (version< emacs-version \"26\")"},{"Add":" (with-eval-after-load \"ibuf-ext\""},{"Add":" (define-ibuffer-filter visiting-file"},{"Add":" \"Limit current view to buffers that are visiting a file.\""},{"Add":" (:description \"visiting a file\""},{"Add":" :reader nil)"},{"Add":" (with-current-buffer buf (buffer-file-name))))"},{"Add":" (with-eval-after-load \"ibuffer\""},{"Add":" (autoload 'ibuffer-filter-by-visiting-file \"ibuf-ext\")"},{"Add":" (define-key ibuffer-mode-map (kbd \"/ v\") 'ibuffer-filter-by-visiting-file)))"},{"Add":""},{"Add":"(require 'keyfreq)"},{"Add":"(keyfreq-mode 1)"},{"Add":"(keyfreq-autosave-mode 1)"},{"Add":"(put 'upcase-region 'disabled nil)"},{"Add":"(put 'downcase-region 'disabled nil)"},{"Add":""},{"Add":""},{"Add":"(defun jlj--flip-last-name-first-in-region (begin end)"},{"Add":" (interactive (list (region-beginning) (region-end)))"},{"Add":" (save-excursion"},{"Add":" (save-restriction"},{"Add":" (narrow-to-region begin end)"},{"Add":" (progn"},{"Add":" (goto-char (point-min))"},{"Add":" (while (search-forward-regexp \"^\\\$[^,\\n]+\\\$, *\\\$[^\\n]+\\\$$\" nil t)"},{"Add":" (replace-match \"\\\\2 \\\\1\"))))))"},{"Add":""},{"Add":"(defun jlj--obfuscate-ip (real-ip)"},{"Add":" (let* ((h (gnutls-hash-digest 'SHA256 real-ip))"},{"Add":" (n (reduce 'logxor h)))"},{"Add":" (format \"192.0.2.%d\" n)))"},{"Add":""},{"Add":"(defun jlj--obfuscate-fqdn (obfuscated-domain real-fqdn)"},{"Add":" (let* ((h (gnutls-hash-digest 'SHA256 real-fqdn))"},{"Add":" (names '(alpha bravo charlie delta echo foxtrot golf"},{"Add":" hotel india juliett kilo lima mike"},{"Add":" november oscar papa quebec romeo sierra"},{"Add":" tango uniform victor whiskey xray yankee zulu))"},{"Add":" (part1 (nth (% (elt h 0) (length names)) names))"},{"Add":" (part2 (format \"%d\" (elt h 3)))"},{"Add":" (final (format \"%s-%s.%s\" part1 part2 obfuscated-domain)))"},{"Add":" final))"},{"Add":" "},{"Add":"(defun jlj--obfuscate-assets (begin end)"},{"Add":" (interactive (list (region-beginning) (region-end)))"},{"Add":" (let ((replacement-kinds jlj--assets-to-obfuscate)"},{"Add":" replacements)"},{"Add":" (save-excursion"},{"Add":" (save-restriction"},{"Add":" (narrow-to-region begin end)"},{"Add":" (progn"},{"Add":" (dolist (k replacement-kinds)"},{"Add":" (goto-char (point-min))"},{"Add":" (let ((re (car k)) (fun (cadr k)))"},{"Add":" (while (search-forward-regexp re nil t)"},{"Add":" (let ((m (match-string-no-properties 0)))"},{"Add":" (unless (assoc m replacements)"},{"Add":" (setq replacements (cons (cons m (funcall fun m))"},{"Add":" replacements)))))))"},{"Add":" (dolist (r replacements)"},{"Add":" (goto-char (point-min))"},{"Add":" (while (search-forward (car r) nil t)"},{"Add":" (replace-match (cdr r)))))))))"},{"Add":""},{"Add":"(require 'ox-beamer)"},{"Add":"(require 'ox-latex)"},{"Add":""},{"Add":";; fold up applied preambles."},{"Add":";; https://github.com/jaredjennings/apply-preambles"},{"Add":";; https://www.emacswiki.org/emacs/FoldingMode"},{"Add":""},{"Add":"(folding-add-to-marks-list 'clojure-mode \";; --- BEGIN\" \";; --- END\")"},{"Add":"(folding-add-to-marks-list 'scad-mode \";; --- BEGIN\" \";; --- END\")"},{"Add":""},{"Add":"(defun insert-secreq-implements-clipboard-uri (fragment uri)"},{"Add":" \"Insert a snailcrusader (Turtle) comment signifying that a document fragment secreq:implements a URI which is on the clipboard.\""},{"Add":" ;; https://stackoverflow.com/a/9646268"},{"Add":" (interactive"},{"Add":" (list (read-string (format \"Document fragment (must be unique and sane; default %s): \""},{"Add":" (thing-at-point 'word))"},{"Add":" nil nil (thing-at-point 'word))"},{"Add":" (let ((uri (cond ((string-match-p \"//\" (car kill-ring))"},{"Add":" (car kill-ring))"},{"Add":" ((string-match-p \"//\" (gui-get-selection))"},{"Add":" (gui-get-selection))"},{"Add":" (t \"\"))))"},{"Add":" (read-string (format \"Requirement URI (default \\\"%s\\\"): \" uri)"},{"Add":" nil nil uri))))"},{"Add":" (let ((present-comment-start comment-start)"},{"Add":" (comment-start (concat comment-start \"t\")))"},{"Add":" (save-excursion"},{"Add":" (beginning-of-line)"},{"Add":" (open-line 1)"},{"Add":" (insert comment-start \" <#\" fragment \"> \" \"secreq:implements\" \" <\""},{"Add":" uri \"> .\"))))"},{"Add":""},{"Add":"(multikeyfreq-mode 1)"},{"Add":"(multikeyfreq-autosave-mode 1)"},{"Add":"(require 'keyfreq)"},{"Add":"(keyfreq-mode 1)"},{"Add":"(keyfreq-autosave-mode 1)"},{"Add":""},{"Add":";; find-file /ssh:somebsdhost|sudo:|iocage:jailname:/path/to/file"},{"Add":""},{"Add":"(require 'tramp)"},{"Add":"(setq tramp-methods"},{"Add":" (cons '(\"iocage\""},{"Add":" (tramp-login-program \"iocage\")"},{"Add":" (tramp-login-args ((\"console\") (\"%h\")))"},{"Add":" (tramp-remote-shell \"/bin/sh\")"},{"Add":" (tramp-remote-shell-login (\"-l\"))"},{"Add":" (tramp-remote-shell-args (\"-c\")))"},{"Add":" tramp-methods))"},{"Add":""},{"Add":""},{"Add":";; https://www.emacswiki.org/emacs/KillingAndYanking"},{"Add":"(defun yank-interleaved (separator)"},{"Add":" \"Yank the previous kill, interleaving each line of the yanked"},{"Add":" text with a line in current buffer."},{"Add":" "},{"Add":" Interleaving begins on the line containing point, and moves"},{"Add":" downward. If point is at the beginning of the line, the yanked"},{"Add":" lines are inserted before the buffer lines. If it is at the end"},{"Add":" of the line, the yanked lines are inserted after."},{"Add":" "},{"Add":" If the argument SEPARATOR is given, insert this between each"},{"Add":" buffer line and yanked line.\""},{"Add":" ;; TODO: Make it work with active region"},{"Add":" (interactive \"MSeparator: \")"},{"Add":" (let ((yank (current-kill 1 t))"},{"Add":" dir line)"},{"Add":" (if (null (string-match-p \"\\n\" yank))"},{"Add":" \t(yank)"},{"Add":" (setq dir"},{"Add":" \t (cond"},{"Add":" \t ((bolp) 'front)"},{"Add":" \t ((eolp) 'back)"},{"Add":" \t (t (user-error \"Call with point at beginning or end of line\"))))"},{"Add":" (setq yank (split-string yank \"\\n\" t \"\\\\s-\"))"},{"Add":" (while (setq line (pop yank))"},{"Add":" \t(if (eq dir 'front)"},{"Add":" \t (progn"},{"Add":" \t (beginning-of-line)"},{"Add":" \t (insert line)"},{"Add":" \t (insert separator))"},{"Add":" \t (end-of-line)"},{"Add":" \t (insert separator)"},{"Add":" \t (insert line))"},{"Add":" \t(forward-line)))))"},{"Add":""},{"Add":";; (global-set-key (kbd \"C-x f\") #'find-file-at-point)"},{"Add":"(ffap-bindings)"},{"Add":"(global-set-key (kbd \"C-c o l\") #'org-store-link)"},{"Add":"(global-set-key (kbd \"C-c o a\") #'org-agenda)"},{"Add":"(global-set-key (kbd \"C-c o c\") #'org-capture)"},{"Add":";; make frame opaque when focused, and semitransparent when unfocused"},{"Add":";; HA HA DISREGARD THAT I RUN EDIFF"},{"Add":";; (set-frame-parameter (selected-frame) 'alpha '(100 . 50))"},{"Add":"(set-frame-parameter (selected-frame) 'alpha '(100 . 100))"},{"Add":""},{"Add":"(defun shuffle-lines (reverse beg end)"},{"Add":" \"Sort lines in region randomly; REVERSE non-nil means nothing."},{"Add":"Interactively, REVERSE is the prefix argument, and BEG and END are the region."},{"Add":"Called from a program, there are three arguments:"},{"Add":"REVERSE (non-nil means reverse order), BEG and END (region to sort)."},{"Add":"The variable `sort-fold-case' determines nothing.\""},{"Add":" (interactive \"P\\nr\")"},{"Add":" (save-excursion"},{"Add":" (save-restriction"},{"Add":" (narrow-to-region beg end)"},{"Add":" (goto-char (point-min))"},{"Add":" (let ;; To make `end-of-line' and etc. to ignore fields."},{"Add":"\t ((inhibit-field-text-motion t))"},{"Add":"\t(sort-subr reverse 'forward-line 'end-of-line nil nil (lambda (a b) (= 0 (% (random) 2))))))))"},{"Add":""},{"Add":";; this was my attempt to get emoji to show"},{"Add":";; it was too slow. tofu is much faster"},{"Add":""},{"Add":";; ;; https://gist.github.com/alanthird/7152752d384325a83677f4a90e1e1a05"},{"Add":";; ;; Provided by Sebastian Urban"},{"Add":";; ;; More information at https://idiocy.org/emacs-fonts-and-fontsets.html"},{"Add":""},{"Add":";; (set-fontset-font \"fontset-default\" 'adlam \"Noto Sans Adlam\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'anatolian \"Noto Sans Anatolian Hieroglyphs\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'arabic \"Noto Sans Arabic\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'aramaic \"Noto Sans Imperial Aramaic Regular\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'armenian \"Noto Sans Armenian\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'avestan \"Noto Sans Avestan\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'balinese \"Noto Sans Balinese\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'bamum \"Noto Sans Bamum\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'batak \"Noto Sans Batak\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'bengali \"Noto Sans Bengali\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'brahmi \"Noto Sans Brahmi\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'buginese \"Noto Sans Buginese\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'buhid \"Noto Sans Buhid\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'burmese \"Noto Sans Myanmar\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'canadian-aboriginal \"Noto Sans Canadian Aboriginal\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'carian \"Noto Sans Carian\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'chakma \"Noto Sans Chakma\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'cham \"Noto Sans Cham\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'cherokee \"Noto Sans Cherokee\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'cjk-misc \"Noto Sans CJK SC Regular\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'coptic \"Noto Sans Coptic Regular\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'cuneiform \"Noto Sans Cuneiform\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'cypriot-syllabary \"Noto Sans Cypriot\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'deseret \"Noto Sans Deseret\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'devanagari \"Noto Sans Devanagari\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'egyptian \"Noto Sans Egyptian Hieroglyphs Regular\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'ethiopic \"Noto Sans Ethiopic\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'georgian \"Noto Sans Georgian\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'glagolitic \"Noto Sans Glagolitic\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'gothic \"Noto Sans Gothic\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'gujarati \"Noto Sans Gujarati\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'gurmukhi \"Noto Sans Gurmukhi\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'han \"Noto Sans CJK SC Regular\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'han \"Noto Sans CJK TC Regular\" nil 'append)"},{"Add":";; (set-fontset-font \"fontset-default\" 'hangul \"Noto Sans CJK KR Regular\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'hanunoo \"Noto Sans Hanunoo\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'hebrew \"Noto Sans Hebrew\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'inscriptional-pahlavi \"Noto Sans Inscriptional Pahlavi\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'inscriptional-parthian \"Noto Sans Inscriptional Parthian\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'javanese \"Noto Sans Javanese\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'kaithi \"Noto Sans Kaithi\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'kana \"Noto Sans CJK JP Regular\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'kannada \"Noto Sans Kannada\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'kayah-li \"Noto Sans Kayah Li\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'kharoshthi \"Noto Sans Kharoshthi\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'khmer \"Noto Sans Khmer\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'lao \"Noto Sans Lao\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'lepcha \"Noto Sans Lepcha\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'limbu \"Noto Sans Limbu\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'linear-b \"Noto Sans Linear B\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'lisu \"Noto Sans Lisu\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'lycian \"Noto Sans Lycian\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'lydian \"Noto Sans Lydian\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'malayalam \"Noto Sans Malayalam\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'mandaic \"Noto Sans Mandaic\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'meetei-mayek \"Noto Sans Meetei Mayek\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'mongolian \"Noto Sans Mongolian\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'tai-lue \"Noto Sans New Tai Lue Regular\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'nko \"Noto Sans NKo Regular\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'ogham \"Noto Sans Ogham\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'ol-chiki \"Noto Sans Ol Chiki\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'old-italic \"Noto Sans Old Italic Regular\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'old-persian \"Noto Sans Old Persian Regular\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'old-south-arabian \"Noto Sans Old South Arabian Regular\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'old-turkic \"Noto Sans Old Turkic\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'oriya \"Noto Sans Oriya\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'osage \"Noto Sans Osage\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'osmanya \"Noto Sans Osmanya\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'phags-pa \"Noto Sans Phags Pa\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'phoenician \"Noto Sans Phoenician\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'rejang \"Noto Sans Rejang\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'runic \"Noto Sans Runic\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'samaritan \"Noto Sans Samaritan\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'saurashtra \"Noto Sans Saurashtra\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'shavian \"Noto Sans Shavian\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'sinhala \"Noto Sans Sinhala\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'sinhala-archaic-number \"Noto Sans Sinhala\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'sundanese \"Noto Sans Sundanese\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'syloti-nagri \"Noto Sans Syloti Nagri\")"},{"Add":";; ;;(set-fontset-font \"fontset-default\" 'syriac \"Noto Sans Syriac Eastern\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'syriac \"Noto Sans Syriac Estrangela\")"},{"Add":";; ;;(set-fontset-font \"fontset-default\" 'syriac \"Noto Sans Syriac Western\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'tagalog \"Noto Sans Tagalog\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'tagbanwa \"Noto Sans Tagbanwa\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'tai-le \"Noto Sans Tai Le\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'tai-tham \"Noto Sans Tai Tham\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'tai-viet \"Noto Sans Tai Viet\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'tamil \"Noto Sans Tamil\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'telugu \"Noto Sans Telugu\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'thaana \"Noto Sans Thaana\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'thai \"Noto Sans Thai\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'tibetan \"Noto Sans Tibetan\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'tifinagh \"Noto Sans Tifinagh\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'ugaritic \"Noto Sans Ugaritic\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'vai \"Noto Sans Vai\")"},{"Add":";; (set-fontset-font \"fontset-default\" 'yi \"Noto Sans Yi\")"},{"Add":";; (set-fontset-font \"fontset-standard\" 'symbol \"Noto Color Emoji\")"},{"Add":""},{"Add":""},{"Add":"(require 'no-spam)"},{"Add":""},{"Add":";; Use default parameter values."},{"Add":"(no-spam-add-repeat-delay next-line)"},{"Add":""},{"Add":";; Set a 10-second repeat delay for `forward-char'."},{"Add":"(no-spam-add-repeat-delay forward-char 10)"},{"Add":""},{"Add":";; Have the delay not apply in the minibuffer."},{"Add":"(no-spam-add-repeat-delay backward-char nil minibufferp)"},{"Add":""},{"Add":";; Have `forward-paragraph' and `backward-paragraph' share a delay."},{"Add":"(no-spam-add-repeat-delay (forward-paragraph backward-paragraph))"},{"Add":""},{"Add":";; Enable the repeat delays."},{"Add":"(no-spam-mode)"},{"Add":""},{"Add":";; unassociate .sch files with scheme: i edit lepton-schematic files which are not scheme"},{"Add":"(setq auto-mode-alist (cons '(\"\\\\.\\\$scm\\\\|stk\\\\|ss\\\$\\\\'\" . scheme-mode) (assoc-delete-all \".sch\" auto-mode-alist #'string-match)))"},{"Add":""},{"Add":""}],"del_contents":[{"Del":";; move by file lines, not screen lines\n(setq line-move-visual nil)\n\n"},{"Del":"; 'xah or 'evil or 'ergo or 'boon or 'meow\n(setq jareds-mood 'meow)\n"},{"Del":"; make numpad + key be decoded as insertline key; this is necessary\n; for ergoemacs, which has no other binding for what used to be C-o.\n(define-key input-decode-map [kp-add] [insertline])\n\n(require 'package) ;; You might already have this line\n(let* ((no-ssl (and (memq system-type '(windows-nt ms-dos))\n (not (gnutls-available-p))))\n (url (concat (if no-ssl \"http\" \"https\") \"://melpa.org/packages/\")))\n (add-to-list 'package-archives (cons \"melpa\" url) t))\n(when (< emacs-major-version 24)\n ;; For important compatibility libraries like cl-lib\n (add-to-list 'package-archives '(\"gnu\" . \"http://elpa.gnu.org/packages/\")))\n\n;; Added by Package.el. This must come before configurations of\n;; installed packages. Don't delete this line. If you don't want it,\n;; just comment it out by adding a semicolon to the start of the line.\n;; You may delete these explanatory comments.\n(package-initialize)\n\n; (require 'fill-column-indicator)\n\n\n; http://blog.bookworm.at/2007/03/pretty-print-xml-with-emacs.html\n(defun bf-pretty-print-xml-region (begin end)\n \"Pretty format XML markup in region. You need to have nxml-mode\nhttp://www.emacswiki.org/cgi-bin/wiki/NxmlMode installed to do\nthis. The function inserts linebreaks to separate tags that have\nnothing but whitespace between them. It then indents the markup\nby using nxml's indentation rules.\"\n (interactive \"r\")\n (save-excursion\n (nxml-mode)\n (goto-char begin)\n (while (search-forward-regexp \"\\>[ \\\\t]*\\<\" nil t) \n (backward-char) (insert \"\\n\") (setq end (1+ end)))\n (indent-region begin end))\n (message \"Ah, much better!\"))\n\n\n; did not work.\n; avoid colons in filenames during tramp autosaves: Windows can't deal with these\n; https://github.com/syl20bnr/spacemacs/issues/7302\n; (setq tramp-auto-save-directory (concat temporary-file-directory \"tramp/\"))\n\n(put 'narrow-to-region 'disabled nil)\n\n;; customize telephone-line for my mood before starting it. other\n;; mood-specific things after the customize blob, because customized\n;; vars should apply.\n(cond ((eq jareds-mood 'xah)\n ;; there is some cleaner way to do this without repeating all\n ;; of telephone-line-lhs's definition. but i didn't find it.\n (setq telephone-line-lhs\n\t '((evil . (telephone-line-xah-fly-keys-segment))\n\t (accent . (telephone-line-vc-segment\n\t\t\t telephone-line-process-segment))\n\t (nil . (telephone-line-minor-mode-segment\n\t\t telephone-line-buffer-segment))))\n )\n ((eq jareds-mood 'evil)\n (setq telephone-line-lhs\n '((evil . (telephone-line-evil-tag-segment))\n (accent . (telephone-line-vc-segment\n \t\t telephone-line-process-segment))\n (nil . (telephone-line-minor-mode-segment\n \t telephone-line-buffer-segment)))))\n ((eq jareds-mood 'boon)\n (telephone-line-defsegment* telephone-line-boon-segment ()\n (when (boundp boon-mode)\n (let ((tag (cond\n (boon-insert-state \"INSERT\")\n (boon-command-state \"COMMAND\")\n (boon-special-state \"EMACS\"))))\n (if telephone-line-evil-use-short-tag\n (seq-take tag 1)\n tag))))\n (setq telephone-line-lhs\n\t '((evil . (telephone-line-boon-segment))\n\t (accent . (telephone-line-vc-segment\n\t\t\t telephone-line-process-segment))\n\t (nil . (telephone-line-minor-mode-segment\n\t\t telephone-line-buffer-segment)))) )\n ((eq jareds-mood 'ergo)\n (setq telephone-line-lhs\n '((accent . (telephone-line-vc-segment\n \t\t telephone-line-process-segment))\n (nil . (telephone-line-minor-mode-segment\n \t telephone-line-buffer-segment)))))\n"},{"Del":" ((eq jareds-mood 'meow)\n (progn\n (defun meow-setup ()\n (setq meow-cheatsheet-layout meow-cheatsheet-layout-colemak)\n (meow-motion-overwrite-define-key\n ;; Use e to move up, n to move down.\n ;; Since special modes usually use n to move down, we only overwrite e here.\n '(\"e\" . meow-prev)\n '(\"\" . ignore))\n (meow-leader-define-key\n '(\"?\" . meow-cheatsheet)\n ;; To execute the originally e in MOTION state, use SPC e.\n '(\"e\" . \"H-e\")\n '(\"1\" . meow-digit-argument)\n '(\"2\" . meow-digit-argument)\n '(\"3\" . meow-digit-argument)\n '(\"4\" . meow-digit-argument)\n '(\"5\" . meow-digit-argument)\n '(\"6\" . meow-digit-argument)\n '(\"7\" . meow-digit-argument)\n '(\"8\" . meow-digit-argument)\n '(\"9\" . meow-digit-argument)\n '(\"0\" . meow-digit-argument))\n (meow-normal-define-key\n '(\"0\" . meow-expand-0)\n '(\"1\" . meow-expand-1)\n '(\"2\" . meow-expand-2)\n '(\"3\" . meow-expand-3)\n '(\"4\" . meow-expand-4)\n '(\"5\" . meow-expand-5)\n '(\"6\" . meow-expand-6)\n '(\"7\" . meow-expand-7)\n '(\"8\" . meow-expand-8)\n '(\"9\" . meow-expand-9)\n '(\"-\" . negative-argument)\n '(\";\" . meow-reverse)\n '(\",\" . meow-inner-of-thing)\n '(\".\" . meow-bounds-of-thing)\n '(\"[\" . meow-beginning-of-thing)\n '(\"]\" . meow-end-of-thing)\n '(\"/\" . meow-visit)\n '(\"a\" . meow-append)\n '(\"A\" . meow-open-below)\n '(\"b\" . meow-back-word)\n '(\"B\" . meow-back-symbol)\n '(\"c\" . meow-change)\n '(\"d\" . meow-delete)\n '(\"e\" . meow-prev)\n '(\"E\" . meow-prev-expand)\n '(\"f\" . meow-find)\n '(\"g\" . meow-cancel-selection)\n '(\"G\" . meow-grab)\n '(\"h\" . meow-left)\n '(\"H\" . meow-left-expand)\n '(\"i\" . meow-right)\n '(\"I\" . meow-right-expand)\n '(\"j\" . meow-join)\n '(\"k\" . meow-kill)\n '(\"l\" . meow-line)\n '(\"L\" . meow-goto-line)\n '(\"m\" . meow-mark-word)\n '(\"M\" . meow-mark-symbol)\n '(\"n\" . meow-next)\n '(\"N\" . meow-next-expand)\n '(\"o\" . meow-block)\n '(\"O\" . meow-to-block)\n '(\"p\" . meow-yank)\n '(\"q\" . meow-quit)\n '(\"r\" . meow-replace)\n '(\"s\" . meow-insert)\n '(\"S\" . meow-open-above)\n '(\"t\" . meow-till)\n '(\"u\" . meow-undo)\n '(\"U\" . meow-undo-in-selection)\n '(\"v\" . meow-search)\n '(\"w\" . meow-next-word)\n '(\"W\" . meow-next-symbol)\n '(\"x\" . meow-delete)\n '(\"X\" . meow-backward-delete)\n '(\"y\" . meow-save)\n '(\"z\" . meow-pop-selection)\n '(\"'\" . repeat)\n '(\"\" . ignore)))\n (require 'meow)\n (meow-setup)\n (meow-global-mode 1)))\n"},{"Del":" (t nil))\n\n\n\n(setq telephone-line-rhs\n '((nil . (telephone-line-misc-info-segment))\n\t(accent . (telephone-line-major-mode-segment))\n\t(evil . (telephone-line-airline-position-segment))))\n(setq telephone-line-primary-left-separator 'telephone-line-flat\n telephone-line-secondary-left-separator 'telephone-line-flat\n telephone-line-primary-right-separator 'telephone-line-flat\n telephone-line-secondary-right-separator 'telephone-line-flat)\n(setq telephone-line-evil-use-short-tag t)\n(require 'telephone-line)\n(telephone-line-mode 1)\n\n(defcustom jlj--assets-to-obfuscate\n `((\"[a-zA-Z0-9.]+\\\\.example\\\\.com\" ,(apply-partially #'jlj--obfuscate-fqdn\n \".example.com\"))\n (\"192\\\\.168\\\\.1\\\\.[0-9]+\" jlj--obfuscate-ip))\n \"IT assets the names and addresses of which jlj--obfuscate-assets should obfuscate. For each regexp match, a new obfuscated thing is made using the given function, and all occurrences of the real name or address are replaced with the result of the function.\"\n :type '(list (list regexp function)))\n\n(defun jlj--scheme-folding ()\n \"Turn on folding when entering Scheme major mode. See customize group Folding.\"\n (folding-add-to-marks-list 'scheme-mode \";;{{{ \" \";;}}}\")\n (turn-on-folding-mode))\n\n;; A boonish keymap for the folding minor mode\n(define-prefix-command 'jlj-folding-map)\n(define-key jlj-folding-map [?\\C-e] 'folding-hide-current-entry)\n(define-key jlj-folding-map [?\\C-i] 'folding-show-current-entry)\n(define-key jlj-folding-map [?\\C-k] 'folding-hide-current-subtree)\n(define-key jlj-folding-map [?\\/] 'folding-show-current-subtree)\n(define-key jlj-folding-map [?\\C-u] 'folding-previous-visible-heading)\n(define-key jlj-folding-map [?\\C-y] 'folding-next-visible-heading)\n(define-key jlj-folding-map [?\\C-c] 'folding-context-next-action)\n(define-key jlj-folding-map [?\\C-l] 'folding-whole-buffer)\n(define-key jlj-folding-map [?\\;] 'folding-open-buffer)\n(define-key jlj-folding-map [?\\.] 'folding-display-name)\n(define-key jlj-folding-map [?\\C-f] 'folding-fold-region)\n(define-key jlj-folding-map [?\\C--] 'folding-shift-out)\n(define-key jlj-folding-map [?\\=] 'folding-shift-in)\n\n\n(defun jlj--install-folding-map ()\n (define-key mode-specific-map \"\\C-w\" jlj-folding-map))\n\n(custom-set-variables\n ;; custom-set-variables was added by Custom.\n ;; If you edit it by hand, you could mess it up, so be careful.\n ;; Your init file should contain only one such instance.\n ;; If there is more than one, they won't work right.\n '(ansi-color-faces-vector\n [default default default italic underline success warning error])\n '(ansi-color-names-vector\n [\"#242424\" \"#e5786d\" \"#95e454\" \"#cae682\" \"#8ac6f2\" \"#333366\" \"#ccaa8f\" \"#f6f3e8\"])\n"},{"Del":" '(auth-source-save-behavior nil)\n"},{"Del":" '(avy-keys '(97 114 115 116 100 104 110 101 105 111))\n '(awesome-tray-mode-line-active-color \"#2fafff\")\n '(awesome-tray-mode-line-inactive-color \"#323232\")\n '(boon-quit-key [home])\n '(browse-url-browser-function 'eww-browse-url)\n '(case-fold-search nil)\n '(completion-styles '(orderless))\n '(custom-enabled-themes '(constant))\n '(custom-safe-themes\n"},{"Del":" '(\"7c0830e1aea024fc0d4e76ba3db9f78cb37c09da2290f38af1a8fe87881007f7\" \"474513bacf33a439da7b9a5df1dd11a277929d8480752675fc7d5f3816d8fdef\" \"cfe4d36ed4cf00a541f7ba0deb38c94808c13a3e4c717f07bc3b9c866670e8d1\" \"2ff9ac386eac4dffd77a33e93b0c8236bb376c5a5df62e36d4bfa821d56e4e20\" \"1d609285d297920b97b0d230360a8d7c3f930edcf1abe96a1d82356f9a5e228d\" \"abe5ee8858cd1fbe36304a8c3b2315d3e0a4ef7c8588fcc45d1c23eafb725bb6\" \"d600c677f1777c1e4bfb066529b5b73c0179d0499dd4ffa3f599a0fb0cfbd501\" \"30289fa8d502f71a392f40a0941a83842152a68c54ad69e0638ef52f04777a4c\" \"c7f10959cb1bc7a36ee355c765a1768d48929ec55dde137da51077ac7f899521\" \"773e0bfa5450c75d613cbf29734cdc876c3d59dbf85b93cff3015a8687dea158\" \"bf798e9e8ff00d4bf2512597f36e5a135ce48e477ce88a0764cfb5d8104e8163\" \"1436d643b98844555d56c59c74004eb158dc85fc55d2e7205f8d9b8c860e177f\" \"1e9001d2f6ffb095eafd9514b4d5974b720b275143fbc89ea046495a99c940b0\" \"f11e219c9d043cbd5f4b2e01713c2c24a948a98bed48828dc670bd64ae771aa1\" \"8f97d5ec8a774485296e366fdde6ff5589cf9e319a584b845b6f7fa788c9fa9a\" \"2642a1b7f53b9bb34c7f1e032d2098c852811ec2881eec2dc8cc07be004e45a0\" \"5111a41453244802afd93eed1a434e612a8afbdf19c52384dffab129258bab6e\" \"0329c772ed96053a73b9ddddf96c1183e23c267955bbdf78e7933057ce9da04b\" \"36ca8f60565af20ef4f30783aa16a26d96c02df7b4e54e9900a5138fb33808da\" \"23b564cfb74d784c73167d7de1b9a067bcca00719f81e46d09ee71a12ef7ee82\" \"f7ef6451d988d6e2fc86deea398eee02b3371703d88f265d31a011bd240dcf99\" \"3d4df186126c347e002c8366d32016948068d2e9198c496093a96775cc3b3eaa\" \"c560237b7505f67a271def31c706151afd7aa6eba9f69af77ec05bde5408dbcd\" \"24cb0b5666e1e17fb6a378c413682f57fe176775eda015eb0a98d65fbb64b127\" \"b0eb9e6e6dcb29c6ec4bcd72605188f482d52ee019cb0ccc73b5404be4f3a6e7\" \"08a89acffece58825e75479333109e01438650d27661b29212e6560070b156cf\" \"c9ddf33b383e74dac7690255dd2c3dfa1961a8e8a1d20e401c6572febef61045\" \"a22f40b63f9bc0a69ebc8ba4fbc6b452a4e3f84b80590ba0a92b4ff599e53ad0\" \"585942bb24cab2d4b2f74977ac3ba6ddbd888e3776b9d2f993c5704aa8bb4739\" \"fa2af0c40576f3bde32290d7f4e7aa865eb6bf7ebe31eb9e37c32aa6f4ae8d10\" \"85d1dbf2fc0e5d30f236712b831fb24faf6052f3114964fdeadede8e1b329832\" \"bffb799032a7404b33e431e6a1c46dc0ca62f54fdd20744a35a57c3f78586646\" \"779df25c6240f183dd378811465566082eacc3c86ed260835382cb5c1dc54de3\" \"eee70baee3a2d093a98fa344480d2330eb3a17f8dfa883cc41d8008cd46fa669\" \"b70474b8a631f73868f01fdb047f102dd36325ecbf6789962e613e9195e165d7\" \"ccdd152be99a9250f5c24e09860911ff4b1519a8c4c73e4d67364514a3359f71\" \"ba913d12adb68e9dadf1f43e6afa8e46c4822bb96a289d5bf1204344064f041e\" \"146614f131e5029df850a268aff1f0e3ae16734a119904eab133755b574da37d\" \"c8935cb969e24ff30a6ee1da011eadc156b9f128a3b0a39cc664628838a644ad\" \"767a6105de48707dd6a593b62c05a7bf4ee9930c86e3225410110d95906772d6\" \"39546362fed4d5201b2b386dc21f21439497c9eec5fee323d953b3e230e4083e\" \"2f4f50d98073c01038b518066840638455657dc91dd1a225286d573926f36914\" \"80ae3a89f1eca6fb94a525004f66b544e347c6f756aaafb728c7cdaef85ea1f5\" \"7b1a2c8ec90a30cc5d039db0e52f192a291f4c3655103cf669721f94028eac27\" \"bcd0237b2a5b7897e482458cc62c4f3fa3d9d7f9a9667338e67d4c7a8e009819\" \"8e79884e89740cf6b7e0210f52e4ac995dc1f1a9a17151bfcfb4d660757a011b\" \"454c1c9ce70f7d807c51c890910365fd3c64a9e63f596511e9ff57dd97bbeea8\" \"387b487737860e18cbb92d83a42616a67c1edfd0664d521940e7fbf049c315ae\" \"6231254e74298a1cf8a5fee7ca64352943de4b495e615c449e9bb27e2ccae709\" \"3577ee091e1d318c49889574a31175970472f6f182a9789f1a3e9e4513641d86\" \"cbd85ab34afb47003fa7f814a462c24affb1de81ebf172b78cb4e65186ba59d2\" \"8f5b54bf6a36fe1c138219960dd324aad8ab1f62f543bed73ef5ad60956e36ae\" \"9d8ad1c413fccc14d992f6bed0ead11f1798a05ee8913daaa24a24604c212b61\" \"e246ff6951678c835ab95aedb99a48fdd665656eadf8b8bc0a4f60e17fbc6b7e\" \"e57eec7e0399272aaca7985a5cc94f3a2675db4cd2dbd79a99c72786e489e43c\" \"d0fd069415ef23ccc21ccb0e54d93bdbb996a6cce48ffce7f810826bb243502c\" \"ffba0482d3548c9494e84c1324d527f73ea4e43fff8dfd0e48faa8fc6d5c2bc7\" \"9e816bc85b64963710efdbc57db8545b53f7f359b0736e0b36fbc9efe07f12f4\" \"6ac7c0f959f0d7853915012e78ff70150bfbe2a69a1b703c3ac4184f9ae3ae02\" \"845103fcb9b091b0958171653a4413ccfad35552bc39697d448941bcbe5a660d\" \"bc836bf29eab22d7e5b4c142d201bcce351806b7c1f94955ccafab8ce5b20208\" \"7f6d4aebcc44c264a64e714c3d9d1e903284305fd7e319e7cb73345a9994f5ef\" \"10a31b6c251640d04b2fa74bd2c05aaaee915cbca6501bcc82820cdc177f5a93\" \"6e933f1668e124ec17fc7b6547f65ba760e06efb568a6c8091c600c67827e592\" \"02199888a97767d7779269a39ba2e641d77661b31b3b8dd494b1a7250d1c8dc1\" \"2a49f95b19d5926d940db11057077df2d01faaf33e66c5a8d4ee8043a904695f\" \"bdb4509c123230a059d89fc837c40defdecee8279c741b7f060196b343b2d18d\" \"ed17fef69db375ae1ced71fdc12e543448827aac5eb7166d2fd05f4c95a7be71\" \"6515fcc302292f29a94f6ac0c5795c57a396127d5ea31f37fc5f9f0308bbe19f\" \"5a45c8bf60607dfa077b3e23edfb8df0f37c4759356682adf7ab762ba6b10600\" \"6c5a5c47749e7992b4da3011595f5470f33e19f29b10564cd4f62faebbe36b91\" \"8a379e7ac3a57e64de672dd744d4730b3bdb88ae328e8106f95cd81cbd44e0b6\" \"2035a16494e06636134de6d572ec47c30e26c3447eafeb6d3a9e8aee73732396\" \"ed0b4fc082715fc1d6a547650752cd8ec76c400ef72eb159543db1770a27caa7\" \"42b9d85321f5a152a6aef0cc8173e701f572175d6711361955ecfb4943fe93af\" \"021720af46e6e78e2be7875b2b5b05344f4e21fad70d17af7acfd6922386b61e\" \"9fcac3986e3550baac55dc6175195a4c7537e8aa082043dcbe3f93f548a3a1e0\" \"242527ce24b140d304381952aa7a081179a9848d734446d913ca8ef0af3cef21\" \"8cb818e0658f6cc59928a8f2b2917adc36d882267bf816994e00c5b8fcbf6933\" \"3fa81193ab414a4d54cde427c2662337c2cab5dd4eb17ffff0d90bca97581eb6\" \"44247f2a14c661d96d2bff302f1dbf37ebe7616935e4682102b68c0b6cc80095\" \"73bff6f2ef60f8a1238a9ca666235d258e3acdeeed85d092ca532788dd7a33c4\" \"05eeb814f74b2fd4f2e6e37b4d604eb9b1daaaedfa5e692f1d485250c6b553eb\" \"0055e55e6a357a941027139152a67f93376616d3501055d06852f10fdc16bac0\" \"1f3113447a652b8436a9938bbac71ecaf022cc73ecd0d76182eb9713aa781f17\" \"b755c709cb46ba4599ab3a3c189a056e9736cbbb39ed9ecfc1ab1aa3d6f79021\" \"75c5c39809c52d48cb9dcbf1694bf2d27d5f6fd053777c194e0b69d8e49031c0\" \"54e08527b4f4b127ebf7359acbbbecfab55152da01716c4809682eb71937fd33\" \"81db42d019a738d388596533bd1b5d66aef3663842172f3696733c0aab05a150\" \"ef1e992ef341e86397b39ee6b41c1368e1b33d45b0848feac6a8e8d5753daa67\" \"ad109c1ad8115573f40e22ac2b996693b5d48052fa37b5919f70ea37c62a965e\" \"b143ad150e25f9b6d09ae313718f85cc785c89445f3369f74bd0d836d5881c56\" \"dc9a8d70c4f94a28aafc7833f8d05667601968e6c9bf998791c39fcb3e4679c9\" \"125fd2180e880802ae98b85f282b17f0aa8fa6cb9fc4f33d7fb19a38c40acef0\" \"4d80487632a0a5a72737a7fc690f1f30266668211b17ba836602a8da890c2118\" \"9a155066ec746201156bb39f7518c1828a73d67742e11271e4f24b7b178c4710\" \"4bfced46dcfc40c45b076a1758ca106a947b1b6a6ff79a3281f3accacfb3243c\" \"31992d4488dba5b28ddb0c16914bf5726dc41588c2b1c1a2fd16516ea92c1d8e\" \"0e33022384e4db1374827f51e3d9e9a2d56282c2e3568c22f1c12ad80e20cf0c\" \"83db918b06f0b1df1153f21c0d47250556c7ffb5b5e6906d21749f41737babb7\" \"47744f6c8133824bdd104acc4280dbed4b34b85faa05ac2600f716b0226fb3f6\" \"8b313e1793da427e90c034dbe74f3ad9092ac291846c0f855908c42a6bda1ff4\" \"43c1a8090ed19ab3c0b1490ce412f78f157d69a29828aa977dae941b994b4147\" \"bc4b650c41b16b98166b35da94b366c6a9e1e7883bbf4937c897fb7bd05aa619\" \"e9460a84d876da407d9e6accf9ceba453e2f86f8b86076f37c08ad155de8223c\" \"8ec2e01474ad56ee33bc0534bdbe7842eea74dccfb576e09f99ef89a705f5501\" \"d606ac41cdd7054841941455c0151c54f8bff7e4e050255dbd4ae4d60ab640c1\" \"4f2ede02b3324c2f788f4e0bad77f7ebc1874eff7971d2a2c9b9724a50fb3f65\" \"2b6bd2ebad907ee42b3ffefa4831f348e3652ea8245570cdda67f0034f07db93\" \"7f3ef7724515515443f961ef87fee655750512473b1f5bf890e2dc7e065f240c\" \"65d9573b64ec94844f95e6055fe7a82451215f551c45275ca5b78653d505bc42\" \"39dffaee0e575731c909bb3e4b411f1c4759c3d7510bf02aa5aef322a596dd57\" \"2cf7f9d1d8e4d735ba53facdc3c6f3271086b6906c4165b12e4fd8e3865469a6\" default))\n"},{"Del":" '(custom-theme-directory \"~/.emacs.d/lisp/themes\")\n '(doc-view-image-width 1150)\n '(doc-view-resolution 200)\n '(ediff-patch-program \"\\\"c:\\\\program files\\\\git\\\\usr\\\\bin\\\\patch.exe\\\"\")\n '(face-font-family-alternatives\n '((\"Inconsolata\")\n (\"Monospace\" \"courier\" \"fixed\")\n (\"courier\" \"CMU Typewriter Text\" \"fixed\")\n (\"Sans Serif\" \"helv\" \"helvetica\" \"arial\" \"fixed\")\n (\"helv\" \"helvetica\" \"arial\" \"fixed\")))\n '(fci-rule-color \"#f8fce8\")\n '(fci-rule-column 80)\n '(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red))\n '(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan))\n '(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow))\n '(folding-mode-hook '(jlj--install-folding-map))\n '(fringe-mode 10 nil (fringe))\n '(gnus-select-method '(nnnil \"\"))\n '(highlight-tail-colors '((\"#2f4a00\" . 0) (\"#00415e\" . 20)))\n '(hl-paren-background-colors '(\"#e8fce8\" \"#c1e7f8\" \"#f8e8e8\"))\n '(hl-paren-colors '(\"#40883f\" \"#0287c8\" \"#b85c57\"))\n '(hl-sexp-background-color \"#efebe9\")\n '(hl-todo-keyword-faces\n '((\"HOLD\" . \"#cfdf30\")\n (\"TODO\" . \"#feacd0\")\n (\"NEXT\" . \"#b6a0ff\")\n (\"THEM\" . \"#f78fe7\")\n (\"PROG\" . \"#00d3d0\")\n (\"OKAY\" . \"#4ae8fc\")\n (\"DONT\" . \"#80d200\")\n (\"FAIL\" . \"#ff8059\")\n (\"BUG\" . \"#ff8059\")\n (\"DONE\" . \"#44bc44\")\n (\"NOTE\" . \"#f0ce43\")\n (\"KLUDGE\" . \"#eecc00\")\n (\"HACK\" . \"#eecc00\")\n (\"TEMP\" . \"#ffcccc\")\n (\"FIXME\" . \"#ff9977\")\n (\"XXX+\" . \"#f4923b\")\n (\"REVIEW\" . \"#6ae4b9\")\n (\"DEPRECATED\" . \"#bfd9ff\")))\n '(ibuffer-deletion-face 'modus-theme-mark-del)\n '(ibuffer-filter-group-name-face 'modus-theme-mark-symbol)\n '(ibuffer-marked-face 'modus-theme-mark-sel)\n '(ibuffer-title-face 'modus-theme-pseudo-header)\n '(indent-tabs-mode nil)\n"},{"Del":" '(inferior-lisp-program \"sbcl\" t)\n"},{"Del":" '(inhibit-startup-screen t)\n '(ispell-dictionary nil)\n '(ivy-mode nil)\n '(ivy-use-virtual-buffers t)\n '(ivy-virtual-abbreviate 'abbreviate)\n '(jdee-db-active-breakpoint-face-colors (cons nil nil))\n '(jdee-db-requested-breakpoint-face-colors (cons nil nil))\n '(jdee-db-spec-breakpoint-face-colors (cons nil nil))\n '(jlj--assets-to-obfuscate\n `((\"[a-zA-Z0-9.]+\\\\.png\\\\.loc\" ,(apply-partially #'jlj--obfuscate-fqdn \"png.loc\"))\n (\"10\\\\.62\\\\.[0-9]+\\\\.[0-9]+\" jlj--obfuscate-ip)\n (\"10\\\\.63\\\\.[0-9]+\\\\.[0-9]+\" jlj--obfuscate-ip)\n (\"10\\\\.70\\\\.[0-9]+\\\\.[0-9]+\" jlj--obfuscate-ip)\n (\"10\\\\.222\\\\.[0-9]+\\\\.[0-9]+\" jlj--obfuscate-ip)\n (\"10\\\\.228\\\\.[0-9]+\\\\.[0-9]+\" jlj--obfuscate-ip)\n (\"10\\\\.229\\\\.[0-9]+\\\\.[0-9]+\" jlj--obfuscate-ip)\n (\"192\\\\.168\\\\.10\\\\.[0-9]+\" jlj--obfuscate-ip)\n (\"192\\\\.168\\\\.12\\\\.[0-9]+\" jlj--obfuscate-ip)\n (\"192\\\\.168\\\\.92\\\\.[0-9]+\" jlj--obfuscate-ip)\n (\"192\\\\.168\\\\.199\\\\.[0-9]+\" jlj--obfuscate-ip)))\n '(line-number-mode nil)\n '(linum-format \" %6d \")\n '(main-line-color1 \"#222232\")\n '(main-line-color2 \"#333343\")\n '(menu-bar-mode nil)\n '(modus-operandi-theme-3d-modeline t)\n '(modus-operandi-theme-comments 'green)\n '(modus-operandi-theme-diffs 'desaturated)\n '(modus-operandi-theme-distinct-org-blocks t)\n '(modus-operandi-theme-faint-syntax t)\n '(modus-vivendi-theme-3d-modeline nil)\n '(modus-vivendi-theme-comments 'green)\n '(modus-vivendi-theme-diffs 'desaturated)\n '(modus-vivendi-theme-faint-syntax t)\n '(modus-vivendi-theme-headings ''((t)))\n '(modus-vivendi-theme-intense-paren-match t)\n '(modus-vivendi-theme-mode-line 'moody)\n '(modus-vivendi-theme-prompts 'subtle)\n '(modus-vivendi-theme-section-headings t)\n '(modus-vivendi-theme-slanted-constructs t)\n '(modus-vivendi-theme-subtle-diffs t)\n '(mu4e-drafts-folder \"/Drafts\")\n '(mu4e-get-mail-command \"offlineimap\")\n '(mu4e-refile-folder \"/Archive\")\n '(mu4e-sent-folder \"/Sent\")\n '(mu4e-trash-folder \"/Trash\")\n '(multikeyfreq-excluded-commands\n '(delete-backward-char eshell-send-input ivy-backward-delete-char mouse-drag-region mouse-set-point mwheel-scroll org-cycle org-delete-backward-char org-self-insert-command scroll-down-command scroll-up-command self-insert-command))\n '(nrepl-message-colors\n '(\"#CC9393\" \"#DFAF8F\" \"#F0DFAF\" \"#7F9F7F\" \"#BFEBBF\" \"#93E0E3\" \"#94BFF3\" \"#DC8CC3\"))\n '(objed-cursor-color nil)\n '(org-agenda-files '(\"h:/Documents/todo.org\"))\n '(org-archive-location \"%s_archive::\")\n '(org-babel-load-languages '((dot . t) (emacs-lisp . t)))\n '(org-confirm-babel-evaluate nil)\n '(org-drill-done-count-color \"#663311\")\n '(org-drill-failed-count-color \"#880000\")\n '(org-drill-mature-count-color \"#005500\")\n '(org-drill-new-count-color \"#004488\")\n '(org-hierarchical-todo-statistics nil)\n '(org-log-done 'time)\n '(org-return-follows-link t)\n '(org-startup-indented t)\n '(org-todo-keywords '((sequence \"WAITING\" \"TODO\" \"DONE\")))\n '(org-todo-repeat-to-state \"TODO\")\n '(package-selected-packages\n"},{"Del":" '(caml mastodon emacs-gc-stats outshine meow pikchr-mode ement fennel-mode ox-gemini omtose-phellack-theme pyvenv-auto paredit warm-night-theme geiser-guile geiser geiser-chicken spacegray-theme soft-charcoal-theme slime abyss-theme ample-theme djvu elpher ox-rst ripgrep unicode-fonts no-spam uuid marginalia embark-consult embark orderless selectrum consult vertico dockerfile-mode x509-mode forth-mode browse-at-remote cider sesman clojure-mode eziam-theme scad-mode acme-theme sexy-monochrome-theme monotropic-theme constant-theme graphviz-dot-mode mood-line mood-one-theme modus-vivendi-theme modus-operandi-theme browse-url-dwim magit parchment-theme almost-mono-themes borland-blue-theme nordless-theme northcode-theme nord-theme nofrils-acme-theme multikeyfreq fireplace boon csv-mode ein markdown-mode puppet-mode dad-joke keyfreq avy-zap avy ggtags counsel-projectile projectile command-log-mode counsel vc-fossil visible-mark esup sudden-death jammer arjen-grey-theme atom-dark-theme clues-theme dark-krystal-theme darkburn-theme eink-theme foggy-night-theme green-screen-theme gruvbox-theme heroku-theme inverse-acme-theme iodine-theme labburn-theme leuven-theme evil-visual-mark-mode excorporate telephone-line xah-fly-keys which-key url-http-ntlm toml-mode plan9-theme ergoemacs-mode))\n"},{"Del":" '(pdf-view-midnight-colors '(\"#eeeeee\" . \"#000000\"))\n '(pikchr-executable \"/home/jaredj/bin/pikchr-svg-only.scm\")\n '(pos-tip-background-color \"#414E63\")\n '(pos-tip-foreground-color \"#BEC8DB\")\n '(powerline-color1 \"#222232\")\n '(powerline-color2 \"#333343\")\n '(rainbow-identifiers-choose-face-function 'rainbow-identifiers-cie-l*a*b*-choose-face t)\n '(rainbow-identifiers-cie-l*a*b*-color-count 1024 t)\n '(rainbow-identifiers-cie-l*a*b*-lightness 80 t)\n '(rainbow-identifiers-cie-l*a*b*-saturation 25 t)\n '(rustic-ansi-faces [nil nil nil nil nil nil nil nil])\n"},{"Del":" '(safe-local-variable-values\n '((projectile-project-compilation-cmd . \"eldev compile --set all --warnings-as-errors\")))\n"},{"Del":" '(scheme-mode-hook '(geiser-mode--maybe-activate jlj--scheme-folding) t)\n '(scroll-bar-mode nil)\n '(show-paren-mode nil)\n '(sml/active-background-color \"#98ece8\")\n '(sml/active-foreground-color \"#424242\")\n '(sml/inactive-background-color \"#4fa8a8\")\n '(sml/inactive-foreground-color \"#424242\")\n '(telephone-line-evil-use-short-tag t)\n '(telephone-line-mode nil)\n '(tool-bar-mode nil)\n '(transient-mark-mode nil)\n '(user-mail-address \"jjennings@fastmail.fm\")\n '(vc-annotate-background \"#2B2B2B\")\n '(vc-annotate-background-mode nil)\n '(vc-annotate-color-map\n '((20 . \"#BC8383\")\n (40 . \"#CC9393\")\n (60 . \"#DFAF8F\")\n (80 . \"#D0BF8F\")\n (100 . \"#E0CF9F\")\n (120 . \"#F0DFAF\")\n (140 . \"#5F7F5F\")\n (160 . \"#7F9F7F\")\n (180 . \"#8FB28F\")\n (200 . \"#9FC59F\")\n (220 . \"#AFD8AF\")\n (240 . \"#BFEBBF\")\n (260 . \"#93E0E3\")\n (280 . \"#6CA0A3\")\n (300 . \"#7CB8BB\")\n (320 . \"#8CD0D3\")\n (340 . \"#94BFF3\")\n (360 . \"#DC8CC3\")))\n '(vc-annotate-very-old-color \"#DC8CC3\")\n '(vertico-mode t)\n '(visible-bell nil)\n"},{"Del":" '(warning-suppress-log-types '((comp)))\n"},{"Del":" '(x509-openssl-cmd \"C:/Program Files/Git/usr/bin/openssl.exe\")\n '(xterm-color-names\n [\"#000000\" \"#ff8059\" \"#44bc44\" \"#eecc00\" \"#2fafff\" \"#feacd0\" \"#00d3d0\" \"#a8a8a8\"])\n '(xterm-color-names-bright\n [\"#181a20\" \"#f4923b\" \"#80d200\" \"#cfdf30\" \"#79a8ff\" \"#f78fe7\" \"#4ae8fc\" \"#ffffff\"]))\n(custom-set-faces\n ;; custom-set-faces was added by Custom.\n ;; If you edit it by hand, you could mess it up, so be careful.\n ;; Your init file should contain only one such instance.\n ;; If there is more than one, they won't work right.\n '(default ((t (:inherit nil :extend nil :stipple nil :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 128 :width normal :foundry \"IBM \" :family \"IBM Plex Mono\"))))\n '(mode-line-highlight ((t (:box nil))))\n '(mode-line-inactive ((t (:box nil))))\n '(org-done ((t (:background \"#D0D0D0\" :foreground \"#222222\" :weight bold :height 0.8))))\n '(org-todo ((t (:inverse-video t :weight bold :height 0.8))))\n '(show-paren-match ((t (:inherit sp-show-pair-match-face :foreground \"black\" :background \"yellow\" :weight bold))))\n '(variable-pitch ((t (:height 1.2 :foundry \"outline\" :family \"IBM Plex Sans Light\")))))\n\n(cond\n ((string-equal system-configuration \"x86_64-w64-mingw32\")\n (progn\n (setq python-shell-interpreter \"python.exe\")\n (setq x509-openssl-cmd \"C:/Program Files/Git/usr/bin/openssl.exe\")\n (setq python-shell-exec-path\n '(\"c:/program files/python310\"\n \"c:/program files/python38\"\n \"c:/program files/python37\"))\n (setq diff-command \"\\\"C:\\\\Program Files\\\\Git\\\\usr\\\\bin\\\\diff.exe\\\"\")\n (setq ediff-diff-program \"c:\\\\program files\\\\git\\\\usr\\\\bin\\\\diff.exe\")\n (setq ediff-patch-program \"\\\"c:\\\\program files\\\\git\\\\usr\\\\bin\\\\patch.exe\\\"\")\n (setq org-agenda-files '(\"h:/Documents/todo.org\"))\n ))\n ((string-equal system-name \"wtsvSecurity01\")\n (setq org-capture-templates\n (apply append\n (if (boundp 'org-capture-templates) org-capture-templates '())\n '((\"t\" \"todo\")\n (\"tt\" \"todo\" entry\n (file+headline \"h:/documents/todo.org\" \"inbox\")\n \"** TODO %? %^g\")\n (\"tc\" \"change\" entry\n (file+headline \"h:/documents/todo.org\" \"inbox\")\n \"** CFILE %?\n:PROPERTIES:\n:change: tbd\n:END:\")\n (\"ts\" \"service request\" entry\n (file+headline \"h:/documents/todo.org\" \"inbox\")\n \"** SRFILE %?\n:PROPERTIES:\n:ticket: tbd\n:END:\"))))\n )\n )\n\n\n\n(add-to-list 'load-path \"~/.emacs.d/lisp/\")\n(load \"folding\" 'nomessage 'noerror)\n(folding-mode-add-find-file-hook)\n\n(defun show-filename () (interactive) (message buffer-file-name))\n(global-set-key (kbd \"C-x g\") 'show-filename)\n\n(cond ((eq jareds-mood 'xah)\n (require 'xah-fly-keys)\n (xah-fly-keys-set-layout \"colemak-mod-dhm\")\n ;; (xah-fly-keys-set-layout \"colemak-mod-dh\")\n ;; (xah-fly-keys-set-layout \"qwerty\")\n (xah-fly-keys 1)\n (require 'which-key)\n (which-key-mode))\n ((eq jareds-mood 'evil)\n (require 'evil)\n (evil-mode 1))\n ((eq jareds-mood 'boon)\n (require 'boon-colemak-dhm)\n (boon-mode)\n ;; dactyl manuform\n (define-key boon-moves-map \"(\" '(\"(-\" . boon-navigate-backward))\n (define-key boon-moves-map \")\" '(\"-)\" . boon-navigate-forward)))\n ((eq jareds-mood 'ergo)\n (require 'ergoemacs-mode)\n (setq ergoemacs-theme nil) ;; Uses Standard Ergoemacs keyboard theme\n (setq ergoemacs-keyboard-layout \"us\") ;; Assumes QWERTY keyboard layout\n (ergoemacs-mode 1))\n (t nil))\n\n\n(autoload 'scad-mode \"scad-mode\" \"A major mode for editing OpenSCAD code.\" t)\n(add-to-list 'auto-mode-alist '(\"\\\\.scad$\" . scad-mode))\n\n(defun spit-scad-last-expression ()\n (interactive)\n (cider-interactive-eval\n (format \n \"(require 'scad-clj.scad)\n (spit \\\"eval.scad\\\" (scad-clj.scad/write-scad %s))\"\n (cider-last-sexp))))\n;(define-key cider-mode-map (kbd \"C-c 3\") 'spit-scad-last-expression)\n\n(define-skeleton blog-post-skeleton \"a pelican blog post\" \"title: \"\n\t str \"\\n\" (make-string (length str) ?#) \"\\n\" (concat \":date: \" (format-time-string \"%Y-%m-%d %H:%M\\n\")) \":author: jaredj\\n\" \":category: \" _)\n\n; get the I-beam APL character for xah-fly-keys insert mode indicator\n(set-fontset-font \"fontset-default\" #x2336 \"APL385 Unicode\")\n\n\n(defun jared-open-line (&optional N)\n \"Open a new line above this one, avoiding splitting. Like vi's O, not like Emacs' C-o.\"\n (interactive \"p\")\n (beginning-of-line)\n (open-line (or N 1))\n (indent-for-tab-command))\n \n\t\t\t\t\t; fix the s command in xah-fly-keys\n(cond ((eq jareds-mood 'xah)\n (progn\n (substitute-key-definition 'open-line 'jared-open-line\n\t\t\t\t xah-fly-key-map)\n (global-set-key (kbd \"M-DEL\") 'xah-fly-command-mode-activate))))\n\n(require 'sudden-death)\n(transient-mark-mode 1)\n\n;; original at https://oremacs.com/2015/01/26/occur-dwim/\n(defun my/occur-dwim-silently ()\n \"Call `occur' with a symbol, or do nothing. No prompts.\"\n (interactive)\n (let ((sym (thing-at-point 'symbol)))\n (cond\n ((region-active-p)\n (progn\n (let ((thing-to-occur\n (buffer-substring-no-properties\n (region-beginning)\n (region-end))))\n (occur thing-to-occur))))\n ((stringp sym)\n (progn\n (occur sym)))\n (t (message \"no symbol found to occur\")))))\n\n;; (defun my/projectile-multi-occur-dwim-silently ()\n;; \"Call `occur' with a symbol, or do nothing. No prompts.\"\n;; (interactive)\n;; (let ((sym (thing-at-point 'symbol)))\n;; (cond\n;; ((region-active-p)\n;; (progn\n;; (let ((thing-to-occur\n;; (buffer-substring-no-properties\n;; (region-beginning)\n;; (region-end))))\n;; (multi-occur (projectile-project-buffers)\n;; thing-to-occur))))\n;; ((stringp sym)\n;; (progn\n;; (multi-occur (projectile-project-buffers) sym)))\n;; (t (message \"no symbol found to occur\")))))\n\n;; ;; Don't ask before re-reading changed TAGS files\n;; (setq tags-revert-without-query t)\n;; ;; NO warning when loading large TAGS files\n;; (setq large-file-warning-threshold nil)\n;; (add-hook 'prog-mode-hook\n;; (lambda ()\n;; (add-hook 'after-save-hook\n;; 'counsel-etags-virtual-update-tags 'append 'local)))\n\n;; https://stackoverflow.com/a/50167337\n\n(when (version< emacs-version \"26\")\n (with-eval-after-load \"ibuf-ext\"\n (define-ibuffer-filter visiting-file\n \"Limit current view to buffers that are visiting a file.\"\n (:description \"visiting a file\"\n :reader nil)\n (with-current-buffer buf (buffer-file-name))))\n (with-eval-after-load \"ibuffer\"\n (autoload 'ibuffer-filter-by-visiting-file \"ibuf-ext\")\n (define-key ibuffer-mode-map (kbd \"/ v\") 'ibuffer-filter-by-visiting-file)))\n\n(require 'keyfreq)\n(keyfreq-mode 1)\n(keyfreq-autosave-mode 1)\n(put 'upcase-region 'disabled nil)\n(put 'downcase-region 'disabled nil)\n\n\n(defun jlj--flip-last-name-first-in-region (begin end)\n (interactive (list (region-beginning) (region-end)))\n (save-excursion\n (save-restriction\n (narrow-to-region begin end)\n (progn\n (goto-char (point-min))\n (while (search-forward-regexp \"^\\\$[^,\\n]+\\\$, *\\\$[^\\n]+\\\$$\" nil t)\n (replace-match \"\\\\2 \\\\1\"))))))\n\n(defun jlj--obfuscate-ip (real-ip)\n (let* ((h (gnutls-hash-digest 'SHA256 real-ip))\n (n (reduce 'logxor h)))\n (format \"192.0.2.%d\" n)))\n\n(defun jlj--obfuscate-fqdn (obfuscated-domain real-fqdn)\n (let* ((h (gnutls-hash-digest 'SHA256 real-fqdn))\n (names '(alpha bravo charlie delta echo foxtrot golf\n hotel india juliett kilo lima mike\n november oscar papa quebec romeo sierra\n tango uniform victor whiskey xray yankee zulu))\n (part1 (nth (% (elt h 0) (length names)) names))\n (part2 (format \"%d\" (elt h 3)))\n (final (format \"%s-%s.%s\" part1 part2 obfuscated-domain)))\n final))\n \n(defun jlj--obfuscate-assets (begin end)\n (interactive (list (region-beginning) (region-end)))\n (let ((replacement-kinds jlj--assets-to-obfuscate)\n replacements)\n (save-excursion\n (save-restriction\n (narrow-to-region begin end)\n (progn\n (dolist (k replacement-kinds)\n (goto-char (point-min))\n (let ((re (car k)) (fun (cadr k)))\n (while (search-forward-regexp re nil t)\n (let ((m (match-string-no-properties 0)))\n (unless (assoc m replacements)\n (setq replacements (cons (cons m (funcall fun m))\n replacements)))))))\n (dolist (r replacements)\n (goto-char (point-min))\n (while (search-forward (car r) nil t)\n (replace-match (cdr r)))))))))\n\n(require 'ox-beamer)\n(require 'ox-latex)\n\n;; fold up applied preambles.\n;; https://github.com/jaredjennings/apply-preambles\n;; https://www.emacswiki.org/emacs/FoldingMode\n\n(folding-add-to-marks-list 'clojure-mode \";; --- BEGIN\" \";; --- END\")\n(folding-add-to-marks-list 'scad-mode \";; --- BEGIN\" \";; --- END\")\n\n(defun insert-secreq-implements-clipboard-uri (fragment uri)\n \"Insert a snailcrusader (Turtle) comment signifying that a document fragment secreq:implements a URI which is on the clipboard.\"\n ;; https://stackoverflow.com/a/9646268\n (interactive\n (list (read-string (format \"Document fragment (must be unique and sane; default %s): \"\n (thing-at-point 'word))\n nil nil (thing-at-point 'word))\n (let ((uri (cond ((string-match-p \"//\" (car kill-ring))\n (car kill-ring))\n ((string-match-p \"//\" (gui-get-selection))\n (gui-get-selection))\n (t \"\"))))\n (read-string (format \"Requirement URI (default \\\"%s\\\"): \" uri)\n nil nil uri))))\n (let ((present-comment-start comment-start)\n (comment-start (concat comment-start \"t\")))\n (save-excursion\n (beginning-of-line)\n (open-line 1)\n (insert comment-start \" <#\" fragment \"> \" \"secreq:implements\" \" <\"\n uri \"> .\"))))\n\n(multikeyfreq-mode 1)\n(multikeyfreq-autosave-mode 1)\n(require 'keyfreq)\n(keyfreq-mode 1)\n(keyfreq-autosave-mode 1)\n\n;; find-file /ssh:somebsdhost|sudo:|iocage:jailname:/path/to/file\n\n(require 'tramp)\n(setq tramp-methods\n (cons '(\"iocage\"\n (tramp-login-program \"iocage\")\n (tramp-login-args ((\"console\") (\"%h\")))\n (tramp-remote-shell \"/bin/sh\")\n (tramp-remote-shell-login (\"-l\"))\n (tramp-remote-shell-args (\"-c\")))\n tramp-methods))\n\n\n;; https://www.emacswiki.org/emacs/KillingAndYanking\n(defun yank-interleaved (separator)\n \"Yank the previous kill, interleaving each line of the yanked\n text with a line in current buffer.\n \n Interleaving begins on the line containing point, and moves\n downward. If point is at the beginning of the line, the yanked\n lines are inserted before the buffer lines. If it is at the end\n of the line, the yanked lines are inserted after.\n \n If the argument SEPARATOR is given, insert this between each\n buffer line and yanked line.\"\n ;; TODO: Make it work with active region\n (interactive \"MSeparator: \")\n (let ((yank (current-kill 1 t))\n dir line)\n (if (null (string-match-p \"\\n\" yank))\n \t(yank)\n (setq dir\n \t (cond\n \t ((bolp) 'front)\n \t ((eolp) 'back)\n \t (t (user-error \"Call with point at beginning or end of line\"))))\n (setq yank (split-string yank \"\\n\" t \"\\\\s-\"))\n (while (setq line (pop yank))\n \t(if (eq dir 'front)\n \t (progn\n \t (beginning-of-line)\n \t (insert line)\n \t (insert separator))\n \t (end-of-line)\n \t (insert separator)\n \t (insert line))\n \t(forward-line)))))\n\n;; (global-set-key (kbd \"C-x f\") #'find-file-at-point)\n(ffap-bindings)\n(global-set-key (kbd \"C-c o l\") #'org-store-link)\n(global-set-key (kbd \"C-c o a\") #'org-agenda)\n(global-set-key (kbd \"C-c o c\") #'org-capture)\n;; make frame opaque when focused, and semitransparent when unfocused\n(set-frame-parameter (selected-frame) 'alpha '(100 . 50))\n\n(defun shuffle-lines (reverse beg end)\n \"Sort lines in region randomly; REVERSE non-nil means nothing.\nInteractively, REVERSE is the prefix argument, and BEG and END are the region.\nCalled from a program, there are three arguments:\nREVERSE (non-nil means reverse order), BEG and END (region to sort).\nThe variable `sort-fold-case' determines nothing.\"\n (interactive \"P\\nr\")\n (save-excursion\n (save-restriction\n (narrow-to-region beg end)\n (goto-char (point-min))\n (let ;; To make `end-of-line' and etc. to ignore fields.\n\t ((inhibit-field-text-motion t))\n\t(sort-subr reverse 'forward-line 'end-of-line nil nil (lambda (a b) (= 0 (% (random) 2))))))))\n\n;; this was my attempt to get emoji to show\n;; it was too slow. tofu is much faster\n\n;; ;; https://gist.github.com/alanthird/7152752d384325a83677f4a90e1e1a05\n;; ;; Provided by Sebastian Urban\n;; ;; More information at https://idiocy.org/emacs-fonts-and-fontsets.html\n\n;; (set-fontset-font \"fontset-default\" 'adlam \"Noto Sans Adlam\")\n;; (set-fontset-font \"fontset-default\" 'anatolian \"Noto Sans Anatolian Hieroglyphs\")\n;; (set-fontset-font \"fontset-default\" 'arabic \"Noto Sans Arabic\")\n;; (set-fontset-font \"fontset-default\" 'aramaic \"Noto Sans Imperial Aramaic Regular\")\n;; (set-fontset-font \"fontset-default\" 'armenian \"Noto Sans Armenian\")\n;; (set-fontset-font \"fontset-default\" 'avestan \"Noto Sans Avestan\")\n;; (set-fontset-font \"fontset-default\" 'balinese \"Noto Sans Balinese\")\n;; (set-fontset-font \"fontset-default\" 'bamum \"Noto Sans Bamum\")\n;; (set-fontset-font \"fontset-default\" 'batak \"Noto Sans Batak\")\n;; (set-fontset-font \"fontset-default\" 'bengali \"Noto Sans Bengali\")\n;; (set-fontset-font \"fontset-default\" 'brahmi \"Noto Sans Brahmi\")\n;; (set-fontset-font \"fontset-default\" 'buginese \"Noto Sans Buginese\")\n;; (set-fontset-font \"fontset-default\" 'buhid \"Noto Sans Buhid\")\n;; (set-fontset-font \"fontset-default\" 'burmese \"Noto Sans Myanmar\")\n;; (set-fontset-font \"fontset-default\" 'canadian-aboriginal \"Noto Sans Canadian Aboriginal\")\n;; (set-fontset-font \"fontset-default\" 'carian \"Noto Sans Carian\")\n;; (set-fontset-font \"fontset-default\" 'chakma \"Noto Sans Chakma\")\n;; (set-fontset-font \"fontset-default\" 'cham \"Noto Sans Cham\")\n;; (set-fontset-font \"fontset-default\" 'cherokee \"Noto Sans Cherokee\")\n;; (set-fontset-font \"fontset-default\" 'cjk-misc \"Noto Sans CJK SC Regular\")\n;; (set-fontset-font \"fontset-default\" 'coptic \"Noto Sans Coptic Regular\")\n;; (set-fontset-font \"fontset-default\" 'cuneiform \"Noto Sans Cuneiform\")\n;; (set-fontset-font \"fontset-default\" 'cypriot-syllabary \"Noto Sans Cypriot\")\n;; (set-fontset-font \"fontset-default\" 'deseret \"Noto Sans Deseret\")\n;; (set-fontset-font \"fontset-default\" 'devanagari \"Noto Sans Devanagari\")\n;; (set-fontset-font \"fontset-default\" 'egyptian \"Noto Sans Egyptian Hieroglyphs Regular\")\n;; (set-fontset-font \"fontset-default\" 'ethiopic \"Noto Sans Ethiopic\")\n;; (set-fontset-font \"fontset-default\" 'georgian \"Noto Sans Georgian\")\n;; (set-fontset-font \"fontset-default\" 'glagolitic \"Noto Sans Glagolitic\")\n;; (set-fontset-font \"fontset-default\" 'gothic \"Noto Sans Gothic\")\n;; (set-fontset-font \"fontset-default\" 'gujarati \"Noto Sans Gujarati\")\n;; (set-fontset-font \"fontset-default\" 'gurmukhi \"Noto Sans Gurmukhi\")\n;; (set-fontset-font \"fontset-default\" 'han \"Noto Sans CJK SC Regular\")\n;; (set-fontset-font \"fontset-default\" 'han \"Noto Sans CJK TC Regular\" nil 'append)\n;; (set-fontset-font \"fontset-default\" 'hangul \"Noto Sans CJK KR Regular\")\n;; (set-fontset-font \"fontset-default\" 'hanunoo \"Noto Sans Hanunoo\")\n;; (set-fontset-font \"fontset-default\" 'hebrew \"Noto Sans Hebrew\")\n;; (set-fontset-font \"fontset-default\" 'inscriptional-pahlavi \"Noto Sans Inscriptional Pahlavi\")\n;; (set-fontset-font \"fontset-default\" 'inscriptional-parthian \"Noto Sans Inscriptional Parthian\")\n;; (set-fontset-font \"fontset-default\" 'javanese \"Noto Sans Javanese\")\n;; (set-fontset-font \"fontset-default\" 'kaithi \"Noto Sans Kaithi\")\n;; (set-fontset-font \"fontset-default\" 'kana \"Noto Sans CJK JP Regular\")\n;; (set-fontset-font \"fontset-default\" 'kannada \"Noto Sans Kannada\")\n;; (set-fontset-font \"fontset-default\" 'kayah-li \"Noto Sans Kayah Li\")\n;; (set-fontset-font \"fontset-default\" 'kharoshthi \"Noto Sans Kharoshthi\")\n;; (set-fontset-font \"fontset-default\" 'khmer \"Noto Sans Khmer\")\n;; (set-fontset-font \"fontset-default\" 'lao \"Noto Sans Lao\")\n;; (set-fontset-font \"fontset-default\" 'lepcha \"Noto Sans Lepcha\")\n;; (set-fontset-font \"fontset-default\" 'limbu \"Noto Sans Limbu\")\n;; (set-fontset-font \"fontset-default\" 'linear-b \"Noto Sans Linear B\")\n;; (set-fontset-font \"fontset-default\" 'lisu \"Noto Sans Lisu\")\n;; (set-fontset-font \"fontset-default\" 'lycian \"Noto Sans Lycian\")\n;; (set-fontset-font \"fontset-default\" 'lydian \"Noto Sans Lydian\")\n;; (set-fontset-font \"fontset-default\" 'malayalam \"Noto Sans Malayalam\")\n;; (set-fontset-font \"fontset-default\" 'mandaic \"Noto Sans Mandaic\")\n;; (set-fontset-font \"fontset-default\" 'meetei-mayek \"Noto Sans Meetei Mayek\")\n;; (set-fontset-font \"fontset-default\" 'mongolian \"Noto Sans Mongolian\")\n;; (set-fontset-font \"fontset-default\" 'tai-lue \"Noto Sans New Tai Lue Regular\")\n;; (set-fontset-font \"fontset-default\" 'nko \"Noto Sans NKo Regular\")\n;; (set-fontset-font \"fontset-default\" 'ogham \"Noto Sans Ogham\")\n;; (set-fontset-font \"fontset-default\" 'ol-chiki \"Noto Sans Ol Chiki\")\n;; (set-fontset-font \"fontset-default\" 'old-italic \"Noto Sans Old Italic Regular\")\n;; (set-fontset-font \"fontset-default\" 'old-persian \"Noto Sans Old Persian Regular\")\n;; (set-fontset-font \"fontset-default\" 'old-south-arabian \"Noto Sans Old South Arabian Regular\")\n;; (set-fontset-font \"fontset-default\" 'old-turkic \"Noto Sans Old Turkic\")\n;; (set-fontset-font \"fontset-default\" 'oriya \"Noto Sans Oriya\")\n;; (set-fontset-font \"fontset-default\" 'osage \"Noto Sans Osage\")\n;; (set-fontset-font \"fontset-default\" 'osmanya \"Noto Sans Osmanya\")\n;; (set-fontset-font \"fontset-default\" 'phags-pa \"Noto Sans Phags Pa\")\n;; (set-fontset-font \"fontset-default\" 'phoenician \"Noto Sans Phoenician\")\n;; (set-fontset-font \"fontset-default\" 'rejang \"Noto Sans Rejang\")\n;; (set-fontset-font \"fontset-default\" 'runic \"Noto Sans Runic\")\n;; (set-fontset-font \"fontset-default\" 'samaritan \"Noto Sans Samaritan\")\n;; (set-fontset-font \"fontset-default\" 'saurashtra \"Noto Sans Saurashtra\")\n;; (set-fontset-font \"fontset-default\" 'shavian \"Noto Sans Shavian\")\n;; (set-fontset-font \"fontset-default\" 'sinhala \"Noto Sans Sinhala\")\n;; (set-fontset-font \"fontset-default\" 'sinhala-archaic-number \"Noto Sans Sinhala\")\n;; (set-fontset-font \"fontset-default\" 'sundanese \"Noto Sans Sundanese\")\n;; (set-fontset-font \"fontset-default\" 'syloti-nagri \"Noto Sans Syloti Nagri\")\n;; ;;(set-fontset-font \"fontset-default\" 'syriac \"Noto Sans Syriac Eastern\")\n;; (set-fontset-font \"fontset-default\" 'syriac \"Noto Sans Syriac Estrangela\")\n;; ;;(set-fontset-font \"fontset-default\" 'syriac \"Noto Sans Syriac Western\")\n;; (set-fontset-font \"fontset-default\" 'tagalog \"Noto Sans Tagalog\")\n;; (set-fontset-font \"fontset-default\" 'tagbanwa \"Noto Sans Tagbanwa\")\n;; (set-fontset-font \"fontset-default\" 'tai-le \"Noto Sans Tai Le\")\n;; (set-fontset-font \"fontset-default\" 'tai-tham \"Noto Sans Tai Tham\")\n;; (set-fontset-font \"fontset-default\" 'tai-viet \"Noto Sans Tai Viet\")\n;; (set-fontset-font \"fontset-default\" 'tamil \"Noto Sans Tamil\")\n;; (set-fontset-font \"fontset-default\" 'telugu \"Noto Sans Telugu\")\n;; (set-fontset-font \"fontset-default\" 'thaana \"Noto Sans Thaana\")\n;; (set-fontset-font \"fontset-default\" 'thai \"Noto Sans Thai\")\n;; (set-fontset-font \"fontset-default\" 'tibetan \"Noto Sans Tibetan\")\n;; (set-fontset-font \"fontset-default\" 'tifinagh \"Noto Sans Tifinagh\")\n;; (set-fontset-font \"fontset-default\" 'ugaritic \"Noto Sans Ugaritic\")\n;; (set-fontset-font \"fontset-default\" 'vai \"Noto Sans Vai\")\n;; (set-fontset-font \"fontset-default\" 'yi \"Noto Sans Yi\")\n;; (set-fontset-font \"fontset-standard\" 'symbol \"Noto Color Emoji\")\n\n\n(require 'no-spam)\n\n;; Use default parameter values.\n(no-spam-add-repeat-delay next-line)\n\n;; Set a 10-second repeat delay for `forward-char'.\n(no-spam-add-repeat-delay forward-char 10)\n\n;; Have the delay not apply in the minibuffer.\n(no-spam-add-repeat-delay backward-char nil minibufferp)\n\n;; Have `forward-paragraph' and `backward-paragraph' share a delay.\n(no-spam-add-repeat-delay (forward-paragraph backward-paragraph))\n\n;; Enable the repeat delays.\n(no-spam-mode)\n\n;; unassociate .sch files with scheme: i edit lepton-schematic files which are not scheme\n(setq auto-mode-alist (cons '(\"\\\\.\\\$scm\\\\|stk\\\\|ss\\\$\\\\'\" . scheme-mode) (assoc-delete-all \".sch\" auto-mode-alist #'string-match)))\n"},{"Del":";; unassociate .ml files with lisp: i edit ocaml source\n(setq auto-mode-alist (cons '(\"\\\\.ml\\\\'\" . caml-mode) (assoc-delete-all \".ml\" auto-mode-alist #'string-match)))\n"},{"Del":"\n;; https://nest.pijul.com/sellout/vc-pijul\n(add-to-list 'load-path \"~/.emacs.d/lisp/vc-pijul/\")\n(add-to-list 'vc-handled-backends 'Pijul)\n\n"},{"Del":"(setq mastodon-instance-url \"https://emacs.ch\"\n mastodon-active-user \"jaredj\")\n"}]}},{"FileDel":{"deleted_names":[{"basename":"yaml-mode-20221022.920","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":648415,"end":648448},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":648448},"to":{"change":7,"start":648414,"end":648414},"introduced_by":7}],"inode":{"change":7,"pos":648414}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"yaml-mode-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":648414},"to":{"change":7,"start":668449,"end":668495},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":668495},"to":{"change":7,"start":667495,"end":667495},"introduced_by":7}],"inode":{"change":7,"pos":667495}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":667495},"to":{"change":7,"start":667496,"end":668448},"introduced_by":7}],"inode":{"change":7,"pos":667495}},"content":[{"Del":";;; yaml-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"yaml-mode\" \"yaml-mode.el\" (0 0 0 0))\n;;; Generated autoloads from yaml-mode.el\n\n(let ((loads (get 'yaml 'custom-loads))) (if (member '\"yaml-mode\" loads) nil (put 'yaml 'custom-loads (cons '\"yaml-mode\" loads))))\n\n(autoload 'yaml-mode \"yaml-mode\" \"\\\nSimple mode to edit YAML.\n\n\\\\{yaml-mode-map}\n\n\$fn)\" t nil)\n\n(add-to-list 'auto-mode-alist '(\"\\\\.\\\\(e?ya?\\\\|ra\\\$ml\\\\'\" . yaml-mode))\n\n(add-to-list 'magic-mode-alist '(\"^%YAML\\\\s-+[0-9]+\\\\.[0-9]+\\\$\\\\s-+#\\\\|\\\\s-*$\\\$\" . yaml-mode))\n\n(register-definition-prefixes \"yaml-mode\" '(\"yaml-\"))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; yaml-mode-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"yaml-mode-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":648414},"to":{"change":7,"start":667453,"end":667493},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":667493},"to":{"change":7,"start":666988,"end":666988},"introduced_by":7}],"inode":{"change":7,"pos":666988}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":666988},"to":{"change":7,"start":666989,"end":667452},"introduced_by":7}],"inode":{"change":7,"pos":666988}},"content":[{"Del":";;; Generated package description from yaml-mode.el -*- no-byte-compile: t -*-\n(define-package \"yaml-mode\" \"20221022.920\" \"Major mode for editing YAML files\" '((emacs \"24.1\")) :commit \"141b85f9e01589e67955f3785a83b72b42109357\" :authors '((\"Yoshiki Kurihara\" . \"clouder@gmail.com\") (\"Marshall T. Vandegrift\" . \"llasram@gmail.com\")) :maintainer '(\"Vasilij Schneidermann\" . \"mail@vasilij.de\") :keywords '(\"data\" \"yaml\") :url \"https://github.com/yoshiki/yaml-mode\")\n"}]}},{"FileDel":{"deleted_names":[{"basename":"yaml-mode.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":648414},"to":{"change":7,"start":666950,"end":666986},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":666986},"to":{"change":7,"start":648450,"end":648450},"introduced_by":7}],"inode":{"change":7,"pos":648450}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":648450},"to":{"change":7,"start":648451,"end":666949},"introduced_by":7}],"inode":{"change":7,"pos":648450}},"content":[{"Del":";;; yaml-mode.el --- Major mode for editing YAML files -*- lexical-binding: t -*-\n\n;; Copyright (C) 2010-2014 Yoshiki Kurihara\n\n;; Author: Yoshiki Kurihara \n;; Marshall T. Vandegrift \n;; Maintainer: Vasilij Schneidermann \n;; URL: https://github.com/yoshiki/yaml-mode\n;; Package-Version: 20221022.920\n;; Package-Commit: 141b85f9e01589e67955f3785a83b72b42109357\n;; Package-Requires: ((emacs \"24.1\"))\n;; Keywords: data yaml\n;; Version: 0.0.15\n\n;; This file is not part of Emacs\n\n;; This program is free software; you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; This is a major mode for editing files in the YAML data\n;; serialization format. It was initially developed by Yoshiki\n;; Kurihara and many features were added by Marshall Vandegrift. As\n;; YAML and Python share the fact that indentation determines\n;; structure, this mode provides indentation and indentation command\n;; behavior very similar to that of python-mode.\n\n;;; Installation:\n\n;; To install, just drop this file into a directory in your\n;; `load-path' and (optionally) byte-compile it. To automatically\n;; handle files ending in '.yml', add something like:\n;;\n;; (require 'yaml-mode)\n;; (add-to-list 'auto-mode-alist '(\"\\\\.yml\\\\'\" . yaml-mode))\n;;\n;; to your .emacs file.\n;;\n;; Unlike python-mode, this mode follows the Emacs convention of not\n;; binding the ENTER key to `newline-and-indent'. To get this\n;; behavior, add the key definition to `yaml-mode-hook':\n;;\n;; (add-hook 'yaml-mode-hook\n;; '(lambda ()\n;; (define-key yaml-mode-map \"\\C-m\" 'newline-and-indent)))\n\n;;; Known Bugs:\n\n;; YAML is easy to write but complex to parse, and this mode doesn't\n;; even really try. Indentation and highlighting will break on\n;; abnormally complicated structures.\n\n;;; Code:\n\n\f\n;; User definable variables\n\n;;;###autoload\n(defgroup yaml nil\n \"Support for the YAML serialization format\"\n :group 'languages\n :prefix \"yaml-\")\n\n(defcustom yaml-mode-hook nil\n \"*Hook run by `yaml-mode'.\"\n :type 'hook\n :group 'yaml)\n\n(defcustom yaml-indent-offset 2\n \"*Amount of offset per level of indentation.\"\n :type 'integer\n :safe 'natnump\n :group 'yaml)\n\n(defcustom yaml-backspace-function 'backward-delete-char-untabify\n \"*Function called by `yaml-electric-backspace' when deleting backwards.\nIt will receive one argument, the numeric prefix value.\"\n :type 'function\n :group 'yaml)\n\n(defcustom yaml-block-literal-search-lines 100\n \"*Maximum number of lines to search for start of block literals.\"\n :type 'integer\n :group 'yaml)\n\n(defcustom yaml-block-literal-electric-alist\n '((?| . \"\") (?> . \"-\"))\n \"*Characters for which to provide electric behavior.\nThe association list key should be a key code and the associated value\nshould be a string containing additional characters to insert when\nthat key is pressed to begin a block literal.\"\n :type 'alist\n :group 'yaml)\n\n(defface yaml-tab-face\n '((((class color)) (:background \"red\" :foreground \"red\" :bold t))\n (t (:reverse-video t)))\n \"Face to use for highlighting tabs in YAML files.\"\n :group 'faces\n :group 'yaml)\n\n(defcustom yaml-imenu-generic-expression\n '((nil \"^\\\$:?[a-zA-Z_-]+\\\$:\" 1))\n \"The imenu regex to parse an outline of the yaml file.\"\n :type 'string\n :group 'yaml)\n\n\f\n;; Constants\n\n(defconst yaml-mode-version \"0.0.15\" \"Version of `yaml-mode'.\")\n\n(defconst yaml-blank-line-re \"^ *$\"\n \"Regexp matching a line containing only (valid) whitespace.\")\n\n(defconst yaml-directive-re \"^\\\$?:--- \\\$? *%\\\$\\\\w+\\\$\"\n \"Regexp matching a line contatining a YAML directive.\")\n\n(defconst yaml-document-delimiter-re \"^\\\$?:---\\\\|[.][.][.]\\\$\"\n \"Rexexp matching a YAML document delimiter line.\")\n\n(defconst yaml-node-anchor-alias-re \"[&*][a-zA-Z0-9_-]+\"\n \"Regexp matching a YAML node anchor or alias.\")\n\n(defconst yaml-tag-re \"!!?[^ \\n]+\"\n \"Rexexp matching a YAML tag.\")\n\n(defconst yaml-bare-scalar-re\n \"\\\$?:[^-:,#!\\n{\\\\[ ]\\\\|[^#!\\n{\\\\[ ]\\\\S-\\\$[^#\\n]*?\"\n \"Rexexp matching a YAML bare scalar.\")\n\n(defconst yaml-hash-key-re\n (concat \"\\\$?:^\\\\(?:--- \\\$?\\\\|{\\\\|\\\$?:[-,] +\\\$+\\\\) *\"\n \"\\\$?:\" yaml-tag-re \" +\\\$?\"\n \"\\\$\" yaml-bare-scalar-re \"\\\$ *:\"\n \"\\\$?: +\\\\|$\\\$\")\n \"Regexp matching a single YAML hash key.\")\n\n(defconst yaml-scalar-context-re\n (concat \"\\\$?:^\\\\(?:--- \\\$?\\\\|{\\\\|\\\$?: *[-,] +\\\$+\\\\) *\"\n \"\\\$?:\" yaml-bare-scalar-re \" *: \\\$?\")\n \"Regexp indicating the beginning of a scalar context.\")\n\n(defconst yaml-nested-map-re\n (concat \"[^#\\n]*: *\\\$?:&.*\\\\|{ *\\\\|\" yaml-tag-re \" *\\\$?$\")\n \"Regexp matching a line beginning a YAML nested structure.\")\n\n(defconst yaml-block-literal-base-re \" *[>|][-+0-9]* *\\\$?:\\n\\\\|\\\\'\\\$\"\n \"Regexp matching the substring start of a block literal.\")\n\n(defconst yaml-block-literal-re\n (concat yaml-scalar-context-re\n \"\\\$?:\" yaml-tag-re \"\\\$?\"\n yaml-block-literal-base-re)\n \"Regexp matching a line beginning a YAML block literal.\")\n\n(defconst yaml-nested-sequence-re\n (concat \"^\\\$?:\\\\(?: *- +\\\$+\\\\|\\\$:? *-$\\\$\\\\)\"\n \"\\\$?:\" yaml-bare-scalar-re \" *:\\\\(?: +.*\\\$?\\\\)?$\")\n \"Regexp matching a line containing one or more nested YAML sequences.\")\n\n(defconst yaml-constant-scalars-re\n (concat \"\\\$?:^\\\\|\\\\(?::\\\\|-\\\\|,\\\\|{\\\\|\\\\[\\\$ +\\\\) *\"\n (regexp-opt\n '(\"~\" \"null\" \"Null\" \"NULL\"\n \".nan\" \".NaN\" \".NAN\"\n \".inf\" \".Inf\" \".INF\"\n \"-.inf\" \"-.Inf\" \"-.INF\"\n \"y\" \"Y\" \"yes\" \"Yes\" \"YES\" \"n\" \"N\" \"no\" \"No\" \"NO\"\n \"true\" \"True\" \"TRUE\" \"false\" \"False\" \"FALSE\"\n \"on\" \"On\" \"ON\" \"off\" \"Off\" \"OFF\") t)\n \"\\\\_>\")\n \"Regexp matching certain scalar constants in scalar context.\")\n\n\f\n;; Mode setup\n\n(defvar yaml-mode-map\n (let ((map (make-sparse-keymap)))\n (define-key map \"|\" 'yaml-electric-bar-and-angle)\n (define-key map \">\" 'yaml-electric-bar-and-angle)\n (define-key map \"-\" 'yaml-electric-dash-and-dot)\n (define-key map \".\" 'yaml-electric-dash-and-dot)\n (define-key map (kbd \"DEL\") 'yaml-electric-backspace)\n map)\n \"Keymap used in `yaml-mode' buffers.\")\n\n(defvar yaml-mode-syntax-table\n (let ((syntax-table (make-syntax-table)))\n (modify-syntax-entry ?\\' \"\\\"\" syntax-table)\n (modify-syntax-entry ?\\\" \"\\\"\" syntax-table)\n (modify-syntax-entry ?# \"<\" syntax-table)\n (modify-syntax-entry ?\\n \">\" syntax-table)\n (modify-syntax-entry ?\\\\ \"\\\\\" syntax-table)\n (modify-syntax-entry ?- \"_\" syntax-table)\n (modify-syntax-entry ?_ \"_\" syntax-table)\n (modify-syntax-entry ?& \".\" syntax-table)\n (modify-syntax-entry ?* \".\" syntax-table)\n (modify-syntax-entry ?\$ \".\" syntax-table)\n (modify-syntax-entry ?\$ \".\" syntax-table)\n (modify-syntax-entry ?\\{ \"(}\" syntax-table)\n (modify-syntax-entry ?\\} \"){\" syntax-table)\n (modify-syntax-entry ?\\[ \"(]\" syntax-table)\n (modify-syntax-entry ?\\] \")[\" syntax-table)\n syntax-table)\n \"Syntax table in use in `yaml-mode' buffers.\")\n\n;;;###autoload\n(define-derived-mode yaml-mode text-mode \"YAML\"\n \"Simple mode to edit YAML.\n\n\\\\{yaml-mode-map}\"\n :syntax-table yaml-mode-syntax-table\n (set (make-local-variable 'comment-start) \"# \")\n (set (make-local-variable 'comment-start-skip) \"#+ *\")\n (set (make-local-variable 'indent-line-function) 'yaml-indent-line)\n (set (make-local-variable 'indent-tabs-mode) nil)\n (set (make-local-variable 'fill-paragraph-function) 'yaml-fill-paragraph)\n\n (set (make-local-variable 'syntax-propertize-function)\n 'yaml-mode-syntax-propertize-function)\n (setq font-lock-defaults '(yaml-font-lock-keywords)))\n\n\f\n;; Font-lock support\n\n(defvar yaml-font-lock-keywords\n `((yaml-font-lock-block-literals 0 font-lock-string-face)\n (,yaml-constant-scalars-re . (1 font-lock-constant-face))\n (,yaml-tag-re . (0 font-lock-type-face))\n (,yaml-node-anchor-alias-re . (0 font-lock-function-name-face))\n (,yaml-hash-key-re . (1 font-lock-variable-name-face))\n (,yaml-document-delimiter-re . (0 font-lock-comment-face))\n (,yaml-directive-re . (1 font-lock-builtin-face))\n (\"^[\\t]+\" 0 'yaml-tab-face t))\n \"Additional expressions to highlight in YAML mode.\")\n\n(defun yaml-mode-syntax-propertize-function (beg end)\n \"Override buffer's syntax table for special syntactic constructs.\"\n ;; Unhighlight foo#bar tokens between BEG and END.\n (save-excursion\n (goto-char beg)\n (while (search-forward \"#\" end t)\n (save-excursion\n (forward-char -1)\n ;; both ^# and [ \\t]# are comments\n (when (and (not (bolp))\n (not (memq (preceding-char) '(?\\s ?\\t))))\n (put-text-property (point) (1+ (point))\n 'syntax-table (string-to-syntax \"_\"))))))\n\n (save-excursion\n (goto-char beg)\n (while (and\n (> end (point))\n (re-search-forward \"['\\\"]\" end t))\n (when (get-text-property (point) 'yaml-block-literal)\n (put-text-property (1- (point)) (point)\n 'syntax-table (string-to-syntax \"w\")))\n (let* ((pt (point))\n (sps (save-excursion (syntax-ppss (1- pt)))))\n (when (not (nth 8 sps))\n (cond\n ((and (char-equal ?' (char-before (1- pt)))\n (char-equal ?' (char-before pt)))\n (put-text-property (- pt 2) pt\n 'syntax-table (string-to-syntax \"w\"))\n ;; Workaround for https://debbugs.gnu.org/41195.\n (let ((syntax-propertize--done syntax-propertize--done))\n ;; Carefully invalidate the last cached ppss.\n (syntax-ppss-flush-cache (- pt 2))))\n ;; If quote is detected as a syntactic string start but appeared\n ;; after a non-whitespace character, then mark it as syntactic word.\n ((and (char-before (1- pt))\n (char-equal ?w (char-syntax (char-before (1- pt)))))\n (put-text-property (1- pt) pt\n 'syntax-table (string-to-syntax \"w\")))\n (t\n ;; We're right after a quote that opens a string literal.\n ;; Skip over it (big speedup for long JSON strings).\n (goto-char (1- pt))\n (condition-case nil\n (forward-sexp)\n (scan-error\n (goto-char end))))))))))\n\n(defun yaml-font-lock-block-literals (bound)\n \"Find lines within block literals.\nFind the next line of the first (if any) block literal after point and\nprior to BOUND. Returns the beginning and end of the block literal\nline in the match data, as consumed by `font-lock-keywords' matcher\nfunctions. The function begins by searching backwards to determine\nwhether or not the current line is within a block literal. This could\nbe time-consuming in large buffers, so the number of lines searched is\nartificially limited to the value of\n`yaml-block-literal-search-lines'.\"\n (if (eolp) (goto-char (1+ (point))))\n (unless (or (eobp) (>= (point) bound))\n (let ((begin (point))\n (end (min (1+ (line-end-position)) bound)))\n (goto-char (line-beginning-position))\n (while (and (looking-at yaml-blank-line-re)\n (not (bobp)))\n (forward-line -1))\n (let ((nlines yaml-block-literal-search-lines)\n (min-level (current-indentation)))\n (forward-line -1)\n (while (and (/= nlines 0)\n (/= min-level 0)\n (not (looking-at yaml-block-literal-re))\n (not (bobp)))\n (setq nlines (1- nlines))\n (unless (looking-at yaml-blank-line-re)\n (setq min-level (min min-level (current-indentation))))\n (forward-line -1))\n (when (looking-at-p \" *- \")\n (setq min-level (- min-level 2)))\n (cond\n ((and (< (current-indentation) min-level)\n (looking-at yaml-block-literal-re))\n (goto-char end)\n (put-text-property begin end 'yaml-block-literal t)\n (set-match-data (list begin end))\n t)\n ((progn\n (goto-char begin)\n (re-search-forward (concat yaml-block-literal-re\n \" *\\\$.*\\\$\\n\")\n bound t))\n (let ((range (nthcdr 2 (match-data))))\n (put-text-property (car range) (cadr range) 'yaml-block-literal t)\n (set-match-data range))\n t))))))\n\n\f\n;; Indentation and electric keys\n\n(defun yaml-compute-indentation ()\n \"Calculate the maximum sensible indentation for the current line.\"\n (save-excursion\n (beginning-of-line)\n (if (looking-at yaml-document-delimiter-re) 0\n (forward-line -1)\n (while (and (looking-at yaml-blank-line-re)\n (> (point) (point-min)))\n (forward-line -1))\n (+ (current-indentation)\n (if (looking-at yaml-nested-map-re) yaml-indent-offset 0)\n (if (looking-at yaml-nested-sequence-re) yaml-indent-offset 0)\n (if (looking-at yaml-block-literal-re) yaml-indent-offset 0)))))\n\n(defun yaml-indent-line ()\n \"Indent the current line.\nThe first time this command is used, the line will be indented to the\nmaximum sensible indentation. Each immediately subsequent usage will\nback-dent the line by `yaml-indent-offset' spaces. On reaching column\n0, it will cycle back to the maximum sensible indentation.\"\n (interactive \"*\")\n (let ((ci (current-indentation))\n (need (yaml-compute-indentation)))\n (save-excursion\n (beginning-of-line)\n (delete-horizontal-space)\n (if (and (equal last-command this-command) (/= ci 0))\n (indent-to (* (/ (- ci 1) yaml-indent-offset) yaml-indent-offset))\n (indent-to need)))\n (if (< (current-column) (current-indentation))\n (forward-to-indentation 0))))\n\n(defun yaml-electric-backspace (arg)\n \"Delete characters or back-dent the current line.\nIf invoked following only whitespace on a line, will back-dent to the\nimmediately previous multiple of `yaml-indent-offset' spaces.\"\n (interactive \"*p\")\n (if (or (/= (current-indentation) (current-column)) (bolp))\n (funcall yaml-backspace-function arg)\n (let ((ci (current-column)))\n (beginning-of-line)\n (delete-horizontal-space)\n (indent-to (* (/ (- ci (* arg yaml-indent-offset))\n yaml-indent-offset)\n yaml-indent-offset)))))\n\n(defun yaml-electric-bar-and-angle (arg)\n \"Insert the bound key and possibly begin a block literal.\nInserts the bound key. If inserting the bound key causes the current\nline to match the initial line of a block literal, then inserts the\nmatching string from `yaml-block-literal-electric-alist', a newline,\nand indents appropriately.\"\n (interactive \"*P\")\n (self-insert-command (prefix-numeric-value arg))\n (let ((extra-chars\n (assoc last-command-event\n yaml-block-literal-electric-alist)))\n (cond\n ((and extra-chars (not arg) (eolp)\n (save-excursion\n (beginning-of-line)\n (looking-at yaml-block-literal-re)))\n (insert (cdr extra-chars))\n (newline-and-indent)))))\n\n(defun yaml-electric-dash-and-dot (arg)\n \"Insert the bound key and possibly de-dent line.\nInserts the bound key. If inserting the bound key causes the current\nline to match a document delimiter, de-dent the line to the left\nmargin.\"\n (interactive \"*P\")\n (self-insert-command (prefix-numeric-value arg))\n (save-excursion\n (beginning-of-line)\n (when (and (not arg) (looking-at yaml-document-delimiter-re))\n (delete-horizontal-space))))\n\n(defun yaml-narrow-to-block-literal ()\n \"Narrow the buffer to block literal if the point is in it,\notherwise do nothing.\"\n (interactive)\n (save-excursion\n (goto-char (line-beginning-position))\n (while (and (looking-at-p yaml-blank-line-re) (not (bobp)))\n (forward-line -1))\n (let ((nlines yaml-block-literal-search-lines)\n (min-level (current-indentation))\n beg)\n (forward-line -1)\n (while (and (/= nlines 0)\n (/= min-level 0)\n (not (looking-at-p yaml-block-literal-re))\n (not (bobp)))\n (setq nlines (1- nlines))\n (unless (looking-at-p yaml-blank-line-re)\n (setq min-level (min min-level (current-indentation))))\n (forward-line -1))\n (when (and (< (current-indentation) min-level)\n (looking-at-p yaml-block-literal-re))\n (setq min-level (current-indentation))\n (forward-line)\n (setq beg (point))\n (while (and (not (eobp))\n (or (looking-at-p yaml-blank-line-re)\n (> (current-indentation) min-level)))\n (forward-line))\n (narrow-to-region beg (point))))))\n\n(defun yaml-fill-paragraph (&optional justify region)\n \"Fill paragraph.\nOutside of comments, this behaves as `fill-paragraph' except that\nfilling does not cross boundaries of block literals. Inside comments,\nthis will do usual adaptive fill behaviors.\"\n (interactive \"*P\")\n (save-restriction\n (yaml-narrow-to-block-literal)\n (let ((fill-paragraph-function nil))\n (or (fill-comment-paragraph justify)\n (fill-paragraph justify region)))))\n\n(defun yaml-set-imenu-generic-expression ()\n (make-local-variable 'imenu-generic-expression)\n (make-local-variable 'imenu-create-index-function)\n (setq imenu-create-index-function 'imenu-default-create-index-function)\n (setq imenu-generic-expression yaml-imenu-generic-expression))\n\n(add-hook 'yaml-mode-hook 'yaml-set-imenu-generic-expression)\n\n\n(defun yaml-mode-version ()\n \"Display version of `yaml-mode'.\"\n (interactive)\n (message \"yaml-mode %s\" yaml-mode-version)\n yaml-mode-version)\n\n;;;###autoload\n(add-to-list 'auto-mode-alist '(\"\\\\.\\\$e?ya?\\\\|ra\\\$ml\\\\'\" . yaml-mode))\n\n;;;###autoload\n(add-to-list 'magic-mode-alist\n '(\"^%YAML\\\\s-+[0-9]+\\\\.[0-9]+\\\$\\\\s-+#\\\\|\\\\s-*$\\\$\" . yaml-mode))\n\n(provide 'yaml-mode)\n\n;;; yaml-mode.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"xref-1.5.1","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":758193,"end":758214},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":758214},"to":{"change":7,"start":758192,"end":758192},"introduced_by":7}],"inode":{"change":7,"pos":758192}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"xref-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":758192},"to":{"change":7,"start":843708,"end":843749},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":843749},"to":{"change":7,"start":839152,"end":839152},"introduced_by":7}],"inode":{"change":7,"pos":839152}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":839152},"to":{"change":7,"start":839153,"end":843707},"introduced_by":7}],"inode":{"change":7,"pos":839152}},"content":[{"Del":";;; xref-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"xref\" \"xref.el\" (0 0 0 0))\n;;; Generated autoloads from xref.el\n\n(autoload 'xref-find-backend \"xref\" nil nil nil)\n\n(define-obsolete-function-alias 'xref-pop-marker-stack #'xref-go-back \"29.1\")\n\n(autoload 'xref-go-back \"xref\" \"\\\nGo back to the previous position in xref history.\nTo undo, use \\\\[xref-go-forward].\" t nil)\n\n(autoload 'xref-go-forward \"xref\" \"\\\nGot to the point where a previous \\\\[xref-go-back] was invoked.\" t nil)\n\n(autoload 'xref-marker-stack-empty-p \"xref\" \"\\\nWhether the xref back-history is empty.\" nil nil)\n\n(autoload 'xref-forward-history-empty-p \"xref\" \"\\\nWhether the xref forward-history is empty.\" nil nil)\n\n(autoload 'xref-show-xrefs \"xref\" \"\\\nDisplay some Xref values produced by FETCHER using DISPLAY-ACTION.\nThe meanings of both arguments are the same as documented in\n`xref-show-xrefs-function'.\n\n\\(fn FETCHER DISPLAY-ACTION)\" nil nil)\n\n(autoload 'xref-find-definitions \"xref\" \"\\\nFind the definition of the identifier at point.\nWith prefix argument or when there's no identifier at point,\nprompt for it.\n\nIf sufficient information is available to determine a unique\ndefinition for IDENTIFIER, display it in the selected window.\nOtherwise, display the list of the possible definitions in a\nbuffer where the user can select from the list.\n\nUse \\\\[xref-go-back] to return back to where you invoked this command.\n\n\\(fn IDENTIFIER)\" t nil)\n\n(autoload 'xref-find-definitions-other-window \"xref\" \"\\\nLike `xref-find-definitions' but switch to the other window.\n\n\\(fn IDENTIFIER)\" t nil)\n\n(autoload 'xref-find-definitions-other-frame \"xref\" \"\\\nLike `xref-find-definitions' but switch to the other frame.\n\n\\(fn IDENTIFIER)\" t nil)\n\n(autoload 'xref-find-references \"xref\" \"\\\nFind references to the identifier at point.\nThis command might prompt for the identifier as needed, perhaps\noffering the symbol at point as the default.\nWith prefix argument, or if `xref-prompt-for-identifier' is t,\nalways prompt for the identifier. If `xref-prompt-for-identifier'\nis nil, prompt only if there's no usable symbol at point.\n\n\\(fn IDENTIFIER)\" t nil)\n\n(autoload 'xref-find-definitions-at-mouse \"xref\" \"\\\nFind the definition of identifier at or around mouse click.\nThis command is intended to be bound to a mouse event.\n\n\\(fn EVENT)\" t nil)\n\n(autoload 'xref-find-references-at-mouse \"xref\" \"\\\nFind references to the identifier at or around mouse click.\nThis command is intended to be bound to a mouse event.\n\n\\(fn EVENT)\" t nil)\n\n(autoload 'xref-find-apropos \"xref\" \"\\\nFind all meaningful symbols that match PATTERN.\nThe argument has the same meaning as in `apropos'.\nSee `tags-apropos-additional-actions' for how to augment the\noutput of this command when the backend is etags.\n\n\\(fn PATTERN)\" t nil)\n (define-key esc-map \".\" #'xref-find-definitions)\n (define-key esc-map \",\" #'xref-go-back)\n (define-key esc-map [?\\C-,] #'xref-go-forward)\n (define-key esc-map \"?\" #'xref-find-references)\n (define-key esc-map [?\\C-.] #'xref-find-apropos)\n (define-key ctl-x-4-map \".\" #'xref-find-definitions-other-window)\n (define-key ctl-x-5-map \".\" #'xref-find-definitions-other-frame)\n\n(autoload 'xref-references-in-directory \"xref\" \"\\\nFind all references to SYMBOL in directory DIR.\nReturn a list of xref values.\n\nThis function uses the Semantic Symbol Reference API, see\n`semantic-symref-tool-alist' for details on which tools are used,\nand when.\n\n\\(fn SYMBOL DIR)\" nil nil)\n\n(autoload 'xref-matches-in-directory \"xref\" \"\\\nFind all matches for REGEXP in directory DIR.\nReturn a list of xref values.\nOnly files matching some of FILES and none of IGNORES are searched.\nFILES is a string with glob patterns separated by spaces.\nIGNORES is a list of glob patterns for files to ignore.\n\n\\(fn REGEXP FILES DIR IGNORES)\" nil nil)\n\n(autoload 'xref-matches-in-files \"xref\" \"\\\nFind all matches for REGEXP in FILES.\nReturn a list of xref values.\nFILES must be a list of absolute file names.\n\nSee `xref-search-program' and `xref-search-program-alist' for how\nto control which program to use when looking for matches.\n\n\\(fn REGEXP FILES)\" nil nil)\n\n(register-definition-prefixes \"xref\" '(\"xref-\"))\n\n;;;***\n\f\n;;;### (autoloads nil nil (\"xref-pkg.el\") (0 0 0 0))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; xref-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"xref-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":758192},"to":{"change":7,"start":839115,"end":839150},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":839150},"to":{"change":7,"start":838862,"end":838862},"introduced_by":7}],"inode":{"change":7,"pos":838862}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":838862},"to":{"change":7,"start":838863,"end":839114},"introduced_by":7}],"inode":{"change":7,"pos":838862}},"content":[{"Del":";; Generated package description from xref.el -*- no-byte-compile: t -*-\n(define-package \"xref\" \"1.5.1\" \"Cross-referencing commands\" '((emacs \"26.1\")) :commit \"e0f137f079c346c5cb05f738ed96e9a09aaad4e6\" :url \"https://elpa.gnu.org/packages/xref.html\")\n"}]}},{"FileDel":{"deleted_names":[{"basename":"xref.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":758192},"to":{"change":7,"start":838829,"end":838860},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":838860},"to":{"change":7,"start":758216,"end":758216},"introduced_by":7}],"inode":{"change":7,"pos":758216}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":758216},"to":{"change":7,"start":758217,"end":838828},"introduced_by":7}],"inode":{"change":7,"pos":758216}},"content":[{"Del":";;; xref.el --- Cross-referencing commands -*-lexical-binding:t-*-\n\n;; Copyright (C) 2014-2022 Free Software Foundation, Inc.\n;; Version: 1.5.1\n;; Package-Requires: ((emacs \"26.1\"))\n\n;; This is a GNU ELPA :core package. Avoid functionality that is not\n;; compatible with the version of Emacs recorded above.\n\n;; This file is part of GNU Emacs.\n\n;; GNU Emacs is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; GNU Emacs is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with GNU Emacs. If not, see .\n\n;;; Commentary:\n\n;; This file provides a somewhat generic infrastructure for cross\n;; referencing commands, in particular \"find-definition\".\n;;\n;; Some part of the functionality must be implemented in a language\n;; dependent way and that's done by defining an xref backend.\n;;\n;; That consists of a constructor function, which should return a\n;; backend value, and a set of implementations for the generic\n;; functions:\n;;\n;; `xref-backend-identifier-at-point',\n;; `xref-backend-identifier-completion-table',\n;; `xref-backend-definitions', `xref-backend-references',\n;; `xref-backend-apropos', which see.\n;;\n;; A major mode would normally use `add-hook' to add the backend\n;; constructor to `xref-backend-functions'.\n;;\n;; The last three methods operate with \"xref\" and \"location\" values.\n;;\n;; One would usually call `xref-make' and `xref-make-file-location',\n;; `xref-make-buffer-location' or `xref-make-bogus-location' to create\n;; them. More generally, a location must be an instance of a type for\n;; which methods `xref-location-group' and `xref-location-marker' are\n;; implemented.\n;;\n;; There's a special kind of xrefs we call \"match xrefs\", which\n;; correspond to search results. For these values,\n;; `xref-match-length' must be defined, and `xref-location-marker'\n;; must return the beginning of the match.\n;;\n;; Each identifier must be represented as a string. Implementers can\n;; use string properties to store additional information about the\n;; identifier, but they should keep in mind that values returned from\n;; `xref-backend-identifier-completion-table' should still be\n;; distinct, because the user can't see the properties when making the\n;; choice.\n;;\n;; Older versions of Xref used EIEIO for implementation of the\n;; built-in types, and included a class called `xref-location' which\n;; was supposed to be inherited from. Neither is true anymore.\n;;\n;; See the etags and elisp-mode implementations for full examples.\n\n;;; Code:\n\n(require 'cl-lib)\n(require 'ring)\n(require 'project)\n\n(eval-and-compile\n (when (version< emacs-version \"28.0.60\")\n ;; etags.el in Emacs 26 and 27 uses EIEIO, and its location type\n ;; inherits from `xref-location'.\n (require 'eieio)\n\n ;; Suppressing byte-compilation warnings (in Emacs 28+) about\n ;; `defclass' not being defined, which happens because the\n ;; `require' statement above is not evaluated either.\n ;; FIXME: Use `with-suppressed-warnings' when we stop supporting Emacs 26.\n (with-no-warnings\n (defclass xref-location () ()\n :documentation \"(Obsolete) location represents a position in a file or buffer.\"))))\n\n(defgroup xref nil \"Cross-referencing commands.\"\n :version \"25.1\"\n :group 'tools)\n\n\f\n;;; Locations\n\n(cl-defgeneric xref-location-marker (location)\n \"Return the marker for LOCATION.\")\n\n(cl-defgeneric xref-location-group (location)\n \"Return a string used to group a set of locations.\nThis is typically a file name, but can also be a package name, or\nsome other label.\n\nWhen it is a file name, it should be the \\\"expanded\\\" version.\")\n\n(cl-defgeneric xref-location-line (_location)\n \"Return the line number corresponding to the location.\"\n nil)\n\n(cl-defgeneric xref-match-length (_item)\n \"Return the length of the match.\"\n nil)\n\n;;;; Commonly needed location types are defined here:\n\n(defcustom xref-file-name-display 'project-relative\n \"Style of file name display in *xref* buffers.\n\nIf the value is the symbol `abs', show the file names in their\nfull absolute form.\n\nIf `nondirectory', show only the nondirectory (a.k.a. \\\"base name\\\")\npart of the file name.\n\nIf `project-relative', the default, show only the file name\nrelative to the current project root. If there is no current\nproject, or if the file resides outside of its root, show that\nparticular file name in its full absolute form.\"\n :type '(choice (const :tag \"absolute file name\" abs)\n (const :tag \"nondirectory file name\" nondirectory)\n (const :tag \"relative to project root\" project-relative))\n :version \"27.1\")\n\n;; FIXME: might be useful to have an optional \"hint\" i.e. a string to\n;; search for in case the line number is slightly out of date.\n(cl-defstruct (xref-file-location\n (:constructor xref-make-file-location (file line column)))\n \"A file location is a file/line/column triple.\nLine numbers start from 1 and columns from 0.\"\n file line column)\n\n(cl-defmethod xref-location-group ((l xref-file-location))\n (xref-file-location-file l))\n\n(cl-defmethod xref-location-line ((l xref-file-location))\n (xref-file-location-line l))\n\n(cl-defmethod xref-location-marker ((l xref-file-location))\n (pcase-let (((cl-struct xref-file-location file line column) l))\n (with-current-buffer\n (or (get-file-buffer file)\n (let ((find-file-suppress-same-file-warnings t))\n (find-file-noselect file)))\n (save-restriction\n (widen)\n (save-excursion\n (goto-char (point-min))\n (ignore-errors\n ;; xref location may be out of date; it may be past the\n ;; end of the current file, or the file may have been\n ;; deleted. Return a reasonable location; the user will\n ;; figure it out.\n (beginning-of-line line)\n (forward-char column))\n (point-marker))))))\n\n(cl-defstruct (xref-buffer-location\n (:constructor xref-make-buffer-location (buffer position)))\n buffer position)\n\n(cl-defmethod xref-location-marker ((l xref-buffer-location))\n (pcase-let (((cl-struct xref-buffer-location buffer position) l))\n (let ((m (make-marker)))\n (move-marker m position buffer))))\n\n(cl-defmethod xref-location-group ((l xref-buffer-location))\n (pcase-let (((cl-struct xref-buffer-location buffer) l))\n (or (buffer-file-name buffer)\n (format \"(buffer %s)\" (buffer-name buffer)))))\n\n(cl-defstruct (xref-bogus-location\n (:constructor xref-make-bogus-location (message)))\n \"Bogus locations are sometimes useful to indicate errors,\ne.g. when we know that a function exists but the actual location\nis not known.\"\n message)\n\n(cl-defmethod xref-location-marker ((l xref-bogus-location))\n (user-error \"%s\" (xref-bogus-location-message l)))\n\n(cl-defmethod xref-location-group ((_ xref-bogus-location)) \"(No location)\")\n\n\f\n;;; Cross-reference\n\n(defmacro xref--defstruct (name &rest fields)\n (declare (indent 1))\n `(cl-defstruct ,(if (>= emacs-major-version 27)\n name\n (remq (assq :noinline name) name))\n ,@fields))\n\n(xref--defstruct (xref-item\n (:constructor xref-make (summary location))\n (:noinline t))\n \"An xref item describes a reference to a location somewhere.\"\n (summary nil :documentation \"String which describes the location.\n\nWhen `xref-location-line' returns non-nil (a number), the summary\nis implied to be the contents of a file or buffer line containing\nthe location. When multiple locations in a row report the same\nline, in the same group (corresponding to the case of multiple\nlocations on one line), the summaries are concatenated in the\nXref output buffer. Consequently, any code that creates xref\nvalues should take care to slice the summary values when several\nlocations point to the same line.\n\nThis behavior is new in Emacs 28.\")\n location)\n\n(xref--defstruct (xref-match-item\n (:include xref-item)\n (:constructor xref-make-match (summary location length))\n (:noinline t))\n \"A match xref item describes a search result.\"\n length)\n\n(cl-defmethod xref-match-length ((item xref-match-item))\n \"Return the length of the match.\"\n (xref-match-item-length item))\n\n\f\n;;; API\n\n(defvar xref-backend-functions nil\n \"Special hook to find the xref backend for the current context.\nEach function on this hook is called in turn with no arguments,\nand should return either nil to mean that it is not applicable,\nor an xref backend, which is a value to be used to dispatch the\ngeneric functions.\")\n\n;; We make the etags backend the default for now, until something\n;; better comes along. Use APPEND so that any `add-hook' calls made\n;; before this package is loaded put new items before this one.\n(add-hook 'xref-backend-functions #'etags--xref-backend t)\n\n;;;###autoload\n(defun xref-find-backend ()\n (run-hook-with-args-until-success 'xref-backend-functions))\n\n(cl-defgeneric xref-backend-definitions (backend identifier)\n \"Find definitions of IDENTIFIER.\n\nThe result must be a list of xref objects. If IDENTIFIER\ncontains sufficient information to determine a unique definition,\nreturn only that definition. If there are multiple possible\ndefinitions, return all of them. If no definitions can be found,\nreturn nil.\n\nIDENTIFIER can be any string returned by\n`xref-backend-identifier-at-point', or from the table returned by\n`xref-backend-identifier-completion-table'.\n\nTo create an xref object, call `xref-make'.\")\n\n(cl-defgeneric xref-backend-references (_backend identifier)\n \"Find references of IDENTIFIER.\nThe result must be a list of xref objects. If no references can\nbe found, return nil.\n\nThe default implementation uses `semantic-symref-tool-alist' to\nfind a search tool; by default, this uses \\\"find | grep\\\" in the\ncurrent project's main and external roots.\"\n (mapcan\n (lambda (dir)\n (message \"Searching %s...\" dir)\n (redisplay)\n (prog1\n (xref-references-in-directory identifier dir)\n (message \"Searching %s... done\" dir)))\n (let ((pr (project-current t)))\n (cons\n (xref--project-root pr)\n (project-external-roots pr)))))\n\n(cl-defgeneric xref-backend-apropos (backend pattern)\n \"Find all symbols that match PATTERN string.\nThe second argument has the same meaning as in `apropos'.\n\nIf BACKEND is implemented in Lisp, it can use\n`xref-apropos-regexp' to convert the pattern to regexp.\")\n\n(cl-defgeneric xref-backend-identifier-at-point (_backend)\n \"Return the relevant identifier at point.\n\nThe return value must be a string, or nil meaning no identifier\nat point found.\n\nIf it's hard to determine the identifier precisely (e.g., because\nit's a method call on unknown type), the implementation can\nreturn a simple string (such as symbol at point) marked with a\nspecial text property which e.g. `xref-backend-definitions' would\nrecognize and then delegate the work to an external process.\"\n (let ((thing (thing-at-point 'symbol)))\n (and thing (substring-no-properties thing))))\n\n(cl-defgeneric xref-backend-identifier-completion-table (backend)\n \"Return the completion table for identifiers.\")\n\n(cl-defgeneric xref-backend-identifier-completion-ignore-case (_backend)\n \"Return t if case is not significant in identifier completion.\"\n completion-ignore-case)\n\n\f\n;;; misc utilities\n(defun xref--alistify (list key)\n \"Partition the elements of LIST into an alist.\nKEY extracts the key from an element.\"\n (let ((table (make-hash-table :test #'equal)))\n (dolist (e list)\n (let* ((k (funcall key e))\n (probe (gethash k table)))\n (if probe\n (puthash k (cons e probe) table)\n (puthash k (list e) table))))\n ;; Put them back in order.\n (cl-loop for key being hash-keys of table using (hash-values value)\n collect (cons key (nreverse value)))))\n\n(defun xref--insert-propertized (props &rest strings)\n \"Insert STRINGS with text properties PROPS.\"\n (let ((start (point)))\n (apply #'insert strings)\n (add-text-properties start (point) props)))\n\n(defun xref--search-property (property &optional backward)\n \"Search the next text range where text property PROPERTY is non-nil.\nReturn the value of PROPERTY. If BACKWARD is non-nil, search\nbackward.\"\n (let ((next (if backward\n #'previous-single-char-property-change\n #'next-single-char-property-change))\n (start (point))\n (value nil))\n (while (progn\n (goto-char (funcall next (point) property))\n (not (or (setq value (get-text-property (point) property))\n (eobp)\n (bobp)))))\n (cond (value)\n (t (goto-char start) nil))))\n\n\f\n;; Dummy variable retained for compatibility.\n(defvar xref-marker-ring-length 16)\n(make-obsolete-variable 'xref-marker-ring-length nil \"29.1\")\n\n(defcustom xref-prompt-for-identifier '(not xref-find-definitions\n xref-find-definitions-other-window\n xref-find-definitions-other-frame)\n \"If non-nil, prompt for the identifier to find.\n\nWhen t, always prompt for the identifier name.\n\nWhen nil, prompt only when there's no value at point we can use,\nor when the command has been called with the prefix argument.\n\nOtherwise, it's a list of xref commands which will always prompt,\nwith the identifier at point, if any, used as the default.\nIf the list starts with `not', the meaning of the rest of the\nelements is negated: these commands will NOT prompt.\"\n :type '(choice (const :tag \"Always prompt for identifier\" t)\n (const :tag \"Prompt if no identifier at point\" nil)\n (set :menu-tag \"Prompt according to command\"\n :tag \"Prompt according to command\"\n\t\t :value (not)\n\t\t (const :tag \"Except for commands listed below\" not)\n\t\t (repeat :inline t (symbol :tag \"command\")))))\n\n(defcustom xref-after-jump-hook '(recenter\n xref-pulse-momentarily)\n \"Functions called after jumping to an xref.\nAlso see `xref-current-item'.\"\n :type 'hook)\n\n(defcustom xref-after-return-hook '(xref-pulse-momentarily)\n \"Functions called after returning to a pre-jump location.\"\n :type 'hook)\n\n(defcustom xref-after-update-hook nil\n \"Functions called after the xref buffer is updated.\"\n :type 'hook\n :version \"28.1\"\n :package-version '(xref . \"1.0.4\"))\n\n(defcustom xref-auto-jump-to-first-definition nil\n \"If t, `xref-find-definitions' always jumps to the first result.\n`show' means to show the first result's location, but keep the\nfocus on the Xref buffer's window.\n`move' means to only move point to the first result.\nThis variable also affects the variants of `xref-find-definitions',\nsuch as `xref-find-definitions-other-window'.\"\n :type '(choice (const :tag \"Jump\" t)\n (const :tag \"Show\" show)\n (const :tag \"Move point only\" move)\n (const :tag \"No auto-jump\" nil))\n :version \"28.1\"\n :package-version '(xref . \"1.2.0\"))\n\n(defcustom xref-auto-jump-to-first-xref nil\n \"If t, `xref-find-references' always jumps to the first result.\n`show' means to show the first result's location, but keep the\nfocus on the Xref buffer's window.\n`move' means to only move point to the first result.\nThis variable also affects commands similar to `xref-find-references',\nsuch as `xref-find-references-at-mouse', `xref-find-apropos',\nand `project-find-regexp'.\n\nPlease be careful when changing the value if you are using Emacs 27\nor earlier: it can break `dired-do-find-regexp-and-replace'.\"\n :type '(choice (const :tag \"Jump\" t)\n (const :tag \"Show\" show)\n (const :tag \"Move point only\" move)\n (const :tag \"No auto-jump\" nil))\n :version \"28.1\"\n :package-version '(xref . \"1.2.0\"))\n\n(make-obsolete-variable 'xref--marker-ring 'xref--history \"29.1\")\n\n(defun xref-set-marker-ring-length (_var _val)\n (declare (obsolete nil \"29.1\"))\n nil)\n\n(defvar xref--history (cons nil nil)\n \"(BACKWARD-STACK . FORWARD-STACK) of markers to visited Xref locations.\")\n\n(defun xref--push-backward (m)\n \"Push marker M onto the backward history stack.\"\n (unless (equal m (caar xref--history))\n (push m (car xref--history))))\n\n(defun xref--push-forward (m)\n \"Push marker M onto the forward history stack.\"\n (unless (equal m (cadr xref--history))\n (push m (cdr xref--history))))\n\n(defun xref-push-marker-stack (&optional m)\n \"Add point M (defaults to `point-marker') to the marker stack.\nThe future stack is erased.\"\n (xref--push-backward (or m (point-marker)))\n (dolist (mk (cdr xref--history))\n (set-marker mk nil nil))\n (setcdr xref--history nil))\n\n;;;###autoload\n(define-obsolete-function-alias 'xref-pop-marker-stack #'xref-go-back \"29.1\")\n\n;;;###autoload\n(defun xref-go-back ()\n \"Go back to the previous position in xref history.\nTo undo, use \\\\[xref-go-forward].\"\n (interactive)\n (if (null (car xref--history))\n (user-error \"At start of xref history\")\n (let ((marker (pop (car xref--history))))\n (xref--push-forward (point-marker))\n (switch-to-buffer (or (marker-buffer marker)\n (user-error \"The marked buffer has been deleted\")))\n (goto-char (marker-position marker))\n (set-marker marker nil nil)\n (run-hooks 'xref-after-return-hook))))\n\n;;;###autoload\n(defun xref-go-forward ()\n \"Got to the point where a previous \\\\[xref-go-back] was invoked.\"\n (interactive)\n (if (null (cdr xref--history))\n (user-error \"At end of xref history\")\n (let ((marker (pop (cdr xref--history))))\n (xref--push-backward (point-marker))\n (switch-to-buffer (or (marker-buffer marker)\n (user-error \"The marked buffer has been deleted\")))\n (goto-char (marker-position marker))\n (set-marker marker nil nil)\n (run-hooks 'xref-after-return-hook))))\n\n(define-obsolete-variable-alias\n 'xref--current-item\n 'xref-current-item\n \"29.1\")\n\n(defvar xref-current-item nil\n \"Dynamically bound to the current item being processed.\nThis can be used from `xref-after-jump-hook', for instance.\")\n\n(defun xref-pulse-momentarily ()\n (pcase-let ((`(,beg . ,end)\n (save-excursion\n (or\n (let ((length (xref-match-length xref-current-item)))\n (and length (cons (point) (+ (point) length))))\n (back-to-indentation)\n (if (eolp)\n (cons (line-beginning-position) (1+ (point)))\n (cons (point) (line-end-position)))))))\n (pulse-momentary-highlight-region beg end 'next-error)))\n\n;; etags.el needs this\n(defun xref-clear-marker-stack ()\n \"Discard all markers from the xref history.\"\n (dolist (l (list (car xref--history) (cdr xref--history)))\n (dolist (m l)\n (set-marker m nil nil)))\n (setq xref--history (cons nil nil))\n nil)\n\n;;;###autoload\n(defun xref-marker-stack-empty-p ()\n \"Whether the xref back-history is empty.\"\n (null (car xref--history)))\n;; FIXME: rename this to `xref-back-history-empty-p'.\n\n;;;###autoload\n(defun xref-forward-history-empty-p ()\n \"Whether the xref forward-history is empty.\"\n (null (cdr xref--history)))\n\f\n\n(defun xref--goto-char (pos)\n (cond\n ((and (<= (point-min) pos) (<= pos (point-max))))\n (widen-automatically (widen))\n (t (user-error \"Position is outside accessible part of buffer\")))\n (goto-char pos))\n\n(defun xref--goto-location (location)\n \"Set buffer and point according to `xref-location' LOCATION.\"\n (let ((marker (xref-location-marker location)))\n (set-buffer (marker-buffer marker))\n (xref--goto-char marker)))\n\n(defun xref-pop-to-location (item &optional action)\n \"Go to the location of ITEM and display the buffer.\nACTION controls how the buffer is displayed:\n nil -- `switch-to-buffer'\n `window' -- `pop-to-buffer' (other window)\n `frame' -- `pop-to-buffer' (other frame)\nIf SELECT is non-nil, select the target window.\"\n (let* ((marker (save-excursion\n (xref-location-marker (xref-item-location item))))\n (buf (marker-buffer marker)))\n (cl-ecase action\n ((nil) (switch-to-buffer buf))\n (window (pop-to-buffer buf t))\n (frame (let ((pop-up-frames t)) (pop-to-buffer buf t))))\n (xref--goto-char marker))\n (let ((xref-current-item item))\n (run-hooks 'xref-after-jump-hook)))\n\n\f\n;;; XREF buffer (part of the UI)\n\n;; The xref buffer is used to display a set of xrefs.\n(defconst xref-buffer-name \"*xref*\"\n \"The name of the buffer to show xrefs.\")\n\n(defface xref-file-header '((t :inherit compilation-info))\n \"Face used to highlight file header in the xref buffer.\"\n :version \"27.1\")\n\n(defface xref-line-number '((t :inherit compilation-line-number))\n \"Face for displaying line numbers in the xref buffer.\"\n :version \"27.1\")\n\n(defface xref-match '((t :inherit match))\n \"Face used to highlight matches in the xref buffer.\"\n :version \"27.1\")\n\n(defmacro xref--with-dedicated-window (&rest body)\n `(let* ((xref-w (get-buffer-window xref-buffer-name))\n (xref-w-dedicated (window-dedicated-p xref-w)))\n (unwind-protect\n (progn\n (when xref-w\n (set-window-dedicated-p xref-w 'soft))\n ,@body)\n (when xref-w\n (set-window-dedicated-p xref-w xref-w-dedicated)))))\n\n(defvar-local xref--original-window-intent nil\n \"Original window-switching intent before xref buffer creation.\")\n\n(defvar-local xref--original-window nil\n \"The original window this xref buffer was created from.\")\n\n(defvar-local xref--fetcher nil\n \"The original function to call to fetch the list of xrefs.\")\n\n(defun xref--show-pos-in-buf (pos buf)\n \"Goto and display position POS of buffer BUF in a window.\nHonor `xref--original-window-intent', run `xref-after-jump-hook'\nand finally return the window.\"\n (let* ((pop-up-frames\n (or (eq xref--original-window-intent 'frame)\n pop-up-frames))\n (action\n (cond ((eq xref--original-window-intent 'frame)\n t)\n ((eq xref--original-window-intent 'window)\n `((xref--display-buffer-in-other-window)\n (window . ,xref--original-window)))\n ((and\n (window-live-p xref--original-window)\n (or (not (window-dedicated-p xref--original-window))\n (eq (window-buffer xref--original-window) buf)))\n `((xref--display-buffer-in-window)\n (window . ,xref--original-window))))))\n (with-selected-window (display-buffer buf action)\n (xref--goto-char pos)\n (run-hooks 'xref-after-jump-hook)\n (selected-window))))\n\n(defun xref--display-buffer-in-other-window (buffer alist)\n (let ((window (assoc-default 'window alist)))\n (cl-assert window)\n (xref--with-dedicated-window\n (with-selected-window window\n (display-buffer buffer t)))))\n\n(defun xref--display-buffer-in-window (buffer alist)\n (let ((window (assoc-default 'window alist)))\n (cl-assert window)\n (with-selected-window window\n (display-buffer buffer '(display-buffer-same-window)))))\n\n(defun xref--show-location (location &optional select)\n \"Help `xref-show-xref' and `xref-goto-xref' do their job.\nGo to LOCATION and if SELECT is non-nil select its window. If\nSELECT is `quit', also quit the *xref* window.\"\n (condition-case err\n (let* ((marker (xref-location-marker location))\n (buf (marker-buffer marker))\n (xref-buffer (current-buffer)))\n (cond (select\n (if (eq select 'quit) (quit-window nil nil))\n (let* ((old-frame (selected-frame))\n (window (with-current-buffer xref-buffer\n (xref--show-pos-in-buf marker buf)))\n (frame (window-frame window)))\n ;; If we chose another frame, make sure it gets input\n ;; focus.\n (unless (eq frame old-frame)\n (select-frame-set-input-focus frame))\n (select-window window)))\n (t\n (save-selected-window\n (xref--with-dedicated-window\n (xref--show-pos-in-buf marker buf))))))\n (user-error (message (error-message-string err)))))\n\n(defun xref--set-arrow ()\n \"Set the overlay arrow at the line at point.\"\n (setq overlay-arrow-position\n (set-marker (or overlay-arrow-position (make-marker))\n (line-beginning-position))))\n\n(defun xref-show-location-at-point ()\n \"Display the source of xref at point in the appropriate window, if any.\"\n (interactive)\n (let* ((xref (xref--item-at-point))\n (xref-current-item xref))\n (when xref\n (xref--set-arrow)\n (xref--show-location (xref-item-location xref)))))\n\n(defun xref-next-line-no-show ()\n \"Move to the next xref but don't display its source.\"\n (interactive)\n (xref--search-property 'xref-item))\n\n(defun xref-next-line ()\n \"Move to the next xref and display its source in the appropriate window.\"\n (interactive)\n (xref-next-line-no-show)\n (xref-show-location-at-point))\n\n(defun xref-prev-line-no-show ()\n \"Move to the previous xref but don't display its source.\"\n (interactive)\n (xref--search-property 'xref-item t))\n\n(defun xref-prev-line ()\n \"Move to the previous xref and display its source in the appropriate window.\"\n (interactive)\n (xref-prev-line-no-show)\n (xref-show-location-at-point))\n\n(defun xref-next-group ()\n \"Move to the first item of the next xref group and display its source.\"\n (interactive)\n (xref--search-property 'xref-group)\n (xref--search-property 'xref-item)\n (xref-show-location-at-point))\n\n(defun xref-prev-group ()\n \"Move to the first item of the previous xref group and display its source.\"\n (interactive)\n ;; Search for the xref group of the current item, provided that the\n ;; point is not already in an xref group.\n (unless (plist-member (text-properties-at (point)) 'xref-group)\n (xref--search-property 'xref-group t))\n ;; Search for the previous xref group.\n (xref--search-property 'xref-group t)\n (xref--search-property 'xref-item)\n (xref-show-location-at-point))\n\n(defun xref--item-at-point ()\n (get-text-property\n (if (eolp) (1- (point)) (point))\n 'xref-item))\n\n(defun xref-goto-xref (&optional quit)\n \"Jump to the xref on the current line and select its window.\nIf QUIT is non-nil (interactively, with prefix argument), also\nquit the *xref* buffer.\"\n (interactive \"P\")\n (let* ((buffer (current-buffer))\n (xref (or (xref--item-at-point)\n (user-error \"Choose a reference to visit\")))\n (xref-current-item xref))\n (xref--set-arrow)\n (xref--show-location (xref-item-location xref) (if quit 'quit t))\n (if (fboundp 'next-error-found)\n (next-error-found buffer (current-buffer))\n ;; Emacs < 27\n (setq next-error-last-buffer buffer))))\n\n(defun xref-quit-and-goto-xref ()\n \"Quit *xref* buffer, then jump to xref on current line.\"\n (interactive)\n (xref-goto-xref t))\n\n(defun xref-quit-and-pop-marker-stack ()\n \"Quit *xref* buffer, then pop the xref marker stack.\"\n (interactive)\n (quit-window)\n (xref-go-back))\n\n(defun xref-query-replace-in-results (from to)\n \"Perform interactive replacement of FROM with TO in all displayed xrefs.\n\nThis command interactively replaces FROM with TO in the names of the\nreferences displayed in the current *xref* buffer.\n\nWhen called interactively, it uses '.*' as FROM, which means\nreplace the whole name. Unless called with prefix argument, in\nwhich case the user is prompted for both FROM and TO.\n\nAs each match is found, the user must type a character saying\nwhat to do with it. Type SPC or `y' to replace the match,\nDEL or `n' to skip and go to the next match. For more directions,\ntype \\\\[help-command] at that time.\"\n (interactive\n (let* ((fr\n (if current-prefix-arg\n (read-regexp \"Query-replace (regexp)\" \".*\")\n \".*\"))\n (prompt (if current-prefix-arg\n (format \"Query-replace (regexp) %s with: \" fr)\n \"Query-replace all matches with: \")))\n (list fr (read-regexp prompt))))\n (let* (item xrefs iter)\n (save-excursion\n (while (setq item (xref--search-property 'xref-item))\n (when (xref-match-length item)\n (push item xrefs))))\n (unwind-protect\n (progn\n (goto-char (point-min))\n (setq iter (xref--buf-pairs-iterator (nreverse xrefs)))\n (xref--query-replace-1 from to iter))\n (funcall iter :cleanup))))\n\n(defun xref--buf-pairs-iterator (xrefs)\n (let (chunk-done item next-pair file-buf pairs all-pairs)\n (lambda (action)\n (pcase action\n (:next\n (when (or xrefs next-pair)\n (setq chunk-done nil)\n (when next-pair\n (setq file-buf (marker-buffer (car next-pair))\n pairs (list next-pair)\n next-pair nil))\n (while (and (not chunk-done)\n (setq item (pop xrefs)))\n (save-excursion\n (let* ((loc (xref-item-location item))\n (beg (xref-location-marker loc))\n (end (move-marker (make-marker)\n (+ beg (xref-match-length item))\n (marker-buffer beg))))\n (let ((pair (cons beg end)))\n (push pair all-pairs)\n ;; Perform sanity check first.\n (xref--goto-location loc)\n (if (xref--outdated-p item)\n (message \"Search result out of date, skipping\")\n (cond\n ((null file-buf)\n (setq file-buf (marker-buffer beg))\n (push pair pairs))\n ((equal file-buf (marker-buffer beg))\n (push pair pairs))\n (t\n (setq chunk-done t\n next-pair pair))))))))\n (cons file-buf (nreverse pairs))))\n (:cleanup\n (dolist (pair all-pairs)\n (move-marker (car pair) nil)\n (move-marker (cdr pair) nil)))))))\n\n(defun xref--outdated-p (item)\n \"Check that the match location at current position is up-to-date.\nITEMS is an xref item which \" ; FIXME: Expand documentation.\n ;; FIXME: The check should most likely be a generic function instead\n ;; of the assumption that all matches' summaries relate to the\n ;; buffer text in a particular way.\n (let* ((summary (xref-item-summary item))\n ;; Sometimes buffer contents include ^M, and sometimes Grep\n ;; output includes it, and they don't always match.\n (strip (lambda (s) (if (string-match \"\\r\\\\'\" s)\n (substring-no-properties s 0 -1)\n s)))\n (stripped-summary (funcall strip summary))\n (lendpos (line-end-position))\n (check (lambda ()\n (let ((comparison-end\n (+ (point) (length stripped-summary))))\n (and (>= lendpos comparison-end)\n (equal stripped-summary\n (buffer-substring-no-properties\n (point) comparison-end)))))))\n (not\n (or\n ;; Either summary contains match text and after\n ;; (2nd+ match on the line)...\n (funcall check)\n ;; ...or it starts at bol, includes the match and after.\n (and (< (point) (+ (line-beginning-position)\n (length stripped-summary)))\n (save-excursion\n (forward-line 0)\n (funcall check)))))))\n\n;; FIXME: Write a nicer UI.\n(defun xref--query-replace-1 (from to iter)\n (let* ((query-replace-lazy-highlight nil)\n (continue t)\n did-it-once buf-pairs pairs\n current-beg current-end\n ;; Counteract the \"do the next match now\" hack in\n ;; `perform-replace'. And still, it'll report that those\n ;; matches were \"filtered out\" at the end.\n (isearch-filter-predicate\n (lambda (beg end)\n (and current-beg\n (>= beg current-beg)\n (<= end current-end))))\n (replace-re-search-function\n (lambda (from &optional _bound noerror)\n (let (found pair)\n (while (and (not found) pairs)\n (setq pair (pop pairs)\n current-beg (car pair)\n current-end (cdr pair))\n (goto-char current-beg)\n (when (re-search-forward from current-end noerror)\n (setq found t)))\n found))))\n (while (and continue (setq buf-pairs (funcall iter :next)))\n (if did-it-once\n ;; Reuse the same window for subsequent buffers.\n (switch-to-buffer (car buf-pairs))\n (xref--with-dedicated-window\n (pop-to-buffer (car buf-pairs)))\n (setq did-it-once t))\n (setq pairs (cdr buf-pairs))\n (setq continue\n (perform-replace from to t t nil nil multi-query-replace-map)))\n (unless did-it-once (user-error \"No suitable matches here\"))\n (when (and continue (not buf-pairs))\n (message \"All results processed\"))))\n\n(defvar xref--xref-buffer-mode-map\n (let ((map (make-sparse-keymap)))\n (define-key map (kbd \"n\") #'xref-next-line)\n (define-key map (kbd \"p\") #'xref-prev-line)\n (define-key map (kbd \"N\") #'xref-next-group)\n (define-key map (kbd \"P\") #'xref-prev-group)\n (define-key map (kbd \"r\") #'xref-query-replace-in-results)\n (define-key map (kbd \"RET\") #'xref-goto-xref)\n (define-key map (kbd \"TAB\") #'xref-quit-and-goto-xref)\n (define-key map (kbd \"C-o\") #'xref-show-location-at-point)\n ;; suggested by Johan Claesson \"to further reduce finger movement\":\n (define-key map (kbd \".\") #'xref-next-line)\n (define-key map (kbd \",\") #'xref-prev-line)\n (define-key map (kbd \"g\") #'xref-revert-buffer)\n (define-key map (kbd \"M-,\") #'xref-quit-and-pop-marker-stack)\n map))\n\n(define-derived-mode xref--xref-buffer-mode special-mode \"XREF\"\n \"Mode for displaying cross-references.\"\n (setq buffer-read-only t)\n (setq next-error-function #'xref--next-error-function)\n (setq next-error-last-buffer (current-buffer))\n (setq imenu-prev-index-position-function\n #'xref--imenu-prev-index-position)\n (setq imenu-extract-index-name-function\n #'xref--imenu-extract-index-name))\n\n(defvar xref--transient-buffer-mode-map\n (let ((map (make-sparse-keymap)))\n (define-key map (kbd \"RET\") #'xref-quit-and-goto-xref)\n (set-keymap-parent map xref--xref-buffer-mode-map)\n map))\n\n(define-derived-mode xref--transient-buffer-mode\n xref--xref-buffer-mode\n \"XREF Transient\")\n\n(defun xref--imenu-prev-index-position ()\n \"Move point to previous line in `xref' buffer.\nThis function is used as a value for\n`imenu-prev-index-position-function'.\"\n (if (bobp)\n nil\n (xref--search-property 'xref-group t)))\n\n(defun xref--imenu-extract-index-name ()\n \"Return imenu name for line at point.\nThis function is used as a value for\n`imenu-extract-index-name-function'. Point should be at the\nbeginning of the line.\"\n (buffer-substring-no-properties (line-beginning-position)\n (line-end-position)))\n\n(defun xref--next-error-function (n reset?)\n (when reset?\n (goto-char (point-min)))\n (let ((backward (< n 0))\n (n (abs n))\n (xref nil))\n (if (= n 0)\n (setq xref (get-text-property (point) 'xref-item))\n (dotimes (_ n)\n (setq xref (xref--search-property 'xref-item backward))))\n (cond (xref\n ;; Save the current position (when the buffer is visible,\n ;; it gets reset to that window's point from time to time).\n (let ((win (get-buffer-window (current-buffer))))\n (and win (set-window-point win (point))))\n (xref--set-arrow)\n (let ((xref-current-item xref))\n (xref--show-location (xref-item-location xref) t)))\n (t\n (error \"No %s xref\" (if backward \"previous\" \"next\"))))))\n\n(defvar xref--button-map\n (let ((map (make-sparse-keymap)))\n (define-key map [follow-link] 'mouse-face)\n (define-key map [mouse-2] #'xref-goto-xref)\n map))\n\n(defun xref-select-and-show-xref (event)\n \"Move point to the button and show the xref definition.\nThe window showing the xref buffer will be selected.\"\n (interactive \"e\")\n (mouse-set-point event)\n (forward-line 0)\n (or (get-text-property (point) 'xref-item)\n (xref--search-property 'xref-item))\n (xref-show-location-at-point))\n\n(define-obsolete-function-alias\n 'xref--mouse-2 #'xref-select-and-show-xref \"28.1\")\n\n(defcustom xref-truncation-width 400\n \"The column to visually \\\"truncate\\\" each Xref buffer line to.\"\n :type '(choice\n (integer :tag \"Number of columns\")\n (const :tag \"Disable truncation\" nil)))\n\n(defun xref--apply-truncation ()\n (let ((bol (line-beginning-position))\n (eol (line-end-position))\n (inhibit-read-only t)\n pos adjusted-bol)\n (when (and xref-truncation-width\n (> (- eol bol) xref-truncation-width)\n ;; Either truncation not applied yet, or it hides the current\n ;; position: need to refresh.\n (or (and (null (get-text-property (1- eol) 'invisible))\n (null (get-text-property bol 'invisible)))\n (get-text-property (point) 'invisible)))\n (setq adjusted-bol\n (cond\n ((eq (get-text-property bol 'face) 'xref-line-number)\n (next-single-char-property-change bol 'face))\n (t bol)))\n (cond\n ((< (- (point) bol) xref-truncation-width)\n (setq pos (+ bol xref-truncation-width))\n (remove-text-properties bol pos '(invisible))\n (put-text-property pos eol 'invisible 'ellipsis))\n ((< (- eol (point)) xref-truncation-width)\n (setq pos (- eol xref-truncation-width))\n (remove-text-properties pos eol '(invisible))\n (put-text-property adjusted-bol pos 'invisible 'ellipsis))\n (t\n (setq pos (- (point) (/ xref-truncation-width 2)))\n (put-text-property adjusted-bol pos 'invisible 'ellipsis)\n (remove-text-properties pos (+ pos xref-truncation-width) '(invisible))\n (put-text-property (+ pos xref-truncation-width) eol 'invisible 'ellipsis))))))\n\n(defun xref--insert-xrefs (xref-alist)\n \"Insert XREF-ALIST in the current buffer.\nXREF-ALIST is of the form ((GROUP . (XREF ...)) ...), where\nGROUP is a string for decoration purposes and XREF is an\n`xref-item' object.\"\n (require 'compile) ; For the compilation faces.\n (cl-loop for (group . xrefs) in xref-alist\n for max-line = (cl-loop for xref in xrefs\n maximize (xref-location-line\n (xref-item-location xref)))\n for line-format = (and max-line\n (format \"%%%dd: \" (1+ (floor (log max-line 10)))))\n with item-text-props = (list 'mouse-face 'highlight\n 'keymap xref--button-map\n 'help-echo\n (concat \"mouse-2: display in another window, \"\n \"RET or mouse-1: follow reference\"))\n with prev-group = nil\n with prev-line = nil\n do\n (xref--insert-propertized '(face xref-file-header xref-group t)\n group \"\\n\")\n (dolist (xref xrefs)\n (pcase-let (((cl-struct xref-item summary location) xref))\n (let* ((line (xref-location-line location))\n (prefix\n (cond\n ((not line) \" \")\n ((and (equal line prev-line)\n (equal prev-group group))\n \"\")\n (t (propertize (format line-format line)\n 'face 'xref-line-number)))))\n ;; Render multiple matches on the same line, together.\n (when (and (equal prev-group group)\n (or (null line)\n (not (equal prev-line line))))\n (insert \"\\n\"))\n (xref--insert-propertized (nconc (list 'xref-item xref)\n item-text-props)\n prefix summary)\n (setq prev-line line\n prev-group group))))\n (insert \"\\n\"))\n (add-to-invisibility-spec '(ellipsis . t))\n (save-excursion\n (goto-char (point-min))\n (while (= 0 (forward-line 1))\n (xref--apply-truncation)))\n (run-hooks 'xref-after-update-hook))\n\n(defun xref--group-name-for-display (group project-root)\n \"Return GROUP formatted in the preferred style.\n\nThe style is determined by the value of `xref-file-name-display'.\nIf GROUP looks like a file name, its value is formatted according\nto that style. Otherwise it is returned unchanged.\"\n ;; XXX: The way we verify that it's indeed a file name and not some\n ;; other kind of string, e.g. Java package name or TITLE from\n ;; `tags-apropos-additional-actions', is pretty lax. But we don't\n ;; want to use `file-exists-p' for performance reasons. If this\n ;; ever turns out to be a problem, some other alternatives are to\n ;; either have every location type which uses file names format the\n ;; values themselves (e.g. by piping through some public function),\n ;; or adding a new accessor to locations, like GROUP-TYPE.\n (cl-ecase xref-file-name-display\n (abs group)\n (nondirectory\n (if (string-match-p \"\\\\`~?/\" group)\n (file-name-nondirectory group)\n group))\n (project-relative\n (if (and project-root\n (string-prefix-p project-root group))\n (substring group (length project-root))\n group))))\n\n(defun xref--analyze (xrefs)\n \"Find common groups in XREFS and format group names.\nReturn an alist of the form ((GROUP . (XREF ...)) ...).\"\n (let* ((alist\n (xref--alistify xrefs\n (lambda (x)\n (xref-location-group (xref-item-location x)))))\n (project (and\n (eq xref-file-name-display 'project-relative)\n (project-current)))\n (project-root (and project\n (expand-file-name (xref--project-root project)))))\n (mapcar\n (lambda (pair)\n (cons (xref--group-name-for-display (car pair) project-root)\n (cdr pair)))\n alist)))\n\n(defun xref--ensure-default-directory (dd buffer)\n ;; We might be in a let-binding which will restore the current value\n ;; to a previous one (bug#53626). So do this later.\n (run-with-timer\n 0 nil\n (lambda () (with-current-buffer buffer (setq default-directory dd)))))\n\n(defun xref--show-xref-buffer (fetcher alist)\n (cl-assert (functionp fetcher))\n (let* ((xrefs\n (or\n (assoc-default 'fetched-xrefs alist)\n (funcall fetcher)))\n (xref-alist (xref--analyze xrefs))\n (dd default-directory)\n buf)\n (with-current-buffer (get-buffer-create xref-buffer-name)\n (xref--ensure-default-directory dd (current-buffer))\n (xref--xref-buffer-mode)\n (xref--show-common-initialize xref-alist fetcher alist)\n (pop-to-buffer (current-buffer))\n (setq buf (current-buffer)))\n (xref--auto-jump-first buf (assoc-default 'auto-jump alist))\n buf))\n\n(defun xref--project-root (project)\n (if (fboundp 'project-root)\n (project-root project)\n (with-no-warnings\n (car (project-roots project)))))\n\n(defun xref--show-common-initialize (xref-alist fetcher alist)\n (setq buffer-undo-list nil)\n (let ((inhibit-read-only t)\n (buffer-undo-list t)\n (inhibit-modification-hooks t))\n (erase-buffer)\n (setq overlay-arrow-position nil)\n (xref--insert-xrefs xref-alist)\n (add-hook 'post-command-hook 'xref--apply-truncation nil t)\n (goto-char (point-min))\n (setq xref--original-window (assoc-default 'window alist)\n xref--original-window-intent (assoc-default 'display-action alist))\n (setq xref--fetcher fetcher)))\n\n(defun xref-revert-buffer ()\n \"Refresh the search results in the current buffer.\"\n (interactive)\n (let ((inhibit-read-only t)\n (buffer-undo-list t)\n (inhibit-modification-hooks t))\n (save-excursion\n (condition-case err\n (let ((alist (xref--analyze (funcall xref--fetcher))))\n (erase-buffer)\n (xref--insert-xrefs alist))\n (user-error\n (erase-buffer)\n (insert\n (propertize\n (error-message-string err)\n 'face 'error)))))))\n\n(defun xref--auto-jump-first (buf value)\n (when value\n (select-window (get-buffer-window buf))\n (goto-char (point-min)))\n (cond\n ((eq value t)\n (xref-next-line-no-show)\n (xref-goto-xref))\n ((eq value 'show)\n (xref-next-line))\n ((eq value 'move)\n (forward-line 1))))\n\n(defun xref-show-definitions-buffer (fetcher alist)\n \"Show the definitions list in a regular window.\n\nWhen only one definition found, jump to it right away instead.\"\n (let ((xrefs (funcall fetcher))\n buf)\n (cond\n ((not (cdr xrefs))\n (xref-pop-to-location (car xrefs)\n (assoc-default 'display-action alist)))\n (t\n (setq buf\n (xref--show-xref-buffer fetcher\n (cons (cons 'fetched-xrefs xrefs)\n alist)))\n (xref--auto-jump-first buf (assoc-default 'auto-jump alist))\n buf))))\n\n(define-obsolete-function-alias\n 'xref--show-defs-buffer #'xref-show-definitions-buffer \"28.1\")\n\n(defun xref-show-definitions-buffer-at-bottom (fetcher alist)\n \"Show the definitions list in a window at the bottom.\n\nWhen there is more than one definition, split the selected window\nand show the list in a small window at the bottom. And use a\nlocal keymap that binds `RET' to `xref-quit-and-goto-xref'.\"\n (let* ((xrefs (funcall fetcher))\n (dd default-directory)\n ;; XXX: Make percentage customizable maybe?\n (max-height (/ (window-height) 2))\n (size-fun (lambda (window)\n (fit-window-to-buffer window max-height)))\n buf)\n (cond\n ((not (cdr xrefs))\n (xref-pop-to-location (car xrefs)\n (assoc-default 'display-action alist)))\n (t\n (with-current-buffer (get-buffer-create xref-buffer-name)\n (xref--ensure-default-directory dd (current-buffer))\n (xref--transient-buffer-mode)\n (xref--show-common-initialize (xref--analyze xrefs) fetcher alist)\n (pop-to-buffer (current-buffer)\n `(display-buffer-in-direction . ((direction . below)\n (window-height . ,size-fun))))\n (setq buf (current-buffer)))\n (xref--auto-jump-first buf (assoc-default 'auto-jump alist))\n buf))))\n\n(define-obsolete-function-alias 'xref--show-defs-buffer-at-bottom\n #'xref-show-definitions-buffer-at-bottom \"28.1\")\n\n(defun xref--completing-read-group (cand transform)\n \"Return group title of candidate CAND or TRANSFORM the candidate.\"\n (if transform\n (substring cand (1+ (next-single-property-change 0 'xref--group cand)))\n (get-text-property 0 'xref--group cand)))\n\n(defun xref-show-definitions-completing-read (fetcher alist)\n \"Let the user choose the target definition with completion.\n\nWhen there is more than one definition, let the user choose\nbetween them by typing in the minibuffer with completion.\"\n (let* ((xrefs (funcall fetcher))\n (xref-alist (xref--analyze xrefs))\n xref-alist-with-line-info\n xref\n (group-prefix-length\n ;; FIXME: Groups are not always file names, but they often\n ;; are. At least this shouldn't make the other kinds of\n ;; groups look worse.\n (let ((common-prefix (try-completion \"\" xref-alist)))\n (if (> (length common-prefix) 0)\n (length (file-name-directory common-prefix))\n 0))))\n\n (cl-loop for ((group . xrefs) . more1) on xref-alist\n do\n (cl-loop for (xref . more2) on xrefs do\n (let* ((summary (xref-item-summary xref))\n (location (xref-item-location xref))\n (line (xref-location-line location))\n (line-fmt\n (if line\n (format #(\"%d:\" 0 2 (face xref-line-number))\n line)\n \"\"))\n (group-prefix\n (substring group group-prefix-length))\n (group-fmt\n (propertize group-prefix\n 'face 'xref-file-header\n 'xref--group group-prefix))\n (candidate\n (format \"%s:%s%s\" group-fmt line-fmt summary)))\n (push (cons candidate xref) xref-alist-with-line-info))))\n\n (setq xref (if (not (cdr xrefs))\n (car xrefs)\n (let* ((collection (reverse xref-alist-with-line-info))\n (ctable\n (lambda (string pred action)\n (cond\n ((eq action 'metadata)\n `(metadata\n . ((category . xref-location)\n (group-function . ,#'xref--completing-read-group))))\n (t\n (complete-with-action action collection string pred)))))\n (def (caar collection)))\n (cdr (assoc (completing-read \"Choose definition: \"\n ctable nil t\n nil nil\n def)\n collection)))))\n\n (xref-pop-to-location xref (assoc-default 'display-action alist))))\n\n;; TODO: Can delete this alias before Emacs 28's release.\n(define-obsolete-function-alias\n 'xref--show-defs-minibuffer #'xref-show-definitions-completing-read \"28.1\")\n\n\f\n(defcustom xref-show-xrefs-function 'xref--show-xref-buffer\n \"Function to display a list of search results.\n\nIt should accept two arguments: FETCHER and ALIST.\n\nFETCHER is a function of no arguments that returns a list of xref\nvalues. It must not depend on the current buffer or selected\nwindow.\n\nALIST can include, but limited to, the following keys:\n\nWINDOW for the window that was selected before the current\ncommand was called.\n\nDISPLAY-ACTION indicates where the target location should be\ndisplayed. The possible values are nil, `window' meaning the\nother window, or `frame' meaning the other frame.\"\n :type 'function)\n\n(defcustom xref-show-definitions-function 'xref-show-definitions-buffer\n \"Function to handle the definition search results.\n\nAccepts the same arguments as `xref-show-xrefs-function'.\n\nGenerally, it is expected to jump to the definition if there's\nonly one, and otherwise provide some way to choose among the\ndefinitions.\"\n :type '(choice\n (const :tag \"Show a regular list of locations\"\n xref-show-definitions-buffer)\n (const :tag \"Show a \\\"transient\\\" list at the bottom of the window\"\n xref-show-definitions-buffer-at-bottom)\n (const :tag \"Choose the definition with completion\"\n xref-show-definitions-completing-read)\n (function :tag \"Custom function\")))\n\n(defvar xref--read-identifier-history nil)\n\n(defvar xref--read-pattern-history nil)\n\n;;;###autoload\n(defun xref-show-xrefs (fetcher display-action)\n \"Display some Xref values produced by FETCHER using DISPLAY-ACTION.\nThe meanings of both arguments are the same as documented in\n`xref-show-xrefs-function'.\"\n (xref--show-xrefs fetcher display-action))\n\n(defun xref--show-xrefs (fetcher display-action &optional _always-show-list)\n (xref--push-markers)\n (unless (functionp fetcher)\n ;; Old convention.\n (let ((xrefs fetcher))\n (setq fetcher\n (lambda ()\n (if (eq xrefs 'called-already)\n (user-error \"Refresh is not supported\")\n (prog1\n xrefs\n (setq xrefs 'called-already)))))))\n (funcall xref-show-xrefs-function fetcher\n `((window . ,(selected-window))\n (display-action . ,display-action)\n (auto-jump . ,xref-auto-jump-to-first-xref))))\n\n(defun xref--show-defs (xrefs display-action)\n (xref--push-markers)\n (funcall xref-show-definitions-function xrefs\n `((window . ,(selected-window))\n (display-action . ,display-action)\n (auto-jump . ,xref-auto-jump-to-first-definition))))\n\n(defun xref--push-markers ()\n (unless (region-active-p) (push-mark nil t))\n (xref-push-marker-stack))\n\n(defun xref--prompt-p (command)\n (or (eq xref-prompt-for-identifier t)\n (if (eq (car xref-prompt-for-identifier) 'not)\n (not (memq command (cdr xref-prompt-for-identifier)))\n (memq command xref-prompt-for-identifier))))\n\n(defun xref--read-identifier (prompt)\n \"Return the identifier at point or read it from the minibuffer.\"\n (let* ((backend (xref-find-backend))\n (def (xref-backend-identifier-at-point backend))\n (completion-ignore-case\n (xref-backend-identifier-completion-ignore-case backend)))\n (cond ((or current-prefix-arg\n (not def)\n (xref--prompt-p this-command))\n (let ((id\n (completing-read\n ;; `format-prompt' is new in Emacs 28.1\n (if (fboundp 'format-prompt)\n (format-prompt (substring prompt 0 (string-match\n \"[ :]+\\\\'\" prompt))\n def)\n (if def\n (format \"%s (default %s): \"\n (substring prompt 0 (string-match\n \"[ :]+\\\\'\" prompt))\n def)\n prompt))\n (xref-backend-identifier-completion-table backend)\n nil nil nil\n 'xref--read-identifier-history def)))\n (if (equal id \"\")\n (or def (user-error \"There is no default identifier\"))\n id)))\n (t def))))\n\n\f\n;;; Commands\n\n(defun xref--find-xrefs (input kind arg display-action)\n (xref--show-xrefs\n (xref--create-fetcher input kind arg)\n display-action))\n\n(defun xref--find-definitions (id display-action)\n (xref--show-defs\n (xref--create-fetcher id 'definitions id)\n display-action))\n\n(defun xref--create-fetcher (input kind arg)\n \"Return an xref list fetcher function.\n\nIt revisits the saved position and delegates the finding logic to\nthe xref backend method indicated by KIND and passes ARG to it.\"\n (let* ((orig-buffer (current-buffer))\n (orig-position (point))\n (backend (xref-find-backend))\n (method (intern (format \"xref-backend-%s\" kind))))\n (lambda ()\n (save-excursion\n ;; Xref methods are generally allowed to depend on the text\n ;; around point, not just on their explicit arguments.\n ;;\n ;; There is only so much we can do, however, to recreate that\n ;; context, given that the user is free to change the buffer\n ;; contents freely in the meantime.\n (when (buffer-live-p orig-buffer)\n (set-buffer orig-buffer)\n (ignore-errors (goto-char orig-position)))\n (let ((xrefs (funcall method backend arg)))\n (unless xrefs\n (xref--not-found-error kind input))\n xrefs)))))\n\n(defun xref--not-found-error (kind input)\n (user-error \"No %s found for: %s\" (symbol-name kind) input))\n\n;;;###autoload\n(defun xref-find-definitions (identifier)\n \"Find the definition of the identifier at point.\nWith prefix argument or when there's no identifier at point,\nprompt for it.\n\nIf sufficient information is available to determine a unique\ndefinition for IDENTIFIER, display it in the selected window.\nOtherwise, display the list of the possible definitions in a\nbuffer where the user can select from the list.\n\nUse \\\\[xref-go-back] to return back to where you invoked this command.\"\n (interactive (list (xref--read-identifier \"Find definitions of: \")))\n (xref--find-definitions identifier nil))\n\n;;;###autoload\n(defun xref-find-definitions-other-window (identifier)\n \"Like `xref-find-definitions' but switch to the other window.\"\n (interactive (list (xref--read-identifier \"Find definitions of: \")))\n (xref--find-definitions identifier 'window))\n\n;;;###autoload\n(defun xref-find-definitions-other-frame (identifier)\n \"Like `xref-find-definitions' but switch to the other frame.\"\n (interactive (list (xref--read-identifier \"Find definitions of: \")))\n (xref--find-definitions identifier 'frame))\n\n;;;###autoload\n(defun xref-find-references (identifier)\n \"Find references to the identifier at point.\nThis command might prompt for the identifier as needed, perhaps\noffering the symbol at point as the default.\nWith prefix argument, or if `xref-prompt-for-identifier' is t,\nalways prompt for the identifier. If `xref-prompt-for-identifier'\nis nil, prompt only if there's no usable symbol at point.\"\n (interactive (list (xref--read-identifier \"Find references of: \")))\n (xref--find-xrefs identifier 'references identifier nil))\n\n(defun xref-find-references-and-replace (from to)\n \"Replace all references to identifier FROM with TO.\"\n (interactive\n (let* ((query-replace-read-from-default 'find-tag-default)\n (common\n (query-replace-read-args \"Query replace identifier\" nil)))\n (list (nth 0 common) (nth 1 common))))\n (require 'xref)\n (with-current-buffer\n (let ((xref-show-xrefs-function\n ;; Some future-proofing (bug#44905).\n (custom--standard-value 'xref-show-xrefs-function))\n ;; Disable auto-jumping, it will mess up replacement logic.\n xref-auto-jump-to-first-xref)\n (xref-find-references from))\n (xref-query-replace-in-results \".*\" to)))\n\n;;;###autoload\n(defun xref-find-definitions-at-mouse (event)\n \"Find the definition of identifier at or around mouse click.\nThis command is intended to be bound to a mouse event.\"\n (interactive \"e\")\n (let ((identifier\n (save-excursion\n (mouse-set-point event)\n (xref-backend-identifier-at-point (xref-find-backend)))))\n (if identifier\n (xref-find-definitions identifier)\n (user-error \"No identifier here\"))))\n\n;;;###autoload\n(defun xref-find-references-at-mouse (event)\n \"Find references to the identifier at or around mouse click.\nThis command is intended to be bound to a mouse event.\"\n (interactive \"e\")\n (let ((identifier\n (save-excursion\n (mouse-set-point event)\n (xref-backend-identifier-at-point (xref-find-backend)))))\n (if identifier\n (let ((xref-prompt-for-identifier nil))\n (xref-find-references identifier))\n (user-error \"No identifier here\"))))\n\n(declare-function apropos-parse-pattern \"apropos\" (pattern &optional do-all))\n\n;;;###autoload\n(defun xref-find-apropos (pattern)\n \"Find all meaningful symbols that match PATTERN.\nThe argument has the same meaning as in `apropos'.\nSee `tags-apropos-additional-actions' for how to augment the\noutput of this command when the backend is etags.\"\n (interactive (list (read-string\n \"Search for pattern (word list or regexp): \"\n nil 'xref--read-pattern-history\n (xref-backend-identifier-at-point\n (xref-find-backend)))))\n (require 'apropos)\n (let* ((newpat\n (if (and (version< emacs-version \"28.0.50\")\n (memq (xref-find-backend) '(elisp etags)))\n ;; Handle backends in older Emacs.\n (xref-apropos-regexp pattern)\n ;; Delegate pattern handling to the backend fully.\n ;; The old way didn't work for \"external\" backends.\n pattern)))\n (xref--find-xrefs pattern 'apropos newpat nil)))\n\n(defun xref-apropos-regexp (pattern)\n \"Return an Emacs regexp from PATTERN similar to `apropos'.\"\n (apropos-parse-pattern\n (if (string-equal (regexp-quote pattern) pattern)\n ;; Split into words\n (or (split-string pattern \"[ \\t]+\" t)\n (user-error \"No word list given\"))\n pattern)))\n\n\f\n;;; Key bindings\n\n;;;###autoload (define-key esc-map \".\" #'xref-find-definitions)\n;;;###autoload (define-key esc-map \",\" #'xref-go-back)\n;;;###autoload (define-key esc-map [?\\C-,] #'xref-go-forward)\n;;;###autoload (define-key esc-map \"?\" #'xref-find-references)\n;;;###autoload (define-key esc-map [?\\C-.] #'xref-find-apropos)\n;;;###autoload (define-key ctl-x-4-map \".\" #'xref-find-definitions-other-window)\n;;;###autoload (define-key ctl-x-5-map \".\" #'xref-find-definitions-other-frame)\n\n\f\n;;; Helper functions\n\n(defvar xref-etags-mode--saved nil)\n\n(define-minor-mode xref-etags-mode\n \"Minor mode to make xref use etags again.\n\nCertain major modes install their own mechanisms for listing\nidentifiers and navigation. Turn this on to undo those settings\nand just use etags.\"\n :lighter \"\"\n (if xref-etags-mode\n (progn\n (setq xref-etags-mode--saved xref-backend-functions)\n (kill-local-variable 'xref-backend-functions))\n (setq-local xref-backend-functions xref-etags-mode--saved)))\n\n(declare-function semantic-symref-instantiate \"semantic/symref\")\n(declare-function semantic-symref-perform-search \"semantic/symref\")\n(declare-function grep-expand-template \"grep\")\n(defvar ede-minor-mode) ;; ede.el\n\n;;;###autoload\n(defun xref-references-in-directory (symbol dir)\n \"Find all references to SYMBOL in directory DIR.\nReturn a list of xref values.\n\nThis function uses the Semantic Symbol Reference API, see\n`semantic-symref-tool-alist' for details on which tools are used,\nand when.\"\n (cl-assert (directory-name-p dir))\n (require 'semantic/symref)\n (defvar semantic-symref-tool)\n\n ;; Some symref backends use `ede-project-root-directory' as the root\n ;; directory for the search, rather than `default-directory'. Since\n ;; the caller has specified `dir', we bind `ede-minor-mode' to nil\n ;; to force the backend to use `default-directory'.\n (let* ((ede-minor-mode nil)\n (default-directory dir)\n ;; FIXME: Remove CScope and Global from the recognized tools?\n ;; The current implementations interpret the symbol search as\n ;; \"find all calls to the given function\", but not function\n ;; definition. And they return nothing when passed a variable\n ;; name, even a global one.\n (semantic-symref-tool 'detect)\n (case-fold-search nil)\n (inst (semantic-symref-instantiate :searchfor symbol\n :searchtype 'symbol\n :searchscope 'subdirs\n :resulttype 'line-and-text)))\n (xref--convert-hits (semantic-symref-perform-search inst)\n (format \"\\\\_<%s\\\\_>\" (regexp-quote symbol)))))\n\n(define-obsolete-function-alias\n 'xref-collect-references\n #'xref-references-in-directory\n \"27.1\")\n\n;;;###autoload\n(defun xref-matches-in-directory (regexp files dir ignores)\n \"Find all matches for REGEXP in directory DIR.\nReturn a list of xref values.\nOnly files matching some of FILES and none of IGNORES are searched.\nFILES is a string with glob patterns separated by spaces.\nIGNORES is a list of glob patterns for files to ignore.\"\n ;; DIR can also be a regular file for now; let's not advertise that.\n (grep-compute-defaults)\n (defvar grep-find-template)\n (defvar grep-highlight-matches)\n (pcase-let*\n ((grep-find-template (replace-regexp-in-string \"\" \" -E\"\n grep-find-template t t))\n (grep-highlight-matches nil)\n ;; TODO: Sanitize the regexp to remove Emacs-specific terms,\n ;; so that Grep can search for the \"relaxed\" version. Can we\n ;; do that reliably enough, without creating false negatives?\n (command (xref--rgrep-command (xref--regexp-to-extended regexp)\n files\n \".\"\n ignores))\n (local-dir (directory-file-name\n (file-name-unquote\n (file-local-name (expand-file-name dir)))))\n (buf (get-buffer-create \" *xref-grep*\"))\n (`(,grep-re ,file-group ,line-group . ,_) (car grep-regexp-alist))\n (status nil)\n (hits nil))\n (with-current-buffer buf\n (erase-buffer)\n (setq default-directory dir)\n (setq status\n (process-file-shell-command command nil t))\n (goto-char (point-min))\n ;; Can't use the exit status: Grep exits with 1 to mean \"no\n ;; matches found\". Find exits with 1 if any of the invocations\n ;; exit with non-zero. \"No matches\" and \"Grep program not found\"\n ;; are all the same to it.\n (when (and (/= (point-min) (point-max))\n (not (looking-at grep-re)))\n (user-error \"Search failed with status %d: %s\" status (buffer-string)))\n (while (re-search-forward grep-re nil t)\n (push (list (string-to-number (match-string line-group))\n (concat local-dir (substring (match-string file-group) 1))\n (buffer-substring-no-properties (point) (line-end-position)))\n hits)))\n (xref--convert-hits (nreverse hits) regexp)))\n\n(define-obsolete-function-alias\n 'xref-collect-matches\n #'xref-matches-in-directory\n \"27.1\")\n\n(declare-function tramp-tramp-file-p \"tramp\")\n(declare-function tramp-file-local-name \"tramp\")\n\n;; TODO: Experiment with 'xargs -P4' (or any other number).\n;; This speeds up either command, even more than rg's '-j4' does.\n;; Ripgrep gets jumbled output, though, even with --line-buffered.\n;; But Grep seems to be stable. Even without --line-buffered.\n(defcustom xref-search-program-alist\n '((grep\n .\n ;; '-s' because 'git ls-files' can output broken symlinks.\n \"xargs -0 grep --null -snHE -e \")\n (ripgrep\n .\n ;; '!*/' is there to filter out dirs (e.g. submodules).\n \"xargs -0 rg --null -nH --no-heading --no-messages -g '!*/' -e \"\n )\n (ugrep . \"xargs -0 ugrep --null -ns -e \"))\n \"Associative list mapping program identifiers to command templates.\n\nProgram identifier should be a symbol, named after the search program.\n\nThe command template must be a shell command (or usually a\npipeline) that will search the files based on the list of file\nnames that is piped from stdin, separated by null characters.\nThe template should have the following fields:\n\n for extra arguments such as -i and --color\n for the regexp itself (in Extended format)\"\n :type '(repeat\n (cons (symbol :tag \"Program identifier\")\n (string :tag \"Command template\")))\n :version \"28.1\"\n :package-version '(xref . \"1.0.4\"))\n\n(defcustom xref-search-program 'grep\n \"The program to use for regexp search inside files.\n\nThis must reference a corresponding entry in `xref-search-program-alist'.\n\nThis variable is used in `xref-matches-in-files', which is the\nutility function used by commands like `dired-do-find-regexp' and\n`project-find-regexp'.\"\n :type '(choice\n (const :tag \"Use Grep\" grep)\n (const :tag \"Use ripgrep\" ripgrep)\n (const :tag \"Use ugrep\" ugrep)\n (symbol :tag \"User defined\"))\n :version \"28.1\"\n :package-version '(xref . \"1.0.4\"))\n\n(defmacro xref--with-connection-local-variables (&rest body)\n (declare (debug t))\n (if (>= emacs-major-version 27)\n `(with-connection-local-variables ,@body)\n `(progn ,@body)))\n\n;;;###autoload\n(defun xref-matches-in-files (regexp files)\n \"Find all matches for REGEXP in FILES.\nReturn a list of xref values.\nFILES must be a list of absolute file names.\n\nSee `xref-search-program' and `xref-search-program-alist' for how\nto control which program to use when looking for matches.\"\n (cl-assert (consp files))\n (require 'grep)\n (defvar grep-highlight-matches)\n (pcase-let*\n ((output (get-buffer-create \" *project grep output*\"))\n (`(,grep-re ,file-group ,line-group . ,_) (car grep-regexp-alist))\n (status nil)\n (hits nil)\n ;; Support for remote files. The assumption is that, if the\n ;; first file is remote, they all are, and on the same host.\n (dir (file-name-directory (car files)))\n (remote-id (file-remote-p dir))\n ;; The 'auto' default would be fine too, but ripgrep can't handle\n ;; the options we pass in that case.\n (grep-highlight-matches nil)\n (command (grep-expand-template (cdr\n (or\n (assoc\n xref-search-program\n xref-search-program-alist)\n (user-error \"Unknown search program `%s'\"\n xref-search-program)))\n (xref--regexp-to-extended regexp))))\n (when remote-id\n (require 'tramp)\n (setq files (mapcar\n (if (tramp-tramp-file-p dir)\n #'tramp-file-local-name\n #'file-local-name)\n files)))\n (when (file-name-quoted-p (car files))\n (setq files (mapcar #'file-name-unquote files)))\n (with-current-buffer output\n (erase-buffer)\n (with-temp-buffer\n (insert (mapconcat #'identity files \"\\0\"))\n (setq default-directory dir)\n (setq status\n (xref--with-connection-local-variables\n (xref--process-file-region (point-min)\n (point-max)\n shell-file-name\n output\n nil\n shell-command-switch\n command))))\n (goto-char (point-min))\n (when (and (/= (point-min) (point-max))\n (not (looking-at grep-re))\n ;; TODO: Show these matches as well somehow?\n ;; Matching both Grep's and Ripgrep 13's messages.\n (not (looking-at \".*[bB]inary file.* matches\")))\n (user-error \"Search failed with status %d: %s\" status\n (buffer-substring (point-min) (line-end-position))))\n (while (re-search-forward grep-re nil t)\n (push (list (string-to-number (match-string line-group))\n (match-string file-group)\n (buffer-substring-no-properties (point) (line-end-position)))\n hits)))\n ;; By default, ripgrep's output order is non-deterministic\n ;; (https://github.com/BurntSushi/ripgrep/issues/152)\n ;; because it does the search in parallel.\n ;; Grep's output also comes out in seemingly arbitrary order,\n ;; though stable one. Let's sort both for better UI.\n (setq hits\n (sort (nreverse hits)\n (lambda (h1 h2)\n (string< (cadr h1) (cadr h2)))))\n (xref--convert-hits hits regexp)))\n\n(defun xref--process-file-region ( start end program\n &optional buffer display\n &rest args)\n ;; FIXME: This branching shouldn't be necessary, but\n ;; call-process-region *is* measurably faster, even for a program\n ;; doing some actual work (for a period of time). Even though\n ;; call-process-region also creates a temp file internally\n ;; (https://lists.gnu.org/archive/html/emacs-devel/2019-01/msg00211.html).\n (if (not (file-remote-p default-directory))\n (apply #'call-process-region\n start end program nil buffer display args)\n (let ((infile (make-temp-file \"ppfr\")))\n (unwind-protect\n (progn\n (write-region start end infile nil 'silent)\n (apply #'process-file program infile buffer display args))\n (delete-file infile)))))\n\n(defun xref--rgrep-command (regexp files dir ignores)\n (require 'find-dired) ; for `find-name-arg'\n (defvar grep-find-template)\n (defvar find-name-arg)\n ;; `shell-quote-argument' quotes the tilde as well.\n (cl-assert (not (string-match-p \"\\\\`~\" dir)))\n (grep-expand-template\n grep-find-template\n regexp\n (concat (shell-quote-argument \"(\")\n \" \" find-name-arg \" \"\n (mapconcat\n #'shell-quote-argument\n (split-string files)\n (concat \" -o \" find-name-arg \" \"))\n \" \"\n (shell-quote-argument \")\"))\n (shell-quote-argument dir)\n (xref--find-ignores-arguments ignores dir)))\n\n(defun xref--find-ignores-arguments (ignores dir)\n \"Convert IGNORES and DIR to a list of arguments for `find'.\nIGNORES is a list of glob patterns. DIR is an absolute\ndirectory, used as the root of the ignore globs.\"\n (cl-assert (not (string-match-p \"\\\\`~\" dir)))\n (if (not ignores)\n \"\"\n ;; TODO: All in-tree callers are passing in just \".\" or \"./\".\n ;; We can simplify.\n ;; And, if we ever end up deleting xref-matches-in-directory, move\n ;; this function to the project package.\n (setq dir (file-name-as-directory dir))\n (concat\n (shell-quote-argument \"(\")\n \" -path \"\n (mapconcat\n (lambda (ignore)\n (when (string-match-p \"/\\\\'\" ignore)\n (setq ignore (concat ignore \"*\")))\n (shell-quote-argument (if (string-match \"\\\\`\\\\./\" ignore)\n (replace-match dir t t ignore)\n (if (string-prefix-p \"*\" ignore)\n ignore\n (concat \"*/\" ignore)))))\n ignores\n \" -o -path \")\n \" \"\n (shell-quote-argument \")\")\n \" -prune -o \")))\n\n(defun xref--regexp-to-extended (str)\n (replace-regexp-in-string\n ;; FIXME: Add tests. Move to subr.el, make a public function.\n ;; Maybe error on Emacs-only constructs.\n \"\\\$?:\\\\\\\\\\\\\\\\\\\$*\\\$?:\\\\\\\\[][]\\\$?\\\$?:\\\\[.+?\\\\]\\\\|\\\\(\\\\\\\\?[(){}|]\\\$\\\\)\"\n (lambda (str)\n (cond\n ((not (match-beginning 1))\n str)\n ((eq (length (match-string 1 str)) 2)\n (concat (substring str 0 (match-beginning 1))\n (substring (match-string 1 str) 1 2)))\n (t\n (concat (substring str 0 (match-beginning 1))\n \"\\\\\"\n (match-string 1 str)))))\n str t t))\n\n(defun xref--regexp-syntax-dependent-p (str)\n \"Return non-nil when STR depends on the buffer's syntax.\nSuch as the current syntax table and the applied syntax properties.\"\n (let ((case-fold-search nil))\n (string-match-p (rx\n (or string-start (not (in ?\\\\)))\n (0+ (= 2 ?\\\\))\n ?\\\\\n (in ?b ?B ?< ?> ?w ?W ?_ ?s ?S))\n str)))\n\n(defvar xref--last-file-buffer nil)\n(defvar xref--temp-buffer-file-name nil)\n(defvar xref--hits-remote-id nil)\n\n(defun xref--convert-hits (hits regexp)\n (let (xref--last-file-buffer\n (tmp-buffer (generate-new-buffer \" *xref-temp*\"))\n (xref--hits-remote-id (file-remote-p default-directory))\n (syntax-needed (xref--regexp-syntax-dependent-p regexp)))\n (unwind-protect\n (mapcan (lambda (hit)\n (xref--collect-matches hit regexp tmp-buffer syntax-needed))\n hits)\n (kill-buffer tmp-buffer))))\n\n(defun xref--collect-matches (hit regexp tmp-buffer syntax-needed)\n (pcase-let* ((`(,line ,file ,text) hit)\n (file (and file (concat xref--hits-remote-id file)))\n (buf (xref--find-file-buffer file))\n (inhibit-modification-hooks t))\n (if buf\n (with-current-buffer buf\n (save-excursion\n (save-restriction\n (widen)\n (goto-char (point-min))\n (forward-line (1- line))\n (xref--collect-matches-1 regexp file line\n (line-beginning-position)\n (line-end-position)\n syntax-needed))))\n ;; Using the temporary buffer is both a performance and a buffer\n ;; management optimization.\n (with-current-buffer tmp-buffer\n (erase-buffer)\n (when (and syntax-needed\n (not (equal file xref--temp-buffer-file-name)))\n (insert-file-contents file nil 0 200)\n ;; Can't (setq-local delay-mode-hooks t) because of\n ;; bug#23272, but the performance penalty seems minimal.\n (let ((buffer-file-name file)\n (inhibit-message t)\n message-log-max)\n (ignore-errors\n (set-auto-mode t)))\n (setq-local xref--temp-buffer-file-name file)\n (setq-local inhibit-read-only t)\n (erase-buffer))\n (insert text)\n (goto-char (point-min))\n (xref--collect-matches-1 regexp file line\n (point)\n (point-max)\n syntax-needed)))))\n\n(defun xref--collect-matches-1 (regexp file line line-beg line-end syntax-needed)\n (let (matches\n stop beg end\n last-beg last-end\n summary-end)\n (when syntax-needed\n (syntax-propertize line-end))\n (while (not stop)\n (if (and\n ;; REGEXP might match an empty string. Or line.\n (not (and last-beg (eql end line-beg)))\n (re-search-forward regexp line-end t))\n (setq beg (match-beginning 0)\n end (match-end 0)\n summary-end beg)\n (setq stop t\n summary-end line-end))\n (when last-beg\n (let* ((beg-column (- last-beg line-beg))\n (end-column (- last-end line-beg))\n (summary-start (if matches last-beg line-beg))\n (summary (buffer-substring summary-start\n summary-end))\n (loc (xref-make-file-location file line beg-column)))\n (add-face-text-property (- last-beg summary-start)\n (- last-end summary-start)\n 'xref-match t summary)\n (push (xref-make-match summary loc (- end-column beg-column))\n matches)))\n (setq last-beg beg\n last-end end))\n (nreverse matches)))\n\n(defun xref--find-file-buffer (file)\n (unless (equal (car xref--last-file-buffer) file)\n ;; `find-buffer-visiting' is considerably slower,\n ;; especially on remote files.\n (let ((buf (get-file-buffer file)))\n (when (and buf\n (or\n (buffer-modified-p buf)\n (unless xref--hits-remote-id\n (not (verify-visited-file-modtime (current-buffer))))))\n ;; We can't use buffers whose contents diverge from disk (bug#54025).\n (setq buf nil))\n (setq xref--last-file-buffer (cons file buf))))\n (cdr xref--last-file-buffer))\n\n(provide 'xref)\n\n;;; xref.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"xref-1.4.1","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":843951,"end":843972},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":843972},"to":{"change":7,"start":843950,"end":843950},"introduced_by":7}],"inode":{"change":7,"pos":843950}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"xref-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":843950},"to":{"change":7,"start":928346,"end":928387},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":928387},"to":{"change":7,"start":923773,"end":923773},"introduced_by":7}],"inode":{"change":7,"pos":923773}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":923773},"to":{"change":7,"start":923774,"end":928345},"introduced_by":7}],"inode":{"change":7,"pos":923773}},"content":[{"Del":";;; xref-autoloads.el --- automatically extracted autoloads\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"xref\" \"xref.el\" (0 0 0 0))\n;;; Generated autoloads from xref.el\n\n(autoload 'xref-find-backend \"xref\" nil nil nil)\n\n(define-obsolete-function-alias 'xref-pop-marker-stack #'xref-go-back \"29.1\")\n\n(autoload 'xref-go-back \"xref\" \"\\\nGo back to the previous position in xref history.\nTo undo, use \\\\[xref-go-forward].\" t nil)\n\n(autoload 'xref-go-forward \"xref\" \"\\\nGot to the point where a previous \\\\[xref-go-back] was invoked.\" t nil)\n\n(autoload 'xref-marker-stack-empty-p \"xref\" \"\\\nWhether the xref back-history is empty.\" nil nil)\n\n(autoload 'xref-forward-history-empty-p \"xref\" \"\\\nWhether the xref forward-history is empty.\" nil nil)\n\n(autoload 'xref-show-xrefs \"xref\" \"\\\nDisplay some Xref values produced by FETCHER using DISPLAY-ACTION.\nThe meanings of both arguments are the same as documented in\n`xref-show-xrefs-function'.\n\n\\(fn FETCHER DISPLAY-ACTION)\" nil nil)\n\n(autoload 'xref-find-definitions \"xref\" \"\\\nFind the definition of the identifier at point.\nWith prefix argument or when there's no identifier at point,\nprompt for it.\n\nIf sufficient information is available to determine a unique\ndefinition for IDENTIFIER, display it in the selected window.\nOtherwise, display the list of the possible definitions in a\nbuffer where the user can select from the list.\n\nUse \\\\[xref-go-back] to return back to where you invoked this command.\n\n\\(fn IDENTIFIER)\" t nil)\n\n(autoload 'xref-find-definitions-other-window \"xref\" \"\\\nLike `xref-find-definitions' but switch to the other window.\n\n\\(fn IDENTIFIER)\" t nil)\n\n(autoload 'xref-find-definitions-other-frame \"xref\" \"\\\nLike `xref-find-definitions' but switch to the other frame.\n\n\\(fn IDENTIFIER)\" t nil)\n\n(autoload 'xref-find-references \"xref\" \"\\\nFind references to the identifier at point.\nThis command might prompt for the identifier as needed, perhaps\noffering the symbol at point as the default.\nWith prefix argument, or if `xref-prompt-for-identifier' is t,\nalways prompt for the identifier. If `xref-prompt-for-identifier'\nis nil, prompt only if there's no usable symbol at point.\n\n\\(fn IDENTIFIER)\" t nil)\n\n(autoload 'xref-find-definitions-at-mouse \"xref\" \"\\\nFind the definition of identifier at or around mouse click.\nThis command is intended to be bound to a mouse event.\n\n\\(fn EVENT)\" t nil)\n\n(autoload 'xref-find-references-at-mouse \"xref\" \"\\\nFind references to the identifier at or around mouse click.\nThis command is intended to be bound to a mouse event.\n\n\\(fn EVENT)\" t nil)\n\n(autoload 'xref-find-apropos \"xref\" \"\\\nFind all meaningful symbols that match PATTERN.\nThe argument has the same meaning as in `apropos'.\nSee `tags-apropos-additional-actions' for how to augment the\noutput of this command when the backend is etags.\n\n\\(fn PATTERN)\" t nil)\n (define-key esc-map \".\" #'xref-find-definitions)\n (define-key esc-map \",\" #'xref-go-back)\n (define-key esc-map [?\\C-,] #'xref-go-forward)\n (define-key esc-map \"?\" #'xref-find-references)\n (define-key esc-map [?\\C-.] #'xref-find-apropos)\n (define-key ctl-x-4-map \".\" #'xref-find-definitions-other-window)\n (define-key ctl-x-5-map \".\" #'xref-find-definitions-other-frame)\n\n(autoload 'xref-references-in-directory \"xref\" \"\\\nFind all references to SYMBOL in directory DIR.\nReturn a list of xref values.\n\nThis function uses the Semantic Symbol Reference API, see\n`semantic-symref-tool-alist' for details on which tools are used,\nand when.\n\n\\(fn SYMBOL DIR)\" nil nil)\n\n(autoload 'xref-matches-in-directory \"xref\" \"\\\nFind all matches for REGEXP in directory DIR.\nReturn a list of xref values.\nOnly files matching some of FILES and none of IGNORES are searched.\nFILES is a string with glob patterns separated by spaces.\nIGNORES is a list of glob patterns for files to ignore.\n\n\\(fn REGEXP FILES DIR IGNORES)\" nil nil)\n\n(autoload 'xref-matches-in-files \"xref\" \"\\\nFind all matches for REGEXP in FILES.\nReturn a list of xref values.\nFILES must be a list of absolute file names.\n\nSee `xref-search-program' and `xref-search-program-alist' for how\nto control which program to use when looking for matches.\n\n\\(fn REGEXP FILES)\" nil nil)\n\n(if (fboundp 'register-definition-prefixes) (register-definition-prefixes \"xref\" '(\"xref-\")))\n\n;;;***\n\f\n;;;### (autoloads nil nil (\"xref-pkg.el\") (0 0 0 0))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; xref-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"xref-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":843950},"to":{"change":7,"start":923736,"end":923771},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":923771},"to":{"change":7,"start":923483,"end":923483},"introduced_by":7}],"inode":{"change":7,"pos":923483}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":923483},"to":{"change":7,"start":923484,"end":923735},"introduced_by":7}],"inode":{"change":7,"pos":923483}},"content":[{"Del":";; Generated package description from xref.el -*- no-byte-compile: t -*-\n(define-package \"xref\" \"1.4.1\" \"Cross-referencing commands\" '((emacs \"26.1\")) :commit \"890b08e41580a716c2f0b3f1a40ef9b52a19372c\" :url \"https://elpa.gnu.org/packages/xref.html\")\n"}]}},{"FileDel":{"deleted_names":[{"basename":"xref.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":843950},"to":{"change":7,"start":923450,"end":923481},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":923481},"to":{"change":7,"start":843974,"end":843974},"introduced_by":7}],"inode":{"change":7,"pos":843974}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":843974},"to":{"change":7,"start":843975,"end":923449},"introduced_by":7}],"inode":{"change":7,"pos":843974}},"content":[{"Del":";;; xref.el --- Cross-referencing commands -*-lexical-binding:t-*-\n\n;; Copyright (C) 2014-2022 Free Software Foundation, Inc.\n;; Version: 1.4.1\n;; Package-Requires: ((emacs \"26.1\"))\n\n;; This is a GNU ELPA :core package. Avoid functionality that is not\n;; compatible with the version of Emacs recorded above.\n\n;; This file is part of GNU Emacs.\n\n;; GNU Emacs is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; GNU Emacs is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with GNU Emacs. If not, see .\n\n;;; Commentary:\n\n;; This file provides a somewhat generic infrastructure for cross\n;; referencing commands, in particular \"find-definition\".\n;;\n;; Some part of the functionality must be implemented in a language\n;; dependent way and that's done by defining an xref backend.\n;;\n;; That consists of a constructor function, which should return a\n;; backend value, and a set of implementations for the generic\n;; functions:\n;;\n;; `xref-backend-identifier-at-point',\n;; `xref-backend-identifier-completion-table',\n;; `xref-backend-definitions', `xref-backend-references',\n;; `xref-backend-apropos', which see.\n;;\n;; A major mode would normally use `add-hook' to add the backend\n;; constructor to `xref-backend-functions'.\n;;\n;; The last three methods operate with \"xref\" and \"location\" values.\n;;\n;; One would usually call `xref-make' and `xref-make-file-location',\n;; `xref-make-buffer-location' or `xref-make-bogus-location' to create\n;; them. More generally, a location must be an instance of a type for\n;; which methods `xref-location-group' and `xref-location-marker' are\n;; implemented.\n;;\n;; There's a special kind of xrefs we call \"match xrefs\", which\n;; correspond to search results. For these values,\n;; `xref-match-length' must be defined, and `xref-location-marker'\n;; must return the beginning of the match.\n;;\n;; Each identifier must be represented as a string. Implementers can\n;; use string properties to store additional information about the\n;; identifier, but they should keep in mind that values returned from\n;; `xref-backend-identifier-completion-table' should still be\n;; distinct, because the user can't see the properties when making the\n;; choice.\n;;\n;; Older versions of Xref used EIEIO for implementation of the\n;; built-in types, and included a class called `xref-location' which\n;; was supposed to be inherited from. Neither is true anymore.\n;;\n;; See the etags and elisp-mode implementations for full examples.\n\n;;; Code:\n\n(require 'cl-lib)\n(require 'ring)\n(require 'project)\n\n(eval-and-compile\n (when (version< emacs-version \"28.0.60\")\n ;; etags.el in Emacs 26 and 27 uses EIEIO, and its location type\n ;; inherits from `xref-location'.\n (require 'eieio)\n\n ;; Suppressing byte-compilation warnings (in Emacs 28+) about\n ;; `defclass' not being defined, which happens because the\n ;; `require' statement above is not evaluated either.\n ;; FIXME: Use `with-suppressed-warnings' when we stop supporting Emacs 26.\n (with-no-warnings\n (defclass xref-location () ()\n :documentation \"(Obsolete) location represents a position in a file or buffer.\"))))\n\n(defgroup xref nil \"Cross-referencing commands.\"\n :version \"25.1\"\n :group 'tools)\n\n\f\n;;; Locations\n\n(cl-defgeneric xref-location-marker (location)\n \"Return the marker for LOCATION.\")\n\n(cl-defgeneric xref-location-group (location)\n \"Return a string used to group a set of locations.\nThis is typically a file name, but can also be a package name, or\nsome other label.\n\nWhen it is a file name, it should be the \\\"expanded\\\" version.\")\n\n(cl-defgeneric xref-location-line (_location)\n \"Return the line number corresponding to the location.\"\n nil)\n\n(cl-defgeneric xref-match-length (_item)\n \"Return the length of the match.\"\n nil)\n\n;;;; Commonly needed location types are defined here:\n\n(defcustom xref-file-name-display 'project-relative\n \"Style of file name display in *xref* buffers.\n\nIf the value is the symbol `abs', show the file names in their\nfull absolute form.\n\nIf `nondirectory', show only the nondirectory (a.k.a. \\\"base name\\\")\npart of the file name.\n\nIf `project-relative', the default, show only the file name\nrelative to the current project root. If there is no current\nproject, or if the file resides outside of its root, show that\nparticular file name in its full absolute form.\"\n :type '(choice (const :tag \"absolute file name\" abs)\n (const :tag \"nondirectory file name\" nondirectory)\n (const :tag \"relative to project root\" project-relative))\n :version \"27.1\")\n\n;; FIXME: might be useful to have an optional \"hint\" i.e. a string to\n;; search for in case the line number is slightly out of date.\n(cl-defstruct (xref-file-location\n (:constructor xref-make-file-location (file line column)))\n \"A file location is a file/line/column triple.\nLine numbers start from 1 and columns from 0.\"\n file line column)\n\n(cl-defmethod xref-location-group ((l xref-file-location))\n (xref-file-location-file l))\n\n(cl-defmethod xref-location-line ((l xref-file-location))\n (xref-file-location-line l))\n\n(cl-defmethod xref-location-marker ((l xref-file-location))\n (pcase-let (((cl-struct xref-file-location file line column) l))\n (with-current-buffer\n (or (get-file-buffer file)\n (let ((find-file-suppress-same-file-warnings t))\n (find-file-noselect file)))\n (save-restriction\n (widen)\n (save-excursion\n (goto-char (point-min))\n (ignore-errors\n ;; xref location may be out of date; it may be past the\n ;; end of the current file, or the file may have been\n ;; deleted. Return a reasonable location; the user will\n ;; figure it out.\n (beginning-of-line line)\n (forward-char column))\n (point-marker))))))\n\n(cl-defstruct (xref-buffer-location\n (:constructor xref-make-buffer-location (buffer position)))\n buffer position)\n\n(cl-defmethod xref-location-marker ((l xref-buffer-location))\n (pcase-let (((cl-struct xref-buffer-location buffer position) l))\n (let ((m (make-marker)))\n (move-marker m position buffer))))\n\n(cl-defmethod xref-location-group ((l xref-buffer-location))\n (pcase-let (((cl-struct xref-buffer-location buffer) l))\n (or (buffer-file-name buffer)\n (format \"(buffer %s)\" (buffer-name buffer)))))\n\n(cl-defstruct (xref-bogus-location\n (:constructor xref-make-bogus-location (message)))\n \"Bogus locations are sometimes useful to indicate errors,\ne.g. when we know that a function exists but the actual location\nis not known.\"\n message)\n\n(cl-defmethod xref-location-marker ((l xref-bogus-location))\n (user-error \"%s\" (xref-bogus-location-message l)))\n\n(cl-defmethod xref-location-group ((_ xref-bogus-location)) \"(No location)\")\n\n\f\n;;; Cross-reference\n\n(defmacro xref--defstruct (name &rest fields)\n (declare (indent 1))\n `(cl-defstruct ,(if (>= emacs-major-version 27)\n name\n (remq (assq :noinline name) name))\n ,@fields))\n\n(xref--defstruct (xref-item\n (:constructor xref-make (summary location))\n (:noinline t))\n \"An xref item describes a reference to a location somewhere.\"\n (summary nil :documentation \"String which describes the location.\n\nWhen `xref-location-line' returns non-nil (a number), the summary\nis implied to be the contents of a file or buffer line containing\nthe location. When multiple locations in a row report the same\nline, in the same group (corresponding to the case of multiple\nlocations on one line), the summaries are concatenated in the\nXref output buffer. Consequently, any code that creates xref\nvalues should take care to slice the summary values when several\nlocations point to the same line.\n\nThis behavior is new in Emacs 28.\")\n location)\n\n(xref--defstruct (xref-match-item\n (:include xref-item)\n (:constructor xref-make-match (summary location length))\n (:noinline t))\n \"A match xref item describes a search result.\"\n length)\n\n(cl-defgeneric xref-match-length ((item xref-match-item))\n \"Return the length of the match.\"\n (xref-match-item-length item))\n\n\f\n;;; API\n\n(defvar xref-backend-functions nil\n \"Special hook to find the xref backend for the current context.\nEach function on this hook is called in turn with no arguments,\nand should return either nil to mean that it is not applicable,\nor an xref backend, which is a value to be used to dispatch the\ngeneric functions.\")\n\n;; We make the etags backend the default for now, until something\n;; better comes along. Use APPEND so that any `add-hook' calls made\n;; before this package is loaded put new items before this one.\n(add-hook 'xref-backend-functions #'etags--xref-backend t)\n\n;;;###autoload\n(defun xref-find-backend ()\n (run-hook-with-args-until-success 'xref-backend-functions))\n\n(cl-defgeneric xref-backend-definitions (backend identifier)\n \"Find definitions of IDENTIFIER.\n\nThe result must be a list of xref objects. If IDENTIFIER\ncontains sufficient information to determine a unique definition,\nreturn only that definition. If there are multiple possible\ndefinitions, return all of them. If no definitions can be found,\nreturn nil.\n\nIDENTIFIER can be any string returned by\n`xref-backend-identifier-at-point', or from the table returned by\n`xref-backend-identifier-completion-table'.\n\nTo create an xref object, call `xref-make'.\")\n\n(cl-defgeneric xref-backend-references (_backend identifier)\n \"Find references of IDENTIFIER.\nThe result must be a list of xref objects. If no references can\nbe found, return nil.\n\nThe default implementation uses `semantic-symref-tool-alist' to\nfind a search tool; by default, this uses \\\"find | grep\\\" in the\ncurrent project's main and external roots.\"\n (mapcan\n (lambda (dir)\n (message \"Searching %s...\" dir)\n (redisplay)\n (prog1\n (xref-references-in-directory identifier dir)\n (message \"Searching %s... done\" dir)))\n (let ((pr (project-current t)))\n (cons\n (xref--project-root pr)\n (project-external-roots pr)))))\n\n(cl-defgeneric xref-backend-apropos (backend pattern)\n \"Find all symbols that match PATTERN string.\nThe second argument has the same meaning as in `apropos'.\n\nIf BACKEND is implemented in Lisp, it can use\n`xref-apropos-regexp' to convert the pattern to regexp.\")\n\n(cl-defgeneric xref-backend-identifier-at-point (_backend)\n \"Return the relevant identifier at point.\n\nThe return value must be a string, or nil meaning no identifier\nat point found.\n\nIf it's hard to determine the identifier precisely (e.g., because\nit's a method call on unknown type), the implementation can\nreturn a simple string (such as symbol at point) marked with a\nspecial text property which e.g. `xref-backend-definitions' would\nrecognize and then delegate the work to an external process.\"\n (let ((thing (thing-at-point 'symbol)))\n (and thing (substring-no-properties thing))))\n\n(cl-defgeneric xref-backend-identifier-completion-table (backend)\n \"Return the completion table for identifiers.\")\n\n(cl-defgeneric xref-backend-identifier-completion-ignore-case (_backend)\n \"Return t if case is not significant in identifier completion.\"\n completion-ignore-case)\n\n\f\n;;; misc utilities\n(defun xref--alistify (list key)\n \"Partition the elements of LIST into an alist.\nKEY extracts the key from an element.\"\n (let ((table (make-hash-table :test #'equal)))\n (dolist (e list)\n (let* ((k (funcall key e))\n (probe (gethash k table)))\n (if probe\n (puthash k (cons e probe) table)\n (puthash k (list e) table))))\n ;; Put them back in order.\n (cl-loop for key being hash-keys of table using (hash-values value)\n collect (cons key (nreverse value)))))\n\n(defun xref--insert-propertized (props &rest strings)\n \"Insert STRINGS with text properties PROPS.\"\n (let ((start (point)))\n (apply #'insert strings)\n (add-text-properties start (point) props)))\n\n(defun xref--search-property (property &optional backward)\n \"Search the next text range where text property PROPERTY is non-nil.\nReturn the value of PROPERTY. If BACKWARD is non-nil, search\nbackward.\"\n (let ((next (if backward\n #'previous-single-char-property-change\n #'next-single-char-property-change))\n (start (point))\n (value nil))\n (while (progn\n (goto-char (funcall next (point) property))\n (not (or (setq value (get-text-property (point) property))\n (eobp)\n (bobp)))))\n (cond (value)\n (t (goto-char start) nil))))\n\n\f\n;; Dummy variable retained for compatibility.\n(defvar xref-marker-ring-length 16)\n(make-obsolete-variable 'xref-marker-ring-length nil \"29.1\")\n\n(defcustom xref-prompt-for-identifier '(not xref-find-definitions\n xref-find-definitions-other-window\n xref-find-definitions-other-frame)\n \"If non-nil, prompt for the identifier to find.\n\nWhen t, always prompt for the identifier name.\n\nWhen nil, prompt only when there's no value at point we can use,\nor when the command has been called with the prefix argument.\n\nOtherwise, it's a list of xref commands which will always prompt,\nwith the identifier at point, if any, used as the default.\nIf the list starts with `not', the meaning of the rest of the\nelements is negated: these commands will NOT prompt.\"\n :type '(choice (const :tag \"Always prompt for identifier\" t)\n (const :tag \"Prompt if no identifier at point\" nil)\n (set :menu-tag \"Prompt according to command\"\n :tag \"Prompt according to command\"\n\t\t :value (not)\n\t\t (const :tag \"Except for commands listed below\" not)\n\t\t (repeat :inline t (symbol :tag \"command\")))))\n\n(defcustom xref-after-jump-hook '(recenter\n xref-pulse-momentarily)\n \"Functions called after jumping to an xref.\"\n :type 'hook)\n\n(defcustom xref-after-return-hook '(xref-pulse-momentarily)\n \"Functions called after returning to a pre-jump location.\"\n :type 'hook)\n\n(defcustom xref-after-update-hook nil\n \"Functions called after the xref buffer is updated.\"\n :type 'hook\n :version \"28.1\"\n :package-version '(xref . \"1.0.4\"))\n\n(defcustom xref-auto-jump-to-first-definition nil\n \"If t, `xref-find-definitions' always jumps to the first result.\n`show' means to show the first result's location, but keep the\nfocus on the Xref buffer's window.\n`move' means to only move point to the first result.\nThis variable also affects the variants of `xref-find-definitions',\nsuch as `xref-find-definitions-other-window'.\"\n :type '(choice (const :tag \"Jump\" t)\n (const :tag \"Show\" show)\n (const :tag \"Move point only\" move)\n (const :tag \"No auto-jump\" nil))\n :version \"28.1\"\n :package-version '(xref . \"1.2.0\"))\n\n(defcustom xref-auto-jump-to-first-xref nil\n \"If t, `xref-find-references' always jumps to the first result.\n`show' means to show the first result's location, but keep the\nfocus on the Xref buffer's window.\n`move' means to only move point to the first result.\nThis variable also affects commands similar to `xref-find-references',\nsuch as `xref-find-references-at-mouse', `xref-find-apropos',\nand `project-find-regexp'.\n\nPlease be careful when changing the value if you are using Emacs 27\nor earlier: it can break `dired-do-find-regexp-and-replace'.\"\n :type '(choice (const :tag \"Jump\" t)\n (const :tag \"Show\" show)\n (const :tag \"Move point only\" move)\n (const :tag \"No auto-jump\" nil))\n :version \"28.1\"\n :package-version '(xref . \"1.2.0\"))\n\n(make-obsolete-variable 'xref--marker-ring 'xref--history \"29.1\")\n\n(defun xref-set-marker-ring-length (_var _val)\n (declare (obsolete nil \"29.1\"))\n nil)\n\n(defvar xref--history (cons nil nil)\n \"(BACKWARD-STACK . FORWARD-STACK) of markers to visited Xref locations.\")\n\n(defun xref--push-backward (m)\n \"Push marker M onto the backward history stack.\"\n (unless (equal m (caar xref--history))\n (push m (car xref--history))))\n\n(defun xref--push-forward (m)\n \"Push marker M onto the forward history stack.\"\n (unless (equal m (cadr xref--history))\n (push m (cdr xref--history))))\n\n(defun xref-push-marker-stack (&optional m)\n \"Add point M (defaults to `point-marker') to the marker stack.\nThe future stack is erased.\"\n (xref--push-backward (or m (point-marker)))\n (dolist (mk (cdr xref--history))\n (set-marker mk nil nil))\n (setcdr xref--history nil))\n\n;;;###autoload\n(define-obsolete-function-alias 'xref-pop-marker-stack #'xref-go-back \"29.1\")\n\n;;;###autoload\n(defun xref-go-back ()\n \"Go back to the previous position in xref history.\nTo undo, use \\\\[xref-go-forward].\"\n (interactive)\n (if (null (car xref--history))\n (user-error \"At start of xref history\")\n (let ((marker (pop (car xref--history))))\n (xref--push-forward (point-marker))\n (switch-to-buffer (or (marker-buffer marker)\n (user-error \"The marked buffer has been deleted\")))\n (goto-char (marker-position marker))\n (set-marker marker nil nil)\n (run-hooks 'xref-after-return-hook))))\n\n;;;###autoload\n(defun xref-go-forward ()\n \"Got to the point where a previous \\\\[xref-go-back] was invoked.\"\n (interactive)\n (if (null (cdr xref--history))\n (user-error \"At end of xref history\")\n (let ((marker (pop (cdr xref--history))))\n (xref--push-backward (point-marker))\n (switch-to-buffer (or (marker-buffer marker)\n (user-error \"The marked buffer has been deleted\")))\n (goto-char (marker-position marker))\n (set-marker marker nil nil)\n (run-hooks 'xref-after-return-hook))))\n\n(define-obsolete-variable-alias\n 'xref--current-item\n 'xref-current-item\n \"29.1\")\n\n(defvar xref-current-item nil)\n\n(defun xref-pulse-momentarily ()\n (pcase-let ((`(,beg . ,end)\n (save-excursion\n (or\n (let ((length (xref-match-length xref-current-item)))\n (and length (cons (point) (+ (point) length))))\n (back-to-indentation)\n (if (eolp)\n (cons (line-beginning-position) (1+ (point)))\n (cons (point) (line-end-position)))))))\n (pulse-momentary-highlight-region beg end 'next-error)))\n\n;; etags.el needs this\n(defun xref-clear-marker-stack ()\n \"Discard all markers from the xref history.\"\n (dolist (l (list (car xref--history) (cdr xref--history)))\n (dolist (m l)\n (set-marker m nil nil)))\n (setq xref--history (cons nil nil))\n nil)\n\n;;;###autoload\n(defun xref-marker-stack-empty-p ()\n \"Whether the xref back-history is empty.\"\n (null (car xref--history)))\n;; FIXME: rename this to `xref-back-history-empty-p'.\n\n;;;###autoload\n(defun xref-forward-history-empty-p ()\n \"Whether the xref forward-history is empty.\"\n (null (cdr xref--history)))\n\f\n\n(defun xref--goto-char (pos)\n (cond\n ((and (<= (point-min) pos) (<= pos (point-max))))\n (widen-automatically (widen))\n (t (user-error \"Position is outside accessible part of buffer\")))\n (goto-char pos))\n\n(defun xref--goto-location (location)\n \"Set buffer and point according to `xref-location' LOCATION.\"\n (let ((marker (xref-location-marker location)))\n (set-buffer (marker-buffer marker))\n (xref--goto-char marker)))\n\n(defun xref-pop-to-location (item &optional action)\n \"Go to the location of ITEM and display the buffer.\nACTION controls how the buffer is displayed:\n nil -- `switch-to-buffer'\n `window' -- `pop-to-buffer' (other window)\n `frame' -- `pop-to-buffer' (other frame)\nIf SELECT is non-nil, select the target window.\"\n (let* ((marker (save-excursion\n (xref-location-marker (xref-item-location item))))\n (buf (marker-buffer marker)))\n (cl-ecase action\n ((nil) (switch-to-buffer buf))\n (window (pop-to-buffer buf t))\n (frame (let ((pop-up-frames t)) (pop-to-buffer buf t))))\n (xref--goto-char marker))\n (let ((xref-current-item item))\n (run-hooks 'xref-after-jump-hook)))\n\n\f\n;;; XREF buffer (part of the UI)\n\n;; The xref buffer is used to display a set of xrefs.\n(defconst xref-buffer-name \"*xref*\"\n \"The name of the buffer to show xrefs.\")\n\n(defface xref-file-header '((t :inherit compilation-info))\n \"Face used to highlight file header in the xref buffer.\"\n :version \"27.1\")\n\n(defface xref-line-number '((t :inherit compilation-line-number))\n \"Face for displaying line numbers in the xref buffer.\"\n :version \"27.1\")\n\n(defface xref-match '((t :inherit match))\n \"Face used to highlight matches in the xref buffer.\"\n :version \"27.1\")\n\n(defmacro xref--with-dedicated-window (&rest body)\n `(let* ((xref-w (get-buffer-window xref-buffer-name))\n (xref-w-dedicated (window-dedicated-p xref-w)))\n (unwind-protect\n (progn\n (when xref-w\n (set-window-dedicated-p xref-w 'soft))\n ,@body)\n (when xref-w\n (set-window-dedicated-p xref-w xref-w-dedicated)))))\n\n(defvar-local xref--original-window-intent nil\n \"Original window-switching intent before xref buffer creation.\")\n\n(defvar-local xref--original-window nil\n \"The original window this xref buffer was created from.\")\n\n(defvar-local xref--fetcher nil\n \"The original function to call to fetch the list of xrefs.\")\n\n(defun xref--show-pos-in-buf (pos buf)\n \"Goto and display position POS of buffer BUF in a window.\nHonor `xref--original-window-intent', run `xref-after-jump-hook'\nand finally return the window.\"\n (let* ((pop-up-frames\n (or (eq xref--original-window-intent 'frame)\n pop-up-frames))\n (action\n (cond ((eq xref--original-window-intent 'frame)\n t)\n ((eq xref--original-window-intent 'window)\n `((xref--display-buffer-in-other-window)\n (window . ,xref--original-window)))\n ((and\n (window-live-p xref--original-window)\n (or (not (window-dedicated-p xref--original-window))\n (eq (window-buffer xref--original-window) buf)))\n `((xref--display-buffer-in-window)\n (window . ,xref--original-window))))))\n (with-selected-window (display-buffer buf action)\n (xref--goto-char pos)\n (run-hooks 'xref-after-jump-hook)\n (selected-window))))\n\n(defun xref--display-buffer-in-other-window (buffer alist)\n (let ((window (assoc-default 'window alist)))\n (cl-assert window)\n (xref--with-dedicated-window\n (with-selected-window window\n (display-buffer buffer t)))))\n\n(defun xref--display-buffer-in-window (buffer alist)\n (let ((window (assoc-default 'window alist)))\n (cl-assert window)\n (with-selected-window window\n (display-buffer buffer '(display-buffer-same-window)))))\n\n(defun xref--show-location (location &optional select)\n \"Help `xref-show-xref' and `xref-goto-xref' do their job.\nGo to LOCATION and if SELECT is non-nil select its window. If\nSELECT is `quit', also quit the *xref* window.\"\n (condition-case err\n (let* ((marker (xref-location-marker location))\n (buf (marker-buffer marker))\n (xref-buffer (current-buffer)))\n (cond (select\n (if (eq select 'quit) (quit-window nil nil))\n (select-window\n (with-current-buffer xref-buffer\n (xref--show-pos-in-buf marker buf))))\n (t\n (save-selected-window\n (xref--with-dedicated-window\n (xref--show-pos-in-buf marker buf))))))\n (user-error (message (error-message-string err)))))\n\n(defun xref--set-arrow ()\n \"Set the overlay arrow at the line at point.\"\n (setq overlay-arrow-position\n (set-marker (or overlay-arrow-position (make-marker))\n (line-beginning-position))))\n\n(defun xref-show-location-at-point ()\n \"Display the source of xref at point in the appropriate window, if any.\"\n (interactive)\n (let* ((xref (xref--item-at-point))\n (xref-current-item xref))\n (when xref\n (xref--set-arrow)\n (xref--show-location (xref-item-location xref)))))\n\n(defun xref-next-line-no-show ()\n \"Move to the next xref but don't display its source.\"\n (interactive)\n (xref--search-property 'xref-item))\n\n(defun xref-next-line ()\n \"Move to the next xref and display its source in the appropriate window.\"\n (interactive)\n (xref-next-line-no-show)\n (xref-show-location-at-point))\n\n(defun xref-prev-line-no-show ()\n \"Move to the previous xref but don't display its source.\"\n (interactive)\n (xref--search-property 'xref-item t))\n\n(defun xref-prev-line ()\n \"Move to the previous xref and display its source in the appropriate window.\"\n (interactive)\n (xref-prev-line-no-show)\n (xref-show-location-at-point))\n\n(defun xref-next-group ()\n \"Move to the first item of the next xref group and display its source.\"\n (interactive)\n (xref--search-property 'xref-group)\n (xref--search-property 'xref-item)\n (xref-show-location-at-point))\n\n(defun xref-prev-group ()\n \"Move to the first item of the previous xref group and display its source.\"\n (interactive)\n ;; Search for the xref group of the current item, provided that the\n ;; point is not already in an xref group.\n (unless (plist-member (text-properties-at (point)) 'xref-group)\n (xref--search-property 'xref-group t))\n ;; Search for the previous xref group.\n (xref--search-property 'xref-group t)\n (xref--search-property 'xref-item)\n (xref-show-location-at-point))\n\n(defun xref--item-at-point ()\n (get-text-property\n (if (eolp) (1- (point)) (point))\n 'xref-item))\n\n(defun xref-goto-xref (&optional quit)\n \"Jump to the xref on the current line and select its window.\nIf QUIT is non-nil (interactively, with prefix argument), also\nquit the *xref* buffer.\"\n (interactive \"P\")\n (let* ((buffer (current-buffer))\n (xref (or (xref--item-at-point)\n (user-error \"Choose a reference to visit\")))\n (xref-current-item xref))\n (xref--set-arrow)\n (xref--show-location (xref-item-location xref) (if quit 'quit t))\n (if (fboundp 'next-error-found)\n (next-error-found buffer (current-buffer))\n ;; Emacs < 27\n (setq next-error-last-buffer buffer))))\n\n(defun xref-quit-and-goto-xref ()\n \"Quit *xref* buffer, then jump to xref on current line.\"\n (interactive)\n (xref-goto-xref t))\n\n(defun xref-quit-and-pop-marker-stack ()\n \"Quit *xref* buffer, then pop the xref marker stack.\"\n (interactive)\n (quit-window)\n (xref-go-back))\n\n(defun xref-query-replace-in-results (from to)\n \"Perform interactive replacement of FROM with TO in all displayed xrefs.\n\nThis command interactively replaces FROM with TO in the names of the\nreferences displayed in the current *xref* buffer.\n\nWhen called interactively, it uses '.*' as FROM, which means\nreplace the whole name. Unless called with prefix argument, in\nwhich case the user is prompted for both FROM and TO.\"\n (interactive\n (let* ((fr\n (if current-prefix-arg\n (read-regexp \"Query-replace (regexp)\" \".*\")\n \".*\"))\n (prompt (if current-prefix-arg\n (format \"Query-replace (regexp) %s with: \" fr)\n \"Query-replace all matches with: \")))\n (list fr (read-regexp prompt))))\n (let* (item xrefs iter)\n (save-excursion\n (while (setq item (xref--search-property 'xref-item))\n (when (xref-match-length item)\n (push item xrefs))))\n (unwind-protect\n (progn\n (goto-char (point-min))\n (setq iter (xref--buf-pairs-iterator (nreverse xrefs)))\n (xref--query-replace-1 from to iter))\n (funcall iter :cleanup))))\n\n(defun xref--buf-pairs-iterator (xrefs)\n (let (chunk-done item next-pair file-buf pairs all-pairs)\n (lambda (action)\n (pcase action\n (:next\n (when (or xrefs next-pair)\n (setq chunk-done nil)\n (when next-pair\n (setq file-buf (marker-buffer (car next-pair))\n pairs (list next-pair)\n next-pair nil))\n (while (and (not chunk-done)\n (setq item (pop xrefs)))\n (save-excursion\n (let* ((loc (xref-item-location item))\n (beg (xref-location-marker loc))\n (end (move-marker (make-marker)\n (+ beg (xref-match-length item))\n (marker-buffer beg))))\n (let ((pair (cons beg end)))\n (push pair all-pairs)\n ;; Perform sanity check first.\n (xref--goto-location loc)\n (if (xref--outdated-p item)\n (message \"Search result out of date, skipping\")\n (cond\n ((null file-buf)\n (setq file-buf (marker-buffer beg))\n (push pair pairs))\n ((equal file-buf (marker-buffer beg))\n (push pair pairs))\n (t\n (setq chunk-done t\n next-pair pair))))))))\n (cons file-buf (nreverse pairs))))\n (:cleanup\n (dolist (pair all-pairs)\n (move-marker (car pair) nil)\n (move-marker (cdr pair) nil)))))))\n\n(defun xref--outdated-p (item)\n \"Check that the match location at current position is up-to-date.\nITEMS is an xref item which \" ; FIXME: Expand documentation.\n ;; FIXME: The check should most likely be a generic function instead\n ;; of the assumption that all matches' summaries relate to the\n ;; buffer text in a particular way.\n (let* ((summary (xref-item-summary item))\n ;; Sometimes buffer contents include ^M, and sometimes Grep\n ;; output includes it, and they don't always match.\n (strip (lambda (s) (if (string-match \"\\r\\\\'\" s)\n (substring-no-properties s 0 -1)\n s)))\n (stripped-summary (funcall strip summary))\n (lendpos (line-end-position))\n (check (lambda ()\n (let ((comparison-end\n (+ (point) (length stripped-summary))))\n (and (>= lendpos comparison-end)\n (equal stripped-summary\n (buffer-substring-no-properties\n (point) comparison-end)))))))\n (not\n (or\n ;; Either summary contains match text and after\n ;; (2nd+ match on the line)...\n (funcall check)\n ;; ...or it starts at bol, includes the match and after.\n (and (< (point) (+ (line-beginning-position)\n (length stripped-summary)))\n (save-excursion\n (forward-line 0)\n (funcall check)))))))\n\n;; FIXME: Write a nicer UI.\n(defun xref--query-replace-1 (from to iter)\n (let* ((query-replace-lazy-highlight nil)\n (continue t)\n did-it-once buf-pairs pairs\n current-beg current-end\n ;; Counteract the \"do the next match now\" hack in\n ;; `perform-replace'. And still, it'll report that those\n ;; matches were \"filtered out\" at the end.\n (isearch-filter-predicate\n (lambda (beg end)\n (and current-beg\n (>= beg current-beg)\n (<= end current-end))))\n (replace-re-search-function\n (lambda (from &optional _bound noerror)\n (let (found pair)\n (while (and (not found) pairs)\n (setq pair (pop pairs)\n current-beg (car pair)\n current-end (cdr pair))\n (goto-char current-beg)\n (when (re-search-forward from current-end noerror)\n (setq found t)))\n found))))\n (while (and continue (setq buf-pairs (funcall iter :next)))\n (if did-it-once\n ;; Reuse the same window for subsequent buffers.\n (switch-to-buffer (car buf-pairs))\n (xref--with-dedicated-window\n (pop-to-buffer (car buf-pairs)))\n (setq did-it-once t))\n (setq pairs (cdr buf-pairs))\n (setq continue\n (perform-replace from to t t nil nil multi-query-replace-map)))\n (unless did-it-once (user-error \"No suitable matches here\"))\n (when (and continue (not buf-pairs))\n (message \"All results processed\"))))\n\n(defvar xref--xref-buffer-mode-map\n (let ((map (make-sparse-keymap)))\n (define-key map (kbd \"n\") #'xref-next-line)\n (define-key map (kbd \"p\") #'xref-prev-line)\n (define-key map (kbd \"N\") #'xref-next-group)\n (define-key map (kbd \"P\") #'xref-prev-group)\n (define-key map (kbd \"r\") #'xref-query-replace-in-results)\n (define-key map (kbd \"RET\") #'xref-goto-xref)\n (define-key map (kbd \"TAB\") #'xref-quit-and-goto-xref)\n (define-key map (kbd \"C-o\") #'xref-show-location-at-point)\n ;; suggested by Johan Claesson \"to further reduce finger movement\":\n (define-key map (kbd \".\") #'xref-next-line)\n (define-key map (kbd \",\") #'xref-prev-line)\n (define-key map (kbd \"g\") #'xref-revert-buffer)\n (define-key map (kbd \"M-,\") #'xref-quit-and-pop-marker-stack)\n map))\n\n(define-derived-mode xref--xref-buffer-mode special-mode \"XREF\"\n \"Mode for displaying cross-references.\"\n (setq buffer-read-only t)\n (setq next-error-function #'xref--next-error-function)\n (setq next-error-last-buffer (current-buffer))\n (setq imenu-prev-index-position-function\n #'xref--imenu-prev-index-position)\n (setq imenu-extract-index-name-function\n #'xref--imenu-extract-index-name))\n\n(defvar xref--transient-buffer-mode-map\n (let ((map (make-sparse-keymap)))\n (define-key map (kbd \"RET\") #'xref-quit-and-goto-xref)\n (set-keymap-parent map xref--xref-buffer-mode-map)\n map))\n\n(define-derived-mode xref--transient-buffer-mode\n xref--xref-buffer-mode\n \"XREF Transient\")\n\n(defun xref--imenu-prev-index-position ()\n \"Move point to previous line in `xref' buffer.\nThis function is used as a value for\n`imenu-prev-index-position-function'.\"\n (if (bobp)\n nil\n (xref--search-property 'xref-group t)))\n\n(defun xref--imenu-extract-index-name ()\n \"Return imenu name for line at point.\nThis function is used as a value for\n`imenu-extract-index-name-function'. Point should be at the\nbeginning of the line.\"\n (buffer-substring-no-properties (line-beginning-position)\n (line-end-position)))\n\n(defun xref--next-error-function (n reset?)\n (when reset?\n (goto-char (point-min)))\n (let ((backward (< n 0))\n (n (abs n))\n (xref nil))\n (if (= n 0)\n (setq xref (get-text-property (point) 'xref-item))\n (dotimes (_ n)\n (setq xref (xref--search-property 'xref-item backward))))\n (cond (xref\n ;; Save the current position (when the buffer is visible,\n ;; it gets reset to that window's point from time to time).\n (let ((win (get-buffer-window (current-buffer))))\n (and win (set-window-point win (point))))\n (xref--set-arrow)\n (let ((xref-current-item xref))\n (xref--show-location (xref-item-location xref) t)))\n (t\n (error \"No %s xref\" (if backward \"previous\" \"next\"))))))\n\n(defvar xref--button-map\n (let ((map (make-sparse-keymap)))\n (define-key map [mouse-1] #'xref-goto-xref)\n (define-key map [mouse-2] #'xref-select-and-show-xref)\n map))\n\n(defun xref-select-and-show-xref (event)\n \"Move point to the button and show the xref definition.\nThe window showing the xref buffer will be selected.\"\n (interactive \"e\")\n (mouse-set-point event)\n (forward-line 0)\n (or (get-text-property (point) 'xref-item)\n (xref--search-property 'xref-item))\n (xref-show-location-at-point))\n\n(define-obsolete-function-alias\n 'xref--mouse-2 #'xref-select-and-show-xref \"28.1\")\n\n(defcustom xref-truncation-width 400\n \"The column to visually \\\"truncate\\\" each Xref buffer line to.\"\n :type '(choice\n (integer :tag \"Number of columns\")\n (const :tag \"Disable truncation\" nil)))\n\n(defun xref--apply-truncation ()\n (let ((bol (line-beginning-position))\n (eol (line-end-position))\n (inhibit-read-only t)\n pos adjusted-bol)\n (when (and xref-truncation-width\n (> (- eol bol) xref-truncation-width)\n ;; Either truncation not applied yet, or it hides the current\n ;; position: need to refresh.\n (or (and (null (get-text-property (1- eol) 'invisible))\n (null (get-text-property bol 'invisible)))\n (get-text-property (point) 'invisible)))\n (setq adjusted-bol\n (cond\n ((eq (get-text-property bol 'face) 'xref-line-number)\n (next-single-char-property-change bol 'face))\n (t bol)))\n (cond\n ((< (- (point) bol) xref-truncation-width)\n (setq pos (+ bol xref-truncation-width))\n (remove-text-properties bol pos '(invisible))\n (put-text-property pos eol 'invisible 'ellipsis))\n ((< (- eol (point)) xref-truncation-width)\n (setq pos (- eol xref-truncation-width))\n (remove-text-properties pos eol '(invisible))\n (put-text-property adjusted-bol pos 'invisible 'ellipsis))\n (t\n (setq pos (- (point) (/ xref-truncation-width 2)))\n (put-text-property adjusted-bol pos 'invisible 'ellipsis)\n (remove-text-properties pos (+ pos xref-truncation-width) '(invisible))\n (put-text-property (+ pos xref-truncation-width) eol 'invisible 'ellipsis))))))\n\n(defun xref--insert-xrefs (xref-alist)\n \"Insert XREF-ALIST in the current buffer.\nXREF-ALIST is of the form ((GROUP . (XREF ...)) ...), where\nGROUP is a string for decoration purposes and XREF is an\n`xref-item' object.\"\n (require 'compile) ; For the compilation faces.\n (cl-loop for (group . xrefs) in xref-alist\n for max-line = (cl-loop for xref in xrefs\n maximize (xref-location-line\n (xref-item-location xref)))\n for line-format = (and max-line\n (format \"%%%dd: \" (1+ (floor (log max-line 10)))))\n with item-text-props = (list 'mouse-face 'highlight\n 'keymap xref--button-map\n 'help-echo\n (concat \"mouse-2: display in another window, \"\n \"RET or mouse-1: follow reference\"))\n with prev-group = nil\n with prev-line = nil\n do\n (xref--insert-propertized '(face xref-file-header xref-group t)\n group \"\\n\")\n (dolist (xref xrefs)\n (pcase-let (((cl-struct xref-item summary location) xref))\n (let* ((line (xref-location-line location))\n (prefix\n (cond\n ((not line) \" \")\n ((and (equal line prev-line)\n (equal prev-group group))\n \"\")\n (t (propertize (format line-format line)\n 'face 'xref-line-number)))))\n ;; Render multiple matches on the same line, together.\n (when (and (equal prev-group group)\n (or (null line)\n (not (equal prev-line line))))\n (insert \"\\n\"))\n (xref--insert-propertized (nconc (list 'xref-item xref)\n item-text-props)\n prefix summary)\n (setq prev-line line\n prev-group group))))\n (insert \"\\n\"))\n (add-to-invisibility-spec '(ellipsis . t))\n (save-excursion\n (goto-char (point-min))\n (while (= 0 (forward-line 1))\n (xref--apply-truncation)))\n (run-hooks 'xref-after-update-hook))\n\n(defun xref--group-name-for-display (group project-root)\n \"Return GROUP formatted in the preferred style.\n\nThe style is determined by the value of `xref-file-name-display'.\nIf GROUP looks like a file name, its value is formatted according\nto that style. Otherwise it is returned unchanged.\"\n ;; XXX: The way we verify that it's indeed a file name and not some\n ;; other kind of string, e.g. Java package name or TITLE from\n ;; `tags-apropos-additional-actions', is pretty lax. But we don't\n ;; want to use `file-exists-p' for performance reasons. If this\n ;; ever turns out to be a problem, some other alternatives are to\n ;; either have every location type which uses file names format the\n ;; values themselves (e.g. by piping through some public function),\n ;; or adding a new accessor to locations, like GROUP-TYPE.\n (cl-ecase xref-file-name-display\n (abs group)\n (nondirectory\n (if (string-match-p \"\\\\`~?/\" group)\n (file-name-nondirectory group)\n group))\n (project-relative\n (if (and project-root\n (string-prefix-p project-root group))\n (substring group (length project-root))\n group))))\n\n(defun xref--analyze (xrefs)\n \"Find common groups in XREFS and format group names.\nReturn an alist of the form ((GROUP . (XREF ...)) ...).\"\n (let* ((alist\n (xref--alistify xrefs\n (lambda (x)\n (xref-location-group (xref-item-location x)))))\n (project (and\n (eq xref-file-name-display 'project-relative)\n (project-current)))\n (project-root (and project\n (expand-file-name (xref--project-root project)))))\n (mapcar\n (lambda (pair)\n (cons (xref--group-name-for-display (car pair) project-root)\n (cdr pair)))\n alist)))\n\n(defun xref--ensure-default-directory (dd buffer)\n ;; We might be in a let-binding which will restore the current value\n ;; to a previous one (bug#53626). So do this later.\n (run-with-timer\n 0 nil\n (lambda () (with-current-buffer buffer (setq default-directory dd)))))\n\n(defun xref--show-xref-buffer (fetcher alist)\n (cl-assert (functionp fetcher))\n (let* ((xrefs\n (or\n (assoc-default 'fetched-xrefs alist)\n (funcall fetcher)))\n (xref-alist (xref--analyze xrefs))\n (dd default-directory)\n buf)\n (with-current-buffer (get-buffer-create xref-buffer-name)\n (xref--ensure-default-directory dd (current-buffer))\n (xref--xref-buffer-mode)\n (xref--show-common-initialize xref-alist fetcher alist)\n (pop-to-buffer (current-buffer))\n (setq buf (current-buffer)))\n (xref--auto-jump-first buf (assoc-default 'auto-jump alist))\n buf))\n\n(defun xref--project-root (project)\n (if (fboundp 'project-root)\n (project-root project)\n (with-no-warnings\n (car (project-roots project)))))\n\n(defun xref--show-common-initialize (xref-alist fetcher alist)\n (setq buffer-undo-list nil)\n (let ((inhibit-read-only t)\n (buffer-undo-list t)\n (inhibit-modification-hooks t))\n (erase-buffer)\n (setq overlay-arrow-position nil)\n (xref--insert-xrefs xref-alist)\n (add-hook 'post-command-hook 'xref--apply-truncation nil t)\n (goto-char (point-min))\n (setq xref--original-window (assoc-default 'window alist)\n xref--original-window-intent (assoc-default 'display-action alist))\n (setq xref--fetcher fetcher)))\n\n(defun xref-revert-buffer ()\n \"Refresh the search results in the current buffer.\"\n (interactive)\n (let ((inhibit-read-only t)\n (buffer-undo-list t)\n (inhibit-modification-hooks t))\n (save-excursion\n (condition-case err\n (let ((alist (xref--analyze (funcall xref--fetcher))))\n (erase-buffer)\n (xref--insert-xrefs alist))\n (user-error\n (erase-buffer)\n (insert\n (propertize\n (error-message-string err)\n 'face 'error)))))))\n\n(defun xref--auto-jump-first (buf value)\n (when value\n (select-window (get-buffer-window buf))\n (goto-char (point-min)))\n (cond\n ((eq value t)\n (xref-next-line-no-show)\n (xref-goto-xref))\n ((eq value 'show)\n (xref-next-line))\n ((eq value 'move)\n (forward-line 1))))\n\n(defun xref-show-definitions-buffer (fetcher alist)\n \"Show the definitions list in a regular window.\n\nWhen only one definition found, jump to it right away instead.\"\n (let ((xrefs (funcall fetcher))\n buf)\n (cond\n ((not (cdr xrefs))\n (xref-pop-to-location (car xrefs)\n (assoc-default 'display-action alist)))\n (t\n (setq buf\n (xref--show-xref-buffer fetcher\n (cons (cons 'fetched-xrefs xrefs)\n alist)))\n (xref--auto-jump-first buf (assoc-default 'auto-jump alist))\n buf))))\n\n(define-obsolete-function-alias\n 'xref--show-defs-buffer #'xref-show-definitions-buffer \"28.1\")\n\n(defun xref-show-definitions-buffer-at-bottom (fetcher alist)\n \"Show the definitions list in a window at the bottom.\n\nWhen there is more than one definition, split the selected window\nand show the list in a small window at the bottom. And use a\nlocal keymap that binds `RET' to `xref-quit-and-goto-xref'.\"\n (let* ((xrefs (funcall fetcher))\n (dd default-directory)\n ;; XXX: Make percentage customizable maybe?\n (max-height (/ (window-height) 2))\n (size-fun (lambda (window)\n (fit-window-to-buffer window max-height)))\n buf)\n (cond\n ((not (cdr xrefs))\n (xref-pop-to-location (car xrefs)\n (assoc-default 'display-action alist)))\n (t\n (with-current-buffer (get-buffer-create xref-buffer-name)\n (xref--ensure-default-directory dd (current-buffer))\n (xref--transient-buffer-mode)\n (xref--show-common-initialize (xref--analyze xrefs) fetcher alist)\n (pop-to-buffer (current-buffer)\n `(display-buffer-in-direction . ((direction . below)\n (window-height . ,size-fun))))\n (setq buf (current-buffer)))\n (xref--auto-jump-first buf (assoc-default 'auto-jump alist))\n buf))))\n\n(define-obsolete-function-alias 'xref--show-defs-buffer-at-bottom\n #'xref-show-definitions-buffer-at-bottom \"28.1\")\n\n(defun xref--completing-read-group (cand transform)\n \"Return group title of candidate CAND or TRANSFORM the candidate.\"\n (if transform\n (substring cand (1+ (next-single-property-change 0 'xref--group cand)))\n (get-text-property 0 'xref--group cand)))\n\n(defun xref-show-definitions-completing-read (fetcher alist)\n \"Let the user choose the target definition with completion.\n\nWhen there is more than one definition, let the user choose\nbetween them by typing in the minibuffer with completion.\"\n (let* ((xrefs (funcall fetcher))\n (xref-alist (xref--analyze xrefs))\n xref-alist-with-line-info\n xref\n (group-prefix-length\n ;; FIXME: Groups are not always file names, but they often\n ;; are. At least this shouldn't make the other kinds of\n ;; groups look worse.\n (let ((common-prefix (try-completion \"\" xref-alist)))\n (if (> (length common-prefix) 0)\n (length (file-name-directory common-prefix))\n 0))))\n\n (cl-loop for ((group . xrefs) . more1) on xref-alist\n do\n (cl-loop for (xref . more2) on xrefs do\n (let* ((summary (xref-item-summary xref))\n (location (xref-item-location xref))\n (line (xref-location-line location))\n (line-fmt\n (if line\n (format #(\"%d:\" 0 2 (face xref-line-number))\n line)\n \"\"))\n (group-prefix\n (substring group group-prefix-length))\n (group-fmt\n (propertize group-prefix\n 'face 'xref-file-header\n 'xref--group group-prefix))\n (candidate\n (format \"%s:%s%s\" group-fmt line-fmt summary)))\n (push (cons candidate xref) xref-alist-with-line-info))))\n\n (setq xref (if (not (cdr xrefs))\n (car xrefs)\n (let* ((collection (reverse xref-alist-with-line-info))\n (ctable\n (lambda (string pred action)\n (cond\n ((eq action 'metadata)\n `(metadata\n . ((category . xref-location)\n (group-function . ,#'xref--completing-read-group))))\n (t\n (complete-with-action action collection string pred)))))\n (def (caar collection)))\n (cdr (assoc (completing-read \"Choose definition: \"\n ctable nil t\n nil nil\n def)\n collection)))))\n\n (xref-pop-to-location xref (assoc-default 'display-action alist))))\n\n;; TODO: Can delete this alias before Emacs 28's release.\n(define-obsolete-function-alias\n 'xref--show-defs-minibuffer #'xref-show-definitions-completing-read \"28.1\")\n\n\f\n(defcustom xref-show-xrefs-function 'xref--show-xref-buffer\n \"Function to display a list of search results.\n\nIt should accept two arguments: FETCHER and ALIST.\n\nFETCHER is a function of no arguments that returns a list of xref\nvalues. It must not depend on the current buffer or selected\nwindow.\n\nALIST can include, but limited to, the following keys:\n\nWINDOW for the window that was selected before the current\ncommand was called.\n\nDISPLAY-ACTION indicates where the target location should be\ndisplayed. The possible values are nil, `window' meaning the\nother window, or `frame' meaning the other frame.\"\n :type 'function)\n\n(defcustom xref-show-definitions-function 'xref-show-definitions-buffer\n \"Function to handle the definition search results.\n\nAccepts the same arguments as `xref-show-xrefs-function'.\n\nGenerally, it is expected to jump to the definition if there's\nonly one, and otherwise provide some way to choose among the\ndefinitions.\"\n :type '(choice\n (const :tag \"Show a regular list of locations\"\n xref-show-definitions-buffer)\n (const :tag \"Show a \\\"transient\\\" list at the bottom of the window\"\n xref-show-definitions-buffer-at-bottom)\n (const :tag \"Choose the definition with completion\"\n xref-show-definitions-completing-read)\n (function :tag \"Custom function\")))\n\n(defvar xref--read-identifier-history nil)\n\n(defvar xref--read-pattern-history nil)\n\n;;;###autoload\n(defun xref-show-xrefs (fetcher display-action)\n \"Display some Xref values produced by FETCHER using DISPLAY-ACTION.\nThe meanings of both arguments are the same as documented in\n`xref-show-xrefs-function'.\"\n (xref--show-xrefs fetcher display-action))\n\n(defun xref--show-xrefs (fetcher display-action &optional _always-show-list)\n (xref--push-markers)\n (unless (functionp fetcher)\n ;; Old convention.\n (let ((xrefs fetcher))\n (setq fetcher\n (lambda ()\n (if (eq xrefs 'called-already)\n (user-error \"Refresh is not supported\")\n (prog1\n xrefs\n (setq xrefs 'called-already)))))))\n (funcall xref-show-xrefs-function fetcher\n `((window . ,(selected-window))\n (display-action . ,display-action)\n (auto-jump . ,xref-auto-jump-to-first-xref))))\n\n(defun xref--show-defs (xrefs display-action)\n (xref--push-markers)\n (funcall xref-show-definitions-function xrefs\n `((window . ,(selected-window))\n (display-action . ,display-action)\n (auto-jump . ,xref-auto-jump-to-first-definition))))\n\n(defun xref--push-markers ()\n (unless (region-active-p) (push-mark nil t))\n (xref-push-marker-stack))\n\n(defun xref--prompt-p (command)\n (or (eq xref-prompt-for-identifier t)\n (if (eq (car xref-prompt-for-identifier) 'not)\n (not (memq command (cdr xref-prompt-for-identifier)))\n (memq command xref-prompt-for-identifier))))\n\n(defun xref--read-identifier (prompt)\n \"Return the identifier at point or read it from the minibuffer.\"\n (let* ((backend (xref-find-backend))\n (def (xref-backend-identifier-at-point backend))\n (completion-ignore-case\n (xref-backend-identifier-completion-ignore-case backend)))\n (cond ((or current-prefix-arg\n (not def)\n (xref--prompt-p this-command))\n (let ((id\n (completing-read\n ;; `format-prompt' is new in Emacs 28.1\n (if (fboundp 'format-prompt)\n (format-prompt (substring prompt 0 (string-match\n \"[ :]+\\\\'\" prompt))\n def)\n (if def\n (format \"%s (default %s): \"\n (substring prompt 0 (string-match\n \"[ :]+\\\\'\" prompt))\n def)\n prompt))\n (xref-backend-identifier-completion-table backend)\n nil nil nil\n 'xref--read-identifier-history def)))\n (if (equal id \"\")\n (or def (user-error \"There is no default identifier\"))\n id)))\n (t def))))\n\n\f\n;;; Commands\n\n(defun xref--find-xrefs (input kind arg display-action)\n (xref--show-xrefs\n (xref--create-fetcher input kind arg)\n display-action))\n\n(defun xref--find-definitions (id display-action)\n (xref--show-defs\n (xref--create-fetcher id 'definitions id)\n display-action))\n\n(defun xref--create-fetcher (input kind arg)\n \"Return an xref list fetcher function.\n\nIt revisits the saved position and delegates the finding logic to\nthe xref backend method indicated by KIND and passes ARG to it.\"\n (let* ((orig-buffer (current-buffer))\n (orig-position (point))\n (backend (xref-find-backend))\n (method (intern (format \"xref-backend-%s\" kind))))\n (lambda ()\n (save-excursion\n ;; Xref methods are generally allowed to depend on the text\n ;; around point, not just on their explicit arguments.\n ;;\n ;; There is only so much we can do, however, to recreate that\n ;; context, given that the user is free to change the buffer\n ;; contents freely in the meantime.\n (when (buffer-live-p orig-buffer)\n (set-buffer orig-buffer)\n (ignore-errors (goto-char orig-position)))\n (let ((xrefs (funcall method backend arg)))\n (unless xrefs\n (xref--not-found-error kind input))\n xrefs)))))\n\n(defun xref--not-found-error (kind input)\n (user-error \"No %s found for: %s\" (symbol-name kind) input))\n\n;;;###autoload\n(defun xref-find-definitions (identifier)\n \"Find the definition of the identifier at point.\nWith prefix argument or when there's no identifier at point,\nprompt for it.\n\nIf sufficient information is available to determine a unique\ndefinition for IDENTIFIER, display it in the selected window.\nOtherwise, display the list of the possible definitions in a\nbuffer where the user can select from the list.\n\nUse \\\\[xref-go-back] to return back to where you invoked this command.\"\n (interactive (list (xref--read-identifier \"Find definitions of: \")))\n (xref--find-definitions identifier nil))\n\n;;;###autoload\n(defun xref-find-definitions-other-window (identifier)\n \"Like `xref-find-definitions' but switch to the other window.\"\n (interactive (list (xref--read-identifier \"Find definitions of: \")))\n (xref--find-definitions identifier 'window))\n\n;;;###autoload\n(defun xref-find-definitions-other-frame (identifier)\n \"Like `xref-find-definitions' but switch to the other frame.\"\n (interactive (list (xref--read-identifier \"Find definitions of: \")))\n (xref--find-definitions identifier 'frame))\n\n;;;###autoload\n(defun xref-find-references (identifier)\n \"Find references to the identifier at point.\nThis command might prompt for the identifier as needed, perhaps\noffering the symbol at point as the default.\nWith prefix argument, or if `xref-prompt-for-identifier' is t,\nalways prompt for the identifier. If `xref-prompt-for-identifier'\nis nil, prompt only if there's no usable symbol at point.\"\n (interactive (list (xref--read-identifier \"Find references of: \")))\n (xref--find-xrefs identifier 'references identifier nil))\n\n(defun xref-find-references-and-replace (from to)\n \"Replace all references to identifier FROM with TO.\"\n (interactive\n (let* ((query-replace-read-from-default 'find-tag-default)\n (common\n (query-replace-read-args \"Query replace identifier\" nil)))\n (list (nth 0 common) (nth 1 common))))\n (require 'xref)\n (with-current-buffer\n (let ((xref-show-xrefs-function\n ;; Some future-proofing (bug#44905).\n (custom--standard-value 'xref-show-xrefs-function))\n ;; Disable auto-jumping, it will mess up replacement logic.\n xref-auto-jump-to-first-xref)\n (xref-find-references from))\n (xref-query-replace-in-results \".*\" to)))\n\n;;;###autoload\n(defun xref-find-definitions-at-mouse (event)\n \"Find the definition of identifier at or around mouse click.\nThis command is intended to be bound to a mouse event.\"\n (interactive \"e\")\n (let ((identifier\n (save-excursion\n (mouse-set-point event)\n (xref-backend-identifier-at-point (xref-find-backend)))))\n (if identifier\n (xref-find-definitions identifier)\n (user-error \"No identifier here\"))))\n\n;;;###autoload\n(defun xref-find-references-at-mouse (event)\n \"Find references to the identifier at or around mouse click.\nThis command is intended to be bound to a mouse event.\"\n (interactive \"e\")\n (let ((identifier\n (save-excursion\n (mouse-set-point event)\n (xref-backend-identifier-at-point (xref-find-backend)))))\n (if identifier\n (let ((xref-prompt-for-identifier nil))\n (xref-find-references identifier))\n (user-error \"No identifier here\"))))\n\n(declare-function apropos-parse-pattern \"apropos\" (pattern))\n\n;;;###autoload\n(defun xref-find-apropos (pattern)\n \"Find all meaningful symbols that match PATTERN.\nThe argument has the same meaning as in `apropos'.\nSee `tags-apropos-additional-actions' for how to augment the\noutput of this command when the backend is etags.\"\n (interactive (list (read-string\n \"Search for pattern (word list or regexp): \"\n nil 'xref--read-pattern-history\n (xref-backend-identifier-at-point\n (xref-find-backend)))))\n (require 'apropos)\n (let* ((newpat\n (if (and (version< emacs-version \"28.0.50\")\n (memq (xref-find-backend) '(elisp etags)))\n ;; Handle backends in older Emacs.\n (xref-apropos-regexp pattern)\n ;; Delegate pattern handling to the backend fully.\n ;; The old way didn't work for \"external\" backends.\n pattern)))\n (xref--find-xrefs pattern 'apropos newpat nil)))\n\n(defun xref-apropos-regexp (pattern)\n \"Return an Emacs regexp from PATTERN similar to `apropos'.\"\n (apropos-parse-pattern\n (if (string-equal (regexp-quote pattern) pattern)\n ;; Split into words\n (or (split-string pattern \"[ \\t]+\" t)\n (user-error \"No word list given\"))\n pattern)))\n\n\f\n;;; Key bindings\n\n;;;###autoload (define-key esc-map \".\" #'xref-find-definitions)\n;;;###autoload (define-key esc-map \",\" #'xref-go-back)\n;;;###autoload (define-key esc-map [?\\C-,] #'xref-go-forward)\n;;;###autoload (define-key esc-map \"?\" #'xref-find-references)\n;;;###autoload (define-key esc-map [?\\C-.] #'xref-find-apropos)\n;;;###autoload (define-key ctl-x-4-map \".\" #'xref-find-definitions-other-window)\n;;;###autoload (define-key ctl-x-5-map \".\" #'xref-find-definitions-other-frame)\n\n\f\n;;; Helper functions\n\n(defvar xref-etags-mode--saved nil)\n\n(define-minor-mode xref-etags-mode\n \"Minor mode to make xref use etags again.\n\nCertain major modes install their own mechanisms for listing\nidentifiers and navigation. Turn this on to undo those settings\nand just use etags.\"\n :lighter \"\"\n (if xref-etags-mode\n (progn\n (setq xref-etags-mode--saved xref-backend-functions)\n (kill-local-variable 'xref-backend-functions))\n (setq-local xref-backend-functions xref-etags-mode--saved)))\n\n(declare-function semantic-symref-instantiate \"semantic/symref\")\n(declare-function semantic-symref-perform-search \"semantic/symref\")\n(declare-function grep-expand-template \"grep\")\n(defvar ede-minor-mode) ;; ede.el\n\n;;;###autoload\n(defun xref-references-in-directory (symbol dir)\n \"Find all references to SYMBOL in directory DIR.\nReturn a list of xref values.\n\nThis function uses the Semantic Symbol Reference API, see\n`semantic-symref-tool-alist' for details on which tools are used,\nand when.\"\n (cl-assert (directory-name-p dir))\n (require 'semantic/symref)\n (defvar semantic-symref-tool)\n\n ;; Some symref backends use `ede-project-root-directory' as the root\n ;; directory for the search, rather than `default-directory'. Since\n ;; the caller has specified `dir', we bind `ede-minor-mode' to nil\n ;; to force the backend to use `default-directory'.\n (let* ((ede-minor-mode nil)\n (default-directory dir)\n ;; FIXME: Remove CScope and Global from the recognized tools?\n ;; The current implementations interpret the symbol search as\n ;; \"find all calls to the given function\", but not function\n ;; definition. And they return nothing when passed a variable\n ;; name, even a global one.\n (semantic-symref-tool 'detect)\n (case-fold-search nil)\n (inst (semantic-symref-instantiate :searchfor symbol\n :searchtype 'symbol\n :searchscope 'subdirs\n :resulttype 'line-and-text)))\n (xref--convert-hits (semantic-symref-perform-search inst)\n (format \"\\\\_<%s\\\\_>\" (regexp-quote symbol)))))\n\n(define-obsolete-function-alias\n 'xref-collect-references\n #'xref-references-in-directory\n \"27.1\")\n\n;;;###autoload\n(defun xref-matches-in-directory (regexp files dir ignores)\n \"Find all matches for REGEXP in directory DIR.\nReturn a list of xref values.\nOnly files matching some of FILES and none of IGNORES are searched.\nFILES is a string with glob patterns separated by spaces.\nIGNORES is a list of glob patterns for files to ignore.\"\n ;; DIR can also be a regular file for now; let's not advertise that.\n (grep-compute-defaults)\n (defvar grep-find-template)\n (defvar grep-highlight-matches)\n (pcase-let*\n ((grep-find-template (replace-regexp-in-string \"\" \" -E\"\n grep-find-template t t))\n (grep-highlight-matches nil)\n ;; TODO: Sanitize the regexp to remove Emacs-specific terms,\n ;; so that Grep can search for the \"relaxed\" version. Can we\n ;; do that reliably enough, without creating false negatives?\n (command (xref--rgrep-command (xref--regexp-to-extended regexp)\n files\n \".\"\n ignores))\n (local-dir (directory-file-name\n (file-name-unquote\n (file-local-name (expand-file-name dir)))))\n (buf (get-buffer-create \" *xref-grep*\"))\n (`(,grep-re ,file-group ,line-group . ,_) (car grep-regexp-alist))\n (status nil)\n (hits nil))\n (with-current-buffer buf\n (erase-buffer)\n (setq default-directory dir)\n (setq status\n (process-file-shell-command command nil t))\n (goto-char (point-min))\n ;; Can't use the exit status: Grep exits with 1 to mean \"no\n ;; matches found\". Find exits with 1 if any of the invocations\n ;; exit with non-zero. \"No matches\" and \"Grep program not found\"\n ;; are all the same to it.\n (when (and (/= (point-min) (point-max))\n (not (looking-at grep-re)))\n (user-error \"Search failed with status %d: %s\" status (buffer-string)))\n (while (re-search-forward grep-re nil t)\n (push (list (string-to-number (match-string line-group))\n (concat local-dir (substring (match-string file-group) 1))\n (buffer-substring-no-properties (point) (line-end-position)))\n hits)))\n (xref--convert-hits (nreverse hits) regexp)))\n\n(define-obsolete-function-alias\n 'xref-collect-matches\n #'xref-matches-in-directory\n \"27.1\")\n\n(declare-function tramp-tramp-file-p \"tramp\")\n(declare-function tramp-file-local-name \"tramp\")\n\n;; TODO: Experiment with 'xargs -P4' (or any other number).\n;; This speeds up either command, even more than rg's '-j4' does.\n;; Ripgrep gets jumbled output, though, even with --line-buffered.\n;; But Grep seems to be stable. Even without --line-buffered.\n(defcustom xref-search-program-alist\n '((grep\n .\n ;; '-s' because 'git ls-files' can output broken symlinks.\n \"xargs -0 grep --null -snHE -e \")\n (ripgrep\n .\n ;; '!*/' is there to filter out dirs (e.g. submodules).\n \"xargs -0 rg --null -nH --no-heading --no-messages -g '!*/' -e \"\n ))\n \"Associative list mapping program identifiers to command templates.\n\nProgram identifier should be a symbol, named after the search program.\n\nThe command template must be a shell command (or usually a\npipeline) that will search the files based on the list of file\nnames that is piped from stdin, separated by null characters.\nThe template should have the following fields:\n\n for extra arguments such as -i and --color\n for the regexp itself (in Extended format)\"\n :type '(repeat\n (cons (symbol :tag \"Program identifier\")\n (string :tag \"Command template\")))\n :version \"28.1\"\n :package-version '(xref . \"1.0.4\"))\n\n(defcustom xref-search-program 'grep\n \"The program to use for regexp search inside files.\n\nThis must reference a corresponding entry in `xref-search-program-alist'.\n\nThis variable is used in `xref-matches-in-files', which is the\nutility function used by commands like `dired-do-find-regexp' and\n`project-find-regexp'.\"\n :type '(choice\n (const :tag \"Use Grep\" grep)\n (const :tag \"Use ripgrep\" ripgrep)\n (symbol :tag \"User defined\"))\n :version \"28.1\"\n :package-version '(xref . \"1.0.4\"))\n\n;;;###autoload\n(defun xref-matches-in-files (regexp files)\n \"Find all matches for REGEXP in FILES.\nReturn a list of xref values.\nFILES must be a list of absolute file names.\n\nSee `xref-search-program' and `xref-search-program-alist' for how\nto control which program to use when looking for matches.\"\n (cl-assert (consp files))\n (require 'grep)\n (defvar grep-highlight-matches)\n (pcase-let*\n ((output (get-buffer-create \" *project grep output*\"))\n (`(,grep-re ,file-group ,line-group . ,_) (car grep-regexp-alist))\n (status nil)\n (hits nil)\n ;; Support for remote files. The assumption is that, if the\n ;; first file is remote, they all are, and on the same host.\n (dir (file-name-directory (car files)))\n (remote-id (file-remote-p dir))\n ;; The 'auto' default would be fine too, but ripgrep can't handle\n ;; the options we pass in that case.\n (grep-highlight-matches nil)\n (command (grep-expand-template (cdr\n (or\n (assoc\n xref-search-program\n xref-search-program-alist)\n (user-error \"Unknown search program `%s'\"\n xref-search-program)))\n (xref--regexp-to-extended regexp))))\n (when remote-id\n (require 'tramp)\n (setq files (mapcar\n (if (tramp-tramp-file-p dir)\n #'tramp-file-local-name\n #'file-local-name)\n files)))\n (when (file-name-quoted-p (car files))\n (setq files (mapcar #'file-name-unquote files)))\n (with-current-buffer output\n (erase-buffer)\n (with-temp-buffer\n (insert (mapconcat #'identity files \"\\0\"))\n (setq default-directory dir)\n (setq status\n (xref--process-file-region (point-min)\n (point-max)\n shell-file-name\n output\n nil\n shell-command-switch\n command)))\n (goto-char (point-min))\n (when (and (/= (point-min) (point-max))\n (not (looking-at grep-re))\n ;; TODO: Show these matches as well somehow?\n (not (looking-at \"Binary file .* matches\")))\n (user-error \"Search failed with status %d: %s\" status\n (buffer-substring (point-min) (line-end-position))))\n (while (re-search-forward grep-re nil t)\n (push (list (string-to-number (match-string line-group))\n (match-string file-group)\n (buffer-substring-no-properties (point) (line-end-position)))\n hits)))\n ;; By default, ripgrep's output order is non-deterministic\n ;; (https://github.com/BurntSushi/ripgrep/issues/152)\n ;; because it does the search in parallel.\n ;; Grep's output also comes out in seemingly arbitrary order,\n ;; though stable one. Let's sort both for better UI.\n (setq hits\n (sort (nreverse hits)\n (lambda (h1 h2)\n (string< (cadr h1) (cadr h2)))))\n (xref--convert-hits hits regexp)))\n\n(defun xref--process-file-region ( start end program\n &optional buffer display\n &rest args)\n ;; FIXME: This branching shouldn't be necessary, but\n ;; call-process-region *is* measurably faster, even for a program\n ;; doing some actual work (for a period of time). Even though\n ;; call-process-region also creates a temp file internally\n ;; (https://lists.gnu.org/archive/html/emacs-devel/2019-01/msg00211.html).\n (if (not (file-remote-p default-directory))\n (apply #'call-process-region\n start end program nil buffer display args)\n (let ((infile (make-temp-file \"ppfr\")))\n (unwind-protect\n (progn\n (write-region start end infile nil 'silent)\n (apply #'process-file program infile buffer display args))\n (delete-file infile)))))\n\n(defun xref--rgrep-command (regexp files dir ignores)\n (require 'find-dired) ; for `find-name-arg'\n (defvar grep-find-template)\n (defvar find-name-arg)\n ;; `shell-quote-argument' quotes the tilde as well.\n (cl-assert (not (string-match-p \"\\\\`~\" dir)))\n (grep-expand-template\n grep-find-template\n regexp\n (concat (shell-quote-argument \"(\")\n \" \" find-name-arg \" \"\n (mapconcat\n #'shell-quote-argument\n (split-string files)\n (concat \" -o \" find-name-arg \" \"))\n \" \"\n (shell-quote-argument \")\"))\n (shell-quote-argument dir)\n (xref--find-ignores-arguments ignores dir)))\n\n(defun xref--find-ignores-arguments (ignores dir)\n \"Convert IGNORES and DIR to a list of arguments for 'find'.\nIGNORES is a list of glob patterns. DIR is an absolute\ndirectory, used as the root of the ignore globs.\"\n (cl-assert (not (string-match-p \"\\\\`~\" dir)))\n (if (not ignores)\n \"\"\n ;; TODO: All in-tree callers are passing in just \".\" or \"./\".\n ;; We can simplify.\n ;; And, if we ever end up deleting xref-matches-in-directory, move\n ;; this function to the project package.\n (setq dir (file-name-as-directory dir))\n (concat\n (shell-quote-argument \"(\")\n \" -path \"\n (mapconcat\n (lambda (ignore)\n (when (string-match-p \"/\\\\'\" ignore)\n (setq ignore (concat ignore \"*\")))\n (shell-quote-argument (if (string-match \"\\\\`\\\\./\" ignore)\n (replace-match dir t t ignore)\n (if (string-prefix-p \"*\" ignore)\n ignore\n (concat \"*/\" ignore)))))\n ignores\n \" -o -path \")\n \" \"\n (shell-quote-argument \")\")\n \" -prune -o \")))\n\n(defun xref--regexp-to-extended (str)\n (replace-regexp-in-string\n ;; FIXME: Add tests. Move to subr.el, make a public function.\n ;; Maybe error on Emacs-only constructs.\n \"\\\$?:\\\\\\\\\\\\\\\\\\\$*\\\$?:\\\\\\\\[][]\\\$?\\\$?:\\\\[.+?\\\\]\\\\|\\\\(\\\\\\\\?[(){}|]\\\$\\\\)\"\n (lambda (str)\n (cond\n ((not (match-beginning 1))\n str)\n ((eq (length (match-string 1 str)) 2)\n (concat (substring str 0 (match-beginning 1))\n (substring (match-string 1 str) 1 2)))\n (t\n (concat (substring str 0 (match-beginning 1))\n \"\\\\\"\n (match-string 1 str)))))\n str t t))\n\n(defun xref--regexp-syntax-dependent-p (str)\n \"Return non-nil when STR depends on the buffer's syntax.\nSuch as the current syntax table and the applied syntax properties.\"\n (let ((case-fold-search nil))\n (string-match-p (rx\n (or string-start (not (in ?\\\\)))\n (0+ (= 2 ?\\\\))\n ?\\\\\n (in ?b ?B ?< ?> ?w ?W ?_ ?s ?S))\n str)))\n\n(defvar xref--last-file-buffer nil)\n(defvar xref--temp-buffer-file-name nil)\n(defvar xref--hits-remote-id nil)\n\n(defun xref--convert-hits (hits regexp)\n (let (xref--last-file-buffer\n (tmp-buffer (generate-new-buffer \" *xref-temp*\"))\n (xref--hits-remote-id (file-remote-p default-directory))\n (syntax-needed (xref--regexp-syntax-dependent-p regexp)))\n (unwind-protect\n (mapcan (lambda (hit)\n (xref--collect-matches hit regexp tmp-buffer syntax-needed))\n hits)\n (kill-buffer tmp-buffer))))\n\n(defun xref--collect-matches (hit regexp tmp-buffer syntax-needed)\n (pcase-let* ((`(,line ,file ,text) hit)\n (file (and file (concat xref--hits-remote-id file)))\n (buf (xref--find-file-buffer file))\n (inhibit-modification-hooks t))\n (if buf\n (with-current-buffer buf\n (save-excursion\n (save-restriction\n (widen)\n (goto-char (point-min))\n (forward-line (1- line))\n (xref--collect-matches-1 regexp file line\n (line-beginning-position)\n (line-end-position)\n syntax-needed))))\n ;; Using the temporary buffer is both a performance and a buffer\n ;; management optimization.\n (with-current-buffer tmp-buffer\n (erase-buffer)\n (when (and syntax-needed\n (not (equal file xref--temp-buffer-file-name)))\n (insert-file-contents file nil 0 200)\n ;; Can't (setq-local delay-mode-hooks t) because of\n ;; bug#23272, but the performance penalty seems minimal.\n (let ((buffer-file-name file)\n (inhibit-message t)\n message-log-max)\n (ignore-errors\n (set-auto-mode t)))\n (setq-local xref--temp-buffer-file-name file)\n (setq-local inhibit-read-only t)\n (erase-buffer))\n (insert text)\n (goto-char (point-min))\n (xref--collect-matches-1 regexp file line\n (point)\n (point-max)\n syntax-needed)))))\n\n(defun xref--collect-matches-1 (regexp file line line-beg line-end syntax-needed)\n (let (matches\n stop beg end\n last-beg last-end\n summary-end)\n (when syntax-needed\n (syntax-propertize line-end))\n (while (not stop)\n (if (and\n ;; REGEXP might match an empty string. Or line.\n (not (and last-beg (eql end line-beg)))\n (re-search-forward regexp line-end t))\n (setq beg (match-beginning 0)\n end (match-end 0)\n summary-end beg)\n (setq stop t\n summary-end line-end))\n (when last-beg\n (let* ((beg-column (- last-beg line-beg))\n (end-column (- last-end line-beg))\n (summary-start (if matches last-beg line-beg))\n (summary (buffer-substring summary-start\n summary-end))\n (loc (xref-make-file-location file line beg-column)))\n (add-face-text-property (- last-beg summary-start)\n (- last-end summary-start)\n 'xref-match t summary)\n (push (xref-make-match summary loc (- end-column beg-column))\n matches)))\n (setq last-beg beg\n last-end end))\n (nreverse matches)))\n\n(defun xref--find-file-buffer (file)\n (unless (equal (car xref--last-file-buffer) file)\n ;; `find-buffer-visiting' is considerably slower,\n ;; especially on remote files.\n (let ((buf (get-file-buffer file)))\n (when (and buf\n (or\n (buffer-modified-p buf)\n (unless xref--hits-remote-id\n (not (verify-visited-file-modtime (current-buffer))))))\n ;; We can't use buffers whose contents diverge from disk (bug#54025).\n (setq buf nil))\n (setq xref--last-file-buffer (cons file buf))))\n (cdr xref--last-file-buffer))\n\n(provide 'xref)\n\n;;; xref.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"xah-fly-keys-20180606.2020","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":1068388,"end":1068425},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1068425},"to":{"change":7,"start":1068387,"end":1068387},"introduced_by":7}],"inode":{"change":7,"pos":1068387}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"xah-fly-keys-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1068387},"to":{"change":7,"start":1068946,"end":1068995},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1068995},"to":{"change":7,"start":1068427,"end":1068427},"introduced_by":7}],"inode":{"change":7,"pos":1068427}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1068427},"to":{"change":7,"start":1068428,"end":1068945},"introduced_by":7}],"inode":{"change":7,"pos":1068427}},"content":[{"Del":";;; a-autoloads.el --- automatically extracted autoloads\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"a\" \"a.el\" (0 0 0 0))\n;;; Generated autoloads from a.el\n\n(if (fboundp 'register-definition-prefixes) (register-definition-prefixes \"a\" '(\"a-\")))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; a-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"x509-mode-20220926.944","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":1130809,"end":1130842},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1130842},"to":{"change":7,"start":1130808,"end":1130808},"introduced_by":7}],"inode":{"change":7,"pos":1130808}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"constants.txt","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1130808},"to":{"change":7,"start":1168070,"end":1168107},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1168107},"to":{"change":7,"start":1166919,"end":1166919},"introduced_by":7}],"inode":{"change":7,"pos":1166919}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1166919},"to":{"change":7,"start":1166920,"end":1168069},"introduced_by":7}],"inode":{"change":7,"pos":1166919}},"content":[{"Del":"TRUE\nFALSE\nNONE\n\n\nCode Signing\nE-mail Protection\nInvalidity Date\nOCSP Signing\nDVCS\nAny Extended Key Usage\nMicrosoft Smartcardlogin\nMicrosoft Trust List Signing\nNetscape Server Gated Crypto\nStrong Extranet ID\nUnspecified\nRemove From CRL\nSupersede\n\n# openssl/crypto/objects/obj_dat.h\nTLS Web Server Authentication\nTLS Web Client Authentication\nCode Signing\nE-mail Protection\nTime Stamping\nMicrosoft Individual Code Signing\nMicrosoft Commercial Code Signing\nMicrosoft Trust List Signing\nMicrosoft Server Gated Crypto\nMicrosoft Encrypted File System\nMicrosoft Smartcard Login\nMicrosoft User Principal Name\nMicrosoft Encrypted File System\nNetscape Server Gated Crypto\nIPSec End System\nIPSec Tunnel\nIPSec User\n\n\n\n# openssl/crypto/x509v3/v3_bitst.c\nSSL Client\nSSL Server\nS/MIME\nObject Signing\nSSL CA\nS/MIME CA\nObject Signing CA\nDigital Signature\nNon Repudiation\nKey Encipherment\nData Encipherment\nKey Agreement\nCertificate Sign\nCRL Sign\nEncipher Only\nDecipher Only\n\n# openssl/crypto/x509v3/v3_crld.c\nKey Compromise\nCA Compromise\nAffiliation Changed\nSuperseded\nCessation Of Operation\nCertificate Hold\nPrivilege Withdrawn\nAA Compromise\n"}]}},{"FileDel":{"deleted_names":[{"basename":"keyword+constant.txt","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1130808},"to":{"change":7,"start":1166873,"end":1166917},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1166917},"to":{"change":7,"start":1166655,"end":1166655},"introduced_by":7}],"inode":{"change":7,"pos":1166655}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1166655},"to":{"change":7,"start":1166656,"end":1166872},"introduced_by":7}],"inode":{"change":7,"pos":1166655}},"content":[{"Del":"Public Key Algorithm\nX509v3 Basic Constraints\nPolicy\nX509v3 Key Usage\nX509v3 Extended Key Usage\nSignature Algorithm\nHash Algorithm\nMask Algorithm\nNetscape Cert Type\n\n# openssl/crypto/ec/eck_prn.c\nASN1 OID\nNIST CURVE\n"}]}},{"FileDel":{"deleted_names":[{"basename":"keywords.txt","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1130808},"to":{"change":7,"start":1166617,"end":1166653},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1166653},"to":{"change":7,"start":1163923,"end":1163923},"introduced_by":7}],"inode":{"change":7,"pos":1163923}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1163923},"to":{"change":7,"start":1163924,"end":1166616},"introduced_by":7}],"inode":{"change":7,"pos":1163923}},"content":[{"Del":"# openssl/crypto/x509/t_x509.c\nCertificate:\nData:\nVersion:\nSerial Number:\n#Signature Algorithm:\nIssuer:\nValidity:\nSubject:\nSubject Public Key Info:\n#Public Key Algorithm:\nIssuer Unique ID:\nSubject Unique ID:\nX509v3 extensions\nSubject OCSP hash:\nPublic key OCSP hash:\nTrusted Uses:\nNo Trusted Uses.\nRejected Uses:\nNo Rejected Uses.\nAlias:\nKey Id:\nkeyid:\n\n# openssl/crypto/x509v3/v3_alt.c\nX400Name:\nEdiPartyName:\nDirName:\nSerial:\nIP Address:\nRegistered ID:\n\n# openssl/crypto/x509/t_crl.c\nCertificate Revocation List (CRL):\nLast Update:\n# Next Update is treated special in x509-font-lock-keywords\n#Next Update:\nRevoked Certificates:\nRevocation Date:\nCRL extensions\nCRL entry extensions\n\n# openssl/crypto/x509v3/v3_cpols.c\nUser Notice:\nExplicit Text:\nFull Name:\nCSP:\nUnknown Qualifier:\nOrganization:\nNumbers:\n\n# Keys\n# openssl/crypto/rsa/rsa_ameth.c\nPSS parameter restrictions:\nSalt Length:\nTrailer Field:\nPrivate-Key:\nRSA Private-Key:\nRSA-PSS Private-Key:\nPublic-Key:\nRSA Public-Key:\nRSA-PSS Public-Key:\nModulus:\nExponent:\nmodulus:\npublicExponent:\nprivateExponent:\nprime1:\nprime2:\nexponent1:\nexponent2:\ncoefficient:\n# openssl/crypto/ec/ecx_meth.c\npriv:\npub:\n# openssl/crypto/dsa/dsa_ameth.c\nP:\nQ:\nG:\n\n# keyword + constant\n#Hash Algorithm:\n#Mask Algorithm:\n\n# X509v3 extensions\nInvalidity Date:\nNetscape Comment:\nS/MIME Capabilities:\nX509v3 AC Targeting:\nX509v3 Any Policy:\nX509v3 Authority Key Identifier:\nX509v3 CRL Distribution Points:\nX509v3 CRL Number:\nX509v3 CRL Reason Code:\nX509v3 Certificate Issuer:\nX509v3 Certificate Policies:\nX509v3 Delta CRL Indicator:\nX509v3 Freshest CRL:\nX509v3 Inhibit Any Policy:\nX509v3 Issuer Alternative Name:\nX509v3 Issuing Distribution Point:\nX509v3 Key Usage:\nX509v3 Name Constraints:\nX509v3 No Revocation Available:\nX509v3 Policy Constraints:\nX509v3 Policy Mappings:\nX509v3 Private Key Usage Period:\nX509v3 Subject Alternative Name:\nX509v3 Subject Directory Attributes:\nX509v3 Subject Key Identifier:\n\n# PKIX Private Extensions\nAuthority Information Access:\nBiometric Info:\nSubject Information Access:\nProxy Certificate Information:\nTLS Feature:\n\n# access descriptors for authority info access extension\nOCSP\nCA Issuers\nAD Time Stamping\nad dvcs\nCA Repository\n\n# openssl/crypto/dh/dh_ameth.c\nPKCS#3 DH Parameters:\nprivate-key:\npublic-key:\nprime:\ngenerator:\nsubgroup order:\nsubgroup factor:\nseed:\ncounter:\nrecommended-private-length:\n\n# openssl/crypto/ec/eck_prn.c\nField Type:\nBasis Type:\nPolynomial:\nPrime:\nOrder:\nCofactor:\nSeed:\nGenerator (compressed):\nGenerator (uncompressed):\nGenerator (hybrid):\n\n# ???\nserial:\nDH Parameters:\n\n# openssl/crypto/x509v3/v3_bcons.c\n# X509V3_add_value_bool\npathlen\n\n# req\nCertificate Request\nAttributes\nRequested Extensions\n"}]}},{"FileDel":{"deleted_names":[{"basename":"long-name.txt","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1130808},"to":{"change":7,"start":1163884,"end":1163921},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1163921},"to":{"change":7,"start":1162691,"end":1162691},"introduced_by":7}],"inode":{"change":7,"pos":1162691}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1162691},"to":{"change":7,"start":1162692,"end":1163883},"introduced_by":7}],"inode":{"change":7,"pos":1162691}},"content":[{"Del":"# openssl/crypto/objects/objects.txt\n\n# X509\nauthorityRevocationList\nbusinessCategory\ncACertificate\ncertificateRevocationList\ncommonName\ncountryCode3c\ncountryCode3n\ncountryName\ncrossCertificatePair\ndeltaRevocationList\ndescription\ndestinationIndicator\ndistinguishedName\ndnQualifier\ndnsName\ndomainComponent\nenhancedSearchGuide\nfacsimileTelephoneNumber\ngenerationQualifier\ngivenName\nhouseIdentifier\ninitials\ninternationaliSDNNumber\nlocalityName\nname\norganizationIdentifier\norganizationName\norganizationalUnitName\nphysicalDeliveryOfficeName\npostOfficeBox\npostalAddress\npostalCode\npreferredDeliveryMethod\npresentationAddress\nprotocolInformation\npseudonym\nregisteredAddress\nrole\nroleOccupant\nsearchGuide\nserialNumber\nstateOrProvinceName\nstreetAddress\nsupportedAlgorithms\nsupportedApplicationContext\nsurname\ntelephoneNumber\nteletexTerminalIdentifier\ntelexNumber\ntitle\nuniqueMember\nuserCertificate\nuserPassword\nx121Address\nx500UniqueIdentifier\n\n# CABForum EV SSL Certificate Guidelines\njurisdictionCountryName\njurisdictionLocalityName\njurisdictionStateOrProvinceName\n\n# pkcs9\nchallengePassword\ncontentType\ncountersignature\nemailAddress\nmessageDigest\nsigningTime\nunstructuredAddress\nunstructuredName\n"}]}},{"FileDel":{"deleted_names":[{"basename":"x509-mode-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1130808},"to":{"change":7,"start":1162643,"end":1162689},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1162689},"to":{"change":7,"start":1159893,"end":1159893},"introduced_by":7}],"inode":{"change":7,"pos":1159893}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1159893},"to":{"change":7,"start":1159894,"end":1162642},"introduced_by":7}],"inode":{"change":7,"pos":1159893}},"content":[{"Del":";;; x509-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"x509-mode\" \"x509-mode.el\" (0 0 0 0))\n;;; Generated autoloads from x509-mode.el\n\n(autoload 'x509-mode \"x509-mode\" \"\\\nMajor mode for displaying OpenSSL output.\n\n\\\\{x509-mode-map}\n\n\\(fn)\" t nil)\n\n(autoload 'x509-viewcert \"x509-mode\" \"\\\nParse current buffer as a certificate file.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\" t nil)\n\n(autoload 'x509-viewreq \"x509-mode\" \"\\\nParse current buffer as a certificate request file.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\" t nil)\n\n(autoload 'x509-viewcrl \"x509-mode\" \"\\\nParse current buffer as a CRL file.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\" t nil)\n\n(autoload 'x509-viewpkcs7 \"x509-mode\" \"\\\nParse current buffer as a PKCS#7 file.\n\nOutput only certificates and CRLs by default. Add the \\\"-print\\\"\nswitch to output details.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\" t nil)\n\n(autoload 'x509-viewdh \"x509-mode\" \"\\\nParse current buffer as a DH-parameter file.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\" t nil)\n\n(autoload 'x509-viewkey \"x509-mode\" \"\\\nDisplay x509 private key using the OpenSSL pkey command.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\" t nil)\n\n(autoload 'x509-viewlegacykey \"x509-mode\" \"\\\nDisplay x509 private key using the OpenSSL pkey command.\n\nThis function works with older OpenSSL that could not read key from\nstdin. Instead, the buffer file is used with -in.\n\nARGS are arguments to the openssl command.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\nFor example to enter pass-phrase, add -passin pass:PASSPHRASE.\n\n\\(fn &optional ARGS)\" t nil)\n\n(autoload 'x509-dwim \"x509-mode\" \"\\\nGuess the type of object and call the corresponding view-function.\n\nLook at -----BEGIN header for known object types. If unknown\ntype, call `x509-viewasn1'.\" t nil)\n\n(autoload 'x509-asn1-mode \"x509-mode\" \"\\\nMajor mode for displaying openssl asn1parse output.\n\n\\\\{x509-asn1-mode-map}\n\n\\(fn)\" t nil)\n\n(autoload 'x509-viewasn1 \"x509-mode\" \"\\\nParse current buffer as ASN.1.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\" t nil)\n\n(register-definition-prefixes \"x509-mode\" '(\"x509-\"))\n\n;;;***\n\f\n;;;### (autoloads nil nil (\"x509-mode-pkg.el\") (0 0 0 0))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; x509-mode-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"x509-mode-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1130808},"to":{"change":7,"start":1159851,"end":1159891},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1159891},"to":{"change":7,"start":1159462,"end":1159462},"introduced_by":7}],"inode":{"change":7,"pos":1159462}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1159462},"to":{"change":7,"start":1159463,"end":1159850},"introduced_by":7}],"inode":{"change":7,"pos":1159462}},"content":[{"Del":"(define-package \"x509-mode\" \"20220926.944\" \"View certificates, CRLs and keys using OpenSSL\"\n '((emacs \"25.1\"))\n :commit \"933b02832ca2e098f865d2080b9feb058afa008b\" :authors\n '((\"Fredrik Axelsson\" . \"f.axelsson@gmail.com\"))\n :maintainer\n '(\"Fredrik Axelsson\" . \"f.axelsson@gmail.com\")\n :url \"https://github.com/jobbflykt/x509-mode\")\n;; Local Variables:\n;; no-byte-compile: t\n;; End:\n"}]}},{"FileDel":{"deleted_names":[{"basename":"x509-mode.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1130808},"to":{"change":7,"start":1159424,"end":1159460},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1159460},"to":{"change":7,"start":1130844,"end":1130844},"introduced_by":7}],"inode":{"change":7,"pos":1130844}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1130844},"to":{"change":7,"start":1130845,"end":1159423},"introduced_by":7}],"inode":{"change":7,"pos":1130844}},"content":[{"Del":";;; x509-mode.el --- View certificates, CRLs and keys using OpenSSL -*- lexical-binding:t; coding:utf-8 -*-\n\n;; Copyright (C) 2017 Fredrik Axelsson \n\n;; Author: Fredrik Axelsson \n;; Homepage: https://github.com/jobbflykt/x509-mode\n;; Package-Requires: ((emacs \"25.1\"))\n\n;; This file is not part of GNU Emacs.\n\n;; MIT License\n;;\n;; Copyright (c) 2017 Fredrik Axelsson \n;;\n;; Permission is hereby granted, free of charge, to any person obtaining a copy\n;; of this software and associated documentation files (the \"Software\"), to\n;; deal in the Software without restriction, including without limitation the\n;; rights to use, copy, modify, merge, publish, distribute, sublicense, and/or\n;; sell copies of the Software, and to permit persons to whom the Software is\n;; furnished to do so, subject to the following conditions:\n;;\n;; The above copyright notice and this permission notice shall be included in\n;; all copies or substantial portions of the Software.\n;;\n;; THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\n;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\n;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE\n;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER\n;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING\n;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS\n;; IN THE SOFTWARE.\n\n\n;;; Commentary:\n\n;; Major mode for viewing certificates, CRLs, and other PKI-related files.\n\n;; Uses OpenSSL for viewing PEM and DER encoded PKI entities.\n\n;; Usage:\n;; Open a file containing a certificate, either PEM or DER encode. Now\n;; use M-x `x509-viewcert' to create a new buffer that displays the decoded\n;; certificate.\n;; Use `x509-viewcrl', `x509-viewasn1',`x509-viewkey', `x509-viewdh',\n;; `x509-viewreq', `x509-viewpkcs7' in a similar manner.\n;;\n;; When point is at or in a PEM encoded region, M-x `x509-dwim' tries to guess\n;; what view-function to call. It falls back to `x509-viewasn1' if it fails.\n;;\n;; Use C-u prefix with any command for editing the command arguments.\n;;\n;; When in a x509 buffer, use keys `e' and `t' to edit current command or\n;; toggle between x509-asn1-mode and x509-mode respectively.\n\n;;; Code:\n\n(defgroup x509 nil\n \"View certificates, CRLs, keys and other related files using OpenSSL.\"\n :group 'extensions\n :group 'convenience\n :link '(emacs-library-link :tag \"Lisp File\" \"x509-mode.el\"))\n\n(defcustom x509-openssl-cmd \"openssl\"\n \"Path to OpenSSL binary.\n\nExample:\n\\\"/usr/bin/openssl\\\" or just \\\"openssl\\\" on Linux\n\\\"C:/Program Files/Git/mingw64/bin/openssl\\\" on Windows.\"\n :type 'string\n :group 'x509)\n\n(defcustom x509-x509-default-arg\n \"x509 -text -noout -nameopt utf8 -nameopt multiline\"\n \"Default arguments for \\\"openssl x509\\\" command.\"\n :type 'string\n :group 'x509)\n\n(defcustom x509-req-default-arg\n \"req -text -noout -nameopt utf8 -nameopt multiline\"\n \"Default arguments for \\\"openssl req\\\" command.\"\n :type 'string\n :group 'x509)\n\n(defcustom x509-crl-default-arg\n \"crl -text -noout -nameopt utf8 -nameopt multiline\"\n \"Default arguments for \\\"openssl crl\\\" command.\"\n :type 'string\n :group 'x509)\n\n(defcustom x509-pkcs7-default-arg\n \"pkcs7 -noout -text -print_certs\"\n \"Default arguments for \\\"openssl pkcs7\\\" command.\"\n :type 'string\n :group 'x509)\n\n(defcustom x509-dhparam-default-arg\n \"dhparam -text -noout\"\n \"Default arguments for \\\"openssl dhparam\\\" command.\"\n :type 'string\n :group 'x509)\n\n(defcustom x509-pkey-default-arg\n \"pkey -text -noout\"\n \"Default arguments for \\\"openssl pkey\\\" command.\"\n :type 'string\n :group 'x509)\n\n(defcustom x509-asn1parse-default-arg\n \"asn1parse\"\n \"Default arguments for \\\"openssl asn1parse\\\" command.\"\n :type 'string\n :group 'x509)\n\n(defgroup x509-faces nil\n \"Faces used by x509.\"\n :group 'x509\n :group 'faces)\n\n(defface x509-keyword-face\n '((t (:inherit font-lock-builtin-face)))\n \"Face for keywords.\"\n :group 'x509-faces)\n\n(defface x509-constant-face\n '((t (:inherit font-lock-constant-face)))\n \"Face for constants.\"\n :group 'x509-faces)\n\n(defface x509-short-name-face\n '((t (:bold t)))\n \"Face for short names, e.g, CN and OU.\"\n :group 'x509-faces)\n\n(defface x509-string-face\n '((t (:inherit font-lock-string-face)))\n \"Face for strings.\"\n :group 'x509-faces)\n\n(defface x509-hex-string-face\n '((t (:inherit font-lock-comment-face)))\n \"Face for colon-separated hex values.\"\n :group 'x509-faces)\n\n(defface x509-oid-face\n '((t (:inherit font-lock-constant-face)))\n \"Face for unknown OIDs.\"\n :group 'x509-faces)\n\n(defface x509-asn1-sequence-face\n '((t (:inherit font-lock-regexp-grouping-backslash)))\n \"Face for ASN.1 sequences.\"\n :group 'x509-faces)\n\n(defface x509-warning-face\n '((t (:inherit font-lock-warning-face :inverse-video t)))\n \"Face for bad values.\"\n :group 'x509-faces)\n\n(defface x509-browse-url-face\n '((t (:inherit link)))\n \"Face for clickable URL links.\")\n\n(defun x509--match-date (cmp bound)\n \"Return non-nil if it can find a date that CMP to current time.\nIntended to search for dates in form \\\"Jun 11 00:00:01 2014 GMT\\\"\nand compare them to the current time. Return non-nil, move point,\nand set ‘match-data’ appropriately if it succeeds; like\n‘re-search-forward’ would. The argument BOUND is a buffer\nposition that bounds the search.\"\n (let ((mdata (match-data))\n (p (point)))\n (if (re-search-forward\n \"[A-Z][a-z][a-z] +[0-9]+ ..:..:.. [0-9]\\\\{4\\\\} GMT\" bound t)\n (if (condition-case nil\n ;; Compare date to current time.\n ;; date-to-time might fail on bogus time values or if time\n ;; is to far in the past/future\n (funcall cmp (date-to-time (match-string-no-properties 0))\n (current-time))\n (error nil))\n ;; If compare true, return t.\n t\n ;; else restore match-data and point and return nil.\n (goto-char p)\n (set-match-data mdata)\n nil)\n ;; Not matching date at all -> return nil\n nil)))\n\n(defun x509--match-date-in-past (bound)\n \"Return non-nil if it can find a date that is the past.\nIntended to search for dates in form \\\"Jun 11 00:00:01 2014 GMT\\\"\nand compare them to the current time. Return non-nil, move point,\nand set ‘match-data’ appropriately if it succeeds; like\n‘re-search-forward’ would. The optional argument BOUND is a\nbuffer position that bounds the search.\"\n (x509--match-date (lambda (d1 d2) (time-less-p d1 d2)) bound))\n\n(defun x509--match-date-in-future (bound)\n \"Return non-nil if it can find a date that is the future.\nIntended to search for dates in form \\\"Jun 11 00:00:01 2014 GMT\\\"\nand compare them to the current time. Return non-nil, move point,\nand set ‘match-data’ appropriately if it succeeds; like\n‘re-search-forward’ would. The optional argument BOUND is a\nbuffer position that bounds the search.\"\n (x509--match-date (lambda (d1 d2) (not (time-less-p d1 d2))) bound))\n\n(defun x509--mark-browse-url-links()\n \"Make http URLs clickable by making them buttons.\"\n (save-excursion\n (save-match-data\n (goto-char (point-min))\n (while (search-forward-regexp\n \"\\\$file\\\\|https?\\\$://[-_.:/A-Za-z0-9]+\" nil t)\n (let* ((start (match-beginning 0))\n (end (match-end 0))\n (url (match-string-no-properties 0))\n (help-echo (format \"Click to browse-url %s\" url)))\n ;; The url is stored in the face property\n (make-button\n start end\n 'face 'x509-browse-url-face\n 'follow-link t\n 'x509-browse-url-face url\n 'help-echo help-echo\n 'action (lambda (button)\n (browse-url\n (button-get button 'x509-browse-url-face)))))))))\n\n(require 'cl-lib)\n\n(defun x509--load-data-file (filename)\n \"Split FILENAME linewise into a list.\nSkip blank lines and comment lines. Return list.\"\n (with-temp-buffer\n (insert-file-contents\n (if (null load-file-name) filename\n (expand-file-name filename (file-name-directory load-file-name))))\n (cl-remove-if (lambda (s) (string-match-p \"^ *\\\$?:#\\\\|$\\\$\" s))\n (split-string (buffer-string) \"\\n\"))))\n\n(defconst x509--keywords\n (regexp-opt\n (x509--load-data-file \"keywords.txt\")))\n\n(defconst x509--constants\n (regexp-opt (x509--load-data-file \"constants.txt\") 'words))\n\n;; Keyword: constant\n;; E.g. \"Signature Algorithm: sha1WithRSAEncryption\"\n(defconst x509--keyword-w-constant\n (concat (regexp-opt\n (x509--load-data-file \"keyword+constant.txt\") t)\n ;; Followed by \": constant\"\n \": *\\\$.*\\\$\"))\n\n;; Multiline Issuer and Subject, \"-nameopt multiline\"\n;; E.g. \"commonName = GlobalSign Root CA\"\n(defconst x509--multiline-name\n (concat (regexp-opt\n (x509--load-data-file \"long-name.txt\") t)\n \" *= \\\$.*\\\$\"))\n\n(defconst x509-font-lock-keywords\n (list\n ;; Subject and Issuer, long names\n `(,x509--multiline-name\n (1 'x509-keyword-face)\n (2 'x509-string-face))\n\n `(,x509--keywords . 'x509-keyword-face)\n\n `(,x509--constants . 'x509-constant-face)\n\n ;; Validity on a line alone (preceding \"Not Before:\")\n '(\"^ +Validity ?$\" . 'x509-keyword-face)\n\n ;; Subject and Issuer, short names\n ;; something=string until ',' or '/' or EOL\n ;; E.g. CN=apa,OU=Räv\n '(\"\\\$\\\\<\\\\w+=\\\$\\\$.*?\\\$\\\$?:[,/]\\\\|$\\\$\"\n (1 'x509-short-name-face)\n (2 'x509-string-face))\n\n ;; something = string until ',' or EOL\n ;; E.g. CN = ACCVRAIZ1, OU = PKIACCV, O = ACCV, C = ES\n '(\"\\\$\\\\<\\\\w+\\\$ = \\\$.*?\\\$\\\$?:[,/]\\\\|$\\\$\"\n (1 'x509-short-name-face)\n (2 'x509-string-face))\n\n ;; URI: and CPS: . Highlight keyword. URL is handled by\n ;; `x509--mark-browse-url-links'\n '(\"\\\\<\\\$URI:\\\\|CPS: \\\$\"\n (1 'x509-keyword-face))\n\n ;; DNS:string email:string othername:string\n ;; until ',' or EOL\n '(\"\\\\<\\\$DNS:\\\\|email:\\\\|othername:\\\$\\\$.*?\\\$\\\$?:,\\\\|$\\\$\"\n (1 'x509-keyword-face)\n (2 'x509-string-face))\n\n ;; Not Before: Jun 11 00:00:01 2014 GMT\n ;; Date is \"MATCH-ANCHORED\", see help for variable font-lock-keywords\n '(\"\\\$Not Before\\\$: \" (1 'x509-keyword-face)\n (x509--match-date-in-future nil nil (0 'x509-warning-face)))\n '(\"\\\$Not After\\\$ : \" (1 'x509-keyword-face)\n (x509--match-date-in-past nil nil (0 'x509-warning-face)))\n ;; For CRL's when Next Update is in the past\n '(\"\\\$Next Update\\\$: \" (1 'x509-keyword-face)\n (x509--match-date-in-past nil nil (0 'x509-warning-face)))\n\n ;; Policy: OID\n ;; Has precedence over Keyword: constant below\n '(\"\\\$Policy\\\$: \\\$[0-9]+\\\\.[0-9]+\\\\(:?\\\\.[0-9]+\\\$*\\\\)\"\n (1 'x509-keyword-face)\n (2 'x509-oid-face))\n\n ;; E.g. Public Key Algorithm: rsaEncryption\n `(,x509--keyword-w-constant\n (1 'x509-keyword-face)\n (2 'x509-constant-face))\n\n ;; CA:TRUE, CA:FALSE\n ;; CA used to be keyword+argument but CA: can be part of hex-string\n '(\"\\\$CA\\\$:\\\$TRUE\\\\|FALSE\\\$\"\n (1 'x509-keyword-face)\n (2 'x509-constant-face))\n\n ;; Hex dumps At least two two-digit hex-numbers separated by `:'\n ;; Can end in `:' for example in \"Modulus\"\n ;; fa:09(:....)\n '(\"[0-9a-fA-F][0-9a-fA-F]\\\$?::[0-9a-fA-F][0-9a-fA-F]\\\$+:?$\" .\n 'x509-hex-string-face))\n \"OpenSSL x509 highlighting.\")\n\n(defun x509-mode--kill-buffer()\n \"Kill current buffer.\"\n (interactive)\n (set-buffer-modified-p nil)\n (kill-buffer))\n\n;;;###autoload\n(define-derived-mode x509-mode fundamental-mode \"x509\"\n \"Major mode for displaying OpenSSL output.\n\n\\\\{x509-mode-map}\"\n (set (make-local-variable 'font-lock-defaults) '(x509-font-lock-keywords))\n (define-key x509-mode-map \"q\" 'x509-mode--kill-buffer)\n (define-key x509-mode-map \"t\" 'x509--toggle-mode)\n (define-key x509-mode-map \"e\" 'x509--edit-params)\n (x509--mark-browse-url-links))\n\n(defun x509--buffer-encoding(buffer)\n \"Heuristic for identifying PEM or DER encoding in BUFFER.\nReturn string \\\"PEM\\\" or \\\"DER\\\".\"\n (with-current-buffer buffer\n (goto-char (point-min))\n (save-match-data\n (if (search-forward \"-----BEGIN\" nil t)\n \"PEM\"\n \"DER\"))))\n\n(defun x509--pem-region()\n \"Determine if point is in region delimited by \\\"-----BEGIN\\\" \\\"-----END\\\".\nReturn (begin . end) or nil\"\n (save-excursion\n (save-match-data\n (let ((here (point)))\n (if (or (looking-at \"-----BEGIN \\\$.*?\\\$-----\")\n (re-search-backward \"-----BEGIN \\\$.*?\\\$-----\" nil t))\n (let ((begin (match-beginning 0))\n (type (match-string-no-properties 1)))\n (if (and (search-forward (concat \"-----END \" type \"-----\") nil t)\n ;; Ensure point is between begin and end.\n (< here (match-end 0)))\n (cons begin (match-end 0)))))))))\n\n(defun x509--pem-region-type ()\n \"Return type of pem region or nil if not matched.\nEx \\\"CERTIFICATE\\\" or \\\"DH PARAMETERS\\\"\"\n (let ((region (x509--pem-region)))\n (if region\n (save-excursion\n (save-match-data\n (goto-char (car region))\n (if (re-search-forward \"-----BEGIN \\\$.*?\\\$-----\" (cdr region) t)\n (match-string-no-properties 1)))))))\n\n(defun x509--generate-input-buffer ()\n \"Return a buffer containing data to be processed by OpenSSL.\n\nDetermine what portion of the current buffer is interesting to pass to\nOpenSSL.\n\nIf point is in region delimited by \\\"-----BEGIN\\\" \\\"-----END\\\"\nthen that region is selected. The region is trimmed so that\nleading and trailing non base-64 characters on each line are\nremoved. The idea is to be able to view, for example, a\ncertificate that is embedded as string in code.\n\nIf point is not in a PEM region, the whole buffer is used.\"\n (let* ((region (x509--pem-region))\n (begin (if region (car region) (point-min)))\n (end (if region (cdr region) (point-max)))\n (data (buffer-substring-no-properties begin end))\n (new-buf (generate-new-buffer (generate-new-buffer-name\n (format \" *in-x-%s*\" (buffer-name))))))\n (with-current-buffer new-buf\n (insert data)\n ;; If in PEM region, try to strip non base-64 characters\n (when region\n (goto-char (point-min))\n (while (re-search-forward\n \"^[^-A-Za-z0-9+=/]+\\\\|[^-A-Za-z0-9+=/]+$\" nil t)\n (replace-match \"\" nil nil))\n ;; Strip \\n from eol. Can be seen in C code.\n (goto-char (point-min))\n (while (re-search-forward \"\\\\\\\\n$\" nil t)\n (replace-match \"\" nil nil)))\n new-buf)))\n\n(defvar-local x509--shadow-buffer nil\n \"Input buffer used for OpenSSL command.\n\nUsed when a view buffer wants to change command parameters and\nre-process the input buffer or to change the command altogether.\")\n;; Make buffer local variable persist during major mode change.\n(put 'x509--shadow-buffer 'permanent-local t)\n\n(defvar-local x509--x509-mode-shadow-arguments nil\n \"Current OpenSSL command arguments used in x509-mode.\")\n;; Make buffer local variable persist during major mode change.\n(put 'x509--x509-mode-shadow-arguments 'permanent-local t)\n\n(defvar-local x509--x509-asn1-mode-shadow-arguments nil\n \"Current OpenSSL command argument used in x509-asn1-mode.\")\n;; Make buffer local variable persist during major mode change.\n(put 'x509--x509-asn1-mode-shadow-arguments 'permanent-local t)\n\n(defun x509--kill-shadow-buffer ()\n \"Kill buffer hook function.\nRun when killing a view buffer for cleaning up associated input buffer.\"\n (when (bound-and-true-p x509--shadow-buffer)\n (kill-buffer x509--shadow-buffer)))\n\n(defun x509--process-buffer(input-buf openssl-arguments &optional output-buf)\n \"Create new buffer named \\\"*x-[buffer-name]*\\\".\n\nPass content INPUT-BUF to openssl with\nOPENSSL-ARGUMENTS. E.g. x509 -text. If OUTPUT-BUF is non-'nil',\nout to that buffer instead of generating a new one.\n\nReturn output buffer.\"\n (interactive)\n (let* ((buf (or output-buf\n (generate-new-buffer (generate-new-buffer-name\n (format \"*x-%s*\" (buffer-name))))))\n ;; Operate on whole buffer. Output to buf\n (args (append\n (list nil nil x509-openssl-cmd nil buf nil)\n openssl-arguments)))\n (with-current-buffer buf\n (setq buffer-read-only nil)\n (erase-buffer)\n (setq x509--shadow-buffer input-buf)\n (add-hook 'kill-buffer-hook 'x509--kill-shadow-buffer nil t)\n (with-current-buffer input-buf\n (apply 'call-process-region args))\n ;; remember input-buffer and arguments\n (goto-char (point-min))\n (set-buffer-modified-p nil)\n (setq buffer-read-only t))\n buf))\n\n(defun x509--read-arguments (prompt default history)\n \"Prompt, using PROMPT, for arguments if \\\\[universal-argument] prefix.\n\nProvide DEFAULT argument and HISTORY.\nReturn argument string.\"\n (let ((history-delete-duplicates t))\n (if (equal current-prefix-arg '(4))\n (read-from-minibuffer prompt default nil nil history)\n (progn\n (add-to-history history default)\n default))))\n\n(defun x509--add-inform-spec(arguments encoding)\n \"Add or modify \\\"-inform ENCODING\\\" in ARGUMENTS.\"\n (if (string-match \"-inform \\\$PEM\\\\|DER\\\$\" arguments)\n (replace-match encoding nil nil arguments 1)\n (format \"%s -inform %s\" arguments encoding)))\n\n(defun x509--generic-view (default history mode &optional input-buf output-buf)\n \"Prepare an input buffer for data to be processed.\nOptionally get modified command arguments from user.\nProcess data from input buffer using command arguments.\n\nDEFAULT is the initial command line arguments to OpenSSL.\nHISTORY is the command history symbol used with\n`read-from-minibuffer'. MODE is the major mode that will be\napplied to the result buffer. If INPUT-BUF is non-'nil', use\nexisting input buffer instead of creating one. If OUTPUT-BUF is\nnon-'nil', use that instead of creating a new one.\"\n (let* ((in-buf (or input-buf (x509--generate-input-buffer)))\n (encoding (x509--buffer-encoding in-buf))\n (initial (x509--add-inform-spec default encoding))\n (args (x509--read-arguments \"arguments: \" initial history))\n (result-buffer (x509--process-buffer\n in-buf\n (split-string-and-unquote args) output-buf)))\n (switch-to-buffer result-buffer)\n ;; Remember what arguments where used.\n (if (eq mode 'x509-mode)\n (setq x509--x509-mode-shadow-arguments args)\n (setq x509--x509-asn1-mode-shadow-arguments args))\n (funcall mode)))\n\n(defun x509--get-x509-toggle-mode-args ()\n \"Ask user for command and return default arguments for that command.\"\n (let* ((collection '((\"cert\" . x509-x509-default-arg)\n (\"req\" . x509-req-default-arg)\n (\"crl\" . x509-crl-default-arg)\n (\"pkcs7\" . x509-pkcs7-default-arg)\n (\"dhparam\" . x509-dhparam-default-arg)\n (\"key\" . x509-pkey-default-arg)\n (\"asn1parse\" . x509-asn1parse-default-arg)))\n (choice (completing-read\n \"Parse as: \" ; PROMPT\n collection ; COLLECTION\n nil ; PREDICATE\n t ; REQUIRE-MATCH\n )))\n (symbol-value (cdr (assoc choice collection)))))\n\n(defun x509--get-x509-history (args)\n \"Return history variable that matches command ARGS.\"\n (pcase (car (split-string-and-unquote args))\n (\"x509\" 'x509--viewcert-history)\n (\"req\" 'x509--viewreq-history)\n (\"crl\" 'x509--viewcrl-history)\n (\"pkcs7\" 'x509--viewpkcs7-history)\n (\"dhparam\" 'x509--viewdh-history)\n (\"pkey\" 'x509--viewkey-history)\n (\"asn1parse\" 'x509--viewasn1-history)\n (_ nil)))\n\n(defun x509--toggle-mode(&optional edit)\n \"Toggle between asn1-mode and x509-mode.\n\nIf EDIT is non-'nil', edit current command arguments and redisplay.\"\n (interactive)\n (if edit\n (setq current-prefix-arg '(4)))\n (if (or (and edit (derived-mode-p 'x509-asn1-mode)) ; Edit asn1 mode\n (and (not edit) (derived-mode-p 'x509-mode))) ; Toggle to asn1\n (let ((default-args (or x509--x509-asn1-mode-shadow-arguments\n x509-asn1parse-default-arg)))\n (x509--generic-view default-args 'x509--viewasn1-history\n 'x509-asn1-mode\n x509--shadow-buffer (current-buffer)))\n (let* ((default-args (or x509--x509-mode-shadow-arguments\n (x509--get-x509-toggle-mode-args)))\n (history (x509--get-x509-history default-args)))\n (x509--generic-view default-args history 'x509-mode\n x509--shadow-buffer (current-buffer)))))\n\n(defun x509--edit-params()\n \"Edit command parameters in current buffer.\"\n (interactive)\n (x509--toggle-mode t))\n\n;; ---------------------------------------------------------------------------\n(defvar x509--viewcert-history nil \"History list for `x509-viewcert'.\")\n;;;###autoload\n(defun x509-viewcert ()\n \"Parse current buffer as a certificate file.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\"\n (interactive)\n (x509--generic-view x509-x509-default-arg 'x509--viewcert-history\n 'x509-mode))\n\n;; ---------------------------------------------------------------------------\n(defvar x509--viewreq-history nil \"History list for `x509-viewreq'.\")\n;;;###autoload\n(defun x509-viewreq ()\n \"Parse current buffer as a certificate request file.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\"\n (interactive)\n (x509--generic-view x509-req-default-arg 'x509--viewreq-history 'x509-mode))\n\n;; ---------------------------------------------------------------------------\n(defvar x509--viewcrl-history nil \"History list for `x509-viewcrl'.\")\n;;;###autoload\n(defun x509-viewcrl ()\n \"Parse current buffer as a CRL file.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\"\n (interactive)\n (x509--generic-view x509-crl-default-arg 'x509--viewcrl-history 'x509-mode))\n\n;; ---------------------------------------------------------------------------\n(defvar x509--viewpkcs7-history nil \"History list for `x509-viewpkcs7'.\")\n;;;###autoload\n(defun x509-viewpkcs7 ()\n \"Parse current buffer as a PKCS#7 file.\n\nOutput only certificates and CRLs by default. Add the \\\"-print\\\"\nswitch to output details.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\"\n (interactive)\n (x509--generic-view x509-pkcs7-default-arg 'x509--viewpkcs7-history\n 'x509-mode))\n\n\n;; ---------------------------------------------------------------------------\n(defvar x509--viewdh-history nil \"History list for `x509-viewdh'.\")\n;;;###autoload\n(defun x509-viewdh ()\n \"Parse current buffer as a DH-parameter file.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\"\n (interactive)\n (x509--generic-view x509-dhparam-default-arg 'x509--viewdh-history\n 'x509-mode))\n\n;; ---------------------------------------------------------------------------\n(defvar x509--viewkey-history nil \"History list for `x509-viewkey'.\")\n;;;###autoload\n(defun x509-viewkey ()\n \"Display x509 private key using the OpenSSL pkey command.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\"\n (interactive)\n (x509--generic-view x509-pkey-default-arg 'x509--viewkey-history 'x509-mode))\n\n;; ---------------------------------------------------------------------------\n(defvar x509--viewlegacykey-history nil\n \"History list for `x509-viewlegacykey'.\")\n;; Special. older openssl pkey cannot read from stdin so we need to use\n;; buffer's file.\n;;;###autoload\n(defun x509-viewlegacykey (&optional args)\n \"Display x509 private key using the OpenSSL pkey command.\n\nThis function works with older OpenSSL that could not read key from\nstdin. Instead, the buffer file is used with -in.\n\nARGS are arguments to the openssl command.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\nFor example to enter pass-phrase, add -passin pass:PASSPHRASE.\"\n (interactive (list (x509--read-arguments\n \"pkey args: \"\n (format \"%s -inform %s -in \\\"%s\\\"\"\n x509-pkey-default-arg\n (x509--buffer-encoding (current-buffer))\n (buffer-file-name))\n 'x509--viewlegacykey-history)))\n (let* ((buf (generate-new-buffer (generate-new-buffer-name\n (format \"*x-%s*\" (buffer-name))))))\n (setq args (append\n (list x509-openssl-cmd nil buf nil)\n (split-string-and-unquote args)))\n (apply 'call-process args)\n (switch-to-buffer buf)\n (goto-char (point-min))\n (set-buffer-modified-p nil)\n (setq buffer-read-only t)\n (x509-mode)))\n\n;; ---------------------------------------------------------------------------\n;;;###autoload\n(defun x509-dwim ()\n \"Guess the type of object and call the corresponding view-function.\n\nLook at -----BEGIN header for known object types. If unknown\ntype, call `x509-viewasn1'.\"\n (interactive)\n (pcase (x509--pem-region-type)\n ((or \"CERTIFICATE\" \"TRUSTED CERTIFICATE\")\n (call-interactively 'x509-viewcert))\n (\"CERTIFICATE REQUEST\"\n (call-interactively 'x509-viewreq))\n (\"DH PARAMETERS\"\n (call-interactively 'x509-viewdh))\n (\"PKCS7\"\n (call-interactively 'x509-viewpkcs7))\n ((or \"ENCRYPTED PRIVATE KEY\" \"PRIVATE KEY\" \"RSA PRIVATE KEY\")\n (call-interactively 'x509-viewkey))\n (\"X509 CRL\"\n (call-interactively 'x509-viewcrl))\n (_\n (call-interactively 'x509-viewasn1))))\n\n;; ----------------------------------------------------------------------------\n;; asn1-mode\n\n(defconst x509--asn1-primitives-keywords\n (regexp-opt '(\"prim\" \"EOC\" \"BOOLEAN\" \"INTEGER\" \"BIT_STRING\" \"BIT STRING\"\n \"OCTET_STRING\" \"OCTET STRING\" \"NULL\" \"OID\"\n \"UTCTIME\" \"GENERALIZEDTIME\" \"ENUMERATED\")))\n\n(defconst x509--asn1-cons-keywords\n (regexp-opt '(\"SEQUENCE\" \"SET\")))\n\n(defconst x509--asn1-strings\n (concat (regexp-opt\n ;; Keyword:\n '(\"UTF8STRING\" \"PRINTABLESTRING\" \"IA5STRING\")\n t ) ; t = enclose in \\\$ \\\$ for easy subexpr reference\n ;; Followed by a string\n \" *:\\\$.*?\\\$\\\$?: *:\\\\|$\\\$\"))\n\n(defconst x509--asn1-oid\n (concat (regexp-opt\n ;; Keyword:\n '(\"OID\" \"OBJECT\")\n t ) ; t = enclose in \\\$ \\\$ for easy subexpr reference\n ;; Followed by an OID (derdigger) or object name (asn1parse)\n \" *:\\\$.*?\\\$\\\$?: *:\\\\|$\\\$\"))\n\n(defconst x509-asn1-font-lock-keywords\n (list\n ;; BOOLEAN, INTEGER and such\n `(,x509--asn1-primitives-keywords . 'x509-keyword-face)\n ;; SET, SEQUENCE\n `(,x509--asn1-cons-keywords . 'x509-asn1-sequence-face)\n ;; cons: as in constructed. Same font as SET and SEQUENCE\n '(\"\\\$cons\\\$:\" (1 'x509-asn1-sequence-face))\n ;; Like SET and SEQUENCE\n '(\"\\\$cont\\\\|appl\\\\|priv\\\$ \\\\[\\\$.*?\\\$\\\\]\"\n (1 'x509-asn1-sequence-face)\n (2 'x509-string-face))\n ;; Parsing error messages\n '(\"error:.*\\\\|Error in encoding\" . 'x509-warning-face)\n ;; String type + string value\n `(,x509--asn1-strings\n (1 'x509-keyword-face)\n (2 'x509-string-face))\n ;; \"OID\" followed by oid\n `(,x509--asn1-oid\n (1 'x509-keyword-face)\n (2 'x509-oid-face))\n \"openssl asn1parse highlighting\"))\n\n;;;###autoload\n(define-derived-mode x509-asn1-mode fundamental-mode \"asn1\"\n \"Major mode for displaying openssl asn1parse output.\n\n\\\\{x509-asn1-mode-map}\"\n (set (make-local-variable 'font-lock-defaults)\n '(x509-asn1-font-lock-keywords))\n (define-key x509-asn1-mode-map \"q\" 'x509-mode--kill-buffer)\n (define-key x509-asn1-mode-map \"t\" 'x509--toggle-mode)\n (define-key x509-asn1-mode-map \"e\" 'x509--edit-params))\n\n(defvar x509--viewasn1-history nil \"History list for `x509-viewasn1'.\")\n\n;;;###autoload\n(defun x509-viewasn1 ()\n \"Parse current buffer as ASN.1.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguments.\"\n (interactive)\n (x509--generic-view x509-asn1parse-default-arg 'x509--viewasn1-history\n 'x509-asn1-mode))\n\n(provide 'x509-asn1-mode)\n(provide 'x509-mode)\n\n;;; x509-mode.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"x509-mode-20210407.627","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":1168110,"end":1168143},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1168143},"to":{"change":7,"start":1168109,"end":1168109},"introduced_by":7}],"inode":{"change":7,"pos":1168109}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"constants.txt","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1168109},"to":{"change":7,"start":1191218,"end":1191255},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1191255},"to":{"change":7,"start":1190087,"end":1190087},"introduced_by":7}],"inode":{"change":7,"pos":1190087}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1190087},"to":{"change":7,"start":1190088,"end":1191217},"introduced_by":7}],"inode":{"change":7,"pos":1190087}},"content":[{"Del":"TRUE\nFALSE\nNONE\n\n\nCode Signing\nE-mail Protection\nInvalidity Date\nOCSP Signing\nDVCS\nAny Extended Key Usage\nMicrosoft Smartcardlogin\nMicrosoft Trust List Signing\nNetscape Server Gated Crypto\nStrong Extranet ID\nUnspecified\nRemove From CRL\nSupersede\n\n# openssl/crypto/objects/obj_dat.h\nTLS Web Server Authentication\nTLS Web Client Authentication\nCode Signing\nE-mail Protection\nTime Stamping\nMicrosoft Individual Code Signing\nMicrosoft Individual Code Signing\nMicrosoft Individual Code Signing\nMicrosoft Commercial Code Signing\nMicrosoft Trust List Signing\nMicrosoft Server Gated Crypto\nMicrosoft Encrypted File System\nNetscape Server Gated Crypto\nIPSec End System\nIPSec Tunnel\nIPSec User\n\n\n\n# openssl/crypto/x509v3/v3_bitst.c\nSSL Client\nSSL Server\nS/MIME\nObject Signing\nSSL CA\nS/MIME CA\nObject Signing CA\nDigital Signature\nNon Repudiation\nKey Encipherment\nData Encipherment\nKey Agreement\nCertificate Sign\nCRL Sign\nEncipher Only\nDecipher Only\n\n# openssl/crypto/x509v3/v3_crld.c\nKey Compromise\nCA Compromise\nAffiliation Changed\nSuperseded\nCessation Of Operation\nCertificate Hold\nPrivilege Withdrawn\nAA Compromise\n"}]}},{"FileDel":{"deleted_names":[{"basename":"keyword+constant.txt","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1168109},"to":{"change":7,"start":1190041,"end":1190085},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1190085},"to":{"change":7,"start":1189842,"end":1189842},"introduced_by":7}],"inode":{"change":7,"pos":1189842}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1189842},"to":{"change":7,"start":1189843,"end":1190040},"introduced_by":7}],"inode":{"change":7,"pos":1189842}},"content":[{"Del":"Public Key Algorithm\nX509v3 Basic Constraints\nPolicy\nX509v3 Key Usage\nX509v3 Extended Key Usage\nSignature Algorithm\nHash Algorithm\nMask Algorithm\n\n# openssl/crypto/ec/eck_prn.c\nASN1 OID\nNIST CURVE\n"}]}},{"FileDel":{"deleted_names":[{"basename":"keywords.txt","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1168109},"to":{"change":7,"start":1189804,"end":1189840},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1189840},"to":{"change":7,"start":1187215,"end":1187215},"introduced_by":7}],"inode":{"change":7,"pos":1187215}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1187215},"to":{"change":7,"start":1187216,"end":1189803},"introduced_by":7}],"inode":{"change":7,"pos":1187215}},"content":[{"Del":"# openssl/crypto/x509/t_x509.c\nCertificate:\nData:\nVersion:\nSerial Number:\n#Signature Algorithm:\nIssuer:\nValidity:\nSubject:\nSubject Public Key Info:\n#Public Key Algorithm:\nIssuer Unique ID:\nSubject Unique ID:\nX509v3 extensions\nSubject OCSP hash:\nPublic key OCSP hash:\nTrusted Uses:\nNo Trusted Uses.\nRejected Uses:\nNo Rejected Uses.\nAlias:\nKey Id:\nkeyid:\n\n# openssl/crypto/x509v3/v3_alt.c\nX400Name:\nEdiPartyName:\nDirName:\nSerial:\nIP Address:\nRegistered ID:\n\n# openssl/crypto/x509/t_crl.c\nCertificate Revocation List (CRL):\nLast Update:\n# Next Update is treated special in x509-font-lock-keywords\n#Next Update:\nRevoked Certificates:\nRevocation Date:\nCRL extensions\nCRL entry extensions\n\n# openssl/crypto/x509v3/v3_cpols.c\nUser Notice:\nExplicit Text:\nFull Name:\nCSP:\nUnknown Qualifier:\nOrganization:\nNumbers:\n\n# Keys\n# openssl/crypto/rsa/rsa_ameth.c\nPSS parameter restrictions:\nSalt Length:\nTrailer Field:\nPrivate-Key:\nPublic-Key:\nPublic-Key:\nModulus:\nExponent:\nmodulus:\npublicExponent:\nprivateExponent:\nprime1:\nprime2:\nexponent1:\nexponent2:\ncoefficient:\n# openssl/crypto/ec/ecx_meth.c\npriv:\npub:\n# openssl/crypto/dsa/dsa_ameth.c\nP:\nQ:\nG:\n\n# keyword + constant\n#Hash Algorithm:\n#Mask Algorithm:\n\n# X509v3 extensions\nX509v3 Subject Directory Attributes:\nX509v3 Subject Key Identifier:\nX509v3 Key Usage:\nX509v3 Private Key Usage Period:\nX509v3 Subject Alternative Name:\nX509v3 Issuer Alternative Name:\n#X509v3 Basic Constraints:\nX509v3 CRL Number:\nX509v3 CRL Reason Code:\nInvalidity Date:\nX509v3 Delta CRL Indicator:\nX509v3 Issuing Distribution Point:\nX509v3 Certificate Issuer:\nX509v3 Name Constraints:\nX509v3 CRL Distribution Points:\nX509v3 Certificate Policies:\nX509v3 Any Policy:\nX509v3 Policy Mappings:\nX509v3 Authority Key Identifier:\nX509v3 Policy Constraints:\n#X509v3 Extended Key Usage:\nX509v3 Freshest CRL:\nX509v3 Inhibit Any Policy:\nX509v3 AC Targeting:\nX509v3 No Revocation Available:\n\n# PKIX Private Extensions\nAuthority Information Access:\nBiometric Info:\nSubject Information Access:\nProxy Certificate Information:\nTLS Feature:\n\n# access descriptors for authority info access extension\nOCSP\nCA Issuers\nAD Time Stamping\nad dvcs\nCA Repository\n\n# openssl/crypto/dh/dh_ameth.c\nPKCS#3 DH Parameters:\nprivate-key:\npublic-key:\nprime:\ngenerator:\nsubgroup order:\nsubgroup factor:\nseed:\ncounter:\nrecommended-private-length:\n\n# openssl/crypto/ec/eck_prn.c\nField Type:\nBasis Type:\nPolynomial:\nPrime:\nOrder:\nCofactor:\nSeed:\nGenerator (compressed):\nGenerator (uncompressed):\nGenerator (hybrid):\n\n# ???\nserial:\nDH Parameters:\n\n# openssl/crypto/x509v3/v3_bcons.c\n# X509V3_add_value_bool\npathlen\n"}]}},{"FileDel":{"deleted_names":[{"basename":"x509-mode-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1168109},"to":{"change":7,"start":1187167,"end":1187213},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1187213},"to":{"change":7,"start":1184931,"end":1184931},"introduced_by":7}],"inode":{"change":7,"pos":1184931}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1184931},"to":{"change":7,"start":1184932,"end":1187166},"introduced_by":7}],"inode":{"change":7,"pos":1184931}},"content":[{"Del":";;; x509-mode-autoloads.el --- automatically extracted autoloads\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"x509-mode\" \"x509-mode.el\" (0 0 0 0))\n;;; Generated autoloads from x509-mode.el\n\n(autoload 'x509-mode \"x509-mode\" \"\\\nMajor mode for displaying openssl x509 output.\n\n\\\\{x509-mode-map}\n\n\\(fn)\" t nil)\n\n(autoload 'x509-viewcert \"x509-mode\" \"\\\nParse current buffer as a certificate file.\nARGS are arguments to the openssl command. Display result in\nanother buffer.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguements.\n\n\\(fn &optional ARGS)\" t nil)\n\n(autoload 'x509-viewcrl \"x509-mode\" \"\\\nParse current buffer as a CRL file.\nARGS are arguments to the openssl command. Display result in\nanother buffer.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguements.\n\n\\(fn &optional ARGS)\" t nil)\n\n(autoload 'x509-viewdh \"x509-mode\" \"\\\nParse current buffer as a DH-parameter file.\nARGS are arguments to the openssl command. Display result in\nanother buffer.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguements.\n\n\\(fn &optional ARGS)\" t nil)\n\n(autoload 'x509-viewkey \"x509-mode\" \"\\\nDisplay x509 private key using the OpenSSL pkey command.\nARGS are arguments to the openssl command.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguements.\nFor example to enter pass-phrase, add -passin pass:PASSPHRASE.\n\n\\(fn &optional ARGS)\" t nil)\n\n(autoload 'x509-asn1-mode \"x509-mode\" \"\\\nMajor mode for displaying openssl asn1parse output.\n\n\\\\{x509-mode-map}\n\n\\(fn)\" t nil)\n\n(autoload 'x509-viewasn1 \"x509-mode\" \"\\\nParse current buffer as ASN.1.\nARGS are arguments to the openssl command. Display result in\nanother buffer.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguements.\n\n\\(fn &optional ARGS)\" t nil)\n\n(if (fboundp 'register-definition-prefixes) (register-definition-prefixes \"x509-mode\" '(\"x509-\")))\n\n;;;***\n\f\n;;;### (autoloads nil nil (\"x509-mode-pkg.el\") (0 0 0 0))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; x509-mode-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"x509-mode-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1168109},"to":{"change":7,"start":1184889,"end":1184929},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1184929},"to":{"change":7,"start":1184482,"end":1184482},"introduced_by":7}],"inode":{"change":7,"pos":1184482}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1184482},"to":{"change":7,"start":1184483,"end":1184888},"introduced_by":7}],"inode":{"change":7,"pos":1184482}},"content":[{"Del":"(define-package \"x509-mode\" \"20210407.627\" \"View certificates, CRLs and keys using OpenSSL.\"\n '((emacs \"24.1\")\n (cl-lib \"0.5\"))\n :commit \"470769edba111aed8eabce58a3f2a02da0767624\" :authors\n '((\"Fredrik Axelsson\" . \"f.axelsson@gmai.com\"))\n :maintainer\n '(\"Fredrik Axelsson\" . \"f.axelsson@gmai.com\")\n :url \"https://github.com/jobbflykt/x509-mode\")\n;; Local Variables:\n;; no-byte-compile: t\n;; End:\n"}]}},{"FileDel":{"deleted_names":[{"basename":"x509-mode.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1168109},"to":{"change":7,"start":1184444,"end":1184480},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1184480},"to":{"change":7,"start":1168145,"end":1168145},"introduced_by":7}],"inode":{"change":7,"pos":1168145}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1168145},"to":{"change":7,"start":1168146,"end":1184443},"introduced_by":7}],"inode":{"change":7,"pos":1168145}},"content":[{"Del":";;; x509-mode.el --- View certificates, CRLs and keys using OpenSSL. -*- lexical-binding: t; -*-\n\n;; Copyright (C) 2017 Fredrik Axelsson \n\n;; Author: Fredrik Axelsson \n;; Homepage: https://github.com/jobbflykt/x509-mode\n;; Package-Requires: ((emacs \"24.1\") (cl-lib \"0.5\"))\n\n;; This file is not part of GNU Emacs.\n\n;; MIT License\n;;\n;; Copyright (c) 2017 Fredrik Axelsson \n;;\n;; Permission is hereby granted, free of charge, to any person obtaining a copy\n;; of this software and associated documentation files (the \"Software\"), to\n;; deal in the Software without restriction, including without limitation the\n;; rights to use, copy, modify, merge, publish, distribute, sublicense, and/or\n;; sell copies of the Software, and to permit persons to whom the Software is\n;; furnished to do so, subject to the following conditions:\n;;\n;; The above copyright notice and this permission notice shall be included in\n;; all copies or substantial portions of the Software.\n;;\n;; THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\n;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\n;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE\n;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER\n;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING\n;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS\n;; IN THE SOFTWARE.\n\n\n;;; Commentary:\n\n;; Major for viewing certificates, CRLs, keys and DH-parameters.\n\n;; Uses OpenSSL for viewing PEM and DER encoded PKI entities.\n\n;; Usage:\n;; Open a file containing a certificate, either PEM or DER encode. Now\n;; use M-x `x509-viewcert' to create a new buffer that displays the decoded\n;; certificate.\n;; Use M-x `x509-viewcrl', M-X `x509-viewasn1', M-x `x509-viewkey' and M-x\n;; `x509-viewdh' in a similar manner.\n\n;;; Code:\n\n(defgroup x509 nil\n \"View certificates, CRLs, keys and DH-parameters using OpenSSL\"\n :group 'extensions\n :group 'convenience\n :link '(emacs-library-link :tag \"Lisp File\" \"x509-mode.el\"))\n\n(defcustom x509-openssl-cmd \"openssl\"\n \"Path to OpenSSL binary.\n\nExample:\n\\\"/usr/bin/openssl\\\" or just \\\"openssl\\\" on Linux\n\\\"C:/Program Files/Git/mingw64/bin/openssl\\\" on Windows.\"\n :type 'string\n :group 'x509)\n\n(defgroup x509-faces nil\n \"Faces used by x509.\"\n :group 'x509\n :group 'faces)\n\n(defface x509-hex-string-face\n '((t (:inherit font-lock-comment-face :italic t)))\n \"Face for colon-separated hex values.\"\n :group 'x509-faces)\n\n(defface x509-oid-face\n '((t (:inherit font-lock-constant-face :bold t)))\n \"Face for unknown OIDs.\"\n :group 'x509-faces)\n\n(defface x509-bad-date-face\n '((t (:inherit default :background \"red\")))\n \"Face for past and future dates.\"\n :group 'x509-faces)\n\n(defface x509-browse-url-face\n '((((class color) (background light)) :inherit link)\n (((class color) (background dark)) :inherit link))\n \"Face for storing url used when clicking link.\")\n\n(defun x509--match-date (cmp bound)\n \"Return non-nil if it can find a date that CMP to current time.\nIndented to search for dates in form \\\"Jun 11 00:00:01 2014 GMT\\\"\nand compare them to the current time. Return non-nil, move point,\nand set ‘match-data’ appropriately if it succeeds; like\n‘re-search-forward’ would. The argument BOUND is a buffer\nposition that bounds the search.\"\n (let ((mdata (match-data))\n (p (point)))\n (if (re-search-forward\n \"[A-Z][a-z][a-z] +[0-9]+ ..:..:.. [0-9]\\\\{4\\\\} GMT\" bound t)\n (if (condition-case nil\n ;; Compare date to current time.\n ;; date-to-time might fail on bogus time values or if time\n ;; is to far in the past/future\n (funcall cmp (date-to-time (match-string 0))\n (current-time))\n (error nil))\n ;; If compare true, return t.\n t\n ;; else restore match-data and point and return nil.\n (goto-char p)\n (set-match-data mdata)\n nil)\n ;; Not matching date at all -> return nil\n nil)))\n\n(defun x509--match-date-in-past (bound)\n \"Return non-nil if it can find a date that is the past.\nIntended to search for dates in form \\\"Jun 11 00:00:01 2014 GMT\\\"\nand compare them to the current time. Return non-nil, move point,\nand set ‘match-data’ appropriately if it succeeds; like\n‘re-search-forward’ would. The optional argument BOUND is a\nbuffer position that bounds the search.\"\n (x509--match-date (lambda (d1 d2) (time-less-p d1 d2)) bound))\n\n(defun x509--match-date-in-future (bound)\n \"Return non-nil if it can find a date that is the future.\nIntended to search for dates in form \\\"Jun 11 00:00:01 2014 GMT\\\"\nand compare them to the current time. Return non-nil, move point,\nand set ‘match-data’ appropriately if it succeeds; like\n‘re-search-forward’ would. The optional argument BOUND is a\nbuffer position that bounds the search.\"\n (x509--match-date (lambda (d1 d2) (not (time-less-p d1 d2))) bound))\n\n(defun x509--mark-browse-url-links()\n \"Make http URLs clickable by making them buttons.\"\n (save-excursion\n (save-match-data\n (goto-char (point-min))\n (while (search-forward-regexp\n \"\\\$file\\\\|https?\\\$://[-_.:/A-Za-z0-9]+\" nil t)\n (let* ((start (match-beginning 0))\n (end (match-end 0))\n (url (match-string-no-properties 0))\n (help-echo (format \"Click to browse-url %s\" url)))\n ;; The url is stored in the face property\n (make-button\n start end\n\t 'face 'x509-browse-url-face\n\t 'follow-link t\n\t 'x509-browse-url-face url\n 'help-echo help-echo\n\t 'action (lambda (button)\n\t\t (browse-url\n (button-get button 'x509-browse-url-face)))))))))\n\n(require 'cl-lib)\n\n(defun x509--load-data-file (filename)\n \"Split FILENAME linewise into a list.\nSkip blank lines and comment lines. Return list.\"\n (with-temp-buffer\n (insert-file-contents\n (if (null load-file-name) filename\n (expand-file-name filename (file-name-directory load-file-name))))\n (cl-remove-if (lambda (s) (string-match-p \"^ *\\\$?:#\\\\|$\\\$\" s))\n (split-string (buffer-string) \"\\n\"))))\n\n(defconst x509--keywords\n (regexp-opt\n (x509--load-data-file \"keywords.txt\")))\n\n(defconst x509--constants\n (regexp-opt (x509--load-data-file \"constants.txt\") 'words))\n\n;; Keyword: constant\n;; E.g. \"Signature Algorithm: sha1WithRSAEncryption\"\n(defconst x509--keyword-w-constant\n (concat (regexp-opt\n (x509--load-data-file \"keyword+constant.txt\") t)\n ;; Followed by \": constant\"\n \": *\\\$.*\\\$\"))\n\n(defconst x509-font-lock-keywords\n (list\n `(,x509--keywords . 'font-lock-builtin-face)\n\n `(,x509--constants . 'font-lock-constant-face)\n\n ;; Validity on a line alone (preceding \"Not Before:\")\n '(\"^ +Validity ?$\" . 'font-lock-builtin-face)\n\n ;; something=string until ',' or '/' or EOL\n ;; E.g. CN=apa,OU=Räv\n '(\"\\\$\\\\<\\\\w+=\\\$\\\$.*?\\\$\\\$?:[,/]\\\\|$\\\$\"\n (1 'bold)\n (2 'font-lock-string-face))\n\n ;; something = string until ',' or EOL\n ;; E.g. CN = ACCVRAIZ1, OU = PKIACCV, O = ACCV, C = ES\n '(\"\\\$\\\\<\\\\w+\\\$ = \\\$.*?\\\$\\\$?:[,/]\\\\|$\\\$\"\n (1 'bold)\n (2 'font-lock-string-face))\n\n ;; URI: and CPS: . Highlight keyword. URL is handled by\n ;; `x509--mark-browse-url-links'\n '(\"\\\\<\\\$URI:\\\\|CPS: \\\$\"\n (1 'font-lock-builtin-face))\n\n ;; DNS:string email:string\n '(\"\\\\<\\\$DNS:\\\\|email:\\\$\\\$.*\\\$\"\n (1 'font-lock-builtin-face)\n (2 'font-lock-string-face))\n\n ;; Not Before: Jun 11 00:00:01 2014 GMT\n ;; Date is \"MATCH-ANCHORED\", see help for variable font-lock-keywords\n '(\"\\\$Not Before\\\$: \" (1 'font-lock-builtin-face)\n (x509--match-date-in-future nil nil (0 'x509-bad-date-face)))\n '(\"\\\$Not After\\\$ : \" (1 'font-lock-builtin-face)\n (x509--match-date-in-past nil nil (0 'x509-bad-date-face)))\n ;; For CRL's when Next Update is in the past\n '(\"\\\$Next Update\\\$: \" (1 'font-lock-builtin-face)\n (x509--match-date-in-past nil nil (0 'x509-bad-date-face)))\n\n ;; Policy: OID\n ;; Has precedence over Keyword: constant below\n '(\"\\\$Policy\\\$: \\\$[0-9]+\\\\.[0-9]+\\\\(:?\\\\.[0-9]+\\\$*\\\\)\"\n (1 'font-lock-builtin-face)\n (2 'x509-oid-face))\n\n ;; E.g. Public Key Algorithm: rsaEncryption\n `(,x509--keyword-w-constant\n (1 'font-lock-builtin-face)\n (2 'font-lock-constant-face))\n\n ;; CA:TRUE, CA:FALSE\n ;; CA used to be keyword+argument but CA: can be part of hex-string\n '(\"\\\$CA\\\$:\\\$TRUE\\\\|FALSE\\\$\"\n (1 'font-lock-builtin-face)\n (2 'font-lock-constant-face))\n\n ;; Hex dumps At least two two-digit hex-numbers separated by `:'\n ;; Can end in `:' for example in \"Modulus\"\n ;; fa:09(:....)\n '(\"[0-9a-fA-F][0-9a-fA-F]\\\$?::[0-9a-fA-F][0-9a-fA-F]\\\$+:?$\" .\n 'x509-hex-string-face)\n )\n \"OpenSSL x509 highlighting.\")\n\n(defun x509-mode--kill-buffer()\n \"Kill current buffer.\"\n (interactive)\n (set-buffer-modified-p nil)\n (kill-buffer))\n\n;;;###autoload\n(define-derived-mode x509-mode fundamental-mode \"x509\"\n \"Major mode for displaying openssl x509 output.\n\n\\\\{x509-mode-map}\"\n (set (make-local-variable 'font-lock-defaults) '(x509-font-lock-keywords))\n (define-key x509-mode-map \"q\" 'x509-mode--kill-buffer)\n (x509--mark-browse-url-links))\n\n(defun x509--buffer-encoding()\n \"Heuristic for identifying PEM or DER coded buffer.\nReturn string \\\"PEM\\\" or \\\"DER\\\".\"\n (save-excursion\n (goto-char (point-min))\n (save-match-data\n (if (search-forward \"-----BEGIN\" nil t)\n \"PEM\"\n \"DER\"))))\n\n(defun x509--process-buffer(openssl-arguments)\n \"Create new buffer named \\\"*x-[buffer-name]*\\\".\nPass content of current buffer to openssl with\nOPENSSL-ARGUMENTS. E.g. x509 -text\"\n (interactive)\n (let* ((buf (generate-new-buffer (generate-new-buffer-name\n (format \"*x-%s*\" (buffer-name)))))\n (args (append\n (list (point-min) (point-max) x509-openssl-cmd nil buf nil)\n openssl-arguments)))\n (apply 'call-process-region args)\n (switch-to-buffer buf)\n (goto-char (point-min))\n (set-buffer-modified-p nil)\n (setq buffer-read-only t)))\n\n(defun x509--read-arguments (prompt default history)\n \"Prompt, using PROMPT, for arguments if \\\\[universal-argument] prefix.\n\nProvide DEFAULT arguement and HISTORY.\nReturn list with single argument string.\"\n (if (equal current-prefix-arg '(4))\n (list (read-from-minibuffer prompt default nil nil history))\n (list default)))\n\n(defvar x509--viewcert-history nil \"History list for x509-viewcert.\")\n\n;;;###autoload\n(defun x509-viewcert (&optional args)\n \"Parse current buffer as a certificate file.\nARGS are arguments to the openssl command. Display result in\nanother buffer.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguements.\"\n (interactive (x509--read-arguments\n \"x509 args: \"\n (format \"x509 -nameopt utf8 -text -noout -inform %s\"\n (x509--buffer-encoding))\n 'x509--viewcert-history))\n (x509--process-buffer (split-string-and-unquote args))\n (x509-mode))\n\n(defvar x509--viewcrl-history nil \"History list for x509-viewcrl.\")\n\n;;;###autoload\n(defun x509-viewcrl (&optional args)\n \"Parse current buffer as a CRL file.\nARGS are arguments to the openssl command. Display result in\nanother buffer.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguements.\"\n (interactive (x509--read-arguments \"crl args: \"\n (format \"crl -text -noout -inform %s\"\n (x509--buffer-encoding))\n 'x509--viewcrl-history))\n (x509--process-buffer (split-string-and-unquote args))\n (x509-mode))\n\n(defvar x509--viewdh-history nil \"History list for x509-viewdh.\")\n\n;;;###autoload\n(defun x509-viewdh (&optional args)\n \"Parse current buffer as a DH-parameter file.\nARGS are arguments to the openssl command. Display result in\nanother buffer.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguements.\"\n (interactive (x509--read-arguments \"dhparam args: \"\n (format \"dhparam -text -noout -inform %s\"\n (x509--buffer-encoding))\n 'x509--viewdh-history))\n (x509--process-buffer (split-string-and-unquote args))\n (x509-mode))\n\n(defvar x509--viewkey-history nil \"History list for x509-viewkey.\")\n\n;; Special. older openssl pkey cannot read from stdin so we need to use\n;; buffer's file.\n;; FIXME: Create a temporary file with buffer content and use that as input to\n;; pkey.\n;;;###autoload\n(defun x509-viewkey (&optional args)\n \"Display x509 private key using the OpenSSL pkey command.\nARGS are arguments to the openssl command.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguements.\nFor example to enter pass-phrase, add -passin pass:PASSPHRASE.\"\n (interactive (x509--read-arguments\n \"pkey args: \"\n (format \"pkey -text -noout -inform %s -in \\\"%s\\\"\"\n (x509--buffer-encoding) (buffer-file-name))\n 'x509--viewkey-history))\n (x509--process-buffer (split-string-and-unquote args))\n (x509-mode))\n\n;; ----------------------------------------------------------------------------\n;; asn1-mode\n\n(defconst x509--asn1-primitives-keywords\n (regexp-opt '(\"prim\" \"EOC\" \"BOOLEAN\" \"INTEGER\" \"BIT_STRING\" \"BIT STRING\"\n \"OCTET_STRING\" \"OCTET STRING\" \"NULL\" \"OID\"\n \"UTCTIME\" \"GENERALIZEDTIME\" \"ENUMERATED\")))\n\n(defconst x509--asn1-cons-keywords\n (regexp-opt '(\"SEQUENCE\" \"SET\")))\n\n(defconst x509--asn1-strings\n (concat (regexp-opt\n ;; Keyword:\n '(\"UTF8STRING\" \"PRINTABLESTRING\" \"IA5STRING\")\n t ) ; t = enclose in \\\$ \\\$ for easy subexpr reference\n ;; Followed by a string\n \" *:\\\$.*?\\\$\\\$?: *:\\\\|$\\\$\"))\n\n(defconst x509--asn1-oid\n (concat (regexp-opt\n ;; Keyword:\n '(\"OID\" \"OBJECT\")\n t ) ; t = enclose in \\\$ \\\$ for easy subexpr reference\n ;; Followed by an OID (derdigger) or object name (asn1parse)\n \" *:\\\$.*?\\\$\\\$?: *:\\\\|$\\\$\"))\n\n(defconst x509-asn1-font-lock-keywords\n (list\n ;; BOOLEAN, INTEGER and such\n `(,x509--asn1-primitives-keywords . 'font-lock-builtin-face)\n ;; SET, SEQUENCE\n `(,x509--asn1-cons-keywords . 'font-lock-regexp-grouping-backslash)\n ;; cons: as in constructed. Same font as SET and SEQUENCE\n '(\"\\\$cons\\\$:\" (1 'font-lock-regexp-grouping-backslash))\n ;; Like SET and SEQUENCE\n '(\"\\\$cont\\\\|\\\\appl\\\\|priv\\\$ \\\\[\\\$.*?\\\$\\\\]\"\n (1 'font-lock-keyword-face)\n (2 'font-lock-regexp-grouping-backslash))\n ;; Parsing error messages\n '(\"error:.*\\\\|Error in encoding\" . 'font-lock-warning-face)\n ;; String type + string value\n `(,x509--asn1-strings\n (1 'font-lock-builtin-face)\n (2 'font-lock-constant-face))\n ;; \"OID\" followed by oid\n `(,x509--asn1-oid\n (1 'font-lock-builtin-face)\n (2 'font-lock-function-name-face))\n \"openssl asn1parse highligting\"))\n\n;;;###autoload\n(define-derived-mode x509-asn1-mode fundamental-mode \"asn1\"\n \"Major mode for displaying openssl asn1parse output.\n\n\\\\{x509-mode-map}\"\n (set (make-local-variable 'font-lock-defaults)\n '(x509-asn1-font-lock-keywords))\n (define-key x509-asn1-mode-map \"q\" 'x509-mode--kill-buffer))\n\n(defvar x509--viewasn1-history nil \"History list for x509-viewasn1.\")\n\n;;;###autoload\n(defun x509-viewasn1 (&optional args)\n \"Parse current buffer as ASN.1.\nARGS are arguments to the openssl command. Display result in\nanother buffer.\n\nWith \\\\[universal-argument] prefix, you can edit the command arguements.\"\n (interactive (x509--read-arguments \"asn1parse args: \"\n (format \"asn1parse -inform %s\"\n (x509--buffer-encoding))\n 'x509--viewasn1-history))\n (x509--process-buffer (split-string-and-unquote args))\n (x509-asn1-mode))\n\n(provide 'x509-asn1-mode)\n(provide 'x509-mode)\n\n;;; x509-mode.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor-20220810.1159","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":1256181,"end":1256217},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1256217},"to":{"change":7,"start":1256180,"end":1256180},"introduced_by":7}],"inode":{"change":7,"pos":1256180}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"dir","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1256180},"to":{"change":7,"start":1318729,"end":1318756},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1318756},"to":{"change":7,"start":1318113,"end":1318113},"introduced_by":7}],"inode":{"change":7,"pos":1318113}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1318113},"to":{"change":7,"start":1318114,"end":1318728},"introduced_by":7}],"inode":{"change":7,"pos":1318113}},"content":[{"Del":"This is the file .../info/dir, which contains the\ntopmost node of the Info hierarchy, called (dir)Top.\nThe first time you invoke Info you start off looking at this node.\n\u001f\nFile: dir,\tNode: Top\tThis is the top of the INFO tree\n\n This (the Directory node) gives a menu of major topics.\n Typing \"q\" exits, \"H\" lists all Info commands, \"d\" returns here,\n \"h\" gives a primer for first-timers,\n \"mEmacs\" visits the Emacs manual, etc.\n\n In Emacs, you can click mouse button 2 on a menu item or cross reference\n to select it.\n\n* Menu:\n\nEmacs\n* With-Editor: (with-editor). Using the Emacsclient as $EDITOR.\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1256180},"to":{"change":7,"start":1318063,"end":1318111},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1318111},"to":{"change":7,"start":1313937,"end":1313937},"introduced_by":7}],"inode":{"change":7,"pos":1313937}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1313937},"to":{"change":7,"start":1313938,"end":1318062},"introduced_by":7}],"inode":{"change":7,"pos":1313937}},"content":[{"Del":";;; with-editor-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"with-editor\" \"with-editor.el\" (0 0 0 0))\n;;; Generated autoloads from with-editor.el\n\n(autoload 'with-editor-export-editor \"with-editor\" \"\\\nTeach subsequent commands to use current Emacs instance as editor.\n\nSet and export the environment variable ENVVAR, by default\n\\\"EDITOR\\\". The value is automatically generated to teach\ncommands to use the current Emacs instance as \\\"the editor\\\".\n\nThis works in `shell-mode', `term-mode', `eshell-mode' and\n`vterm'.\n\n\\(fn &optional (ENVVAR \\\"EDITOR\\\"))\" t nil)\n\n(autoload 'with-editor-export-git-editor \"with-editor\" \"\\\nLike `with-editor-export-editor' but always set `$GIT_EDITOR'.\" t nil)\n\n(autoload 'with-editor-export-hg-editor \"with-editor\" \"\\\nLike `with-editor-export-editor' but always set `$HG_EDITOR'.\" t nil)\n\n(defvar shell-command-with-editor-mode nil \"\\\nNon-nil if Shell-Command-With-Editor mode is enabled.\nSee the `shell-command-with-editor-mode' command\nfor a description of this minor mode.\")\n\n(custom-autoload 'shell-command-with-editor-mode \"with-editor\" nil)\n\n(autoload 'shell-command-with-editor-mode \"with-editor\" \"\\\nTeach `shell-command' to use current Emacs instance as editor.\n\nThis is a minor mode. If called interactively, toggle the\n`Shell-Command-With-Editor mode' mode. If the prefix argument is\npositive, enable the mode, and if it is zero or negative, disable\nthe mode.\n\nIf called from Lisp, toggle the mode if ARG is `toggle'. Enable\nthe mode if ARG is nil, omitted, or is a positive number.\nDisable the mode if ARG is a negative number.\n\nTo check whether the minor mode is enabled in the current buffer,\nevaluate `(default-value \\\\='shell-command-with-editor-mode)'.\n\nThe mode's hook is called both when the mode is enabled and when\nit is disabled.\n\nTeach `shell-command', and all commands that ultimately call that\ncommand, to use the current Emacs instance as editor by executing\n\\\"EDITOR=CLIENT COMMAND&\\\" instead of just \\\"COMMAND&\\\".\n\nCLIENT is automatically generated; EDITOR=CLIENT instructs\nCOMMAND to use to the current Emacs instance as \\\"the editor\\\",\nassuming no other variable overrides the effect of \\\"$EDITOR\\\".\nCLIENT may be the path to an appropriate emacsclient executable\nwith arguments, or a script which also works over Tramp.\n\nAlternatively you can use the `with-editor-async-shell-command',\nwhich also allows the use of another variable instead of\n\\\"EDITOR\\\".\n\n\\(fn &optional ARG)\" t nil)\n\n(autoload 'with-editor-async-shell-command \"with-editor\" \"\\\nLike `async-shell-command' but with `$EDITOR' set.\n\nExecute string \\\"ENVVAR=CLIENT COMMAND\\\" in an inferior shell;\ndisplay output, if any. With a prefix argument prompt for an\nenvironment variable, otherwise the default \\\"EDITOR\\\" variable\nis used. With a negative prefix argument additionally insert\nthe COMMAND's output at point.\n\nCLIENT is automatically generated; ENVVAR=CLIENT instructs\nCOMMAND to use to the current Emacs instance as \\\"the editor\\\",\nassuming it respects ENVVAR as an \\\"EDITOR\\\"-like variable.\nCLIENT may be the path to an appropriate emacsclient executable\nwith arguments, or a script which also works over Tramp.\n\nAlso see `async-shell-command' and `shell-command'.\n\n\\(fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER ENVVAR)\" t nil)\n\n(autoload 'with-editor-shell-command \"with-editor\" \"\\\nLike `shell-command' or `with-editor-async-shell-command'.\nIf COMMAND ends with \\\"&\\\" behave like the latter,\nelse like the former.\n\n\\(fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER ENVVAR)\" t nil)\n\n(register-definition-prefixes \"with-editor\" '(\"server-\" \"shell-command--shell-command-with-editor-mode\" \"start-file-process--with-editor-process-filter\" \"with-editor\"))\n\n;;;***\n\f\n;;;### (autoloads nil nil (\"with-editor-pkg.el\") (0 0 0 0))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; with-editor-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1256180},"to":{"change":7,"start":1313893,"end":1313935},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1313935},"to":{"change":7,"start":1313464,"end":1313464},"introduced_by":7}],"inode":{"change":7,"pos":1313464}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1313464},"to":{"change":7,"start":1313465,"end":1313892},"introduced_by":7}],"inode":{"change":7,"pos":1313464}},"content":[{"Del":"(define-package \"with-editor\" \"20220810.1159\" \"Use the Emacsclient as $EDITOR\"\n '((emacs \"25.1\")\n (compat \"28.1.1.0\"))\n :commit \"14a958d4f2fc932db1c1af30ca405e6570d60e24\" :authors\n '((\"Jonas Bernoulli\" . \"jonas@bernoul.li\"))\n :maintainer\n '(\"Jonas Bernoulli\" . \"jonas@bernoul.li\")\n :keywords\n '(\"processes\" \"terminals\")\n :url \"https://github.com/magit/with-editor\")\n;; Local Variables:\n;; no-byte-compile: t\n;; End:\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1256180},"to":{"change":7,"start":1313424,"end":1313462},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1313462},"to":{"change":7,"start":1272579,"end":1272579},"introduced_by":7}],"inode":{"change":7,"pos":1272579}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1272579},"to":{"change":7,"start":1272580,"end":1313423},"introduced_by":7}],"inode":{"change":7,"pos":1272579}},"content":[{"Del":";;; with-editor.el --- Use the Emacsclient as $EDITOR -*- lexical-binding:t -*-\n\n;; Copyright (C) 2014-2022 The Magit Project Contributors\n\n;; Author: Jonas Bernoulli \n;; Homepage: https://github.com/magit/with-editor\n;; Keywords: processes terminals\n\n;; Package-Version: 3.2.0-git\n;; Package-Requires: ((emacs \"25.1\") (compat \"28.1.1.0\"))\n\n;; SPDX-License-Identifier: GPL-3.0-or-later\n\n;; This file is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published\n;; by the Free Software Foundation, either version 3 of the License,\n;; or (at your option) any later version.\n;;\n;; This file is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n;;\n;; You should have received a copy of the GNU General Public License\n;; along with this file. If not, see .\n\n;;; Commentary:\n\n;; This library makes it possible to reliably use the Emacsclient as\n;; the `$EDITOR' of child processes. It makes sure that they know how\n;; to call home. For remote processes a substitute is provided, which\n;; communicates with Emacs on standard output/input instead of using a\n;; socket as the Emacsclient does.\n\n;; It provides the commands `with-editor-async-shell-command' and\n;; `with-editor-shell-command', which are intended as replacements\n;; for `async-shell-command' and `shell-command'. They automatically\n;; export `$EDITOR' making sure the executed command uses the current\n;; Emacs instance as \"the editor\". With a prefix argument these\n;; commands prompt for an alternative environment variable such as\n;; `$GIT_EDITOR'. To always use these variants add this to your init\n;; file:\n;;\n;; (define-key (current-global-map)\n;; [remap async-shell-command] #'with-editor-async-shell-command)\n;; (define-key (current-global-map)\n;; [remap shell-command] #'with-editor-shell-command)\n\n;; Alternatively use the global `shell-command-with-editor-mode',\n;; which always sets `$EDITOR' for all Emacs commands which ultimately\n;; use `shell-command' to asynchronously run some shell command.\n\n;; The command `with-editor-export-editor' exports `$EDITOR' or\n;; another such environment variable in `shell-mode', `eshell-mode',\n;; `term-mode' and `vterm-mode' buffers. Use this Emacs command\n;; before executing a shell command which needs the editor set, or\n;; always arrange for the current Emacs instance to be used as editor\n;; by adding it to the appropriate mode hooks:\n;;\n;; (add-hook 'shell-mode-hook #'with-editor-export-editor)\n;; (add-hook 'eshell-mode-hook #'with-editor-export-editor)\n;; (add-hook 'term-exec-hook #'with-editor-export-editor)\n;; (add-hook 'vterm-mode-hook #'with-editor-export-editor)\n\n;; Some variants of this function exist, these two forms are\n;; equivalent:\n;;\n;; (add-hook 'shell-mode-hook\n;; (apply-partially #'with-editor-export-editor \"GIT_EDITOR\"))\n;; (add-hook 'shell-mode-hook #'with-editor-export-git-editor)\n\n;; This library can also be used by other packages which need to use\n;; the current Emacs instance as editor. In fact this library was\n;; written for Magit and its `git-commit-mode' and `git-rebase-mode'.\n;; Consult `git-rebase.el' and the related code in `magit-sequence.el'\n;; for a simple example.\n\n;;; Code:\n\n(require 'cl-lib)\n(require 'compat)\n(require 'server)\n(require 'shell)\n(eval-when-compile (require 'subr-x))\n\n(declare-function dired-get-filename \"dired\"\n (&optional localp no-error-if-not-filep))\n(declare-function term-emulate-terminal \"term\" (proc str))\n(declare-function vterm-send-return \"vterm\" ())\n(declare-function vterm-send-string \"vterm\" (string &optional paste-p))\n(defvar eshell-preoutput-filter-functions)\n(defvar git-commit-post-finish-hook)\n(defvar vterm--process)\n(defvar warning-minimum-level)\n(defvar warning-minimum-log-level)\n\n;;; Options\n\n(defgroup with-editor nil\n \"Use the Emacsclient as $EDITOR.\"\n :group 'external\n :group 'server)\n\n(defun with-editor-locate-emacsclient ()\n \"Search for a suitable Emacsclient executable.\"\n (or (with-editor-locate-emacsclient-1\n (with-editor-emacsclient-path)\n (length (split-string emacs-version \"\\\\.\")))\n (prog1 nil (display-warning 'with-editor \"\\\nCannot determine a suitable Emacsclient\n\nDetermining an Emacsclient executable suitable for the\ncurrent Emacs instance failed. For more information\nplease see https://github.com/magit/magit/wiki/Emacsclient.\"))))\n\n(defun with-editor-locate-emacsclient-1 (path depth)\n (let* ((version-lst (cl-subseq (split-string emacs-version \"\\\\.\") 0 depth))\n (version-reg (concat \"^\" (mapconcat #'identity version-lst \"\\\\.\"))))\n (or (locate-file\n (if (equal (downcase invocation-name) \"remacs\")\n \"remacsclient\"\n \"emacsclient\")\n path\n (cl-mapcan\n (lambda (v) (cl-mapcar (lambda (e) (concat v e)) exec-suffixes))\n (nconc (and (boundp 'debian-emacs-flavor)\n (list (format \".%s\" debian-emacs-flavor)))\n (cl-mapcon (lambda (v)\n (setq v (mapconcat #'identity (reverse v) \".\"))\n (list v (concat \"-\" v) (concat \".emacs\" v)))\n (reverse version-lst))\n (list \"\" \"-snapshot\" \".emacs-snapshot\")))\n (lambda (exec)\n (ignore-errors\n (string-match-p version-reg\n (with-editor-emacsclient-version exec)))))\n (and (> depth 1)\n (with-editor-locate-emacsclient-1 path (1- depth))))))\n\n(defun with-editor-emacsclient-version (exec)\n (let ((default-directory (file-name-directory exec)))\n (ignore-errors\n (cadr (split-string (car (process-lines exec \"--version\")))))))\n\n(defun with-editor-emacsclient-path ()\n (let ((path exec-path))\n (when invocation-directory\n (push (directory-file-name invocation-directory) path)\n (let* ((linkname (expand-file-name invocation-name invocation-directory))\n (truename (file-chase-links linkname)))\n (unless (equal truename linkname)\n (push (directory-file-name (file-name-directory truename)) path)))\n (when (eq system-type 'darwin)\n (let ((dir (expand-file-name \"bin\" invocation-directory)))\n (when (file-directory-p dir)\n (push dir path)))\n (when (string-search \"Cellar\" invocation-directory)\n (let ((dir (expand-file-name \"../../../bin\" invocation-directory)))\n (when (file-directory-p dir)\n (push dir path))))))\n (cl-remove-duplicates path :test #'equal)))\n\n(defcustom with-editor-emacsclient-executable (with-editor-locate-emacsclient)\n \"The Emacsclient executable used by the `with-editor' macro.\"\n :group 'with-editor\n :type '(choice (string :tag \"Executable\")\n (const :tag \"Don't use Emacsclient\" nil)))\n\n(defcustom with-editor-sleeping-editor \"\\\nsh -c '\\\nprintf \\\"\\\\nWITH-EDITOR: $$ OPEN $0\\\\037 IN $(pwd)\\\\n\\\"; \\\nsleep 604800 & sleep=$!; \\\ntrap \\\"kill $sleep; exit 0\\\" USR1; \\\ntrap \\\"kill $sleep; exit 1\\\" USR2; \\\nwait $sleep'\"\n \"The sleeping editor, used when the Emacsclient cannot be used.\n\nThis fallback is used for asynchronous processes started inside\nthe macro `with-editor', when the process runs on a remote machine\nor for local processes when `with-editor-emacsclient-executable'\nis nil (i.e. when no suitable Emacsclient was found, or the user\ndecided not to use it).\n\nWhere the latter uses a socket to communicate with Emacs' server,\nthis substitute prints edit requests to its standard output on\nwhich a process filter listens for such requests. As such it is\nnot a complete substitute for a proper Emacsclient, it can only\nbe used as $EDITOR of child process of the current Emacs instance.\n\nSome shells do not execute traps immediately when waiting for a\nchild process, but by default we do use such a blocking child\nprocess.\n\nIf you use such a shell (e.g. `csh' on FreeBSD, but not Debian),\nthen you have to edit this option. You can either replace \\\"sh\\\"\nwith \\\"bash\\\" (and install that), or you can use the older, less\nperformant implementation:\n\n \\\"sh -c '\\\\\n echo -e \\\\\\\"\\\\nWITH-EDITOR: $$ OPEN $0\u001f IN $(pwd)\\\\n\\\\\\\"; \\\\\n trap \\\\\\\"exit 0\\\\\\\" USR1; \\\\\n trap \\\\\\\"exit 1\\\" USR2; \\\\\n while true; do sleep 1; done'\\\"\n\nNote that the unit separator character (\u001f) right after the file\nname ($0) is required.\n\nAlso note that using this alternative implementation leads to a\ndelay of up to a second. The delay can be shortened by replacing\n\\\"sleep 1\\\" with \\\"sleep 0.01\\\", or if your implementation does\nnot support floats, then by using \\\"nanosleep\\\" instead.\"\n :package-version '(with-editor . \"2.8.0\")\n :group 'with-editor\n :type 'string)\n\n(defcustom with-editor-finish-query-functions nil\n \"List of functions called to query before finishing session.\n\nThe buffer in question is current while the functions are called.\nIf any of them returns nil, then the session is not finished and\nthe buffer is not killed. The user should then fix the issue and\ntry again. The functions are called with one argument. If it is\nnon-nil then that indicates that the user used a prefix argument\nto force finishing the session despite issues. Functions should\nusually honor that and return non-nil.\"\n :group 'with-editor\n :type 'hook)\n(put 'with-editor-finish-query-functions 'permanent-local t)\n\n(defcustom with-editor-cancel-query-functions nil\n \"List of functions called to query before canceling session.\n\nThe buffer in question is current while the functions are called.\nIf any of them returns nil, then the session is not canceled and\nthe buffer is not killed. The user should then fix the issue and\ntry again. The functions are called with one argument. If it is\nnon-nil then that indicates that the user used a prefix argument\nto force canceling the session despite issues. Functions should\nusually honor that and return non-nil.\"\n :group 'with-editor\n :type 'hook)\n(put 'with-editor-cancel-query-functions 'permanent-local t)\n\n(defcustom with-editor-mode-lighter \" WE\"\n \"The mode-line lighter of the With-Editor mode.\"\n :group 'with-editor\n :type '(choice (const :tag \"No lighter\" \"\") string))\n\n(defvar with-editor-server-window-alist nil\n \"Alist of filename patterns vs corresponding `server-window'.\n\nEach element looks like (REGEXP . FUNCTION). Files matching\nREGEXP are selected using FUNCTION instead of the default in\n`server-window'.\n\nNote that when a package adds an entry here then it probably\nhas a reason to disrespect `server-window' and it likely is\nnot a good idea to change such entries.\")\n\n(defvar with-editor-file-name-history-exclude nil\n \"List of regexps for filenames `server-visit' should not remember.\nWhen a filename matches any of the regexps, then `server-visit'\ndoes not add it to the variable `file-name-history', which is\nused when reading a filename in the minibuffer.\")\n\n(defcustom with-editor-shell-command-use-emacsclient t\n \"Whether to use the emacsclient when running shell commands.\n\nThis affects `with-editor-shell-command-async' and, if the input\nends with \\\"&\\\" `with-editor-shell-command' .\n\nIf `shell-command-with-editor-mode' is enabled, then it also\naffects `shell-command-async' and, if the input ends with \\\"&\\\"\n`shell-command'.\n\nThis is a temporary kludge that lets you choose between two\npossible defects, the ones described in the issues #23 and #40.\n\nWhen t, then use the emacsclient. This has the disadvantage that\n`with-editor-mode' won't be enabled because we don't know whether\nthis package was involved at all in the call to the emacsclient,\nand when it is not, then we really should. The problem is that\nthe emacsclient doesn't pass along any environment variables to\nthe server. This will hopefully be fixed in Emacs eventually.\n\nWhen nil, then use the sleeping editor. Because in this case we\nknow that this package is involved, we can enable the mode. But\nthis makes it necessary that you invoke $EDITOR in shell scripts\nlike so:\n\n eval \\\"$EDITOR\\\" file\n\nAnd some tools that do not handle $EDITOR properly also break.\"\n :package-version '(with-editor . \"2.7.1\")\n :group 'with-editor\n :type 'boolean)\n\n;;; Mode Commands\n\n(defvar with-editor-pre-finish-hook nil)\n(defvar with-editor-pre-cancel-hook nil)\n(defvar with-editor-post-finish-hook nil)\n(defvar with-editor-post-finish-hook-1 nil)\n(defvar with-editor-post-cancel-hook nil)\n(defvar with-editor-post-cancel-hook-1 nil)\n(defvar with-editor-cancel-alist nil)\n(put 'with-editor-pre-finish-hook 'permanent-local t)\n(put 'with-editor-pre-cancel-hook 'permanent-local t)\n(put 'with-editor-post-finish-hook 'permanent-local t)\n(put 'with-editor-post-cancel-hook 'permanent-local t)\n\n(defvar-local with-editor-show-usage t)\n(defvar-local with-editor-cancel-message nil)\n(defvar-local with-editor-previous-winconf nil)\n(put 'with-editor-cancel-message 'permanent-local t)\n(put 'with-editor-previous-winconf 'permanent-local t)\n\n(defvar-local with-editor--pid nil \"For internal use.\")\n(put 'with-editor--pid 'permanent-local t)\n\n(defun with-editor-finish (force)\n \"Finish the current edit session.\"\n (interactive \"P\")\n (when (run-hook-with-args-until-failure\n 'with-editor-finish-query-functions force)\n (let ((post-finish-hook with-editor-post-finish-hook)\n (post-commit-hook (bound-and-true-p git-commit-post-finish-hook))\n (dir default-directory))\n (run-hooks 'with-editor-pre-finish-hook)\n (with-editor-return nil)\n (accept-process-output nil 0.1)\n (with-temp-buffer\n (setq default-directory dir)\n (setq-local with-editor-post-finish-hook post-finish-hook)\n (when post-commit-hook\n (setq-local git-commit-post-finish-hook post-commit-hook))\n (run-hooks 'with-editor-post-finish-hook)))))\n\n(defun with-editor-cancel (force)\n \"Cancel the current edit session.\"\n (interactive \"P\")\n (when (run-hook-with-args-until-failure\n 'with-editor-cancel-query-functions force)\n (let ((message with-editor-cancel-message))\n (when (functionp message)\n (setq message (funcall message)))\n (let ((post-cancel-hook with-editor-post-cancel-hook)\n (with-editor-cancel-alist nil)\n (dir default-directory))\n (run-hooks 'with-editor-pre-cancel-hook)\n (with-editor-return t)\n (accept-process-output nil 0.1)\n (with-temp-buffer\n (setq default-directory dir)\n (setq-local with-editor-post-cancel-hook post-cancel-hook)\n (run-hooks 'with-editor-post-cancel-hook)))\n (message (or message \"Canceled by user\")))))\n\n(defun with-editor-return (cancel)\n (let ((winconf with-editor-previous-winconf)\n (clients server-buffer-clients)\n (dir default-directory)\n (pid with-editor--pid))\n (remove-hook 'kill-buffer-query-functions\n #'with-editor-kill-buffer-noop t)\n (cond (cancel\n (save-buffer)\n (if clients\n (let ((buf (current-buffer)))\n (dolist (client clients)\n (message \"client %S\" client)\n (ignore-errors\n (server-send-string client \"-error Canceled by user\"))\n (delete-process client))\n (when (buffer-live-p buf)\n (kill-buffer buf)))\n ;; Fallback for when emacs was used as $EDITOR\n ;; instead of emacsclient or the sleeping editor.\n ;; See https://github.com/magit/magit/issues/2258.\n (ignore-errors (delete-file buffer-file-name))\n (kill-buffer)))\n (t\n (save-buffer)\n (if clients\n ;; Don't use `server-edit' because we do not want to\n ;; show another buffer belonging to another client.\n ;; See https://github.com/magit/magit/issues/2197.\n (server-done)\n (kill-buffer))))\n (when pid\n (let ((default-directory dir))\n (process-file \"kill\" nil nil nil\n \"-s\" (if cancel \"USR2\" \"USR1\") pid)))\n (when (and winconf (eq (window-configuration-frame winconf)\n (selected-frame)))\n (set-window-configuration winconf))))\n\n;;; Mode\n\n(defvar with-editor-mode-map\n (let ((map (make-sparse-keymap)))\n (define-key map \"\\C-c\\C-c\" #'with-editor-finish)\n (define-key map [remap server-edit] #'with-editor-finish)\n (define-key map [remap evil-save-and-close] #'with-editor-finish)\n (define-key map [remap evil-save-modified-and-close] #'with-editor-finish)\n (define-key map \"\\C-c\\C-k\" #'with-editor-cancel)\n (define-key map [remap kill-buffer] #'with-editor-cancel)\n (define-key map [remap ido-kill-buffer] #'with-editor-cancel)\n (define-key map [remap iswitchb-kill-buffer] #'with-editor-cancel)\n (define-key map [remap evil-quit] #'with-editor-cancel)\n map))\n\n(define-minor-mode with-editor-mode\n \"Edit a file as the $EDITOR of an external process.\"\n :lighter with-editor-mode-lighter\n ;; Protect the user from killing the buffer without using\n ;; either `with-editor-finish' or `with-editor-cancel',\n ;; and from removing the key bindings for these commands.\n (unless with-editor-mode\n (user-error \"With-Editor mode cannot be turned off\"))\n (add-hook 'kill-buffer-query-functions\n #'with-editor-kill-buffer-noop nil t)\n ;; `server-execute' displays a message which is not\n ;; correct when using this mode.\n (when with-editor-show-usage\n (with-editor-usage-message)))\n\n(put 'with-editor-mode 'permanent-local t)\n\n(defun with-editor-kill-buffer-noop ()\n ;; We started doing this in response to #64, but it is not safe\n ;; to do so, because the client has already been killed, causing\n ;; `with-editor-return' (called by `with-editor-cancel') to delete\n ;; the file, see #66. The reason we delete the file in the first\n ;; place are https://github.com/magit/magit/issues/2258 and\n ;; https://github.com/magit/magit/issues/2248.\n ;; (if (memq this-command '(save-buffers-kill-terminal\n ;; save-buffers-kill-emacs))\n ;; (let ((with-editor-cancel-query-functions nil))\n ;; (with-editor-cancel nil)\n ;; t)\n ;; ...)\n ;; So go back to always doing this instead:\n (user-error (substitute-command-keys (format \"\\\nDon't kill this buffer %S. Instead cancel using \\\\[with-editor-cancel]\"\n (current-buffer)))))\n\n(defvar-local with-editor-usage-message \"\\\nType \\\\[with-editor-finish] to finish, \\\nor \\\\[with-editor-cancel] to cancel\")\n\n(defun with-editor-usage-message ()\n ;; Run after `server-execute', which is run using\n ;; a timer which starts immediately.\n (let ((buffer (current-buffer)))\n (run-with-timer\n 0.05 nil\n (lambda ()\n (with-current-buffer buffer\n (message (substitute-command-keys with-editor-usage-message)))))))\n\n;;; Wrappers\n\n(defvar with-editor--envvar nil \"For internal use.\")\n\n(defmacro with-editor (&rest body)\n \"Use the Emacsclient as $EDITOR while evaluating BODY.\nModify the `process-environment' for processes started in BODY,\ninstructing them to use the Emacsclient as $EDITOR. If optional\nENVVAR is a literal string then bind that environment variable\ninstead.\n\\n(fn [ENVVAR] BODY...)\"\n (declare (indent defun) (debug (body)))\n `(let ((with-editor--envvar ,(if (stringp (car body))\n (pop body)\n '(or with-editor--envvar \"EDITOR\")))\n (process-environment process-environment))\n (with-editor--setup)\n ,@body))\n\n(defmacro with-editor* (envvar &rest body)\n \"Use the Emacsclient as the editor while evaluating BODY.\nModify the `process-environment' for processes started in BODY,\ninstructing them to use the Emacsclient as editor. ENVVAR is the\nenvironment variable that is exported to do so, it is evaluated\nat run-time.\n\\n(fn [ENVVAR] BODY...)\"\n (declare (indent defun) (debug (sexp body)))\n `(let ((with-editor--envvar ,envvar)\n (process-environment process-environment))\n (with-editor--setup)\n ,@body))\n\n(defun with-editor--setup ()\n (if (or (not with-editor-emacsclient-executable)\n (file-remote-p default-directory))\n (push (concat with-editor--envvar \"=\" with-editor-sleeping-editor)\n process-environment)\n ;; Make sure server-use-tcp's value is valid.\n (unless (featurep 'make-network-process '(:family local))\n (setq server-use-tcp t))\n ;; Make sure the server is running.\n (unless (process-live-p server-process)\n (when (server-running-p server-name)\n (setq server-name (format \"server%s\" (emacs-pid)))\n (when (server-running-p server-name)\n (server-force-delete server-name)))\n (server-start))\n ;; Tell $EDITOR to use the Emacsclient.\n (push (concat with-editor--envvar \"=\"\n (shell-quote-argument with-editor-emacsclient-executable)\n ;; Tell the process where the server file is.\n (and (not server-use-tcp)\n (concat \" --socket-name=\"\n (shell-quote-argument\n (expand-file-name server-name\n server-socket-dir)))))\n process-environment)\n (when server-use-tcp\n (push (concat \"EMACS_SERVER_FILE=\"\n (expand-file-name server-name server-auth-dir))\n process-environment))\n ;; As last resort fallback to the sleeping editor.\n (push (concat \"ALTERNATE_EDITOR=\" with-editor-sleeping-editor)\n process-environment)))\n\n(defun with-editor-server-window ()\n (or (and buffer-file-name\n (cdr (cl-find-if (lambda (cons)\n (string-match-p (car cons) buffer-file-name))\n with-editor-server-window-alist)))\n server-window))\n\n(defun server-switch-buffer--with-editor-server-window-alist\n (fn &optional next-buffer &rest args)\n \"Honor `with-editor-server-window-alist' (which see).\"\n (let ((server-window (with-current-buffer\n (or next-buffer (current-buffer))\n (when with-editor-mode\n (setq with-editor-previous-winconf\n (current-window-configuration)))\n (with-editor-server-window))))\n (apply fn next-buffer args)))\n\n(advice-add 'server-switch-buffer :around\n #'server-switch-buffer--with-editor-server-window-alist)\n\n(defun start-file-process--with-editor-process-filter\n (fn name buffer program &rest program-args)\n \"When called inside a `with-editor' form and the Emacsclient\ncannot be used, then give the process the filter function\n`with-editor-process-filter'. To avoid overriding the filter\nbeing added here you should use `with-editor-set-process-filter'\ninstead of `set-process-filter' inside `with-editor' forms.\n\nWhen the `default-directory' is located on a remote machine,\nthen also manipulate PROGRAM and PROGRAM-ARGS in order to set\nthe appropriate editor environment variable.\"\n (if (not with-editor--envvar)\n (apply fn name buffer program program-args)\n (when (file-remote-p default-directory)\n (unless (equal program \"env\")\n (push program program-args)\n (setq program \"env\"))\n (push (concat with-editor--envvar \"=\" with-editor-sleeping-editor)\n program-args))\n (let ((process (apply fn name buffer program program-args)))\n (set-process-filter process #'with-editor-process-filter)\n (process-put process 'default-dir default-directory)\n process)))\n\n(advice-add 'start-file-process :around\n #'start-file-process--with-editor-process-filter)\n\n(cl-defun make-process--with-editor-process-filter\n (fn &rest keys &key name buffer command coding noquery stop\n connection-type filter sentinel stderr file-handler\n &allow-other-keys)\n \"When called inside a `with-editor' form and the Emacsclient\ncannot be used, then give the process the filter function\n`with-editor-process-filter'. To avoid overriding the filter\nbeing added here you should use `with-editor-set-process-filter'\ninstead of `set-process-filter' inside `with-editor' forms.\n\nWhen the `default-directory' is located on a remote machine and\nFILE-HANDLER is non-nil, then also manipulate COMMAND in order\nto set the appropriate editor environment variable.\"\n (if (or (not file-handler) (not with-editor--envvar))\n (apply fn keys)\n (when (file-remote-p default-directory)\n (unless (equal (car command) \"env\")\n (push \"env\" command))\n (push (concat with-editor--envvar \"=\" with-editor-sleeping-editor)\n (cdr command)))\n (let* ((filter (if filter\n (lambda (process output)\n (funcall filter process output)\n (with-editor-process-filter process output t))\n #'with-editor-process-filter))\n (process (funcall fn\n :name name\n :buffer buffer\n :command command\n :coding coding\n :noquery noquery\n :stop stop\n :connection-type connection-type\n :filter filter\n :sentinel sentinel\n :stderr stderr\n :file-handler file-handler)))\n (process-put process 'default-dir default-directory)\n process)))\n\n(advice-add #'make-process :around #'make-process--with-editor-process-filter)\n\n(defun with-editor-set-process-filter (process filter)\n \"Like `set-process-filter' but keep `with-editor-process-filter'.\nGive PROCESS the new FILTER but keep `with-editor-process-filter'\nif that was added earlier by the advised `start-file-process'.\n\nDo so by wrapping the two filter functions using a lambda, which\nbecomes the actual filter. It calls FILTER first, which may or\nmay not insert the text into the PROCESS's buffer. Then it calls\n`with-editor-process-filter', passing t as NO-STANDARD-FILTER.\"\n (set-process-filter\n process\n (if (eq (process-filter process) 'with-editor-process-filter)\n `(lambda (proc str)\n (,filter proc str)\n (with-editor-process-filter proc str t))\n filter)))\n\n(defvar with-editor-filter-visit-hook nil)\n\n(defconst with-editor-sleeping-editor-regexp\n \"^WITH-EDITOR: \\\$[0-9]+\\\$ OPEN \\\$[^\u001f]+?\\\$\\\$?:\u001f IN \\\\([^\\r]+?\\\$\\\\)?\\r?$\")\n\n(defvar with-editor--max-incomplete-length 1000)\n\n(defun with-editor-sleeping-editor-filter (process string)\n (when-let ((incomplete (and process (process-get process 'incomplete))))\n (setq string (concat incomplete string)))\n (save-match-data\n (cond\n ((and process (not (string-suffix-p \"\\n\" string)))\n (let ((length (length string)))\n (when (> length with-editor--max-incomplete-length)\n (setq string\n (substring string\n (- length with-editor--max-incomplete-length)))))\n (process-put process 'incomplete string)\n nil)\n ((string-match with-editor-sleeping-editor-regexp string)\n (when process\n (process-put process 'incomplete nil))\n (let ((pid (match-string 1 string))\n (file (match-string 2 string))\n (dir (match-string 3 string)))\n (unless (file-name-absolute-p file)\n (setq file (expand-file-name file dir)))\n (when default-directory\n (setq file (concat (file-remote-p default-directory) file)))\n (with-current-buffer (find-file-noselect file)\n (with-editor-mode 1)\n (setq with-editor--pid pid)\n (setq with-editor-previous-winconf\n (current-window-configuration))\n (run-hooks 'with-editor-filter-visit-hook)\n (funcall (or (with-editor-server-window) #'switch-to-buffer)\n (current-buffer))\n (kill-local-variable 'server-window)))\n nil)\n (t string))))\n\n(defun with-editor-process-filter\n (process string &optional no-default-filter)\n \"Listen for edit requests by child processes.\"\n (let ((default-directory (process-get process 'default-dir)))\n (with-editor-sleeping-editor-filter process string))\n (unless no-default-filter\n (internal-default-process-filter process string)))\n\n(advice-add 'server-visit-files :after\n #'server-visit-files--with-editor-file-name-history-exclude)\n\n(defun server-visit-files--with-editor-file-name-history-exclude\n (files _proc &optional _nowait)\n (pcase-dolist (`(,file . ,_) files)\n (when (cl-find-if (lambda (regexp)\n (string-match-p regexp file))\n with-editor-file-name-history-exclude)\n (setq file-name-history (delete file file-name-history)))))\n\n;;; Augmentations\n\n;;;###autoload\n(cl-defun with-editor-export-editor (&optional (envvar \"EDITOR\"))\n \"Teach subsequent commands to use current Emacs instance as editor.\n\nSet and export the environment variable ENVVAR, by default\n\\\"EDITOR\\\". The value is automatically generated to teach\ncommands to use the current Emacs instance as \\\"the editor\\\".\n\nThis works in `shell-mode', `term-mode', `eshell-mode' and\n`vterm'.\"\n (interactive (list (with-editor-read-envvar)))\n (cond\n ((derived-mode-p 'comint-mode 'term-mode)\n (when-let ((process (get-buffer-process (current-buffer))))\n (goto-char (process-mark process))\n (process-send-string\n process (format \" export %s=%s\\n\" envvar\n (shell-quote-argument with-editor-sleeping-editor)))\n (while (accept-process-output process 0.1))\n (if (derived-mode-p 'term-mode)\n (with-editor-set-process-filter process #'with-editor-emulate-terminal)\n (add-hook 'comint-output-filter-functions #'with-editor-output-filter\n nil t))))\n ((derived-mode-p 'eshell-mode)\n (add-to-list 'eshell-preoutput-filter-functions\n #'with-editor-output-filter)\n (setenv envvar with-editor-sleeping-editor))\n ((derived-mode-p 'vterm-mode)\n (if with-editor-emacsclient-executable\n (let ((with-editor--envvar envvar)\n (process-environment process-environment))\n (with-editor--setup)\n (while (accept-process-output vterm--process 0.1))\n (when-let ((v (getenv envvar)))\n (vterm-send-string (format \" export %s=%S\" envvar v))\n (vterm-send-return))\n (when-let ((v (getenv \"EMACS_SERVER_FILE\")))\n (vterm-send-string (format \" export EMACS_SERVER_FILE=%S\" v))\n (vterm-send-return))\n (vterm-send-string \"clear\")\n (vterm-send-return))\n (error \"Cannot use sleeping editor in this buffer\")))\n (t\n (error \"Cannot export environment variables in this buffer\")))\n (message \"Successfully exported %s\" envvar))\n\n;;;###autoload\n(defun with-editor-export-git-editor ()\n \"Like `with-editor-export-editor' but always set `$GIT_EDITOR'.\"\n (interactive)\n (with-editor-export-editor \"GIT_EDITOR\"))\n\n;;;###autoload\n(defun with-editor-export-hg-editor ()\n \"Like `with-editor-export-editor' but always set `$HG_EDITOR'.\"\n (interactive)\n (with-editor-export-editor \"HG_EDITOR\"))\n\n(defun with-editor-output-filter (string)\n \"Handle edit requests on behalf of `comint-mode' and `eshell-mode'.\"\n (with-editor-sleeping-editor-filter nil string))\n\n(defun with-editor-emulate-terminal (process string)\n \"Like `term-emulate-terminal' but also handle edit requests.\"\n (let ((with-editor-sleeping-editor-regexp\n (substring with-editor-sleeping-editor-regexp 1)))\n (with-editor-sleeping-editor-filter process string))\n (term-emulate-terminal process string))\n\n(defvar with-editor-envvars '(\"EDITOR\" \"GIT_EDITOR\" \"HG_EDITOR\"))\n\n(cl-defun with-editor-read-envvar\n (&optional (prompt \"Set environment variable\")\n (default \"EDITOR\"))\n (let ((reply (completing-read (if default\n (format \"%s (%s): \" prompt default)\n (concat prompt \": \"))\n with-editor-envvars nil nil nil nil default)))\n (if (string= reply \"\") (user-error \"Nothing selected\") reply)))\n\n;;;###autoload\n(define-minor-mode shell-command-with-editor-mode\n \"Teach `shell-command' to use current Emacs instance as editor.\n\nTeach `shell-command', and all commands that ultimately call that\ncommand, to use the current Emacs instance as editor by executing\n\\\"EDITOR=CLIENT COMMAND&\\\" instead of just \\\"COMMAND&\\\".\n\nCLIENT is automatically generated; EDITOR=CLIENT instructs\nCOMMAND to use to the current Emacs instance as \\\"the editor\\\",\nassuming no other variable overrides the effect of \\\"$EDITOR\\\".\nCLIENT may be the path to an appropriate emacsclient executable\nwith arguments, or a script which also works over Tramp.\n\nAlternatively you can use the `with-editor-async-shell-command',\nwhich also allows the use of another variable instead of\n\\\"EDITOR\\\".\"\n :global t)\n\n;;;###autoload\n(defun with-editor-async-shell-command\n (command &optional output-buffer error-buffer envvar)\n \"Like `async-shell-command' but with `$EDITOR' set.\n\nExecute string \\\"ENVVAR=CLIENT COMMAND\\\" in an inferior shell;\ndisplay output, if any. With a prefix argument prompt for an\nenvironment variable, otherwise the default \\\"EDITOR\\\" variable\nis used. With a negative prefix argument additionally insert\nthe COMMAND's output at point.\n\nCLIENT is automatically generated; ENVVAR=CLIENT instructs\nCOMMAND to use to the current Emacs instance as \\\"the editor\\\",\nassuming it respects ENVVAR as an \\\"EDITOR\\\"-like variable.\nCLIENT may be the path to an appropriate emacsclient executable\nwith arguments, or a script which also works over Tramp.\n\nAlso see `async-shell-command' and `shell-command'.\"\n (interactive (with-editor-shell-command-read-args \"Async shell command: \" t))\n (let ((with-editor--envvar envvar))\n (with-editor\n (async-shell-command command output-buffer error-buffer))))\n\n;;;###autoload\n(defun with-editor-shell-command\n (command &optional output-buffer error-buffer envvar)\n \"Like `shell-command' or `with-editor-async-shell-command'.\nIf COMMAND ends with \\\"&\\\" behave like the latter,\nelse like the former.\"\n (interactive (with-editor-shell-command-read-args \"Shell command: \"))\n (if (string-match \"&[ \\t]*\\\\'\" command)\n (with-editor-async-shell-command\n command output-buffer error-buffer envvar)\n (shell-command command output-buffer error-buffer)))\n\n(defun with-editor-shell-command-read-args (prompt &optional async)\n (let ((command (read-shell-command\n prompt nil nil\n (let ((filename (or buffer-file-name\n (and (eq major-mode 'dired-mode)\n (dired-get-filename nil t)))))\n (and filename (file-relative-name filename))))))\n (list command\n (if (or async (setq async (string-match-p \"&[ \\t]*\\\\'\" command)))\n (< (prefix-numeric-value current-prefix-arg) 0)\n current-prefix-arg)\n shell-command-default-error-buffer\n (and async current-prefix-arg (with-editor-read-envvar)))))\n\n(defun shell-command--shell-command-with-editor-mode\n (fn command &optional output-buffer error-buffer)\n ;; `shell-mode' and its hook are intended for buffers in which an\n ;; interactive shell is running, but `shell-command' also turns on\n ;; that mode, even though it only runs the shell to run a single\n ;; command. The `with-editor-export-editor' hook function is only\n ;; intended to be used in buffers in which an interactive shell is\n ;; running, so it has to be removed here.\n (let ((shell-mode-hook (remove 'with-editor-export-editor shell-mode-hook)))\n (cond ((or (not (or with-editor--envvar shell-command-with-editor-mode))\n (not (string-suffix-p \"&\" command)))\n (funcall fn command output-buffer error-buffer))\n ((and with-editor-shell-command-use-emacsclient\n with-editor-emacsclient-executable\n (not (file-remote-p default-directory)))\n (with-editor (funcall fn command output-buffer error-buffer)))\n (t\n (funcall fn (format \"%s=%s %s\"\n (or with-editor--envvar \"EDITOR\")\n (shell-quote-argument with-editor-sleeping-editor)\n command)\n output-buffer error-buffer)\n (ignore-errors\n (let ((process (get-buffer-process\n (or output-buffer\n (get-buffer \"*Async Shell Command*\")))))\n (set-process-filter\n process (lambda (proc str)\n (comint-output-filter proc str)\n (with-editor-process-filter proc str t)))\n process))))))\n\n(advice-add 'shell-command :around\n #'shell-command--shell-command-with-editor-mode)\n\n;;; _\n\n(defun with-editor-debug ()\n \"Debug configuration issues.\nSee info node `(with-editor)Debugging' for instructions.\"\n (interactive)\n (require 'warnings)\n (with-current-buffer (get-buffer-create \"*with-editor-debug*\")\n (pop-to-buffer (current-buffer))\n (erase-buffer)\n (ignore-errors (with-editor))\n (insert\n (format \"with-editor: %s\\n\" (locate-library \"with-editor.el\"))\n (format \"emacs: %s (%s)\\n\"\n (expand-file-name invocation-name invocation-directory)\n emacs-version)\n \"system:\\n\"\n (format \" system-type: %s\\n\" system-type)\n (format \" system-configuration: %s\\n\" system-configuration)\n (format \" system-configuration-options: %s\\n\" system-configuration-options)\n \"server:\\n\"\n (format \" server-running-p: %s\\n\" (server-running-p))\n (format \" server-process: %S\\n\" server-process)\n (format \" server-use-tcp: %s\\n\" server-use-tcp)\n (format \" server-name: %s\\n\" server-name)\n (format \" server-socket-dir: %s\\n\" server-socket-dir))\n (if (and server-socket-dir (file-accessible-directory-p server-socket-dir))\n (dolist (file (directory-files server-socket-dir nil \"^[^.]\"))\n (insert (format \" %s\\n\" file)))\n (insert (format \" %s: not an accessible directory\\n\"\n (if server-use-tcp \"WARNING\" \"ERROR\"))))\n (insert (format \" server-auth-dir: %s\\n\" server-auth-dir))\n (if (file-accessible-directory-p server-auth-dir)\n (dolist (file (directory-files server-auth-dir nil \"^[^.]\"))\n (insert (format \" %s\\n\" file)))\n (insert (format \" %s: not an accessible directory\\n\"\n (if server-use-tcp \"ERROR\" \"WARNING\"))))\n (let ((val with-editor-emacsclient-executable)\n (def (default-value 'with-editor-emacsclient-executable))\n (fun (let ((warning-minimum-level :error)\n (warning-minimum-log-level :error))\n (with-editor-locate-emacsclient))))\n (insert \"with-editor-emacsclient-executable:\\n\"\n (format \" value: %s (%s)\\n\" val\n (and val (with-editor-emacsclient-version val)))\n (format \" default: %s (%s)\\n\" def\n (and def (with-editor-emacsclient-version def)))\n (format \" funcall: %s (%s)\\n\" fun\n (and fun (with-editor-emacsclient-version fun)))))\n (insert \"path:\\n\"\n (format \" $PATH: %S\\n\" (getenv \"PATH\"))\n (format \" exec-path: %s\\n\" exec-path))\n (insert (format \" with-editor-emacsclient-path:\\n\"))\n (dolist (dir (with-editor-emacsclient-path))\n (insert (format \" %s (%s)\\n\" dir (car (file-attributes dir))))\n (when (file-directory-p dir)\n ;; Don't match emacsclientw.exe, it makes popup windows.\n (dolist (exec (directory-files dir t \"emacsclient\\\$?:[^w]\\\\|\\\\'\\\$\"))\n (insert (format \" %s (%s)\\n\" exec\n (with-editor-emacsclient-version exec))))))))\n\n(defconst with-editor-font-lock-keywords\n '((\"(\\\$with-\\\\(?:git-\\\$?editor\\\\)\\\\_>\" (1 'font-lock-keyword-face))))\n(font-lock-add-keywords 'emacs-lisp-mode with-editor-font-lock-keywords)\n\n(provide 'with-editor)\n;; Local Variables:\n;; indent-tabs-mode: nil\n;; End:\n;;; with-editor.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor.info","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1256180},"to":{"change":7,"start":1272537,"end":1272577},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1272577},"to":{"change":7,"start":1256219,"end":1256219},"introduced_by":7}],"inode":{"change":7,"pos":1256219}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1256219},"to":{"change":7,"start":1256220,"end":1272536},"introduced_by":7}],"inode":{"change":7,"pos":1256219}},"content":[{"Del":"This is with-editor.info, produced by makeinfo version 6.7 from\nwith-editor.texi.\n\n Copyright (C) 2015-2022 Jonas Bernoulli \n\n You can redistribute this document and/or modify it under the terms\n of the GNU General Public License as published by the Free Software\n Foundation, either version 3 of the License, or (at your option)\n any later version.\n\n This document is distributed in the hope that it will be useful,\n but WITHOUT ANY WARRANTY; without even the implied warranty of\n MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n General Public License for more details.\n\nINFO-DIR-SECTION Emacs\nSTART-INFO-DIR-ENTRY\n* With-Editor: (with-editor). Using the Emacsclient as $EDITOR.\nEND-INFO-DIR-ENTRY\n\n\u001f\nFile: with-editor.info, Node: Top, Next: Using the With-Editor package, Up: (dir)\n\nWith-Editor User Manual\n***********************\n\nThe library ‘with-editor’ makes it easy to use the Emacsclient as the\n‘$EDITOR’ of child processes, making sure they know how to call home.\nFor remote processes a substitute is provided, which communicates with\nEmacs on standard output instead of using a socket as the Emacsclient\ndoes.\n\n This library was written because Magit has to be able to do the above\nto allow the user to edit commit messages gracefully and to edit rebase\nsequences, which wouldn’t be possible at all otherwise.\n\n Because other packages can benefit from such functionality, this\nlibrary is made available as a separate package. It also defines some\nadditional functionality which makes it useful even for end-users, who\ndon’t use Magit or another package which uses it internally.\n\nThis manual is for With-Editor version 3.2.0-git.\n\n Copyright (C) 2015-2022 Jonas Bernoulli \n\n You can redistribute this document and/or modify it under the terms\n of the GNU General Public License as published by the Free Software\n Foundation, either version 3 of the License, or (at your option)\n any later version.\n\n This document is distributed in the hope that it will be useful,\n but WITHOUT ANY WARRANTY; without even the implied warranty of\n MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n General Public License for more details.\n\n* Menu:\n\n* Using the With-Editor package::\n* Using With-Editor as a library::\n* Debugging::\n* Function and Command Index::\n* Variable Index::\n\n— The Detailed Node Listing —\n\nUsing the With-Editor package\n\n* Configuring With-Editor::\n* Using With-Editor commands::\n\n\n\u001f\nFile: with-editor.info, Node: Using the With-Editor package, Next: Using With-Editor as a library, Prev: Top, Up: Top\n\n1 Using the With-Editor package\n*******************************\n\nThe ‘With-Editor’ package is used internally by Magit when editing\ncommit messages and rebase sequences. It also provides some commands\nand features which are useful by themselves, even if you don’t use\nMagit.\n\n For information about using this library in you own package, see\n*note Using With-Editor as a library::.\n\n* Menu:\n\n* Configuring With-Editor::\n* Using With-Editor commands::\n\n\u001f\nFile: with-editor.info, Node: Configuring With-Editor, Next: Using With-Editor commands, Up: Using the With-Editor package\n\n1.1 Configuring With-Editor\n===========================\n\nWith-Editor tries very hard to locate a suitable ‘emacsclient’\nexecutable, so ideally you should never have to customize the option\n‘with-editor-emacsclient-executable’. When it fails to do so, then the\nmost likely reason is that someone found yet another way to package\nEmacs (most likely on macOS) without putting the executable on ‘$PATH’,\nand we have to add another kludge to find it anyway.\n\n -- User Option: with-editor-emacsclient-executable\n The ‘emacsclient’ executable used as the editor by child process of\n this Emacs instance. By using this executable, child processes can\n call home to their parent process.\n\n This option is automatically set at startup by looking in\n ‘exec-path’, and other places where the executable could be\n installed, to find the ‘emacsclient’ executable most suitable for\n the current Emacs instance.\n\n You should *not* customize this option permanently. If you have to\n do it, then you should consider that a temporary kludge and inform\n the Magit maintainer as described in *note Debugging::.\n\n If With-Editor fails to find a suitable ‘emacsclient’ on you\n system, then this should be fixed for all users at once, by\n teaching ‘with-editor-locate-emacsclient’ how to do so on your\n system and system like yours. Doing it this way has the advantage,\n that you won’t have do it again every time you update Emacs, and\n that other users who have installed Emacs the same way as you have,\n won’t have to go through the same trouble.\n\n Note that there also is a nuclear option; setting this variable to\n ‘nil’ causes the \"sleeping editor\" described below to be used even\n for local child processes. Obviously we don’t recommend that you\n use this except in \"emergencies\", i.e. before we had a change to\n add a kludge appropriate for you setup.\n\n -- Function: with-editor-locate-emacsclient\n The function used to set the initial value of the option\n ‘with-editor-emacsclient-executable’. There’s a lot of voodoo\n here.\n\n The ‘emacsclient’ cannot be used when using Tramp to run a process on\na remote machine. (Theoretically it could, but that would be hard to\nsetup, very fragile, and rather insecure).\n\n With-Editor provides an alternative \"editor\" which can be used by\nremote processes in much the same way as local processes use an\n‘emacsclient’ executable. This alternative is known as the \"sleeping\neditor\" because it is implemented as a shell script which sleeps until\nit receives a signal.\n\n -- User Option: with-editor-sleeping-editor\n The sleeping editor is a shell script used as the editor of child\n processes when the ‘emacsclient’ executable cannot be used.\n\n This fallback is used for asynchronous process started inside the\n macro ‘with-editor’, when the process runs on a remote machine or\n for local processes when ‘with-editor-emacsclient-executable’ is\n ‘nil’.\n\n Where the latter uses a socket to communicate with Emacs’ server,\n this substitute prints edit requests to its standard output on\n which a process filter listens for such requests. As such it is\n not a complete substitute for a proper ‘emacsclient’, it can only\n be used as ‘$EDITOR’ of child process of the current Emacs\n instance.\n\n Some shells do not execute traps immediately when waiting for a\n child process, but by default we do use such a blocking child\n process.\n\n If you use such a shell (e.g. ‘csh’ on FreeBSD, but not Debian),\n then you have to edit this option. You can either replace ‘sh’\n with ‘bash’ (and install that), or you can use the older, less\n performant implementation:\n\n \"sh -c '\\\n echo \\\"WITH-EDITOR: $$ OPEN $0\u001f IN $(pwd)\\\"; \\\n trap \\\"exit 0\\\" USR1; \\\n trap \\\"exit 1\\\" USR2; \\\n while true; do sleep 1; done'\"\n\n Note that the unit separator character (\u001f) right after the file name\n ($0) is required.\n\n Also note that using this alternative implementation leads to a\n delay of up to a second. The delay can be shortened by replacing\n ‘sleep 1’ with ‘sleep 0.01’, or if your implementation does not\n support floats, then by using ‘nanosleep’ instead.\n\n\u001f\nFile: with-editor.info, Node: Using With-Editor commands, Prev: Configuring With-Editor, Up: Using the With-Editor package\n\n1.2 Using With-Editor commands\n==============================\n\nThis section describes how to use the ‘with-editor’ library _outside_ of\nMagit. You don’t need to know any of this just to create commits using\nMagit.\n\n The commands ‘with-editor-async-shell-command’ and\n‘with-editor-shell-command’ are intended as drop in replacements for\n‘async-shell-command’ and ‘shell-command’. They automatically export\n‘$EDITOR’ making sure the executed command uses the current Emacs\ninstance as \"the editor\". With a prefix argument these commands prompt\nfor an alternative environment variable such as ‘$GIT_EDITOR’.\n\n -- Command: with-editor-async-shell-command\n This command is like ‘async-shell-command’, but it runs the shell\n command with the current Emacs instance exported as ‘$EDITOR’.\n\n -- Command: with-editor-shell-command\n This command is like ‘shell-command’, but if the shell command ends\n with ‘&’ and is therefore run asynchronously, then the current\n Emacs instance is exported as ‘$EDITOR’.\n\n To always use these variants add this to you init file:\n\n (define-key (current-global-map)\n [remap async-shell-command] 'with-editor-async-shell-command)\n (define-key (current-global-map)\n [remap shell-command] 'with-editor-shell-command)\n\n Alternatively use the global ‘shell-command-with-editor-mode’.\n\n -- Variable: shell-command-with-editor-mode\n When this mode is active, then ‘$EDITOR’ is exported whenever\n ultimately ‘shell-command’ is called to asynchronously run some\n shell command. This affects most variants of that command, whether\n they are defined in Emacs or in some third-party package.\n\n The command ‘with-editor-export-editor’ exports ‘$EDITOR’ or another\nsuch environment variable in ‘shell-mode’, ‘eshell-mode’, ‘term-mode’\nand ‘vterm-mode’ buffers. Use this Emacs command before executing a\nshell command which needs the editor set, or always arrange for the\ncurrent Emacs instance to be used as editor by adding it to the\nappropriate mode hooks:\n\n (add-hook 'shell-mode-hook 'with-editor-export-editor)\n (add-hook 'eshell-mode-hook 'with-editor-export-editor)\n (add-hook 'term-exec-hook 'with-editor-export-editor)\n (add-hook 'vterm-exec-hook 'with-editor-export-editor)\n\n Some variants of this function exist; these two forms are equivalent:\n\n (add-hook 'shell-mode-hook\n (apply-partially 'with-editor-export-editor \"GIT_EDITOR\"))\n (add-hook 'shell-mode-hook 'with-editor-export-git-editor)\n\n -- Command: with-editor-export-editor\n When invoked in a ‘shell-mode’, ‘eshell-mode’, ‘term-mode’ or\n ‘vterm-mode’ buffer, this command teaches shell commands to use the\n current Emacs instance as the editor, by exporting ‘$EDITOR’.\n\n -- Command: with-editor-export-git-editor\n This command is like ‘with-editor-export-editor’ but exports\n ‘$GIT_EDITOR’.\n\n -- Command: with-editor-export-hg-editor\n This command is like ‘with-editor-export-editor’ but exports\n ‘$HG_EDITOR’.\n\n\u001f\nFile: with-editor.info, Node: Using With-Editor as a library, Next: Debugging, Prev: Using the With-Editor package, Up: Top\n\n2 Using With-Editor as a library\n********************************\n\nThis section describes how to use the ‘with-editor’ library _outside_ of\nMagit to teach another package how to have its child processes call\nhome, just like Magit does. You don’t need to know any of this just to\ncreate commits using Magit. You can also ignore this if you use\n‘with-editor’ outside of Magit, but only as an end-user.\n\n For information about interactive use and options that affect both\ninteractive and non-interactive use, see *note Using the With-Editor\npackage::.\n\n -- Macro: with-editor &rest body\n This macro arranges for the ‘emacsclient’ or the sleeping editor to\n be used as the editor of child processes, effectively teaching them\n to call home to the current Emacs instance when they require that\n the user edits a file.\n\n This is done by establishing a local binding for\n ‘process-environment’ and changing the value of the ‘EDITOR’\n environment variable in that scope. This affects all\n (asynchronous) processes started by forms (dynamically) inside\n BODY.\n\n If BODY begins with a literal string, then that variable is set\n instead of ‘EDITOR’.\n\n -- Macro: with-editor envvar &rest body\n This macro is like ‘with-editor’ instead that the ENVVAR argument\n is required and that it is evaluated at run-time.\n\n -- Function: with-editor-set-process-filter process filter\n This function is like ‘set-process-filter’ but ensures that adding\n the new FILTER does not remove the ‘with-editor-process-filter’.\n This is done by wrapping the two filter functions using a lambda,\n which becomes the actual filter. It calls FILTER first, which may\n or may not insert the text into the PROCESS’s buffer. Then it\n calls ‘with-editor-process-filter’, passing t as\n NO-STANDARD-FILTER.\n\n\u001f\nFile: with-editor.info, Node: Debugging, Next: Function and Command Index, Prev: Using With-Editor as a library, Up: Top\n\n3 Debugging\n***********\n\nWith-Editor tries very hard to locate a suitable ‘emacsclient’\nexecutable, and then sets option ‘with-editor-emacsclient-executable’\naccordingly. In very rare cases this fails. When it does fail, then\nthe most likely reason is that someone found yet another way to package\nEmacs (most likely on macOS) without putting the executable on ‘$PATH’,\nand we have to add another kludge to find it anyway.\n\n If you are having problems using ‘with-editor’, e.g. you cannot\ncommit in Magit, then please open a new issue at\n and provide information\nabout your Emacs installation. Most importantly how did you install\nEmacs and what is the output of ‘M-x with-editor-debug RET’.\n\n\u001f\nFile: with-editor.info, Node: Function and Command Index, Next: Variable Index, Prev: Debugging, Up: Top\n\nAppendix A Function and Command Index\n*************************************\n\n\u0000\b[index\u0000\b]\n* Menu:\n\n* with-editor: Using With-Editor as a library.\n (line 16)\n* with-editor <1>: Using With-Editor as a library.\n (line 31)\n* with-editor-async-shell-command: Using With-Editor commands.\n (line 17)\n* with-editor-export-editor: Using With-Editor commands.\n (line 59)\n* with-editor-export-git-editor: Using With-Editor commands.\n (line 64)\n* with-editor-export-hg-editor: Using With-Editor commands.\n (line 68)\n* with-editor-locate-emacsclient: Configuring With-Editor.\n (line 41)\n* with-editor-set-process-filter: Using With-Editor as a library.\n (line 35)\n* with-editor-shell-command: Using With-Editor commands.\n (line 21)\n\n\u001f\nFile: with-editor.info, Node: Variable Index, Prev: Function and Command Index, Up: Top\n\nAppendix B Variable Index\n*************************\n\n\u0000\b[index\u0000\b]\n* Menu:\n\n* shell-command-with-editor-mode: Using With-Editor commands.\n (line 35)\n* with-editor-emacsclient-executable: Configuring With-Editor.\n (line 13)\n* with-editor-sleeping-editor: Configuring With-Editor.\n (line 56)\n\n\n\u001f\nTag Table:\nNode: Top773\nNode: Using the With-Editor package2567\nNode: Configuring With-Editor3153\nNode: Using With-Editor commands7699\nNode: Using With-Editor as a library10984\nNode: Debugging13009\nNode: Function and Command Index13901\nNode: Variable Index15399\n\u001f\nEnd Tag Table\n\n\u001f\nLocal Variables:\ncoding: utf-8\nEnd:\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor-20200609.903","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":1318759,"end":1318794},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1318794},"to":{"change":7,"start":1318758,"end":1318758},"introduced_by":7}],"inode":{"change":7,"pos":1318758}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"dir","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1318758},"to":{"change":7,"start":1376695,"end":1376722},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1376722},"to":{"change":7,"start":1376079,"end":1376079},"introduced_by":7}],"inode":{"change":7,"pos":1376079}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1376079},"to":{"change":7,"start":1376080,"end":1376694},"introduced_by":7}],"inode":{"change":7,"pos":1376079}},"content":[{"Del":"This is the file .../info/dir, which contains the\ntopmost node of the Info hierarchy, called (dir)Top.\nThe first time you invoke Info you start off looking at this node.\n\u001f\nFile: dir,\tNode: Top\tThis is the top of the INFO tree\n\n This (the Directory node) gives a menu of major topics.\n Typing \"q\" exits, \"H\" lists all Info commands, \"d\" returns here,\n \"h\" gives a primer for first-timers,\n \"mEmacs\" visits the Emacs manual, etc.\n\n In Emacs, you can click mouse button 2 on a menu item or cross reference\n to select it.\n\n* Menu:\n\nEmacs\n* With-Editor: (with-editor). Using the Emacsclient as $EDITOR.\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1318758},"to":{"change":7,"start":1376029,"end":1376077},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1376077},"to":{"change":7,"start":1372465,"end":1372465},"introduced_by":7}],"inode":{"change":7,"pos":1372465}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1372465},"to":{"change":7,"start":1372466,"end":1376028},"introduced_by":7}],"inode":{"change":7,"pos":1372465}},"content":[{"Del":";;; with-editor-autoloads.el --- automatically extracted autoloads\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"with-editor\" \"with-editor.el\" (0 0 0 0))\n;;; Generated autoloads from with-editor.el\n\n(autoload 'with-editor-export-editor \"with-editor\" \"\\\nTeach subsequent commands to use current Emacs instance as editor.\n\nSet and export the environment variable ENVVAR, by default\n\\\"EDITOR\\\". The value is automatically generated to teach\ncommands to use the current Emacs instance as \\\"the editor\\\".\n\nThis works in `shell-mode', `term-mode' and `eshell-mode'.\n\n\\(fn &optional (ENVVAR \\\"EDITOR\\\"))\" t nil)\n\n(autoload 'with-editor-export-git-editor \"with-editor\" \"\\\nLike `with-editor-export-editor' but always set `$GIT_EDITOR'.\n\n\\(fn)\" t nil)\n\n(autoload 'with-editor-export-hg-editor \"with-editor\" \"\\\nLike `with-editor-export-editor' but always set `$HG_EDITOR'.\n\n\\(fn)\" t nil)\n\n(defvar shell-command-with-editor-mode nil \"\\\nNon-nil if Shell-Command-With-Editor mode is enabled.\nSee the `shell-command-with-editor-mode' command\nfor a description of this minor mode.\")\n\n(custom-autoload 'shell-command-with-editor-mode \"with-editor\" nil)\n\n(autoload 'shell-command-with-editor-mode \"with-editor\" \"\\\nTeach `shell-command' to use current Emacs instance as editor.\n\nTeach `shell-command', and all commands that ultimately call that\ncommand, to use the current Emacs instance as editor by executing\n\\\"EDITOR=CLIENT COMMAND&\\\" instead of just \\\"COMMAND&\\\".\n\nCLIENT is automatically generated; EDITOR=CLIENT instructs\nCOMMAND to use to the current Emacs instance as \\\"the editor\\\",\nassuming no other variable overrides the effect of \\\"$EDITOR\\\".\nCLIENT may be the path to an appropriate emacsclient executable\nwith arguments, or a script which also works over Tramp.\n\nAlternatively you can use the `with-editor-async-shell-command',\nwhich also allows the use of another variable instead of\n\\\"EDITOR\\\".\n\n\\(fn &optional ARG)\" t nil)\n\n(autoload 'with-editor-async-shell-command \"with-editor\" \"\\\nLike `async-shell-command' but with `$EDITOR' set.\n\nExecute string \\\"ENVVAR=CLIENT COMMAND\\\" in an inferior shell;\ndisplay output, if any. With a prefix argument prompt for an\nenvironment variable, otherwise the default \\\"EDITOR\\\" variable\nis used. With a negative prefix argument additionally insert\nthe COMMAND's output at point.\n\nCLIENT is automatically generated; ENVVAR=CLIENT instructs\nCOMMAND to use to the current Emacs instance as \\\"the editor\\\",\nassuming it respects ENVVAR as an \\\"EDITOR\\\"-like variable.\nCLIENT may be the path to an appropriate emacsclient executable\nwith arguments, or a script which also works over Tramp.\n\nAlso see `async-shell-command' and `shell-command'.\n\n\\(fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER ENVVAR)\" t nil)\n\n(autoload 'with-editor-shell-command \"with-editor\" \"\\\nLike `shell-command' or `with-editor-async-shell-command'.\nIf COMMAND ends with \\\"&\\\" behave like the latter,\nelse like the former.\n\n\\(fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER ENVVAR)\" t nil)\n\n(if (fboundp 'register-definition-prefixes) (register-definition-prefixes \"with-editor\" '(\"with-editor\" \"start-file-process--with-editor-process-filter\" \"server-\" \"shell-command--shell-command-with-editor-mode\")))\n\n;;;***\n\f\n;;;### (autoloads nil nil (\"with-editor-pkg.el\") (0 0 0 0))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; with-editor-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1318758},"to":{"change":7,"start":1372421,"end":1372463},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1372463},"to":{"change":7,"start":1372015,"end":1372015},"introduced_by":7}],"inode":{"change":7,"pos":1372015}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1372015},"to":{"change":7,"start":1372016,"end":1372420},"introduced_by":7}],"inode":{"change":7,"pos":1372015}},"content":[{"Del":"(define-package \"with-editor\" \"20200609.903\" \"Use the Emacsclient as $EDITOR\"\n '((emacs \"24.4\")\n (async \"1.9\"))\n :commit \"d79c3249707155a403029f1d7fb5efa379c2cdf1\" :keywords\n '(\"tools\")\n :authors\n '((\"Jonas Bernoulli\" . \"jonas@bernoul.li\"))\n :maintainer\n '(\"Jonas Bernoulli\" . \"jonas@bernoul.li\")\n :url \"https://github.com/magit/with-editor\")\n;; Local Variables:\n;; no-byte-compile: t\n;; End:\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1318758},"to":{"change":7,"start":1371975,"end":1372013},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1372013},"to":{"change":7,"start":1332765,"end":1332765},"introduced_by":7}],"inode":{"change":7,"pos":1332765}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1332765},"to":{"change":7,"start":1332766,"end":1371974},"introduced_by":7}],"inode":{"change":7,"pos":1332765}},"content":[{"Del":";;; with-editor.el --- Use the Emacsclient as $EDITOR -*- lexical-binding: t -*-\n\n;; Copyright (C) 2014-2020 The Magit Project Contributors\n;;\n;; You should have received a copy of the AUTHORS.md file. If not,\n;; see https://github.com/magit/with-editor/blob/master/AUTHORS.md.\n\n;; Author: Jonas Bernoulli \n;; Maintainer: Jonas Bernoulli \n\n;; Package-Requires: ((emacs \"24.4\") (async \"1.9\"))\n;; Keywords: tools\n;; Homepage: https://github.com/magit/with-editor\n\n;; This file is not part of GNU Emacs.\n\n;; This file is free software; you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation; either version 3, or (at your option)\n;; any later version.\n\n;; This file is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with Magit. If not, see http://www.gnu.org/licenses.\n\n;;; Commentary:\n\n;; This library makes it possible to reliably use the Emacsclient as\n;; the `$EDITOR' of child processes. It makes sure that they know how\n;; to call home. For remote processes a substitute is provided, which\n;; communicates with Emacs on standard output/input instead of using a\n;; socket as the Emacsclient does.\n\n;; It provides the commands `with-editor-async-shell-command' and\n;; `with-editor-shell-command', which are intended as replacements\n;; for `async-shell-command' and `shell-command'. They automatically\n;; export `$EDITOR' making sure the executed command uses the current\n;; Emacs instance as \"the editor\". With a prefix argument these\n;; commands prompt for an alternative environment variable such as\n;; `$GIT_EDITOR'. To always use these variants add this to your init\n;; file:\n;;\n;; (define-key (current-global-map)\n;; [remap async-shell-command] 'with-editor-async-shell-command)\n;; (define-key (current-global-map)\n;; [remap shell-command] 'with-editor-shell-command)\n\n;; Alternatively use the global `shell-command-with-editor-mode',\n;; which always sets `$EDITOR' for all Emacs commands which ultimately\n;; use `shell-command' to asynchronously run some shell command.\n\n;; The command `with-editor-export-editor' exports `$EDITOR' or\n;; another such environment variable in `shell-mode', `term-mode' and\n;; `eshell-mode' buffers. Use this Emacs command before executing a\n;; shell command which needs the editor set, or always arrange for the\n;; current Emacs instance to be used as editor by adding it to the\n;; appropriate mode hooks:\n;;\n;; (add-hook 'shell-mode-hook 'with-editor-export-editor)\n;; (add-hook 'term-exec-hook 'with-editor-export-editor)\n;; (add-hook 'eshell-mode-hook 'with-editor-export-editor)\n\n;; Some variants of this function exist, these two forms are\n;; equivalent:\n;;\n;; (add-hook 'shell-mode-hook\n;; (apply-partially 'with-editor-export-editor \"GIT_EDITOR\"))\n;; (add-hook 'shell-mode-hook 'with-editor-export-git-editor)\n\n;; This library can also be used by other packages which need to use\n;; the current Emacs instance as editor. In fact this library was\n;; written for Magit and its `git-commit-mode' and `git-rebase-mode'.\n;; Consult `git-rebase.el' and the related code in `magit-sequence.el'\n;; for a simple example.\n\n;;; Code:\n\n(require 'cl-lib)\n;; `pcase-dolist' is not autoloaded on Emacs 24.\n(eval-when-compile (require 'pcase))\n(require 'server)\n(require 'shell)\n\n(and (require 'async-bytecomp nil t)\n (let ((pkgs (bound-and-true-p async-bytecomp-allowed-packages)))\n (if (consp pkgs)\n (cl-intersection '(all magit) pkgs)\n (memq pkgs '(all t))))\n (fboundp 'async-bytecomp-package-mode)\n (async-bytecomp-package-mode 1))\n\n(eval-when-compile\n (progn (require 'dired nil t)\n (require 'eshell nil t)\n (require 'term nil t)\n (require 'warnings nil t)))\n(declare-function dired-get-filename 'dired)\n(declare-function term-emulate-terminal 'term)\n(defvar eshell-preoutput-filter-functions)\n(defvar git-commit-post-finish-hook)\n\n;;; Options\n\n(defgroup with-editor nil\n \"Use the Emacsclient as $EDITOR.\"\n :group 'external\n :group 'server)\n\n(defun with-editor-locate-emacsclient ()\n \"Search for a suitable Emacsclient executable.\"\n (or (with-editor-locate-emacsclient-1\n (with-editor-emacsclient-path)\n (length (split-string emacs-version \"\\\\.\")))\n (prog1 nil (display-warning 'with-editor \"\\\nCannot determine a suitable Emacsclient\n\nDetermining an Emacsclient executable suitable for the\ncurrent Emacs instance failed. For more information\nplease see https://github.com/magit/magit/wiki/Emacsclient.\"))))\n\n(defun with-editor-locate-emacsclient-1 (path depth)\n (let* ((version-lst (cl-subseq (split-string emacs-version \"\\\\.\") 0 depth))\n (version-reg (concat \"^\" (mapconcat #'identity version-lst \"\\\\.\"))))\n (or (locate-file-internal\n (if (equal (downcase invocation-name) \"remacs\")\n \"remacsclient\"\n \"emacsclient\")\n path\n (cl-mapcan\n (lambda (v) (cl-mapcar (lambda (e) (concat v e)) exec-suffixes))\n (nconc (and (boundp 'debian-emacs-flavor)\n (list (format \".%s\" debian-emacs-flavor)))\n (cl-mapcon (lambda (v)\n (setq v (mapconcat #'identity (reverse v) \".\"))\n (list v (concat \"-\" v) (concat \".emacs\" v)))\n (reverse version-lst))\n (list \"\" \"-snapshot\" \".emacs-snapshot\")))\n (lambda (exec)\n (ignore-errors\n (string-match-p version-reg\n (with-editor-emacsclient-version exec)))))\n (and (> depth 1)\n (with-editor-locate-emacsclient-1 path (1- depth))))))\n\n(defun with-editor-emacsclient-version (exec)\n (let ((default-directory (file-name-directory exec)))\n (ignore-errors\n (cadr (split-string (car (process-lines exec \"--version\")))))))\n\n(defun with-editor-emacsclient-path ()\n (let ((path exec-path))\n (when invocation-directory\n (push (directory-file-name invocation-directory) path)\n (let* ((linkname (expand-file-name invocation-name invocation-directory))\n (truename (file-chase-links linkname)))\n (unless (equal truename linkname)\n (push (directory-file-name (file-name-directory truename)) path)))\n (when (eq system-type 'darwin)\n (let ((dir (expand-file-name \"bin\" invocation-directory)))\n (when (file-directory-p dir)\n (push dir path)))\n (when (string-match-p \"Cellar\" invocation-directory)\n (let ((dir (expand-file-name \"../../../bin\" invocation-directory)))\n (when (file-directory-p dir)\n (push dir path))))))\n (cl-remove-duplicates path :test 'equal)))\n\n(defcustom with-editor-emacsclient-executable (with-editor-locate-emacsclient)\n \"The Emacsclient executable used by the `with-editor' macro.\"\n :group 'with-editor\n :type '(choice (string :tag \"Executable\")\n (const :tag \"Don't use Emacsclient\" nil)))\n\n(defcustom with-editor-sleeping-editor \"\\\nsh -c '\\\nprintf \\\"WITH-EDITOR: $$ OPEN $0\\\\037 IN $(pwd)\\\\n\\\"; \\\nsleep 604800 & sleep=$!; \\\ntrap \\\"kill $sleep; exit 0\\\" USR1; \\\ntrap \\\"kill $sleep; exit 1\\\" USR2; \\\nwait $sleep'\"\n \"The sleeping editor, used when the Emacsclient cannot be used.\n\nThis fallback is used for asynchronous processes started inside\nthe macro `with-editor', when the process runs on a remote machine\nor for local processes when `with-editor-emacsclient-executable'\nis nil (i.e. when no suitable Emacsclient was found, or the user\ndecided not to use it).\n\nWhere the latter uses a socket to communicate with Emacs' server,\nthis substitute prints edit requests to its standard output on\nwhich a process filter listens for such requests. As such it is\nnot a complete substitute for a proper Emacsclient, it can only\nbe used as $EDITOR of child process of the current Emacs instance.\n\nSome shells do not execute traps immediately when waiting for a\nchild process, but by default we do use such a blocking child\nprocess.\n\nIf you use such a shell (e.g. `csh' on FreeBSD, but not Debian),\nthen you have to edit this option. You can either replace \\\"sh\\\"\nwith \\\"bash\\\" (and install that), or you can use the older, less\nperformant implementation:\n\n \\\"sh -c '\\\\\n echo \\\\\\\"WITH-EDITOR: $$ OPEN $0\u001f IN $(pwd)\\\\\\\"; \\\\\n trap \\\\\\\"exit 0\\\\\\\" USR1; \\\\\n trap \\\\\\\"exit 1\\\" USR2; \\\\\n while true; do sleep 1; done'\\\"\n\nNote that the unit separator character (\u001f) right after the file\nname ($0) is required.\n\nAlso note that using this alternative implementation leads to a\ndelay of up to a second. The delay can be shortened by replacing\n\\\"sleep 1\\\" with \\\"sleep 0.01\\\", or if your implementation does\nnot support floats, then by using \\\"nanosleep\\\" instead.\"\n :package-version '(with-editor . \"2.8.0\")\n :group 'with-editor\n :type 'string)\n\n(defcustom with-editor-finish-query-functions nil\n \"List of functions called to query before finishing session.\n\nThe buffer in question is current while the functions are called.\nIf any of them returns nil, then the session is not finished and\nthe buffer is not killed. The user should then fix the issue and\ntry again. The functions are called with one argument. If it is\nnon-nil then that indicates that the user used a prefix argument\nto force finishing the session despite issues. Functions should\nusually honor that and return non-nil.\"\n :group 'with-editor\n :type 'hook)\n(put 'with-editor-finish-query-functions 'permanent-local t)\n\n(defcustom with-editor-cancel-query-functions nil\n \"List of functions called to query before canceling session.\n\nThe buffer in question is current while the functions are called.\nIf any of them returns nil, then the session is not canceled and\nthe buffer is not killed. The user should then fix the issue and\ntry again. The functions are called with one argument. If it is\nnon-nil then that indicates that the user used a prefix argument\nto force canceling the session despite issues. Functions should\nusually honor that and return non-nil.\"\n :group 'with-editor\n :type 'hook)\n(put 'with-editor-cancel-query-functions 'permanent-local t)\n\n(defcustom with-editor-mode-lighter \" WE\"\n \"The mode-line lighter of the With-Editor mode.\"\n :group 'with-editor\n :type '(choice (const :tag \"No lighter\" \"\") string))\n\n(defvar with-editor-server-window-alist nil\n \"Alist of filename patterns vs corresponding `server-window'.\n\nEach element looks like (REGEXP . FUNCTION). Files matching\nREGEXP are selected using FUNCTION instead of the default in\n`server-window'.\n\nNote that when a package adds an entry here then it probably\nhas a reason to disrespect `server-window' and it likely is\nnot a good idea to change such entries.\")\n\n(defvar with-editor-file-name-history-exclude nil\n \"List of regexps for filenames `server-visit' should not remember.\nWhen a filename matches any of the regexps, then `server-visit'\ndoes not add it to the variable `file-name-history', which is\nused when reading a filename in the minibuffer.\")\n\n(defcustom with-editor-shell-command-use-emacsclient t\n \"Whether to use the emacsclient when running shell commands.\n\nThis affects `with-editor-shell-command-async' and, if the input\nends with \\\"&\\\" `with-editor-shell-command' .\n\nIf `shell-command-with-editor-mode' is enabled, then it also\naffects `shell-command-async' and, if the input ends with \\\"&\\\"\n`shell-command'.\n\nThis is a temporary kludge that lets you choose between two\npossible defects, the ones described in the issues #23 and #40.\n\nWhen t, then use the emacsclient. This has the disadvantage that\n`with-editor-mode' won't be enabled because we don't know whether\nthis package was involved at all in the call to the emacsclient,\nand when it is not, then we really should. The problem is that\nthe emacsclient doesn't pass a long any environment variables to\nthe server. This will hopefully be fixed in Emacs eventually.\n\nWhen nil, then use the sleeping editor. Because in this case we\nknow that this package is involved, we can enable the mode. But\nthis makes it necessary that you invoke $EDITOR in shell scripts\nlike so:\n\n eval \\\"$EDITOR\\\" file\n\nAnd some tools that do not handle $EDITOR properly also break.\"\n :package-version '(with-editor . \"2.7.1\")\n :group 'with-editor\n :type 'boolean)\n\n;;; Mode Commands\n\n(defvar with-editor-pre-finish-hook nil)\n(defvar with-editor-pre-cancel-hook nil)\n(defvar with-editor-post-finish-hook nil)\n(defvar with-editor-post-finish-hook-1 nil)\n(defvar with-editor-post-cancel-hook nil)\n(defvar with-editor-post-cancel-hook-1 nil)\n(defvar with-editor-cancel-alist nil)\n(put 'with-editor-pre-finish-hook 'permanent-local t)\n(put 'with-editor-pre-cancel-hook 'permanent-local t)\n(put 'with-editor-post-finish-hook 'permanent-local t)\n(put 'with-editor-post-cancel-hook 'permanent-local t)\n\n(defvar with-editor-show-usage t)\n(defvar with-editor-cancel-message nil)\n(defvar with-editor-previous-winconf nil)\n(make-variable-buffer-local 'with-editor-show-usage)\n(make-variable-buffer-local 'with-editor-cancel-message)\n(make-variable-buffer-local 'with-editor-previous-winconf)\n(put 'with-editor-cancel-message 'permanent-local t)\n(put 'with-editor-previous-winconf 'permanent-local t)\n\n(defvar-local with-editor--pid nil \"For internal use.\")\n(put 'with-editor--pid 'permanent-local t)\n\n(defun with-editor-finish (force)\n \"Finish the current edit session.\"\n (interactive \"P\")\n (when (run-hook-with-args-until-failure\n 'with-editor-finish-query-functions force)\n (let ((post-finish-hook with-editor-post-finish-hook)\n (post-commit-hook (bound-and-true-p git-commit-post-finish-hook))\n (dir default-directory))\n (run-hooks 'with-editor-pre-finish-hook)\n (with-editor-return nil)\n (accept-process-output nil 0.1)\n (with-temp-buffer\n (setq default-directory dir)\n (setq-local with-editor-post-finish-hook post-finish-hook)\n (when post-commit-hook\n (setq-local git-commit-post-finish-hook post-commit-hook))\n (run-hooks 'with-editor-post-finish-hook)))))\n\n(defun with-editor-cancel (force)\n \"Cancel the current edit session.\"\n (interactive \"P\")\n (when (run-hook-with-args-until-failure\n 'with-editor-cancel-query-functions force)\n (let ((message with-editor-cancel-message))\n (when (functionp message)\n (setq message (funcall message)))\n (let ((post-cancel-hook with-editor-post-cancel-hook)\n (with-editor-cancel-alist nil)\n (dir default-directory))\n (run-hooks 'with-editor-pre-cancel-hook)\n (with-editor-return t)\n (accept-process-output nil 0.1)\n (with-temp-buffer\n (setq default-directory dir)\n (setq-local with-editor-post-cancel-hook post-cancel-hook)\n (run-hooks 'with-editor-post-cancel-hook)))\n (message (or message \"Canceled by user\")))))\n\n(defun with-editor-return (cancel)\n (let ((winconf with-editor-previous-winconf)\n (clients server-buffer-clients)\n (dir default-directory)\n (pid with-editor--pid))\n (remove-hook 'kill-buffer-query-functions\n 'with-editor-kill-buffer-noop t)\n (cond (cancel\n (save-buffer)\n (if clients\n (dolist (client clients)\n (ignore-errors\n (server-send-string client \"-error Canceled by user\"))\n (delete-process client))\n ;; Fallback for when emacs was used as $EDITOR\n ;; instead of emacsclient or the sleeping editor.\n ;; See https://github.com/magit/magit/issues/2258.\n (ignore-errors (delete-file buffer-file-name))\n (kill-buffer)))\n (t\n (save-buffer)\n (if clients\n ;; Don't use `server-edit' because we do not want to\n ;; show another buffer belonging to another client.\n ;; See https://github.com/magit/magit/issues/2197.\n (server-done)\n (kill-buffer))))\n (when pid\n (let ((default-directory dir))\n (process-file \"kill\" nil nil nil\n \"-s\" (if cancel \"USR2\" \"USR1\") pid)))\n (when (and winconf (eq (window-configuration-frame winconf)\n (selected-frame)))\n (set-window-configuration winconf))))\n\n;;; Mode\n\n(defvar with-editor-mode-map\n (let ((map (make-sparse-keymap)))\n (define-key map \"\\C-c\\C-c\" 'with-editor-finish)\n (define-key map [remap server-edit] 'with-editor-finish)\n (define-key map [remap evil-save-and-close] 'with-editor-finish)\n (define-key map [remap evil-save-modified-and-close] 'with-editor-finish)\n (define-key map \"\\C-c\\C-k\" 'with-editor-cancel)\n (define-key map [remap kill-buffer] 'with-editor-cancel)\n (define-key map [remap ido-kill-buffer] 'with-editor-cancel)\n (define-key map [remap iswitchb-kill-buffer] 'with-editor-cancel)\n (define-key map [remap evil-quit] 'with-editor-cancel)\n map))\n\n(define-minor-mode with-editor-mode\n \"Edit a file as the $EDITOR of an external process.\"\n :lighter with-editor-mode-lighter\n ;; Protect the user from killing the buffer without using\n ;; either `with-editor-finish' or `with-editor-cancel',\n ;; and from removing the key bindings for these commands.\n (unless with-editor-mode\n (user-error \"With-Editor mode cannot be turned off\"))\n (add-hook 'kill-buffer-query-functions\n 'with-editor-kill-buffer-noop nil t)\n ;; `server-execute' displays a message which is not\n ;; correct when using this mode.\n (when with-editor-show-usage\n (with-editor-usage-message)))\n\n(put 'with-editor-mode 'permanent-local t)\n\n(defun with-editor-kill-buffer-noop ()\n ;; We started doing this in response to #64, but it is not safe\n ;; to do so, because the client has already been killed, causing\n ;; `with-editor-return' (called by `with-editor-cancel') to delete\n ;; the file, see #66. The reason we delete the file in the first\n ;; place are https://github.com/magit/magit/issues/2258 and\n ;; https://github.com/magit/magit/issues/2248.\n ;; (if (memq this-command '(save-buffers-kill-terminal\n ;; save-buffers-kill-emacs))\n ;; (let ((with-editor-cancel-query-functions nil))\n ;; (with-editor-cancel nil)\n ;; t)\n ;; ...)\n ;; So go back to always doing this instead:\n (user-error (substitute-command-keys (format \"\\\nDon't kill this buffer %S. Instead cancel using \\\\[with-editor-cancel]\"\n (current-buffer)))))\n\n(defvar-local with-editor-usage-message \"\\\nType \\\\[with-editor-finish] to finish, \\\nor \\\\[with-editor-cancel] to cancel\")\n\n(defun with-editor-usage-message ()\n ;; Run after `server-execute', which is run using\n ;; a timer which starts immediately.\n (let ((buffer (current-buffer)))\n (run-with-timer\n 0.05 nil\n (lambda ()\n (with-current-buffer buffer\n (message (substitute-command-keys with-editor-usage-message)))))))\n\n;;; Wrappers\n\n(defvar with-editor--envvar nil \"For internal use.\")\n\n(defmacro with-editor (&rest body)\n \"Use the Emacsclient as $EDITOR while evaluating BODY.\nModify the `process-environment' for processes started in BODY,\ninstructing them to use the Emacsclient as $EDITOR. If optional\nENVVAR is a literal string then bind that environment variable\ninstead.\n\\n(fn [ENVVAR] BODY...)\"\n (declare (indent defun) (debug (body)))\n `(let ((with-editor--envvar ,(if (stringp (car body))\n (pop body)\n '(or with-editor--envvar \"EDITOR\")))\n (process-environment process-environment))\n (with-editor--setup)\n ,@body))\n\n(defmacro with-editor* (envvar &rest body)\n \"Use the Emacsclient as the editor while evaluating BODY.\nModify the `process-environment' for processes started in BODY,\ninstructing them to use the Emacsclient as editor. ENVVAR is the\nenvironment variable that is exported to do so, it is evaluated\nat run-time.\n\\n(fn [ENVVAR] BODY...)\"\n (declare (indent defun) (debug (sexp body)))\n `(let ((with-editor--envvar ,envvar)\n (process-environment process-environment))\n (with-editor--setup)\n ,@body))\n\n(defun with-editor--setup ()\n (if (or (not with-editor-emacsclient-executable)\n (file-remote-p default-directory))\n (push (concat with-editor--envvar \"=\" with-editor-sleeping-editor)\n process-environment)\n ;; Make sure server-use-tcp's value is valid.\n (unless (featurep 'make-network-process '(:family local))\n (setq server-use-tcp t))\n ;; Make sure the server is running.\n (unless (process-live-p server-process)\n (when (server-running-p server-name)\n (setq server-name (format \"server%s\" (emacs-pid)))\n (when (server-running-p server-name)\n (server-force-delete server-name)))\n (server-start))\n ;; Tell $EDITOR to use the Emacsclient.\n (push (concat with-editor--envvar \"=\"\n (shell-quote-argument with-editor-emacsclient-executable)\n ;; Tell the process where the server file is.\n (and (not server-use-tcp)\n (concat \" --socket-name=\"\n (shell-quote-argument\n (expand-file-name server-name\n server-socket-dir)))))\n process-environment)\n (when server-use-tcp\n (push (concat \"EMACS_SERVER_FILE=\"\n (expand-file-name server-name server-auth-dir))\n process-environment))\n ;; As last resort fallback to the sleeping editor.\n (push (concat \"ALTERNATE_EDITOR=\" with-editor-sleeping-editor)\n process-environment)))\n\n(defun with-editor-server-window ()\n (or (and buffer-file-name\n (cdr (cl-find-if (lambda (cons)\n (string-match-p (car cons) buffer-file-name))\n with-editor-server-window-alist)))\n server-window))\n\n(defun server-switch-buffer--with-editor-server-window-alist\n (fn &optional next-buffer killed-one filepos)\n \"Honor `with-editor-server-window-alist' (which see).\"\n (let ((server-window (with-current-buffer\n (or next-buffer (current-buffer))\n (when with-editor-mode\n (setq with-editor-previous-winconf\n (current-window-configuration)))\n (with-editor-server-window))))\n (funcall fn next-buffer killed-one filepos)))\n\n(advice-add 'server-switch-buffer :around\n 'server-switch-buffer--with-editor-server-window-alist)\n\n(defun start-file-process--with-editor-process-filter\n (fn name buffer program &rest program-args)\n \"When called inside a `with-editor' form and the Emacsclient\ncannot be used, then give the process the filter function\n`with-editor-process-filter'. To avoid overriding the filter\nbeing added here you should use `with-editor-set-process-filter'\ninstead of `set-process-filter' inside `with-editor' forms.\n\nWhen the `default-directory' is located on a remote machine,\nthen also manipulate PROGRAM and PROGRAM-ARGS in order to set\nthe appropriate editor environment variable.\"\n (if (not with-editor--envvar)\n (apply fn name buffer program program-args)\n (when (file-remote-p default-directory)\n (unless (equal program \"env\")\n (push program program-args)\n (setq program \"env\"))\n (push (concat with-editor--envvar \"=\" with-editor-sleeping-editor)\n program-args))\n (let ((process (apply fn name buffer program program-args)))\n (set-process-filter process 'with-editor-process-filter)\n (process-put process 'default-dir default-directory)\n process)))\n\n(advice-add 'start-file-process :around\n 'start-file-process--with-editor-process-filter)\n\n(cl-defun make-process--with-editor-process-filter\n (fn &rest keys &key name buffer command coding noquery stop\n connection-type filter sentinel stderr file-handler)\n \"When called inside a `with-editor' form and the Emacsclient\ncannot be used, then give the process the filter function\n`with-editor-process-filter'. To avoid overriding the filter\nbeing added here you should use `with-editor-set-process-filter'\ninstead of `set-process-filter' inside `with-editor' forms.\n\nWhen the `default-directory' is located on a remote machine and\nFILE-HANDLER is non-nil, then also manipulate COMMAND in order\nto set the appropriate editor environment variable.\"\n (if (or (not file-handler) (not with-editor--envvar))\n (apply fn keys)\n (when (file-remote-p default-directory)\n (unless (equal (car command) \"env\")\n (push \"env\" command))\n (push (concat with-editor--envvar \"=\" with-editor-sleeping-editor)\n (cdr command)))\n (let* ((filter (if filter\n (lambda (process output)\n (funcall filter process output)\n (with-editor-process-filter process output t))\n #'with-editor-process-filter))\n (process (funcall fn\n :name name\n :buffer buffer\n :command command\n :coding coding\n :noquery noquery\n :stop stop\n :connection-type connection-type\n :filter filter\n :sentinel sentinel\n :stderr stderr\n :file-handler file-handler)))\n (process-put process 'default-dir default-directory)\n process)))\n\n(advice-add #'make-process :around #'make-process--with-editor-process-filter)\n\n(defun with-editor-set-process-filter (process filter)\n \"Like `set-process-filter' but keep `with-editor-process-filter'.\nGive PROCESS the new FILTER but keep `with-editor-process-filter'\nif that was added earlier by the advised `start-file-process'.\n\nDo so by wrapping the two filter functions using a lambda, which\nbecomes the actual filter. It calls `with-editor-process-filter'\nfirst, passing t as NO-STANDARD-FILTER. Then it calls FILTER,\nwhich may or may not insert the text into the PROCESS's buffer.\"\n (set-process-filter\n process\n (if (eq (process-filter process) 'with-editor-process-filter)\n `(lambda (proc str)\n (,filter proc str)\n (with-editor-process-filter proc str t))\n filter)))\n\n(defvar with-editor-filter-visit-hook nil)\n\n(defun with-editor-output-filter (string)\n (save-match-data\n (if (string-match \"^WITH-EDITOR: \\\n\\\$[0-9]+\\\$ OPEN \\\$[^\u001f]+?\\\$\\\n\\\$?:\u001f IN \\\\([^\\r]+?\\\$\\\\)?\\r?$\" string)\n (let ((pid (match-string 1 string))\n (file (match-string 2 string))\n (dir (match-string 3 string)))\n (unless (file-name-absolute-p file)\n (setq file (expand-file-name file dir)))\n (when default-directory\n (setq file (concat (file-remote-p default-directory) file)))\n (with-current-buffer (find-file-noselect file)\n (with-editor-mode 1)\n (setq with-editor--pid pid)\n (run-hooks 'with-editor-filter-visit-hook)\n (funcall (or (with-editor-server-window) 'switch-to-buffer)\n (current-buffer))\n (kill-local-variable 'server-window))\n nil)\n string)))\n\n(defun with-editor-process-filter\n (process string &optional no-default-filter)\n \"Listen for edit requests by child processes.\"\n (let ((default-directory (process-get process 'default-dir)))\n (with-editor-output-filter string))\n (unless no-default-filter\n (internal-default-process-filter process string)))\n\n(advice-add 'server-visit-files :after\n 'server-visit-files--with-editor-file-name-history-exclude)\n\n(defun server-visit-files--with-editor-file-name-history-exclude\n (files _proc &optional _nowait)\n (pcase-dolist (`(,file . ,_) files)\n (when (cl-find-if (lambda (regexp)\n (string-match-p regexp file))\n with-editor-file-name-history-exclude)\n (setq file-name-history (delete file file-name-history)))))\n\n;;; Augmentations\n\n;;;###autoload\n(cl-defun with-editor-export-editor (&optional (envvar \"EDITOR\"))\n \"Teach subsequent commands to use current Emacs instance as editor.\n\nSet and export the environment variable ENVVAR, by default\n\\\"EDITOR\\\". The value is automatically generated to teach\ncommands to use the current Emacs instance as \\\"the editor\\\".\n\nThis works in `shell-mode', `term-mode' and `eshell-mode'.\"\n (interactive (list (with-editor-read-envvar)))\n (cond\n ((derived-mode-p 'comint-mode 'term-mode)\n (let ((process (get-buffer-process (current-buffer))))\n (goto-char (process-mark process))\n (process-send-string\n process (format \" export %s=%s\\n\" envvar\n (shell-quote-argument with-editor-sleeping-editor)))\n (while (accept-process-output process 0.1))\n (if (derived-mode-p 'term-mode)\n (with-editor-set-process-filter process 'with-editor-emulate-terminal)\n (add-hook 'comint-output-filter-functions 'with-editor-output-filter\n nil t))))\n ((derived-mode-p 'eshell-mode)\n (add-to-list 'eshell-preoutput-filter-functions\n 'with-editor-output-filter)\n (setenv envvar with-editor-sleeping-editor))\n (t\n (error \"Cannot export environment variables in this buffer\")))\n (message \"Successfully exported %s\" envvar))\n\n;;;###autoload\n(defun with-editor-export-git-editor ()\n \"Like `with-editor-export-editor' but always set `$GIT_EDITOR'.\"\n (interactive)\n (with-editor-export-editor \"GIT_EDITOR\"))\n\n;;;###autoload\n(defun with-editor-export-hg-editor ()\n \"Like `with-editor-export-editor' but always set `$HG_EDITOR'.\"\n (interactive)\n (with-editor-export-editor \"HG_EDITOR\"))\n\n(defun with-editor-emulate-terminal (process string)\n \"Like `term-emulate-terminal' but also handle edit requests.\"\n (when (with-editor-output-filter string)\n (term-emulate-terminal process string)))\n\n(defvar with-editor-envvars '(\"EDITOR\" \"GIT_EDITOR\" \"HG_EDITOR\"))\n\n(cl-defun with-editor-read-envvar\n (&optional (prompt \"Set environment variable\")\n (default \"EDITOR\"))\n (let ((reply (completing-read (if default\n (format \"%s (%s): \" prompt default)\n (concat prompt \": \"))\n with-editor-envvars nil nil nil nil default)))\n (if (string= reply \"\") (user-error \"Nothing selected\") reply)))\n\n;;;###autoload\n(define-minor-mode shell-command-with-editor-mode\n \"Teach `shell-command' to use current Emacs instance as editor.\n\nTeach `shell-command', and all commands that ultimately call that\ncommand, to use the current Emacs instance as editor by executing\n\\\"EDITOR=CLIENT COMMAND&\\\" instead of just \\\"COMMAND&\\\".\n\nCLIENT is automatically generated; EDITOR=CLIENT instructs\nCOMMAND to use to the current Emacs instance as \\\"the editor\\\",\nassuming no other variable overrides the effect of \\\"$EDITOR\\\".\nCLIENT may be the path to an appropriate emacsclient executable\nwith arguments, or a script which also works over Tramp.\n\nAlternatively you can use the `with-editor-async-shell-command',\nwhich also allows the use of another variable instead of\n\\\"EDITOR\\\".\"\n :global t)\n\n;;;###autoload\n(defun with-editor-async-shell-command\n (command &optional output-buffer error-buffer envvar)\n \"Like `async-shell-command' but with `$EDITOR' set.\n\nExecute string \\\"ENVVAR=CLIENT COMMAND\\\" in an inferior shell;\ndisplay output, if any. With a prefix argument prompt for an\nenvironment variable, otherwise the default \\\"EDITOR\\\" variable\nis used. With a negative prefix argument additionally insert\nthe COMMAND's output at point.\n\nCLIENT is automatically generated; ENVVAR=CLIENT instructs\nCOMMAND to use to the current Emacs instance as \\\"the editor\\\",\nassuming it respects ENVVAR as an \\\"EDITOR\\\"-like variable.\nCLIENT may be the path to an appropriate emacsclient executable\nwith arguments, or a script which also works over Tramp.\n\nAlso see `async-shell-command' and `shell-command'.\"\n (interactive (with-editor-shell-command-read-args \"Async shell command: \" t))\n (let ((with-editor--envvar envvar))\n (with-editor\n (async-shell-command command output-buffer error-buffer))))\n\n;;;###autoload\n(defun with-editor-shell-command\n (command &optional output-buffer error-buffer envvar)\n \"Like `shell-command' or `with-editor-async-shell-command'.\nIf COMMAND ends with \\\"&\\\" behave like the latter,\nelse like the former.\"\n (interactive (with-editor-shell-command-read-args \"Shell command: \"))\n (if (string-match \"&[ \\t]*\\\\'\" command)\n (with-editor-async-shell-command\n command output-buffer error-buffer envvar)\n (shell-command command output-buffer error-buffer)))\n\n(defun with-editor-shell-command-read-args (prompt &optional async)\n (let ((command (read-shell-command\n prompt nil nil\n (let ((filename (or buffer-file-name\n (and (eq major-mode 'dired-mode)\n (dired-get-filename nil t)))))\n (and filename (file-relative-name filename))))))\n (list command\n (if (or async (setq async (string-match-p \"&[ \\t]*\\\\'\" command)))\n (< (prefix-numeric-value current-prefix-arg) 0)\n current-prefix-arg)\n shell-command-default-error-buffer\n (and async current-prefix-arg (with-editor-read-envvar)))))\n\n(defun shell-command--shell-command-with-editor-mode\n (fn command &optional output-buffer error-buffer)\n ;; `shell-mode' and its hook are intended for buffers in which an\n ;; interactive shell is running, but `shell-command' also turns on\n ;; that mode, even though it only runs the shell to run a single\n ;; command. The `with-editor-export-editor' hook function is only\n ;; intended to be used in buffers in which an interactive shell is\n ;; running, so it has to be remove here.\n (let ((shell-mode-hook (remove 'with-editor-export-editor shell-mode-hook)))\n (cond ((or (not (or with-editor--envvar shell-command-with-editor-mode))\n (not (string-match-p \"&\\\\'\" command)))\n (funcall fn command output-buffer error-buffer))\n ((and with-editor-shell-command-use-emacsclient\n with-editor-emacsclient-executable\n (not (file-remote-p default-directory)))\n (with-editor (funcall fn command output-buffer error-buffer)))\n (t\n (apply fn (format \"%s=%s %s\"\n (or with-editor--envvar \"EDITOR\")\n (shell-quote-argument with-editor-sleeping-editor)\n command)\n output-buffer error-buffer)\n (ignore-errors\n (let ((process (get-buffer-process\n (or output-buffer\n (get-buffer \"*Async Shell Command*\")))))\n (set-process-filter\n process (lambda (proc str)\n (comint-output-filter proc str)\n (with-editor-process-filter proc str t)))\n process))))))\n\n(advice-add 'shell-command :around\n 'shell-command--shell-command-with-editor-mode)\n\n;;; _\n\n(defun with-editor-debug ()\n \"Debug configuration issues.\nSee info node `(with-editor)Debugging' for instructions.\"\n (interactive)\n (with-current-buffer (get-buffer-create \"*with-editor-debug*\")\n (pop-to-buffer (current-buffer))\n (erase-buffer)\n (ignore-errors (with-editor))\n (insert\n (format \"with-editor: %s\\n\" (locate-library \"with-editor.el\"))\n (format \"emacs: %s (%s)\\n\"\n (expand-file-name invocation-name invocation-directory)\n emacs-version)\n \"system:\\n\"\n (format \" system-type: %s\\n\" system-type)\n (format \" system-configuration: %s\\n\" system-configuration)\n (format \" system-configuration-options: %s\\n\" system-configuration-options)\n \"server:\\n\"\n (format \" server-running-p: %s\\n\" (server-running-p))\n (format \" server-process: %S\\n\" server-process)\n (format \" server-use-tcp: %s\\n\" server-use-tcp)\n (format \" server-name: %s\\n\" server-name)\n (format \" server-socket-dir: %s\\n\" server-socket-dir))\n (if (and server-socket-dir (file-accessible-directory-p server-socket-dir))\n (dolist (file (directory-files server-socket-dir nil \"^[^.]\"))\n (insert (format \" %s\\n\" file)))\n (insert (format \" %s: not an accessible directory\\n\"\n (if server-use-tcp \"WARNING\" \"ERROR\"))))\n (insert (format \" server-auth-dir: %s\\n\" server-auth-dir))\n (if (file-accessible-directory-p server-auth-dir)\n (dolist (file (directory-files server-auth-dir nil \"^[^.]\"))\n (insert (format \" %s\\n\" file)))\n (insert (format \" %s: not an accessible directory\\n\"\n (if server-use-tcp \"ERROR\" \"WARNING\"))))\n (let ((val with-editor-emacsclient-executable)\n (def (default-value 'with-editor-emacsclient-executable))\n (fun (let ((warning-minimum-level :error)\n (warning-minimum-log-level :error))\n (with-editor-locate-emacsclient))))\n (insert \"with-editor-emacsclient-executable:\\n\"\n (format \" value: %s (%s)\\n\" val\n (and val (with-editor-emacsclient-version val)))\n (format \" default: %s (%s)\\n\" def\n (and def (with-editor-emacsclient-version def)))\n (format \" funcall: %s (%s)\\n\" fun\n (and fun (with-editor-emacsclient-version fun)))))\n (insert \"path:\\n\"\n (format \" $PATH: %S\\n\" (getenv \"PATH\"))\n (format \" exec-path: %s\\n\" exec-path))\n (insert (format \" with-editor-emacsclient-path:\\n\"))\n (dolist (dir (with-editor-emacsclient-path))\n (insert (format \" %s (%s)\\n\" dir (car (file-attributes dir))))\n (when (file-directory-p dir)\n ;; Don't match emacsclientw.exe, it makes popup windows.\n (dolist (exec (directory-files dir t \"emacsclient\\\$?:[^w]\\\\|\\\\'\\\$\"))\n (insert (format \" %s (%s)\\n\" exec\n (with-editor-emacsclient-version exec))))))))\n\n(defconst with-editor-font-lock-keywords\n '((\"(\\\$with-\\\\(?:git-\\\$?editor\\\\)\\\\_>\" (1 'font-lock-keyword-face))))\n(font-lock-add-keywords 'emacs-lisp-mode with-editor-font-lock-keywords)\n\n(provide 'with-editor)\n;; Local Variables:\n;; indent-tabs-mode: nil\n;; End:\n;;; with-editor.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor.info","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1318758},"to":{"change":7,"start":1332723,"end":1332763},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1332763},"to":{"change":7,"start":1318796,"end":1318796},"introduced_by":7}],"inode":{"change":7,"pos":1318796}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1318796},"to":{"change":7,"start":1318797,"end":1332722},"introduced_by":7}],"inode":{"change":7,"pos":1318796}},"content":[{"Del":"This is with-editor.info, produced by makeinfo version 6.5 from\nwith-editor.texi.\n\n Copyright (C) 2015-2020 Jonas Bernoulli \n\n You can redistribute this document and/or modify it under the terms\n of the GNU General Public License as published by the Free Software\n Foundation, either version 3 of the License, or (at your option)\n any later version.\n\n This document is distributed in the hope that it will be useful,\n but WITHOUT ANY WARRANTY; without even the implied warranty of\n MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n General Public License for more details.\n\nINFO-DIR-SECTION Emacs\nSTART-INFO-DIR-ENTRY\n* With-Editor: (with-editor). Using the Emacsclient as $EDITOR.\nEND-INFO-DIR-ENTRY\n\n\u001f\nFile: with-editor.info, Node: Top, Next: Using the With-Editor package, Up: (dir)\n\nWith-Editor User Manual\n***********************\n\nThe library ‘with-editor’ makes it easy to use the Emacsclient as the\n‘$EDITOR’ of child processes, making sure they know how to call home.\nFor remote processes a substitute is provided, which communicates with\nEmacs on standard output instead of using a socket as the Emacsclient\ndoes.\n\n This library was written because Magit has to be able to do the above\nto allow the user to edit commit messages gracefully and to edit rebase\nsequences, which wouldn’t be possible at all otherwise.\n\n Because other packages can benefit from such functionality, this\nlibrary is made available as a separate package. It also defines some\nadditional functionality which makes it useful even for end-users, who\ndon’t use Magit or another package which uses it internally.\n\nThis manual is for With-Editor version 2.9.2.\n\n Copyright (C) 2015-2020 Jonas Bernoulli \n\n You can redistribute this document and/or modify it under the terms\n of the GNU General Public License as published by the Free Software\n Foundation, either version 3 of the License, or (at your option)\n any later version.\n\n This document is distributed in the hope that it will be useful,\n but WITHOUT ANY WARRANTY; without even the implied warranty of\n MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n General Public License for more details.\n\n* Menu:\n\n* Using the With-Editor package::\n* Using With-Editor as a library::\n* Debugging::\n\n— The Detailed Node Listing —\n\nUsing the With-Editor package\n\n* Configuring With-Editor::\n* Using With-Editor commands::\n\n\n\u001f\nFile: with-editor.info, Node: Using the With-Editor package, Next: Using With-Editor as a library, Prev: Top, Up: Top\n\n1 Using the With-Editor package\n*******************************\n\nThe ‘With-Editor’ package is used internally by Magit when editing\ncommit messages and rebase sequences. It also provides some commands\nand features which are useful by themselves, even if you don’t use\nMagit.\n\n For information about using this library in you own package, see\n*note Using With-Editor as a library::.\n\n* Menu:\n\n* Configuring With-Editor::\n* Using With-Editor commands::\n\n\u001f\nFile: with-editor.info, Node: Configuring With-Editor, Next: Using With-Editor commands, Up: Using the With-Editor package\n\n1.1 Configuring With-Editor\n===========================\n\nWith-Editor tries very hard to locate a suitable ‘emacsclient’\nexecutable, so ideally you should never have to customize the option\n‘with-editor-emacsclient-executable’. When it fails to do so, then the\nmost likely reason is that someone found yet another way to package\nEmacs (most likely on macOS) without putting the executable on ‘$PATH’,\nand we have to add another kludge to find it anyway.\n\n -- User Option: with-editor-emacsclient-executable\n\n The ‘emacsclient’ executable used as the editor by child process of\n this Emacs instance. By using this executable, child processes can\n call home to their parent process.\n\n This option is automatically set at startup by looking in\n ‘exec-path’, and other places where the executable could be\n installed, to find the ‘emacsclient’ executable most suitable for\n the current Emacs instance.\n\n You should *not* customize this option permanently. If you have to\n do it, then you should consider that a temporary kludge and inform\n the Magit maintainer as described in *note Debugging::.\n\n If With-Editor fails to find a suitable ‘emacsclient’ on you\n system, then this should be fixed for all users at once, by\n teaching ‘with-editor-locate-emacsclient’ how to do so on your\n system and system like yours. Doing it this way has the advantage,\n that you won’t have do it again every time you update Emacs, and\n that other users who have installed Emacs the same way as you have,\n won’t have to go through the same trouble.\n\n Note that there also is a nuclear option; setting this variable to\n ‘nil’ causes the \"sleeping editor\" described below to be used even\n for local child processes. Obviously we don’t recommend that you\n use this except in \"emergencies\", i.e. before we had a change to\n add a kludge appropriate for you setup.\n\n -- Function: with-editor-locate-emacsclient\n\n The function used to set the initial value of the option\n ‘with-editor-emacsclient-executable’. There’s a lot of voodoo\n here.\n\n The ‘emacsclient’ cannot be used when using Tramp to run a process on\na remote machine. (Theoretically it could, but that would be hard to\nsetup, very fragile, and rather insecure).\n\n With-Editor provides an alternative \"editor\" which can be used by\nremote processes in much the same way as local processes use an\n‘emacsclient’ executable. This alternative is known as the \"sleeping\neditor\" because it is implemented as a shell script which sleeps until\nit receives a signal.\n\n -- User Option: with-editor-sleeping-editor\n\n The sleeping editor is a shell script used as the editor of child\n processes when the ‘emacsclient’ executable cannot be used.\n\n This fallback is used for asynchronous process started inside the\n macro ‘with-editor’, when the process runs on a remote machine or\n for local processes when ‘with-editor-emacsclient-executable’ is\n ‘nil’.\n\n Where the latter uses a socket to communicate with Emacs’ server,\n this substitute prints edit requests to its standard output on\n which a process filter listens for such requests. As such it is\n not a complete substitute for a proper ‘emacsclient’, it can only\n be used as ‘$EDITOR’ of child process of the current Emacs\n instance.\n\n Some shells do not execute traps immediately when waiting for a\n child process, but by default we do use such a blocking child\n process.\n\n If you use such a shell (e.g. ‘csh’ on FreeBSD, but not Debian),\n then you have to edit this option. You can either replace ‘sh’\n with ‘bash’ (and install that), or you can use the older, less\n performant implementation:\n\n \"sh -c '\\\n echo \\\"WITH-EDITOR: $$ OPEN $0\u001f IN $(pwd)\\\"; \\\n trap \\\"exit 0\\\" USR1; \\\n trap \\\"exit 1\\\" USR2; \\\n while true; do sleep 1; done'\"\n\n Note that the unit separator character (\u001f) right after the file name\n ($0) is required.\n\n Also note that using this alternative implementation leads to a\n delay of up to a second. The delay can be shortened by replacing\n ‘sleep 1’ with ‘sleep 0.01’, or if your implementation does not\n support floats, then by using ‘nanosleep’ instead.\n\n\u001f\nFile: with-editor.info, Node: Using With-Editor commands, Prev: Configuring With-Editor, Up: Using the With-Editor package\n\n1.2 Using With-Editor commands\n==============================\n\nThis section describes how to use the ‘with-editor’ library _outside_ of\nMagit. You don’t need to know any of this just to create commits using\nMagit.\n\n The commands ‘with-editor-async-shell-command’ and\n‘with-editor-shell-command’ are intended as drop in replacements for\n‘async-shell-command’ and ‘shell-command’. They automatically export\n‘$EDITOR’ making sure the executed command uses the current Emacs\ninstance as \"the editor\". With a prefix argument these commands prompt\nfor an alternative environment variable such as ‘$GIT_EDITOR’.\n\n -- Command: with-editor-async-shell-command\n\n This command is like ‘async-shell-command’, but it runs the shell\n command with the current Emacs instance exported as ‘$EDITOR’.\n\n -- Command: with-editor-shell-command\n\n This command is like ‘shell-command’, but if the shell command ends\n with ‘&’ and is therefore run asynchronously, then the current\n Emacs instance is exported as ‘$EDITOR’.\n\n To always use these variants add this to you init file:\n\n (define-key (current-global-map)\n [remap async-shell-command] 'with-editor-async-shell-command)\n (define-key (current-global-map)\n [remap shell-command] 'with-editor-shell-command)\n\n Alternatively use the global ‘shell-command-with-editor-mode’.\n\n -- Variable: shell-command-with-editor-mode\n\n When this mode is active, then ‘$EDITOR’ is exported whenever\n ultimately ‘shell-command’ is called to asynchronously run some\n shell command. This affects most variants of that command, whether\n they are defined in Emacs or in some third-party package.\n\n The command ‘with-editor-export-editor’ exports ‘$EDITOR’ or another\nsuch environment variable in ‘shell-mode’, ‘term-mode’ and ‘eshell-mode’\nbuffers. Use this Emacs command before executing a shell command which\nneeds the editor set, or always arrange for the current Emacs instance\nto be used as editor by adding it to the appropriate mode hooks:\n\n (add-hook 'shell-mode-hook 'with-editor-export-editor)\n (add-hook 'term-exec-hook 'with-editor-export-editor)\n (add-hook 'eshell-mode-hook 'with-editor-export-editor)\n\n Some variants of this function exist; these two forms are equivalent:\n\n (add-hook 'shell-mode-hook\n (apply-partially 'with-editor-export-editor \"GIT_EDITOR\"))\n (add-hook 'shell-mode-hook 'with-editor-export-git-editor)\n\n -- Command: with-editor-export-editor\n\n When invoked in a ‘shell-mode’, ‘term-mode’, or ‘eshell-mode’\n buffer, this command teaches shell commands to use the current\n Emacs instance as the editor, by exporting ‘$EDITOR’.\n\n -- Command: with-editor-export-git-editor\n\n This command is like ‘with-editor-export-editor’ but exports\n ‘$GIT_EDITOR’.\n\n -- Command: with-editor-export-hg-editor\n\n This command is like ‘with-editor-export-editor’ but exports\n ‘$HG_EDITOR’.\n\n\u001f\nFile: with-editor.info, Node: Using With-Editor as a library, Next: Debugging, Prev: Using the With-Editor package, Up: Top\n\n2 Using With-Editor as a library\n********************************\n\nThis section describes how to use the ‘with-editor’ library _outside_ of\nMagit to teach another package how to have its child processes call\nhome, just like Magit does. You don’t need to know any of this just to\ncreate commits using Magit. You can also ignore this if you use\n‘with-editor’ outside of Magit, but only as an end-user.\n\n For information about interactive use and options that affect both\ninteractive and non-interactive use, see *note Using the With-Editor\npackage::.\n\n -- Macro: with-editor &rest body\n\n This macro arranges for the ‘emacsclient’ or the sleeping editor to\n be used as the editor of child processes, effectively teaching them\n to call home to the current Emacs instance when they require that\n the user edits a file.\n\n This is done by establishing a local binding for\n ‘process-environment’ and changing the value of the ‘EDITOR’\n environment variable in that scope. This affects all\n (asynchronous) processes started by forms (dynamically) inside\n BODY.\n\n If BODY begins with a literal string, then that variable is set\n instead of ‘EDITOR’.\n\n -- Macro: with-editor envvar &rest body\n\n This macro is like ‘with-editor’ instead that the ENVVAR argument\n is required and that it is evaluated at run-time.\n\n -- Function: with-editor-set-process-filter process filter\n\n This function is like ‘set-process-filter’ but ensures that adding\n the new FILTER does not remove the ‘with-editor-process-filter’.\n This is done by wrapping the two filter functions using a lambda,\n which becomes the actual filter. It calls\n ‘with-editor-process-filter’ first, passing ‘t’ as\n NO-STANDARD-FILTER. Then it calls FILTER.\n\n\u001f\nFile: with-editor.info, Node: Debugging, Prev: Using With-Editor as a library, Up: Top\n\n3 Debugging\n***********\n\nWith-Editor tries very hard to locate a suitable ‘emacsclient’\nexecutable, and then sets option ‘with-editor-emacsclient-executable’\naccordingly. In very rare cases this fails. When it does fail, then\nthe most likely reason is that someone found yet another way to package\nEmacs (most likely on macOS) without putting the executable on ‘$PATH’,\nand we have to add another kludge to find it anyway.\n\n If you are having problems using ‘with-editor’, e.g. you cannot\ncommit in Magit, then please open a new issue at\n and provide information\nabout your Emacs installation. Most importantly how did you install\nEmacs and what is the output of ‘M-x with-editor-debug RET’.\n\n\n\u001f\nTag Table:\nNode: Top773\nNode: Using the With-Editor package2513\nNode: Configuring With-Editor3099\nNode: Using With-Editor commands7648\nNode: Using With-Editor as a library10843\nNode: Debugging12806\n\u001f\nEnd Tag Table\n\n\u001f\nLocal Variables:\ncoding: utf-8\nEnd:\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor-20200217.1015","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":1376725,"end":1376761},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1376761},"to":{"change":7,"start":1376724,"end":1376724},"introduced_by":7}],"inode":{"change":7,"pos":1376724}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"dir","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1376724},"to":{"change":7,"start":1432686,"end":1432713},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1432713},"to":{"change":7,"start":1432070,"end":1432070},"introduced_by":7}],"inode":{"change":7,"pos":1432070}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1432070},"to":{"change":7,"start":1432071,"end":1432685},"introduced_by":7}],"inode":{"change":7,"pos":1432070}},"content":[{"Del":"This is the file .../info/dir, which contains the\ntopmost node of the Info hierarchy, called (dir)Top.\nThe first time you invoke Info you start off looking at this node.\n\u001f\nFile: dir,\tNode: Top\tThis is the top of the INFO tree\n\n This (the Directory node) gives a menu of major topics.\n Typing \"q\" exits, \"H\" lists all Info commands, \"d\" returns here,\n \"h\" gives a primer for first-timers,\n \"mEmacs\" visits the Emacs manual, etc.\n\n In Emacs, you can click mouse button 2 on a menu item or cross reference\n to select it.\n\n* Menu:\n\nEmacs\n* With-Editor: (with-editor). Using the Emacsclient as $EDITOR.\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1376724},"to":{"change":7,"start":1432020,"end":1432068},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1432068},"to":{"change":7,"start":1428456,"end":1428456},"introduced_by":7}],"inode":{"change":7,"pos":1428456}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1428456},"to":{"change":7,"start":1428457,"end":1432019},"introduced_by":7}],"inode":{"change":7,"pos":1428456}},"content":[{"Del":";;; with-editor-autoloads.el --- automatically extracted autoloads\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"with-editor\" \"with-editor.el\" (0 0 0 0))\n;;; Generated autoloads from with-editor.el\n\n(autoload 'with-editor-export-editor \"with-editor\" \"\\\nTeach subsequent commands to use current Emacs instance as editor.\n\nSet and export the environment variable ENVVAR, by default\n\\\"EDITOR\\\". The value is automatically generated to teach\ncommands to use the current Emacs instance as \\\"the editor\\\".\n\nThis works in `shell-mode', `term-mode' and `eshell-mode'.\n\n\\(fn &optional (ENVVAR \\\"EDITOR\\\"))\" t nil)\n\n(autoload 'with-editor-export-git-editor \"with-editor\" \"\\\nLike `with-editor-export-editor' but always set `$GIT_EDITOR'.\n\n\\(fn)\" t nil)\n\n(autoload 'with-editor-export-hg-editor \"with-editor\" \"\\\nLike `with-editor-export-editor' but always set `$HG_EDITOR'.\n\n\\(fn)\" t nil)\n\n(defvar shell-command-with-editor-mode nil \"\\\nNon-nil if Shell-Command-With-Editor mode is enabled.\nSee the `shell-command-with-editor-mode' command\nfor a description of this minor mode.\")\n\n(custom-autoload 'shell-command-with-editor-mode \"with-editor\" nil)\n\n(autoload 'shell-command-with-editor-mode \"with-editor\" \"\\\nTeach `shell-command' to use current Emacs instance as editor.\n\nTeach `shell-command', and all commands that ultimately call that\ncommand, to use the current Emacs instance as editor by executing\n\\\"EDITOR=CLIENT COMMAND&\\\" instead of just \\\"COMMAND&\\\".\n\nCLIENT is automatically generated; EDITOR=CLIENT instructs\nCOMMAND to use to the current Emacs instance as \\\"the editor\\\",\nassuming no other variable overrides the effect of \\\"$EDITOR\\\".\nCLIENT may be the path to an appropriate emacsclient executable\nwith arguments, or a script which also works over Tramp.\n\nAlternatively you can use the `with-editor-async-shell-command',\nwhich also allows the use of another variable instead of\n\\\"EDITOR\\\".\n\n\\(fn &optional ARG)\" t nil)\n\n(autoload 'with-editor-async-shell-command \"with-editor\" \"\\\nLike `async-shell-command' but with `$EDITOR' set.\n\nExecute string \\\"ENVVAR=CLIENT COMMAND\\\" in an inferior shell;\ndisplay output, if any. With a prefix argument prompt for an\nenvironment variable, otherwise the default \\\"EDITOR\\\" variable\nis used. With a negative prefix argument additionally insert\nthe COMMAND's output at point.\n\nCLIENT is automatically generated; ENVVAR=CLIENT instructs\nCOMMAND to use to the current Emacs instance as \\\"the editor\\\",\nassuming it respects ENVVAR as an \\\"EDITOR\\\"-like variable.\nCLIENT may be the path to an appropriate emacsclient executable\nwith arguments, or a script which also works over Tramp.\n\nAlso see `async-shell-command' and `shell-command'.\n\n\\(fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER ENVVAR)\" t nil)\n\n(autoload 'with-editor-shell-command \"with-editor\" \"\\\nLike `shell-command' or `with-editor-async-shell-command'.\nIf COMMAND ends with \\\"&\\\" behave like the latter,\nelse like the former.\n\n\\(fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER ENVVAR)\" t nil)\n\n(if (fboundp 'register-definition-prefixes) (register-definition-prefixes \"with-editor\" '(\"with-editor\" \"start-file-process--with-editor-process-filter\" \"server-\" \"shell-command--shell-command-with-editor-mode\")))\n\n;;;***\n\f\n;;;### (autoloads nil nil (\"with-editor-pkg.el\") (0 0 0 0))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; with-editor-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1376724},"to":{"change":7,"start":1428412,"end":1428454},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1428454},"to":{"change":7,"start":1428056,"end":1428056},"introduced_by":7}],"inode":{"change":7,"pos":1428056}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1428056},"to":{"change":7,"start":1428057,"end":1428411},"introduced_by":7}],"inode":{"change":7,"pos":1428056}},"content":[{"Del":"(define-package \"with-editor\" \"20200217.1015\" \"Use the Emacsclient as $EDITOR\"\n '((emacs \"24.4\")\n (async \"1.9\"))\n :keywords\n '(\"tools\")\n :authors\n '((\"Jonas Bernoulli\" . \"jonas@bernoul.li\"))\n :maintainer\n '(\"Jonas Bernoulli\" . \"jonas@bernoul.li\")\n :url \"https://github.com/magit/with-editor\")\n;; Local Variables:\n;; no-byte-compile: t\n;; End:\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1376724},"to":{"change":7,"start":1428016,"end":1428054},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1428054},"to":{"change":7,"start":1390732,"end":1390732},"introduced_by":7}],"inode":{"change":7,"pos":1390732}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1390732},"to":{"change":7,"start":1390733,"end":1428015},"introduced_by":7}],"inode":{"change":7,"pos":1390732}},"content":[{"Del":";;; with-editor.el --- Use the Emacsclient as $EDITOR -*- lexical-binding: t -*-\n\n;; Copyright (C) 2014-2020 The Magit Project Contributors\n;;\n;; You should have received a copy of the AUTHORS.md file. If not,\n;; see https://github.com/magit/with-editor/blob/master/AUTHORS.md.\n\n;; Author: Jonas Bernoulli \n;; Maintainer: Jonas Bernoulli \n\n;; Package-Requires: ((emacs \"24.4\") (async \"1.9\"))\n;; Keywords: tools\n;; Homepage: https://github.com/magit/with-editor\n\n;; This file is not part of GNU Emacs.\n\n;; This file is free software; you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation; either version 3, or (at your option)\n;; any later version.\n\n;; This file is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with Magit. If not, see http://www.gnu.org/licenses.\n\n;;; Commentary:\n\n;; This library makes it possible to reliably use the Emacsclient as\n;; the `$EDITOR' of child processes. It makes sure that they know how\n;; to call home. For remote processes a substitute is provided, which\n;; communicates with Emacs on standard output/input instead of using a\n;; socket as the Emacsclient does.\n\n;; It provides the commands `with-editor-async-shell-command' and\n;; `with-editor-shell-command', which are intended as replacements\n;; for `async-shell-command' and `shell-command'. They automatically\n;; export `$EDITOR' making sure the executed command uses the current\n;; Emacs instance as \"the editor\". With a prefix argument these\n;; commands prompt for an alternative environment variable such as\n;; `$GIT_EDITOR'. To always use these variants add this to your init\n;; file:\n;;\n;; (define-key (current-global-map)\n;; [remap async-shell-command] 'with-editor-async-shell-command)\n;; (define-key (current-global-map)\n;; [remap shell-command] 'with-editor-shell-command)\n\n;; Alternatively use the global `shell-command-with-editor-mode',\n;; which always sets `$EDITOR' for all Emacs commands which ultimately\n;; use `shell-command' to asynchronously run some shell command.\n\n;; The command `with-editor-export-editor' exports `$EDITOR' or\n;; another such environment variable in `shell-mode', `term-mode' and\n;; `eshell-mode' buffers. Use this Emacs command before executing a\n;; shell command which needs the editor set, or always arrange for the\n;; current Emacs instance to be used as editor by adding it to the\n;; appropriate mode hooks:\n;;\n;; (add-hook 'shell-mode-hook 'with-editor-export-editor)\n;; (add-hook 'term-exec-hook 'with-editor-export-editor)\n;; (add-hook 'eshell-mode-hook 'with-editor-export-editor)\n\n;; Some variants of this function exist, these two forms are\n;; equivalent:\n;;\n;; (add-hook 'shell-mode-hook\n;; (apply-partially 'with-editor-export-editor \"GIT_EDITOR\"))\n;; (add-hook 'shell-mode-hook 'with-editor-export-git-editor)\n\n;; This library can also be used by other packages which need to use\n;; the current Emacs instance as editor. In fact this library was\n;; written for Magit and its `git-commit-mode' and `git-rebase-mode'.\n;; Consult `git-rebase.el' and the related code in `magit-sequence.el'\n;; for a simple example.\n\n;;; Code:\n\n(require 'cl-lib)\n;; `pcase-dolist' is not autoloaded on Emacs 24.\n(eval-when-compile (require 'pcase))\n(require 'server)\n(require 'shell)\n\n(and (require 'async-bytecomp nil t)\n (let ((pkgs (bound-and-true-p async-bytecomp-allowed-packages)))\n (if (consp pkgs)\n (cl-intersection '(all magit) pkgs)\n (memq pkgs '(all t))))\n (fboundp 'async-bytecomp-package-mode)\n (async-bytecomp-package-mode 1))\n\n(eval-when-compile\n (progn (require 'dired nil t)\n (require 'eshell nil t)\n (require 'term nil t)\n (require 'warnings nil t)))\n(declare-function dired-get-filename 'dired)\n(declare-function term-emulate-terminal 'term)\n(defvar eshell-preoutput-filter-functions)\n(defvar git-commit-post-finish-hook)\n\n;;; Options\n\n(defgroup with-editor nil\n \"Use the Emacsclient as $EDITOR.\"\n :group 'external\n :group 'server)\n\n(defun with-editor-locate-emacsclient ()\n \"Search for a suitable Emacsclient executable.\"\n (or (with-editor-locate-emacsclient-1\n (with-editor-emacsclient-path)\n (length (split-string emacs-version \"\\\\.\")))\n (prog1 nil (display-warning 'with-editor \"\\\nCannot determine a suitable Emacsclient\n\nDetermining an Emacsclient executable suitable for the\ncurrent Emacs instance failed. For more information\nplease see https://github.com/magit/magit/wiki/Emacsclient.\"))))\n\n(defun with-editor-locate-emacsclient-1 (path depth)\n (let* ((version-lst (cl-subseq (split-string emacs-version \"\\\\.\") 0 depth))\n (version-reg (concat \"^\" (mapconcat #'identity version-lst \"\\\\.\"))))\n (or (locate-file-internal\n (if (equal (downcase invocation-name) \"remacs\")\n \"remacsclient\"\n \"emacsclient\")\n path\n (cl-mapcan\n (lambda (v) (cl-mapcar (lambda (e) (concat v e)) exec-suffixes))\n (nconc (and (boundp 'debian-emacs-flavor)\n (list (format \".%s\" debian-emacs-flavor)))\n (cl-mapcon (lambda (v)\n (setq v (mapconcat #'identity (reverse v) \".\"))\n (list v (concat \"-\" v) (concat \".emacs\" v)))\n (reverse version-lst))\n (list \"\" \"-snapshot\" \".emacs-snapshot\")))\n (lambda (exec)\n (ignore-errors\n (string-match-p version-reg\n (with-editor-emacsclient-version exec)))))\n (and (> depth 1)\n (with-editor-locate-emacsclient-1 path (1- depth))))))\n\n(defun with-editor-emacsclient-version (exec)\n (let ((default-directory (file-name-directory exec)))\n (ignore-errors\n (cadr (split-string (car (process-lines exec \"--version\")))))))\n\n(defun with-editor-emacsclient-path ()\n (let ((path exec-path))\n (when invocation-directory\n (push (directory-file-name invocation-directory) path)\n (let* ((linkname (expand-file-name invocation-name invocation-directory))\n (truename (file-chase-links linkname)))\n (unless (equal truename linkname)\n (push (directory-file-name (file-name-directory truename)) path)))\n (when (eq system-type 'darwin)\n (let ((dir (expand-file-name \"bin\" invocation-directory)))\n (when (file-directory-p dir)\n (push dir path)))\n (when (string-match-p \"Cellar\" invocation-directory)\n (let ((dir (expand-file-name \"../../../bin\" invocation-directory)))\n (when (file-directory-p dir)\n (push dir path))))))\n (cl-remove-duplicates path :test 'equal)))\n\n(defcustom with-editor-emacsclient-executable (with-editor-locate-emacsclient)\n \"The Emacsclient executable used by the `with-editor' macro.\"\n :group 'with-editor\n :type '(choice (string :tag \"Executable\")\n (const :tag \"Don't use Emacsclient\" nil)))\n\n(defcustom with-editor-sleeping-editor \"\\\nsh -c '\\\nprintf \\\"WITH-EDITOR: $$ OPEN $0\\\\037 IN $(pwd)\\\\n\\\"; \\\nsleep 604800 & sleep=$!; \\\ntrap \\\"kill $sleep; exit 0\\\" USR1; \\\ntrap \\\"kill $sleep; exit 1\\\" USR2; \\\nwait $sleep'\"\n \"The sleeping editor, used when the Emacsclient cannot be used.\n\nThis fallback is used for asynchronous processes started inside\nthe macro `with-editor', when the process runs on a remote machine\nor for local processes when `with-editor-emacsclient-executable'\nis nil (i.e. when no suitable Emacsclient was found, or the user\ndecided not to use it).\n\nWhere the latter uses a socket to communicate with Emacs' server,\nthis substitute prints edit requests to its standard output on\nwhich a process filter listens for such requests. As such it is\nnot a complete substitute for a proper Emacsclient, it can only\nbe used as $EDITOR of child process of the current Emacs instance.\n\nSome shells do not execute traps immediately when waiting for a\nchild process, but by default we do use such a blocking child\nprocess.\n\nIf you use such a shell (e.g. `csh' on FreeBSD, but not Debian),\nthen you have to edit this option. You can either replace \\\"sh\\\"\nwith \\\"bash\\\" (and install that), or you can use the older, less\nperformant implementation:\n\n \\\"sh -c '\\\\\n echo \\\\\\\"WITH-EDITOR: $$ OPEN $0\u001f IN $(pwd)\\\\\\\"; \\\\\n trap \\\\\\\"exit 0\\\\\\\" USR1; \\\\\n trap \\\\\\\"exit 1\\\" USR2; \\\\\n while true; do sleep 1; done'\\\"\n\nNote that the unit separator character (\u001f) right after the file\nname ($0) is required.\n\nAlso note that using this alternative implementation leads to a\ndelay of up to a second. The delay can be shortened by replacing\n\\\"sleep 1\\\" with \\\"sleep 0.01\\\", or if your implementation does\nnot support floats, then by using \\\"nanosleep\\\" instead.\"\n :package-version '(with-editor . \"2.8.0\")\n :group 'with-editor\n :type 'string)\n\n(defcustom with-editor-finish-query-functions nil\n \"List of functions called to query before finishing session.\n\nThe buffer in question is current while the functions are called.\nIf any of them returns nil, then the session is not finished and\nthe buffer is not killed. The user should then fix the issue and\ntry again. The functions are called with one argument. If it is\nnon-nil then that indicates that the user used a prefix argument\nto force finishing the session despite issues. Functions should\nusually honor that and return non-nil.\"\n :group 'with-editor\n :type 'hook)\n(put 'with-editor-finish-query-functions 'permanent-local t)\n\n(defcustom with-editor-cancel-query-functions nil\n \"List of functions called to query before canceling session.\n\nThe buffer in question is current while the functions are called.\nIf any of them returns nil, then the session is not canceled and\nthe buffer is not killed. The user should then fix the issue and\ntry again. The functions are called with one argument. If it is\nnon-nil then that indicates that the user used a prefix argument\nto force canceling the session despite issues. Functions should\nusually honor that and return non-nil.\"\n :group 'with-editor\n :type 'hook)\n(put 'with-editor-cancel-query-functions 'permanent-local t)\n\n(defcustom with-editor-mode-lighter \" WE\"\n \"The mode-line lighter of the With-Editor mode.\"\n :group 'with-editor\n :type '(choice (const :tag \"No lighter\" \"\") string))\n\n(defvar with-editor-server-window-alist nil\n \"Alist of filename patterns vs corresponding `server-window'.\n\nEach element looks like (REGEXP . FUNCTION). Files matching\nREGEXP are selected using FUNCTION instead of the default in\n`server-window'.\n\nNote that when a package adds an entry here then it probably\nhas a reason to disrespect `server-window' and it likely is\nnot a good idea to change such entries.\")\n\n(defvar with-editor-file-name-history-exclude nil\n \"List of regexps for filenames `server-visit' should not remember.\nWhen a filename matches any of the regexps, then `server-visit'\ndoes not add it to the variable `file-name-history', which is\nused when reading a filename in the minibuffer.\")\n\n(defcustom with-editor-shell-command-use-emacsclient t\n \"Whether to use the emacsclient when running shell commands.\n\nThis affects `with-editor-shell-command-async' and, if the input\nends with \\\"&\\\" `with-editor-shell-command' .\n\nIf `shell-command-with-editor-mode' is enabled, then it also\naffects `shell-command-async' and, if the input ends with \\\"&\\\"\n`shell-command'.\n\nThis is a temporary kludge that lets you choose between two\npossible defects, the ones described in the issues #23 and #40.\n\nWhen t, then use the emacsclient. This has the disadvantage that\n`with-editor-mode' won't be enabled because we don't know whether\nthis package was involved at all in the call to the emacsclient,\nand when it is not, then we really should. The problem is that\nthe emacsclient doesn't pass a long any environment variables to\nthe server. This will hopefully be fixed in Emacs eventually.\n\nWhen nil, then use the sleeping editor. Because in this case we\nknow that this package is involved, we can enable the mode. But\nthis makes it necessary that you invoke $EDITOR in shell scripts\nlike so:\n\n eval \\\"$EDITOR\\\" file\n\nAnd some tools that do not handle $EDITOR properly also break.\"\n :package-version '(with-editor . \"2.7.1\")\n :group 'with-editor\n :type 'boolean)\n\n;;; Mode Commands\n\n(defvar with-editor-pre-finish-hook nil)\n(defvar with-editor-pre-cancel-hook nil)\n(defvar with-editor-post-finish-hook nil)\n(defvar with-editor-post-finish-hook-1 nil)\n(defvar with-editor-post-cancel-hook nil)\n(defvar with-editor-post-cancel-hook-1 nil)\n(defvar with-editor-cancel-alist nil)\n(put 'with-editor-pre-finish-hook 'permanent-local t)\n(put 'with-editor-pre-cancel-hook 'permanent-local t)\n(put 'with-editor-post-finish-hook 'permanent-local t)\n(put 'with-editor-post-cancel-hook 'permanent-local t)\n\n(defvar with-editor-show-usage t)\n(defvar with-editor-cancel-message nil)\n(defvar with-editor-previous-winconf nil)\n(make-variable-buffer-local 'with-editor-show-usage)\n(make-variable-buffer-local 'with-editor-cancel-message)\n(make-variable-buffer-local 'with-editor-previous-winconf)\n(put 'with-editor-cancel-message 'permanent-local t)\n(put 'with-editor-previous-winconf 'permanent-local t)\n\n(defvar-local with-editor--pid nil \"For internal use.\")\n(put 'with-editor--pid 'permanent-local t)\n\n(defun with-editor-finish (force)\n \"Finish the current edit session.\"\n (interactive \"P\")\n (when (run-hook-with-args-until-failure\n 'with-editor-finish-query-functions force)\n (let ((post-finish-hook with-editor-post-finish-hook)\n (post-commit-hook (bound-and-true-p git-commit-post-finish-hook))\n (dir default-directory))\n (run-hooks 'with-editor-pre-finish-hook)\n (with-editor-return nil)\n (accept-process-output nil 0.1)\n (with-temp-buffer\n (setq default-directory dir)\n (setq-local with-editor-post-finish-hook post-finish-hook)\n (when post-commit-hook\n (setq-local git-commit-post-finish-hook post-commit-hook))\n (run-hooks 'with-editor-post-finish-hook)))))\n\n(defun with-editor-cancel (force)\n \"Cancel the current edit session.\"\n (interactive \"P\")\n (when (run-hook-with-args-until-failure\n 'with-editor-cancel-query-functions force)\n (let ((message with-editor-cancel-message))\n (when (functionp message)\n (setq message (funcall message)))\n (let ((post-cancel-hook with-editor-post-cancel-hook)\n (with-editor-cancel-alist nil)\n (dir default-directory))\n (run-hooks 'with-editor-pre-cancel-hook)\n (with-editor-return t)\n (accept-process-output nil 0.1)\n (with-temp-buffer\n (setq default-directory dir)\n (setq-local with-editor-post-cancel-hook post-cancel-hook)\n (run-hooks 'with-editor-post-cancel-hook)))\n (message (or message \"Canceled by user\")))))\n\n(defun with-editor-return (cancel)\n (let ((winconf with-editor-previous-winconf)\n (clients server-buffer-clients)\n (dir default-directory)\n (pid with-editor--pid))\n (remove-hook 'kill-buffer-query-functions\n 'with-editor-kill-buffer-noop t)\n (cond (cancel\n (save-buffer)\n (if clients\n (dolist (client clients)\n (ignore-errors\n (server-send-string client \"-error Canceled by user\"))\n (delete-process client))\n ;; Fallback for when emacs was used as $EDITOR\n ;; instead of emacsclient or the sleeping editor.\n ;; See https://github.com/magit/magit/issues/2258.\n (ignore-errors (delete-file buffer-file-name))\n (kill-buffer)))\n (t\n (save-buffer)\n (if clients\n ;; Don't use `server-edit' because we do not want to\n ;; show another buffer belonging to another client.\n ;; See https://github.com/magit/magit/issues/2197.\n (server-done)\n (kill-buffer))))\n (when pid\n (let ((default-directory dir))\n (process-file \"kill\" nil nil nil\n \"-s\" (if cancel \"USR2\" \"USR1\") pid)))\n (when (and winconf (eq (window-configuration-frame winconf)\n (selected-frame)))\n (set-window-configuration winconf))))\n\n;;; Mode\n\n(defvar with-editor-mode-map\n (let ((map (make-sparse-keymap)))\n (define-key map \"\\C-c\\C-c\" 'with-editor-finish)\n (define-key map [remap server-edit] 'with-editor-finish)\n (define-key map [remap evil-save-and-close] 'with-editor-finish)\n (define-key map [remap evil-save-modified-and-close] 'with-editor-finish)\n (define-key map \"\\C-c\\C-k\" 'with-editor-cancel)\n (define-key map [remap kill-buffer] 'with-editor-cancel)\n (define-key map [remap ido-kill-buffer] 'with-editor-cancel)\n (define-key map [remap iswitchb-kill-buffer] 'with-editor-cancel)\n (define-key map [remap evil-quit] 'with-editor-cancel)\n map))\n\n(define-minor-mode with-editor-mode\n \"Edit a file as the $EDITOR of an external process.\"\n :lighter with-editor-mode-lighter\n ;; Protect the user from killing the buffer without using\n ;; either `with-editor-finish' or `with-editor-cancel',\n ;; and from removing the key bindings for these commands.\n (unless with-editor-mode\n (user-error \"With-Editor mode cannot be turned off\"))\n (add-hook 'kill-buffer-query-functions\n 'with-editor-kill-buffer-noop nil t)\n ;; `server-execute' displays a message which is not\n ;; correct when using this mode.\n (when with-editor-show-usage\n (with-editor-usage-message)))\n\n(put 'with-editor-mode 'permanent-local t)\n\n(defun with-editor-kill-buffer-noop ()\n ;; We started doing this in response to #64, but it is not safe\n ;; to do so, because the client has already been killed, causing\n ;; `with-editor-return' (called by `with-editor-cancel') to delete\n ;; the file, see #66. The reason we delete the file in the first\n ;; place are https://github.com/magit/magit/issues/2258 and\n ;; https://github.com/magit/magit/issues/2248.\n ;; (if (memq this-command '(save-buffers-kill-terminal\n ;; save-buffers-kill-emacs))\n ;; (let ((with-editor-cancel-query-functions nil))\n ;; (with-editor-cancel nil)\n ;; t)\n ;; ...)\n ;; So go back to always doing this instead:\n (user-error (substitute-command-keys (format \"\\\nDon't kill this buffer %S. Instead cancel using \\\\[with-editor-cancel]\"\n (current-buffer)))))\n\n(defvar-local with-editor-usage-message \"\\\nType \\\\[with-editor-finish] to finish, \\\nor \\\\[with-editor-cancel] to cancel\")\n\n(defun with-editor-usage-message ()\n ;; Run after `server-execute', which is run using\n ;; a timer which starts immediately.\n (let ((buffer (current-buffer)))\n (run-with-timer\n 0.05 nil\n (lambda ()\n (with-current-buffer buffer\n (message (substitute-command-keys with-editor-usage-message)))))))\n\n;;; Wrappers\n\n(defvar with-editor--envvar nil \"For internal use.\")\n\n(defmacro with-editor (&rest body)\n \"Use the Emacsclient as $EDITOR while evaluating BODY.\nModify the `process-environment' for processes started in BODY,\ninstructing them to use the Emacsclient as $EDITOR. If optional\nENVVAR is a literal string then bind that environment variable\ninstead.\n\\n(fn [ENVVAR] BODY...)\"\n (declare (indent defun) (debug (body)))\n `(let ((with-editor--envvar ,(if (stringp (car body))\n (pop body)\n '(or with-editor--envvar \"EDITOR\")))\n (process-environment process-environment))\n (with-editor--setup)\n ,@body))\n\n(defmacro with-editor* (envvar &rest body)\n \"Use the Emacsclient as the editor while evaluating BODY.\nModify the `process-environment' for processes started in BODY,\ninstructing them to use the Emacsclient as editor. ENVVAR is the\nenvironment variable that is exported to do so, it is evaluated\nat run-time.\n\\n(fn [ENVVAR] BODY...)\"\n (declare (indent defun) (debug (sexp body)))\n `(let ((with-editor--envvar ,envvar)\n (process-environment process-environment))\n (with-editor--setup)\n ,@body))\n\n(defun with-editor--setup ()\n (if (or (not with-editor-emacsclient-executable)\n (file-remote-p default-directory))\n (push (concat with-editor--envvar \"=\" with-editor-sleeping-editor)\n process-environment)\n ;; Make sure server-use-tcp's value is valid.\n (unless (featurep 'make-network-process '(:family local))\n (setq server-use-tcp t))\n ;; Make sure the server is running.\n (unless (process-live-p server-process)\n (when (server-running-p server-name)\n (setq server-name (format \"server%s\" (emacs-pid)))\n (when (server-running-p server-name)\n (server-force-delete server-name)))\n (server-start))\n ;; Tell $EDITOR to use the Emacsclient.\n (push (concat with-editor--envvar \"=\"\n (shell-quote-argument with-editor-emacsclient-executable)\n ;; Tell the process where the server file is.\n (and (not server-use-tcp)\n (concat \" --socket-name=\"\n (shell-quote-argument\n (expand-file-name server-name\n server-socket-dir)))))\n process-environment)\n (when server-use-tcp\n (push (concat \"EMACS_SERVER_FILE=\"\n (expand-file-name server-name server-auth-dir))\n process-environment))\n ;; As last resort fallback to the sleeping editor.\n (push (concat \"ALTERNATE_EDITOR=\" with-editor-sleeping-editor)\n process-environment)))\n\n(defun with-editor-server-window ()\n (or (and buffer-file-name\n (cdr (cl-find-if (lambda (cons)\n (string-match-p (car cons) buffer-file-name))\n with-editor-server-window-alist)))\n server-window))\n\n(defun server-switch-buffer--with-editor-server-window-alist\n (fn &optional next-buffer killed-one filepos)\n \"Honor `with-editor-server-window-alist' (which see).\"\n (let ((server-window (with-current-buffer\n (or next-buffer (current-buffer))\n (when with-editor-mode\n (setq with-editor-previous-winconf\n (current-window-configuration)))\n (with-editor-server-window))))\n (funcall fn next-buffer killed-one filepos)))\n\n(advice-add 'server-switch-buffer :around\n 'server-switch-buffer--with-editor-server-window-alist)\n\n(defun start-file-process--with-editor-process-filter\n (fn name buffer program &rest program-args)\n \"When called inside a `with-editor' form and the Emacsclient\ncannot be used, then give the process the filter function\n`with-editor-process-filter'. To avoid overriding the filter\nbeing added here you should use `with-editor-set-process-filter'\ninstead of `set-process-filter' inside `with-editor' forms.\n\nWhen the `default-directory' is located on a remote machine,\nthen also manipulate PROGRAM and PROGRAM-ARGS in order to set\nthe appropriate editor environment variable.\"\n (if (not with-editor--envvar)\n (apply fn name buffer program program-args)\n (when (file-remote-p default-directory)\n (unless (equal program \"env\")\n (push program program-args)\n (setq program \"env\"))\n (push (concat with-editor--envvar \"=\" with-editor-sleeping-editor)\n program-args))\n (let ((process (apply fn name buffer program program-args)))\n (set-process-filter process 'with-editor-process-filter)\n (process-put process 'default-dir default-directory)\n process)))\n\n(advice-add 'start-file-process :around\n 'start-file-process--with-editor-process-filter)\n\n(defun with-editor-set-process-filter (process filter)\n \"Like `set-process-filter' but keep `with-editor-process-filter'.\nGive PROCESS the new FILTER but keep `with-editor-process-filter'\nif that was added earlier by the advised `start-file-process'.\n\nDo so by wrapping the two filter functions using a lambda, which\nbecomes the actual filter. It calls `with-editor-process-filter'\nfirst, passing t as NO-STANDARD-FILTER. Then it calls FILTER,\nwhich may or may not insert the text into the PROCESS' buffer.\"\n (set-process-filter\n process\n (if (eq (process-filter process) 'with-editor-process-filter)\n `(lambda (proc str)\n (,filter proc str)\n (with-editor-process-filter proc str t))\n filter)))\n\n(defvar with-editor-filter-visit-hook nil)\n\n(defun with-editor-output-filter (string)\n (save-match-data\n (if (string-match \"^WITH-EDITOR: \\\n\\\$[0-9]+\\\$ OPEN \\\$[^\u001f]+?\\\$\\\n\\\$?:\u001f IN \\\\([^\\r]+?\\\$\\\\)?\\r?$\" string)\n (let ((pid (match-string 1 string))\n (file (match-string 2 string))\n (dir (match-string 3 string)))\n (unless (file-name-absolute-p file)\n (setq file (expand-file-name file dir)))\n (when default-directory\n (setq file (concat (file-remote-p default-directory) file)))\n (with-current-buffer (find-file-noselect file)\n (with-editor-mode 1)\n (setq with-editor--pid pid)\n (run-hooks 'with-editor-filter-visit-hook)\n (funcall (or (with-editor-server-window) 'switch-to-buffer)\n (current-buffer))\n (kill-local-variable 'server-window))\n nil)\n string)))\n\n(defun with-editor-process-filter\n (process string &optional no-default-filter)\n \"Listen for edit requests by child processes.\"\n (let ((default-directory (process-get process 'default-dir)))\n (with-editor-output-filter string))\n (unless no-default-filter\n (internal-default-process-filter process string)))\n\n(advice-add 'server-visit-files :after\n 'server-visit-files--with-editor-file-name-history-exclude)\n\n(defun server-visit-files--with-editor-file-name-history-exclude\n (files _proc &optional _nowait)\n (pcase-dolist (`(,file . ,_) files)\n (when (cl-find-if (lambda (regexp)\n (string-match-p regexp file))\n with-editor-file-name-history-exclude)\n (setq file-name-history (delete file file-name-history)))))\n\n;;; Augmentations\n\n;;;###autoload\n(cl-defun with-editor-export-editor (&optional (envvar \"EDITOR\"))\n \"Teach subsequent commands to use current Emacs instance as editor.\n\nSet and export the environment variable ENVVAR, by default\n\\\"EDITOR\\\". The value is automatically generated to teach\ncommands to use the current Emacs instance as \\\"the editor\\\".\n\nThis works in `shell-mode', `term-mode' and `eshell-mode'.\"\n (interactive (list (with-editor-read-envvar)))\n (cond\n ((derived-mode-p 'comint-mode 'term-mode)\n (let ((process (get-buffer-process (current-buffer))))\n (goto-char (process-mark process))\n (process-send-string\n process (format \" export %s=%s\\n\" envvar\n (shell-quote-argument with-editor-sleeping-editor)))\n (while (accept-process-output process 0.1))\n (if (derived-mode-p 'term-mode)\n (with-editor-set-process-filter process 'with-editor-emulate-terminal)\n (add-hook 'comint-output-filter-functions 'with-editor-output-filter\n nil t))))\n ((derived-mode-p 'eshell-mode)\n (add-to-list 'eshell-preoutput-filter-functions\n 'with-editor-output-filter)\n (setenv envvar with-editor-sleeping-editor))\n (t\n (error \"Cannot export environment variables in this buffer\")))\n (message \"Successfully exported %s\" envvar))\n\n;;;###autoload\n(defun with-editor-export-git-editor ()\n \"Like `with-editor-export-editor' but always set `$GIT_EDITOR'.\"\n (interactive)\n (with-editor-export-editor \"GIT_EDITOR\"))\n\n;;;###autoload\n(defun with-editor-export-hg-editor ()\n \"Like `with-editor-export-editor' but always set `$HG_EDITOR'.\"\n (interactive)\n (with-editor-export-editor \"HG_EDITOR\"))\n\n(defun with-editor-emulate-terminal (process string)\n \"Like `term-emulate-terminal' but also handle edit requests.\"\n (when (with-editor-output-filter string)\n (term-emulate-terminal process string)))\n\n(defvar with-editor-envvars '(\"EDITOR\" \"GIT_EDITOR\" \"HG_EDITOR\"))\n\n(cl-defun with-editor-read-envvar\n (&optional (prompt \"Set environment variable\")\n (default \"EDITOR\"))\n (let ((reply (completing-read (if default\n (format \"%s (%s): \" prompt default)\n (concat prompt \": \"))\n with-editor-envvars nil nil nil nil default)))\n (if (string= reply \"\") (user-error \"Nothing selected\") reply)))\n\n;;;###autoload\n(define-minor-mode shell-command-with-editor-mode\n \"Teach `shell-command' to use current Emacs instance as editor.\n\nTeach `shell-command', and all commands that ultimately call that\ncommand, to use the current Emacs instance as editor by executing\n\\\"EDITOR=CLIENT COMMAND&\\\" instead of just \\\"COMMAND&\\\".\n\nCLIENT is automatically generated; EDITOR=CLIENT instructs\nCOMMAND to use to the current Emacs instance as \\\"the editor\\\",\nassuming no other variable overrides the effect of \\\"$EDITOR\\\".\nCLIENT may be the path to an appropriate emacsclient executable\nwith arguments, or a script which also works over Tramp.\n\nAlternatively you can use the `with-editor-async-shell-command',\nwhich also allows the use of another variable instead of\n\\\"EDITOR\\\".\"\n :global t)\n\n;;;###autoload\n(defun with-editor-async-shell-command\n (command &optional output-buffer error-buffer envvar)\n \"Like `async-shell-command' but with `$EDITOR' set.\n\nExecute string \\\"ENVVAR=CLIENT COMMAND\\\" in an inferior shell;\ndisplay output, if any. With a prefix argument prompt for an\nenvironment variable, otherwise the default \\\"EDITOR\\\" variable\nis used. With a negative prefix argument additionally insert\nthe COMMAND's output at point.\n\nCLIENT is automatically generated; ENVVAR=CLIENT instructs\nCOMMAND to use to the current Emacs instance as \\\"the editor\\\",\nassuming it respects ENVVAR as an \\\"EDITOR\\\"-like variable.\nCLIENT may be the path to an appropriate emacsclient executable\nwith arguments, or a script which also works over Tramp.\n\nAlso see `async-shell-command' and `shell-command'.\"\n (interactive (with-editor-shell-command-read-args \"Async shell command: \" t))\n (let ((with-editor--envvar envvar))\n (with-editor\n (async-shell-command command output-buffer error-buffer))))\n\n;;;###autoload\n(defun with-editor-shell-command\n (command &optional output-buffer error-buffer envvar)\n \"Like `shell-command' or `with-editor-async-shell-command'.\nIf COMMAND ends with \\\"&\\\" behave like the latter,\nelse like the former.\"\n (interactive (with-editor-shell-command-read-args \"Shell command: \"))\n (if (string-match \"&[ \\t]*\\\\'\" command)\n (with-editor-async-shell-command\n command output-buffer error-buffer envvar)\n (shell-command command output-buffer error-buffer)))\n\n(defun with-editor-shell-command-read-args (prompt &optional async)\n (let ((command (read-shell-command\n prompt nil nil\n (let ((filename (or buffer-file-name\n (and (eq major-mode 'dired-mode)\n (dired-get-filename nil t)))))\n (and filename (file-relative-name filename))))))\n (list command\n (if (or async (setq async (string-match-p \"&[ \\t]*\\\\'\" command)))\n (< (prefix-numeric-value current-prefix-arg) 0)\n current-prefix-arg)\n shell-command-default-error-buffer\n (and async current-prefix-arg (with-editor-read-envvar)))))\n\n(defun shell-command--shell-command-with-editor-mode\n (fn command &optional output-buffer error-buffer)\n ;; `shell-mode' and its hook are intended for buffers in which an\n ;; interactive shell is running, but `shell-command' also turns on\n ;; that mode, even though it only runs the shell to run a single\n ;; command. The `with-editor-export-editor' hook function is only\n ;; intended to be used in buffers in which an interactive shell is\n ;; running, so it has to be remove here.\n (let ((shell-mode-hook (remove 'with-editor-export-editor shell-mode-hook)))\n (cond ((or (not (or with-editor--envvar shell-command-with-editor-mode))\n (not (string-match-p \"&\\\\'\" command)))\n (funcall fn command output-buffer error-buffer))\n ((and with-editor-shell-command-use-emacsclient\n with-editor-emacsclient-executable\n (not (file-remote-p default-directory)))\n (with-editor (funcall fn command output-buffer error-buffer)))\n (t\n (apply fn (format \"%s=%s %s\"\n (or with-editor--envvar \"EDITOR\")\n (shell-quote-argument with-editor-sleeping-editor)\n command)\n output-buffer error-buffer)\n (ignore-errors\n (let ((process (get-buffer-process\n (or output-buffer\n (get-buffer \"*Async Shell Command*\")))))\n (set-process-filter\n process (lambda (proc str)\n (comint-output-filter proc str)\n (with-editor-process-filter proc str t)))\n process))))))\n\n(advice-add 'shell-command :around\n 'shell-command--shell-command-with-editor-mode)\n\n;;; _\n\n(defun with-editor-debug ()\n \"Debug configuration issues.\nSee info node `(with-editor)Debugging' for instructions.\"\n (interactive)\n (with-current-buffer (get-buffer-create \"*with-editor-debug*\")\n (pop-to-buffer (current-buffer))\n (erase-buffer)\n (ignore-errors (with-editor))\n (insert\n (format \"with-editor: %s\\n\" (locate-library \"with-editor.el\"))\n (format \"emacs: %s (%s)\\n\"\n (expand-file-name invocation-name invocation-directory)\n emacs-version)\n \"system:\\n\"\n (format \" system-type: %s\\n\" system-type)\n (format \" system-configuration: %s\\n\" system-configuration)\n (format \" system-configuration-options: %s\\n\" system-configuration-options)\n \"server:\\n\"\n (format \" server-running-p: %s\\n\" (server-running-p))\n (format \" server-process: %S\\n\" server-process)\n (format \" server-use-tcp: %s\\n\" server-use-tcp)\n (format \" server-name: %s\\n\" server-name)\n (format \" server-socket-dir: %s\\n\" server-socket-dir))\n (if (and server-socket-dir (file-accessible-directory-p server-socket-dir))\n (dolist (file (directory-files server-socket-dir nil \"^[^.]\"))\n (insert (format \" %s\\n\" file)))\n (insert (format \" %s: not an accessible directory\\n\"\n (if server-use-tcp \"WARNING\" \"ERROR\"))))\n (insert (format \" server-auth-dir: %s\\n\" server-auth-dir))\n (if (file-accessible-directory-p server-auth-dir)\n (dolist (file (directory-files server-auth-dir nil \"^[^.]\"))\n (insert (format \" %s\\n\" file)))\n (insert (format \" %s: not an accessible directory\\n\"\n (if server-use-tcp \"ERROR\" \"WARNING\"))))\n (let ((val with-editor-emacsclient-executable)\n (def (default-value 'with-editor-emacsclient-executable))\n (fun (let ((warning-minimum-level :error)\n (warning-minimum-log-level :error))\n (with-editor-locate-emacsclient))))\n (insert \"with-editor-emacsclient-executable:\\n\"\n (format \" value: %s (%s)\\n\" val\n (and val (with-editor-emacsclient-version val)))\n (format \" default: %s (%s)\\n\" def\n (and def (with-editor-emacsclient-version def)))\n (format \" funcall: %s (%s)\\n\" fun\n (and fun (with-editor-emacsclient-version fun)))))\n (insert \"path:\\n\"\n (format \" $PATH: %S\\n\" (getenv \"PATH\"))\n (format \" exec-path: %s\\n\" exec-path))\n (insert (format \" with-editor-emacsclient-path:\\n\"))\n (dolist (dir (with-editor-emacsclient-path))\n (insert (format \" %s (%s)\\n\" dir (car (file-attributes dir))))\n (when (file-directory-p dir)\n ;; Don't match emacsclientw.exe, it makes popup windows.\n (dolist (exec (directory-files dir t \"emacsclient\\\$?:[^w]\\\\|\\\\'\\\$\"))\n (insert (format \" %s (%s)\\n\" exec\n (with-editor-emacsclient-version exec))))))))\n\n(defconst with-editor-font-lock-keywords\n '((\"(\\\$with-\\\\(?:git-\\\$?editor\\\\)\\\\_>\" (1 'font-lock-keyword-face))))\n(font-lock-add-keywords 'emacs-lisp-mode with-editor-font-lock-keywords)\n\n(provide 'with-editor)\n;; Local Variables:\n;; indent-tabs-mode: nil\n;; End:\n;;; with-editor.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"with-editor.info","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1376724},"to":{"change":7,"start":1390690,"end":1390730},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1390730},"to":{"change":7,"start":1376763,"end":1376763},"introduced_by":7}],"inode":{"change":7,"pos":1376763}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1376763},"to":{"change":7,"start":1376764,"end":1390689},"introduced_by":7}],"inode":{"change":7,"pos":1376763}},"content":[{"Del":"This is with-editor.info, produced by makeinfo version 6.5 from\nwith-editor.texi.\n\n Copyright (C) 2015-2020 Jonas Bernoulli \n\n You can redistribute this document and/or modify it under the terms\n of the GNU General Public License as published by the Free Software\n Foundation, either version 3 of the License, or (at your option)\n any later version.\n\n This document is distributed in the hope that it will be useful,\n but WITHOUT ANY WARRANTY; without even the implied warranty of\n MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n General Public License for more details.\n\nINFO-DIR-SECTION Emacs\nSTART-INFO-DIR-ENTRY\n* With-Editor: (with-editor). Using the Emacsclient as $EDITOR.\nEND-INFO-DIR-ENTRY\n\n\u001f\nFile: with-editor.info, Node: Top, Next: Using the With-Editor package, Up: (dir)\n\nWith-Editor User Manual\n***********************\n\nThe library ‘with-editor’ makes it easy to use the Emacsclient as the\n‘$EDITOR’ of child processes, making sure they know how to call home.\nFor remote processes a substitute is provided, which communicates with\nEmacs on standard output instead of using a socket as the Emacsclient\ndoes.\n\n This library was written because Magit has to be able to do the above\nto allow the user to edit commit messages gracefully and to edit rebase\nsequences, which wouldn’t be possible at all otherwise.\n\n Because other packages can benefit from such functionality, this\nlibrary is made available as a separate package. It also defines some\nadditional functionality which makes it useful even for end-users, who\ndon’t use Magit or another package which uses it internally.\n\nThis manual is for With-Editor version 2.9.1.\n\n Copyright (C) 2015-2020 Jonas Bernoulli \n\n You can redistribute this document and/or modify it under the terms\n of the GNU General Public License as published by the Free Software\n Foundation, either version 3 of the License, or (at your option)\n any later version.\n\n This document is distributed in the hope that it will be useful,\n but WITHOUT ANY WARRANTY; without even the implied warranty of\n MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n General Public License for more details.\n\n* Menu:\n\n* Using the With-Editor package::\n* Using With-Editor as a library::\n* Debugging::\n\n— The Detailed Node Listing —\n\nUsing the With-Editor package\n\n* Configuring With-Editor::\n* Using With-Editor commands::\n\n\n\u001f\nFile: with-editor.info, Node: Using the With-Editor package, Next: Using With-Editor as a library, Prev: Top, Up: Top\n\n1 Using the With-Editor package\n*******************************\n\nThe ‘With-Editor’ package is used internally by Magit when editing\ncommit messages and rebase sequences. It also provides some commands\nand features which are useful by themselves, even if you don’t use\nMagit.\n\n For information about using this library in you own package, see\n*note Using With-Editor as a library::.\n\n* Menu:\n\n* Configuring With-Editor::\n* Using With-Editor commands::\n\n\u001f\nFile: with-editor.info, Node: Configuring With-Editor, Next: Using With-Editor commands, Up: Using the With-Editor package\n\n1.1 Configuring With-Editor\n===========================\n\nWith-Editor tries very hard to locate a suitable ‘emacsclient’\nexecutable, so ideally you should never have to customize the option\n‘with-editor-emacsclient-executable’. When it fails to do so, then the\nmost likely reason is that someone found yet another way to package\nEmacs (most likely on macOS) without putting the executable on ‘$PATH’,\nand we have to add another kludge to find it anyway.\n\n -- User Option: with-editor-emacsclient-executable\n\n The ‘emacsclient’ executable used as the editor by child process of\n this Emacs instance. By using this executable, child processes can\n call home to their parent process.\n\n This option is automatically set at startup by looking in\n ‘exec-path’, and other places where the executable could be\n installed, to find the ‘emacsclient’ executable most suitable for\n the current Emacs instance.\n\n You should *not* customize this option permanently. If you have to\n do it, then you should consider that a temporary kludge and inform\n the Magit maintainer as described in *note Debugging::.\n\n If With-Editor fails to find a suitable ‘emacsclient’ on you\n system, then this should be fixed for all users at once, by\n teaching ‘with-editor-locate-emacsclient’ how to do so on your\n system and system like yours. Doing it this way has the advantage,\n that you won’t have do it again every time you update Emacs, and\n that other users who have installed Emacs the same way as you have,\n won’t have to go through the same trouble.\n\n Note that there also is a nuclear option; setting this variable to\n ‘nil’ causes the \"sleeping editor\" described below to be used even\n for local child processes. Obviously we don’t recommend that you\n use this except in \"emergencies\", i.e. before we had a change to\n add a kludge appropriate for you setup.\n\n -- Function: with-editor-locate-emacsclient\n\n The function used to set the initial value of the option\n ‘with-editor-emacsclient-executable’. There’s a lot of voodoo\n here.\n\n The ‘emacsclient’ cannot be used when using Tramp to run a process on\na remote machine. (Theoretically it could, but that would be hard to\nsetup, very fragile, and rather insecure).\n\n With-Editor provides an alternative \"editor\" which can be used by\nremote processes in much the same way as local processes use an\n‘emacsclient’ executable. This alternative is known as the \"sleeping\neditor\" because it is implemented as a shell script which sleeps until\nit receives a signal.\n\n -- User Option: with-editor-sleeping-editor\n\n The sleeping editor is a shell script used as the editor of child\n processes when the ‘emacsclient’ executable cannot be used.\n\n This fallback is used for asynchronous process started inside the\n macro ‘with-editor’, when the process runs on a remote machine or\n for local processes when ‘with-editor-emacsclient-executable’ is\n ‘nil’.\n\n Where the latter uses a socket to communicate with Emacs’ server,\n this substitute prints edit requests to its standard output on\n which a process filter listens for such requests. As such it is\n not a complete substitute for a proper ‘emacsclient’, it can only\n be used as ‘$EDITOR’ of child process of the current Emacs\n instance.\n\n Some shells do not execute traps immediately when waiting for a\n child process, but by default we do use such a blocking child\n process.\n\n If you use such a shell (e.g. ‘csh’ on FreeBSD, but not Debian),\n then you have to edit this option. You can either replace ‘sh’\n with ‘bash’ (and install that), or you can use the older, less\n performant implementation:\n\n \"sh -c '\\\n echo \\\"WITH-EDITOR: $$ OPEN $0\u001f IN $(pwd)\\\"; \\\n trap \\\"exit 0\\\" USR1; \\\n trap \\\"exit 1\\\" USR2; \\\n while true; do sleep 1; done'\"\n\n Note that the unit separator character (\u001f) right after the file name\n ($0) is required.\n\n Also note that using this alternative implementation leads to a\n delay of up to a second. The delay can be shortened by replacing\n ‘sleep 1’ with ‘sleep 0.01’, or if your implementation does not\n support floats, then by using ‘nanosleep’ instead.\n\n\u001f\nFile: with-editor.info, Node: Using With-Editor commands, Prev: Configuring With-Editor, Up: Using the With-Editor package\n\n1.2 Using With-Editor commands\n==============================\n\nThis section describes how to use the ‘with-editor’ library _outside_ of\nMagit. You don’t need to know any of this just to create commits using\nMagit.\n\n The commands ‘with-editor-async-shell-command’ and\n‘with-editor-shell-command’ are intended as drop in replacements for\n‘async-shell-command’ and ‘shell-command’. They automatically export\n‘$EDITOR’ making sure the executed command uses the current Emacs\ninstance as \"the editor\". With a prefix argument these commands prompt\nfor an alternative environment variable such as ‘$GIT_EDITOR’.\n\n -- Command: with-editor-async-shell-command\n\n This command is like ‘async-shell-command’, but it runs the shell\n command with the current Emacs instance exported as ‘$EDITOR’.\n\n -- Command: with-editor-shell-command\n\n This command is like ‘shell-command’, but if the shell command ends\n with ‘&’ and is therefore run asynchronously, then the current\n Emacs instance is exported as ‘$EDITOR’.\n\n To always use these variants add this to you init file:\n\n (define-key (current-global-map)\n [remap async-shell-command] 'with-editor-async-shell-command)\n (define-key (current-global-map)\n [remap shell-command] 'with-editor-shell-command)\n\n Alternatively use the global ‘shell-command-with-editor-mode’.\n\n -- Variable: shell-command-with-editor-mode\n\n When this mode is active, then ‘$EDITOR’ is exported whenever\n ultimately ‘shell-command’ is called to asynchronously run some\n shell command. This affects most variants of that command, whether\n they are defined in Emacs or in some third-party package.\n\n The command ‘with-editor-export-editor’ exports ‘$EDITOR’ or another\nsuch environment variable in ‘shell-mode’, ‘term-mode’ and ‘eshell-mode’\nbuffers. Use this Emacs command before executing a shell command which\nneeds the editor set, or always arrange for the current Emacs instance\nto be used as editor by adding it to the appropriate mode hooks:\n\n (add-hook 'shell-mode-hook 'with-editor-export-editor)\n (add-hook 'term-exec-hook 'with-editor-export-editor)\n (add-hook 'eshell-mode-hook 'with-editor-export-editor)\n\n Some variants of this function exist; these two forms are equivalent:\n\n (add-hook 'shell-mode-hook\n (apply-partially 'with-editor-export-editor \"GIT_EDITOR\"))\n (add-hook 'shell-mode-hook 'with-editor-export-git-editor)\n\n -- Command: with-editor-export-editor\n\n When invoked in a ‘shell-mode’, ‘term-mode’, or ‘eshell-mode’\n buffer, this command teaches shell commands to use the current\n Emacs instance as the editor, by exporting ‘$EDITOR’.\n\n -- Command: with-editor-export-git-editor\n\n This command is like ‘with-editor-export-editor’ but exports\n ‘$GIT_EDITOR’.\n\n -- Command: with-editor-export-hg-editor\n\n This command is like ‘with-editor-export-editor’ but exports\n ‘$HG_EDITOR’.\n\n\u001f\nFile: with-editor.info, Node: Using With-Editor as a library, Next: Debugging, Prev: Using the With-Editor package, Up: Top\n\n2 Using With-Editor as a library\n********************************\n\nThis section describes how to use the ‘with-editor’ library _outside_ of\nMagit to teach another package how to have its child processes call\nhome, just like Magit does. You don’t need to know any of this just to\ncreate commits using Magit. You can also ignore this if you use\n‘with-editor’ outside of Magit, but only as an end-user.\n\n For information about interactive use and options that affect both\ninteractive and non-interactive use, see *note Using the With-Editor\npackage::.\n\n -- Macro: with-editor &rest body\n\n This macro arranges for the ‘emacsclient’ or the sleeping editor to\n be used as the editor of child processes, effectively teaching them\n to call home to the current Emacs instance when they require that\n the user edits a file.\n\n This is done by establishing a local binding for\n ‘process-environment’ and changing the value of the ‘EDITOR’\n environment variable in that scope. This affects all\n (asynchronous) processes started by forms (dynamically) inside\n BODY.\n\n If BODY begins with a literal string, then that variable is set\n instead of ‘EDITOR’.\n\n -- Macro: with-editor envvar &rest body\n\n This macro is like ‘with-editor’ instead that the ENVVAR argument\n is required and that it is evaluated at run-time.\n\n -- Function: with-editor-set-process-filter process filter\n\n This function is like ‘set-process-filter’ but ensures that adding\n the new FILTER does not remove the ‘with-editor-process-filter’.\n This is done by wrapping the two filter functions using a lambda,\n which becomes the actual filter. It calls\n ‘with-editor-process-filter’ first, passing ‘t’ as\n NO-STANDARD-FILTER. Then it calls FILTER.\n\n\u001f\nFile: with-editor.info, Node: Debugging, Prev: Using With-Editor as a library, Up: Top\n\n3 Debugging\n***********\n\nWith-Editor tries very hard to locate a suitable ‘emacsclient’\nexecutable, and then sets option ‘with-editor-emacsclient-executable’\naccordingly. In very rare cases this fails. When it does fail, then\nthe most likely reason is that someone found yet another way to package\nEmacs (most likely on macOS) without putting the executable on ‘$PATH’,\nand we have to add another kludge to find it anyway.\n\n If you are having problems using ‘with-editor’, e.g. you cannot\ncommit in Magit, then please open a new issue at\n and provide information\nabout your Emacs installation. Most importantly how did you install\nEmacs and what is the output of ‘M-x with-editor-debug RET’.\n\n\n\u001f\nTag Table:\nNode: Top773\nNode: Using the With-Editor package2513\nNode: Configuring With-Editor3099\nNode: Using With-Editor commands7648\nNode: Using With-Editor as a library10843\nNode: Debugging12806\n\u001f\nEnd Tag Table\n\n\u001f\nLocal Variables:\ncoding: utf-8\nEnd:\n"}]}},{"FileDel":{"deleted_names":[{"basename":"which-key-20190802.240","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":1555201,"end":1555234},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1555234},"to":{"change":7,"start":1555200,"end":1555200},"introduced_by":7}],"inode":{"change":7,"pos":1555200}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"which-key-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1555200},"to":{"change":7,"start":1676128,"end":1676174},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1676174},"to":{"change":7,"start":1670417,"end":1670417},"introduced_by":7}],"inode":{"change":7,"pos":1670417}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1670417},"to":{"change":7,"start":1670418,"end":1676127},"introduced_by":7}],"inode":{"change":7,"pos":1670417}},"content":[{"Del":";;; which-key-autoloads.el --- automatically extracted autoloads\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"which-key\" \"which-key.el\" (0 0 0 0))\n;;; Generated autoloads from which-key.el\n\n(defvar which-key-mode nil \"\\\nNon-nil if Which-Key mode is enabled.\nSee the `which-key-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `which-key-mode'.\")\n\n(custom-autoload 'which-key-mode \"which-key\" nil)\n\n(autoload 'which-key-mode \"which-key\" \"\\\nToggle which-key-mode.\n\n\\(fn &optional ARG)\" t nil)\n\n(autoload 'which-key-setup-side-window-right \"which-key\" \"\\\nApply suggested settings for side-window that opens on right.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-setup-side-window-right-bottom \"which-key\" \"\\\nApply suggested settings for side-window that opens on right\nif there is space and the bottom otherwise.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-setup-side-window-bottom \"which-key\" \"\\\nApply suggested settings for side-window that opens on\nbottom.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-setup-minibuffer \"which-key\" \"\\\nApply suggested settings for minibuffer.\nDo not use this setup if you use the paging commands. Instead use\n`which-key-setup-side-window-bottom', which is nearly identical\nbut more functional.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-add-key-based-replacements \"which-key\" \"\\\nReplace the description of KEY-SEQUENCE with REPLACEMENT.\nKEY-SEQUENCE is a string suitable for use in `kbd'. REPLACEMENT\nmay either be a string, as in\n\n\\(which-key-add-key-based-replacements \\\"C-x 1\\\" \\\"maximize\\\")\n\na cons of two strings as in\n\n\\(which-key-add-key-based-replacements \\\"C-x 8\\\"\n '(\\\"unicode\\\" . \\\"Unicode keys\\\"))\n\nor a function that takes a (KEY . BINDING) cons and returns a\nreplacement.\n\nIn the second case, the second string is used to provide a longer\nname for the keys under a prefix.\n\nMORE allows you to specifcy additional KEY REPLACEMENT pairs. All\nreplacements are added to\n`which-key-key-based-description-replacement-alist'.\n\n\\(fn KEY-SEQUENCE REPLACEMENT &rest MORE)\" nil nil)\n\n(autoload 'which-key-add-major-mode-key-based-replacements \"which-key\" \"\\\nFunctions like `which-key-add-key-based-replacements'.\nThe difference is that MODE specifies the `major-mode' that must\nbe active for KEY-SEQUENCE and REPLACEMENT (MORE contains\naddition KEY-SEQUENCE REPLACEMENT pairs) to apply.\n\n\\(fn MODE KEY-SEQUENCE REPLACEMENT &rest MORE)\" nil nil)\n\n(autoload 'which-key-reload-key-sequence \"which-key\" \"\\\nSimulate entering the key sequence KEY-SEQ.\nKEY-SEQ should be a list of events as produced by\n`listify-key-sequence'. If nil, KEY-SEQ defaults to\n`which-key--current-key-list'. Any prefix arguments that were\nused are reapplied to the new key sequence.\n\n\\(fn &optional KEY-SEQ)\" nil nil)\n\n(autoload 'which-key-show-standard-help \"which-key\" \"\\\nCall the command in `which-key--prefix-help-cmd-backup'.\nUsually this is `describe-prefix-bindings'.\n\n\\(fn &optional _)\" t nil)\n\n(autoload 'which-key-show-next-page-no-cycle \"which-key\" \"\\\nShow next page of keys unless on the last page, in which case\ncall `which-key-show-standard-help'.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-show-previous-page-no-cycle \"which-key\" \"\\\nShow previous page of keys unless on the first page, in which\ncase do nothing.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-show-next-page-cycle \"which-key\" \"\\\nShow the next page of keys, cycling from end to beginning\nafter last page.\n\n\\(fn &optional _)\" t nil)\n\n(autoload 'which-key-show-previous-page-cycle \"which-key\" \"\\\nShow the previous page of keys, cycling from beginning to end\nafter first page.\n\n\\(fn &optional _)\" t nil)\n\n(autoload 'which-key-show-top-level \"which-key\" \"\\\nShow top-level bindings.\n\n\\(fn &optional _)\" t nil)\n\n(autoload 'which-key-show-major-mode \"which-key\" \"\\\nShow top-level bindings in the map of the current major mode.\n\nThis function will also detect evil bindings made using\n`evil-define-key' in this map. These bindings will depend on the\ncurrent evil state. \n\n\\(fn)\" t nil)\n\n(autoload 'which-key-dump-bindings \"which-key\" \"\\\nDump bindings from PREFIX into buffer named BUFFER-NAME.\n\nPREFIX should be a string suitable for `kbd'.\n\n\\(fn PREFIX BUFFER-NAME)\" t nil)\n\n(autoload 'which-key-undo-key \"which-key\" \"\\\nUndo last keypress and force which-key update.\n\n\\(fn &optional _)\" t nil)\n\n(autoload 'which-key-C-h-dispatch \"which-key\" \"\\\nDispatch C-h commands by looking up key in\n`which-key-C-h-map'. This command is always accessible (from any\nprefix) if `which-key-use-C-h-commands' is non nil.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-show-keymap \"which-key\" \"\\\nShow the top-level bindings in KEYMAP using which-key. KEYMAP\nis selected interactively from all available keymaps.\n\nIf NO-PAGING is non-nil, which-key will not intercept subsequent\nkeypresses for the paging functionality.\n\n\\(fn KEYMAP &optional NO-PAGING)\" t nil)\n\n(autoload 'which-key-show-full-keymap \"which-key\" \"\\\nShow all bindings in KEYMAP using which-key. KEYMAP is\nselected interactively from all available keymaps.\n\n\\(fn KEYMAP)\" t nil)\n\n(autoload 'which-key-show-minor-mode-keymap \"which-key\" \"\\\nShow the top-level bindings in KEYMAP using which-key. KEYMAP\nis selected interactively by mode in `minor-mode-map-alist'.\n\n\\(fn)\" t nil)\n\n(if (fboundp 'register-definition-prefixes) (register-definition-prefixes \"which-key\" '(\"which-key-\")))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; which-key-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"which-key-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1555200},"to":{"change":7,"start":1670375,"end":1670415},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1670415},"to":{"change":7,"start":1670031,"end":1670031},"introduced_by":7}],"inode":{"change":7,"pos":1670031}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1670031},"to":{"change":7,"start":1670032,"end":1670374},"introduced_by":7}],"inode":{"change":7,"pos":1670031}},"content":[{"Del":";;; -*- no-byte-compile: t -*-\n(define-package \"which-key\" \"20190802.240\" \"Display available keybindings in popup\" '((emacs \"24.4\")) :commit \"42a25055163141165aa0269dbca69735e704825c\" :authors '((\"Justin Burkett\" . \"justin@burkett.cc\")) :maintainer '(\"Justin Burkett\" . \"justin@burkett.cc\") :url \"https://github.com/justbur/emacs-which-key\")\n"}]}},{"FileDel":{"deleted_names":[{"basename":"which-key.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1555200},"to":{"change":7,"start":1669993,"end":1670029},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1670029},"to":{"change":7,"start":1555236,"end":1555236},"introduced_by":7}],"inode":{"change":7,"pos":1555236}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1555236},"to":{"change":7,"start":1555237,"end":1669992},"introduced_by":7}],"inode":{"change":7,"pos":1555236}},"content":[{"Del":";;; which-key.el --- Display available keybindings in popup -*- lexical-binding: t; -*-\n\n;; Copyright (C) 2017 Free Software Foundation, Inc.\n\n;; Author: Justin Burkett \n;; Maintainer: Justin Burkett \n;; URL: https://github.com/justbur/emacs-which-key\n;; Package-Version: 20190802.240\n;; Version: 3.3.2\n;; Keywords:\n;; Package-Requires: ((emacs \"24.4\"))\n\n;; This program is free software; you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; which-key provides the minor mode which-key-mode for Emacs. The mode displays\n;; the key bindings following your currently entered incomplete command (a\n;; prefix) in a popup. For example, after enabling the minor mode if you enter\n;; C-x and wait for the default of 1 second the minibuffer will expand with all\n;; of the available key bindings that follow C-x (or as many as space allows\n;; given your settings). This includes prefixes like C-x 8 which are shown in a\n;; different face. Screenshots of what the popup will look like along with\n;; information about additional features can be found at\n;; https://github.com/justbur/emacs-which-key.\n;;\n\n;;; Code:\n\n(require 'cl-lib)\n(require 'button)\n(require 'regexp-opt)\n\n;; For compiler\n(defvar evil-operator-shortcut-map)\n(defvar evil-operator-state-map)\n(defvar evil-motion-state-map)\n(defvar golden-ratio-mode)\n(declare-function evil-get-command-property \"ext:evil-common.el\")\n\n;;; Options\n\n(defgroup which-key nil\n \"Customization options for which-key-mode\"\n :group 'help\n :prefix \"which-key-\")\n\n(defcustom which-key-idle-delay 1.0\n \"Delay (in seconds) for which-key buffer to popup. This\n variable should be set before activating `which-key-mode'.\n\nA value of zero might lead to issues, so a non-zero value is\nrecommended\n(see https://github.com/justbur/emacs-which-key/issues/134).\"\n :group 'which-key\n :type 'float)\n\n(defcustom which-key-idle-secondary-delay nil\n \"Once the which-key buffer shows once for a key sequence reduce\nthe idle time to this amount (in seconds). This makes it possible\nto shorten the delay for subsequent popups in the same key\nsequence. The default is for this value to be nil, which disables\nthis behavior.\"\n :group 'which-key\n :type '(choice float (const :tag \"Disabled\" nil)))\n\n(defcustom which-key-echo-keystrokes (if (and echo-keystrokes\n (> (+ echo-keystrokes 0.01)\n which-key-idle-delay))\n (/ (float which-key-idle-delay) 4)\n echo-keystrokes)\n \"Value to use for `echo-keystrokes'.\nThis only applies if `which-key-popup-type' is minibuffer or\n`which-key-show-prefix' is echo. It needs to be less than\n`which-key-idle-delay' or else the keystroke echo will erase the\nwhich-key popup.\"\n :group 'which-key\n :type 'float)\n\n(defcustom which-key-max-description-length 27\n \"Truncate the description of keys to this length.\nAlso adds \\\"..\\\". If nil, disable any truncation.\"\n :group 'which-key\n :type '(choice integer (const :tag \"Disable truncation\" nil)))\n\n(defcustom which-key-add-column-padding 0\n \"Additional padding (number of spaces) to add to the left of\neach key column.\"\n :group 'which-key\n :type 'integer)\n\n(defcustom which-key-unicode-correction 3\n \"Correction for wide unicode characters.\nSince we measure width in terms of the number of characters,\nUnicode characters that are wider than ASCII characters throw off\nthe calculation for available width in the which-key buffer. This\nvariable allows you to adjust for the wide unicode characters by\nartificially reducing the available width in the buffer.\n\nThe default of 3 means allow for the total extra width\ncontributed by any wide unicode characters to be up to one\nadditional ASCII character in the which-key buffer. Increase this\nnumber if you are seeing charaters get cutoff on the right side\nof the which-key popup.\"\n :group 'which-key\n :type 'integer)\n\n(defcustom which-key-dont-use-unicode nil\n \"If non-nil, don't use any unicode characters in default setup.\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-separator\n (if which-key-dont-use-unicode \" : \" \" → \")\n \"Separator to use between key and description. Default is \\\" →\n\\\", unless `which-key-dont-use-unicode' is non nil, in which case\nthe default is \\\" : \\\".\"\n :group 'which-key\n :type 'string)\n\n(defcustom which-key-prefix-prefix \"+\"\n \"String to insert in front of prefix commands (i.e., commands\nthat represent a sub-map). Default is \\\"+\\\".\"\n :group 'which-key\n :type 'string)\n\n(defcustom which-key-compute-remaps nil\n \"If non-nil, show remapped command if a command has been\nremapped given the currently active keymaps.\"\n :group 'which-key\n :type 'boolean)\n\n(defvar which-key-key-replacement-alist nil)\n(make-obsolete-variable 'which-key-key-replacement-alist\n 'which-key-replacement-alist \"2016-11-21\")\n(defvar which-key-description-replacement-alist nil)\n(make-obsolete-variable 'which-key-description-replacement-alist\n 'which-key-replacement-alist \"2016-11-21\")\n(defvar which-key-key-based-description-replacement-alist nil)\n(make-obsolete-variable 'which-key-key-based-description-replacement-alist\n 'which-key-replacement-alist \"2016-11-21\")\n\n(defcustom which-key-replacement-alist\n (delq nil\n `(((nil . \"Prefix Command\") . (nil . \"prefix\"))\n ((nil . \"\\\\`\\\\?\\\\?\\\\'\") . (nil . \"lambda\"))\n ((nil . \"which-key-show-next-page-no-cycle\") . (nil . \"wk next pg\"))\n ,@(unless which-key-dont-use-unicode\n '(((\"\") . (\"←\"))\n ((\"\") . (\"→\"))))\n ((\"<\\\$[[:alnum:]-]+\\\$>\") . (\"\\\\1\"))))\n \"Association list to determine how to manipulate descriptions\nof key bindings in the which-key popup. Each element of the list\nis a nested cons cell with the format\n\n\$MATCH CONS . REPLACEMENT\$.\n\nThe MATCH CONS determines when a replacement should occur and\nREPLACEMENT determines how the replacement should occur. Each may\nhave the format \$KEY REGEXP . BINDING REGEXP\$. For the\nreplacement to apply the key binding must match both the KEY\nREGEXP and the BINDING REGEXP. A value of nil in either position\ncan be used to match every possibility. The replacement is\nperformed by using `replace-regexp-in-string' on the KEY REGEXP\nfrom the MATCH CONS and REPLACEMENT when it is a cons cell, and\nthen similarly for the BINDING REGEXP. A nil value in the BINDING\nREGEXP position cancels the replacement. For example, the entry\n\n\$\\(nil . \\\"Prefix Command\\\"\$ . \$nil . \\\"prefix\\\"\$\\)\n\nmatches any binding with the descriptions \\\"Prefix Command\\\" and\nreplaces the description with \\\"prefix\\\", ignoring the\ncorresponding key.\n\nREPLACEMENT may also be a function taking a cons cell\n\$KEY . BINDING\$ and producing a new corresponding cons cell.\n\nIf REPLACEMENT is anything other than a cons cell \$and non nil\$\nthe key binding is ignored by which-key.\n\nFinally, you can multiple replacements to occur for a given key\nbinding by setting `which-key-allow-multiple-replacements' to a\nnon-nil value.\"\n :group 'which-key\n :type '(alist :key-type (cons (choice regexp (const nil))\n (choice regexp (const nil)))\n :value-type (cons (choice string (const nil))\n (choice string (const nil)))))\n\n(when (bound-and-true-p which-key-key-replacement-alist)\n (mapc\n (lambda (repl)\n (push (cons (cons (car repl) nil) (cons (cdr repl) nil))\n which-key-replacement-alist))\n which-key-key-replacement-alist))\n(when (bound-and-true-p which-key-description-replacement-alist)\n (mapc\n (lambda (repl)\n (push (cons (cons nil (car repl)) (cons nil (cdr repl)))\n which-key-replacement-alist))\n which-key-description-replacement-alist))\n\n(defcustom which-key-allow-multiple-replacements nil\n \"Allow a key binding to match and be modified by multiple\nelements in `which-key-replacement-alist' if non-nil. When nil,\nonly the first match is used to perform replacements from\n`which-key-replacement-alist'.\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-show-docstrings nil\n \"If non-nil, show each command's docstring next to the command\nin the which-key buffer. This will only display the docstring up\nto the first line break. If you set this variable to the symbol\ndocstring-only, then the command's name with be omitted. You\nprobably also want to adjust `which-key-max-description-length'\nat the same time if you use this feature.\"\n :group 'which-key\n :type '(radio\n (const :tag \"Do not show docstrings\" nil)\n (const :tag \"Add docstring to command names\" t)\n (const :tag \"Replace command name with docstring\" docstring-only)))\n\n(defcustom which-key-highlighted-command-list '()\n \"A list of strings and/or cons cells used to highlight certain\ncommands. If the element is a string, assume it is a regexp\npattern for matching command names and use\n`which-key-highlighted-command-face' for any matching names. If\nthe element is a cons cell, it should take the form (regexp .\nface to apply).\"\n :group 'which-key\n :type '(repeat (choice string (cons regexp face))))\n\n(defcustom which-key-special-keys '()\n \"These keys will automatically be truncated to one character\nand have `which-key-special-key-face' applied to them. This is\ndisabled by default. Try this to see the effect.\n\n\$setq which-key-special-keys '(\\\"SPC\\\" \\\"TAB\\\" \\\"RET\\\" \\\"ESC\\\" \\\"DEL\\\")\$\"\n :group 'which-key\n :type '(repeat string))\n\n(defcustom which-key-buffer-name \" *which-key*\"\n \"Name of which-key buffer.\"\n :group 'which-key\n :type 'string)\n\n(defcustom which-key-show-prefix 'echo\n \"Whether to and where to display the current prefix sequence.\nPossible choices are echo for echo area (the default), left, top\nand nil. Nil turns the feature off.\"\n :group 'which-key\n :type '(radio (const :tag \"Left of the keys\" left)\n (const :tag \"In the first line\" top)\n (const :tag \"In the last line\" bottom)\n (const :tag \"In the echo area\" echo)\n (const :tag \"In the mode-line\" mode-line)\n (const :tag \"Hide\" nil)))\n\n(defcustom which-key-popup-type 'side-window\n \"Supported types are minibuffer, side-window, frame, and custom.\"\n :group 'which-key\n :type '(radio (const :tag \"Show in minibuffer\" minibuffer)\n (const :tag \"Show in side window\" side-window)\n (const :tag \"Show in popup frame\" frame)\n (const :tag \"Use your custom display functions\" custom)))\n\n(defcustom which-key-min-display-lines 1\n \"The minimum number of horizontal lines to display in the\n which-key buffer.\"\n :group 'which-key\n :type 'integer)\n\n(defcustom which-key-max-display-columns nil\n \"The maximum number of columns to display in the which-key\nbuffer. nil means don't impose a maximum.\"\n :group 'which-key\n :type '(choice integer (const :tag \"Unbounded\" nil)))\n\n(defcustom which-key-side-window-location 'bottom\n \"Location of which-key popup when `which-key-popup-type' is side-window.\nShould be one of top, bottom, left or right. You can also specify\na list of two locations, like (right bottom). In this case, the\nfirst location is tried. If there is not enough room, the second\nlocation is tried.\"\n :group 'which-key\n :type '(radio (const right)\n (const bottom)\n (const left)\n (const top)\n (const (right bottom))\n (const (bottom right))))\n\n(defcustom which-key-side-window-slot 0\n \"The `slot' to use for `display-buffer-in-side-window' when\n`which-key-popup-type' is 'side-window. Quoting from the\ndocstring of `display-buffer-in-side-window',\n\n‘slot’ if non-nil, specifies the window slot where to display\n BUFFER. A value of zero or nil means use the middle slot on\n the specified side. A negative value means use a slot\n preceding (that is, above or on the left of) the middle slot.\n A positive value means use a slot following (that is, below or\n on the right of) the middle slot. The default is zero.\"\n :group 'which-key\n :type 'integer)\n\n(defcustom which-key-side-window-max-width 0.333\n \"Maximum width of which-key popup when type is side-window and\nlocation is left or right.\nThis variable can also be a number between 0 and 1. In that case, it denotes\na percentage out of the frame's width.\"\n :group 'which-key\n :type 'float)\n\n(defcustom which-key-side-window-max-height 0.25\n \"Maximum height of which-key popup when type is side-window and\nlocation is top or bottom.\nThis variable can also be a number between 0 and 1. In that case, it denotes\na percentage out of the frame's height.\"\n :group 'which-key\n :type 'float)\n\n(defcustom which-key-frame-max-width 60\n \"Maximum width of which-key popup when type is frame.\"\n :group 'which-key\n :type 'integer)\n\n(defcustom which-key-frame-max-height 20\n \"Maximum height of which-key popup when type is frame.\"\n :group 'which-key\n :type 'integer)\n\n(defcustom which-key-allow-imprecise-window-fit nil\n \"If non-nil allow which-key to use a less intensive method of\nfitting the popup window to the buffer. If you are noticing lag\nwhen the which-key popup displays turning this on may help.\n\nSee https://github.com/justbur/emacs-which-key/issues/130\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-show-remaining-keys nil\n \"Show remaining keys in last slot, when keys are hidden.\"\n :group 'which-key\n :type '(radio (const :tag \"Yes\" t)\n (const :tag \"No\" nil)))\n\n(defcustom which-key-sort-order 'which-key-key-order\n \"If nil, do not resort the output from\n`describe-buffer-bindings' which groups by mode. Ordering options\nare\n\n1. `which-key-key-order': by key (default)\n2. `which-key-key-order-alpha': by key using alphabetical order\n3. `which-key-description-order': by description\n4. `which-key-prefix-then-key-order': prefix (no prefix first) then key\n5. `which-key-local-then-key-order': local binding then key\n\nSee the README and the docstrings for those functions for more\ninformation.\"\n :group 'which-key\n :type '(choice (function-item which-key-key-order)\n (function-item which-key-key-order-alpha)\n (function-item which-key-description-order)\n (function-item which-key-prefix-then-key-order)\n (function-item which-key-local-then-key-order)))\n\n(defcustom which-key-sort-uppercase-first t\n \"If non-nil, uppercase comes before lowercase in sorting\nfunction chosen in `which-key-sort-order'. Otherwise, the order\nis reversed.\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-paging-prefixes '()\n \"Enable paging for these prefixes.\"\n :group 'which-key\n :type '(repeat string))\n\n(defcustom which-key-paging-key \"\"\n \"Key to use for changing pages. Bound after each of the\nprefixes in `which-key-paging-prefixes'\"\n :group 'which-key\n :type 'string)\n\n;; (defcustom which-key-undo-key nil\n;; \"Key (string) to use for undoing keypresses. Bound recursively\n;; in each of the maps in `which-key-undo-keymaps'.\"\n;; :group 'which-key\n;; :type 'string)\n\n;; (defcustom which-key-undo-keymaps '()\n;; \"Keymaps in which to bind `which-key-undo-key'\"\n;; :group 'which-key\n;; :type '(repeat symbol))\n\n(defcustom which-key-use-C-h-commands t\n \"Use C-h for paging if non-nil. Normally C-h after a prefix\n calls `describe-prefix-bindings'. This changes that command to\n a which-key paging command when which-key-mode is active.\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-show-early-on-C-h nil\n \"Show the which-key buffer before if C-h is pressed in the\nmiddle of a prefix before the which-key buffer would normally be\ntriggered through the idle delay. If combined with the following\nsettings, which-key will effectively only show when triggered\n\\\"manually\\\" using C-h.\n\n\\(setq `which-key-idle-delay' 10000)\n\\(setq `which-key-idle-secondary-delay' 0.05)\n\nNote that `which-key-idle-delay' should be set before turning on\n`which-key-mode'. \"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-is-verbose nil\n \"Whether to warn about potential mistakes in configuration.\"\n :group 'which-key\n :type 'boolean)\n\n(defvar which-key-C-h-map\n (let ((map (make-sparse-keymap)))\n (dolist (bind '((\"\\C-a\" . which-key-abort)\n (\"a\" . which-key-abort)\n (\"\\C-d\" . which-key-toggle-docstrings)\n (\"d\" . which-key-toggle-docstrings)\n (\"\\C-h\" . which-key-show-standard-help)\n (\"h\" . which-key-show-standard-help)\n (\"\\C-n\" . which-key-show-next-page-cycle)\n (\"n\" . which-key-show-next-page-cycle)\n (\"\\C-p\" . which-key-show-previous-page-cycle)\n (\"p\" . which-key-show-previous-page-cycle)\n (\"\\C-u\" . which-key-undo-key)\n (\"u\" . which-key-undo-key)\n (\"1\" . which-key-digit-argument)\n (\"2\" . which-key-digit-argument)\n (\"3\" . which-key-digit-argument)\n (\"4\" . which-key-digit-argument)\n (\"5\" . which-key-digit-argument)\n (\"6\" . which-key-digit-argument)\n (\"7\" . which-key-digit-argument)\n (\"8\" . which-key-digit-argument)\n (\"9\" . which-key-digit-argument)))\n (define-key map (car bind) (cdr bind)))\n map)\n \"Keymap for C-h commands.\")\n\n(defvar which-key--paging-functions '(which-key-C-h-dispatch\n which-key-manual-update\n which-key-turn-page\n which-key-show-next-page-cycle\n which-key-show-next-page-no-cycle\n which-key-show-previous-page-cycle\n which-key-show-previous-page-no-cycle\n which-key-undo-key\n which-key-undo))\n\n(defvar which-key-persistent-popup nil\n \"Whether or not to disable `which-key--hide-popup'.\")\n\n(defcustom which-key-hide-alt-key-translations t\n \"Hide key translations using Alt key if non nil.\nThese translations are not relevant most of the times since a lot\nof terminals issue META modifier for the Alt key.\n\nSee http://www.gnu.org/software/emacs/manual/html_node/emacs/Modifier-Keys.html\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-delay-functions nil\n \"A list of functions that may decide whether to delay the\nwhich-key popup based on the current incomplete key\nsequence. Each function in the list is run with two arguments,\nthe current key sequence as produced by `key-description' and the\nlength of the key sequence. If the popup should be delayed based\non that key sequence, the function should return the delay time\nin seconds. Returning nil means no delay. The first function in\nthis list to return a value is the value that is used.\n\nThe delay time is effectively added to the normal\n`which-key-idle-delay'.\"\n :group 'which-key\n :type '(repeat function))\n\n(defcustom which-key-allow-regexps nil\n \"A list of regexp strings to use to filter key sequences. When\nnon-nil, for a key sequence to trigger the which-key popup it\nmust match one of the regexps in this list. The format of the key\nsequences is what is produced by `key-description'.\"\n :group 'which-key\n :type '(repeat regexp))\n\n(defcustom which-key-inhibit-regexps nil\n \"Similar to `which-key-allow-regexps', a list of regexp strings\nto use to filter key sequences. When non-nil, for a key sequence\nto trigger the which-key popup it cannot match one of the regexps\nin this list. The format of the key sequences is what is produced\nby `key-description'.\"\n :group 'which-key\n :type '(repeat regexp))\n\n(defcustom which-key-show-transient-maps nil\n \"Show keymaps created by `set-transient-map' when applicable.\n\nMore specifically, detect when `overriding-terminal-local-map' is\nset (this is the keymap used by `set-transient-map') and display\nit.\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-enable-extended-define-key nil\n \"Advise `define-key' to make which-key aware of definitions of the form\n\n \\(define-key KEYMAP KEY '(\\\"DESCRIPTION\\\" . DEF))\n\nWith the advice, this definition will have the side effect of\ncreating a replacement in `which-key-replacement-alist' that\nreplaces DEF with DESCRIPTION when the key sequence ends in\nKEY. Using a cons cell like this is a valid definition for\n`define-key'. All this does is to make which-key aware of it.\n\nSince many higher level keybinding functions use `define-key'\ninternally, this will affect most if not all of those as well.\n\nThis variable must be set before loading which-key.\"\n :group 'which-key\n :type 'boolean)\n\n;; Hooks\n(defcustom which-key-init-buffer-hook '()\n \"Hook run when which-key buffer is initialized.\"\n :group 'which-key\n :type 'hook)\n\n;;;; Faces\n\n(defgroup which-key-faces nil\n \"Faces for which-key-mode\"\n :group 'which-key\n :prefix \"which-key-\")\n\n(defface which-key-key-face\n '((t . (:inherit font-lock-constant-face)))\n \"Face for which-key keys\"\n :group 'which-key-faces)\n\n(defface which-key-separator-face\n '((t . (:inherit font-lock-comment-face)))\n \"Face for the separator (default separator is an arrow)\"\n :group 'which-key-faces)\n\n(defface which-key-note-face\n '((t . (:inherit which-key-separator-face)))\n \"Face for notes or hints occasionally provided\"\n :group 'which-key-faces)\n\n(defface which-key-command-description-face\n '((t . (:inherit font-lock-function-name-face)))\n \"Face for the key description when it is a command\"\n :group 'which-key-faces)\n\n(defface which-key-local-map-description-face\n '((t . (:inherit which-key-command-description-face)))\n \"Face for the key description when it is found in `current-local-map'\"\n :group 'which-key-faces)\n\n(defface which-key-highlighted-command-face\n '((t . (:inherit which-key-command-description-face :underline t)))\n \"Default face for the command description when it is a command\nand it matches a string in `which-key-highlighted-command-list'.\"\n :group 'which-key-faces)\n\n(defface which-key-group-description-face\n '((t . (:inherit font-lock-keyword-face)))\n \"Face for the key description when it is a group or prefix\"\n :group 'which-key-faces)\n\n(defface which-key-special-key-face\n '((t . (:inherit which-key-key-face :inverse-video t :weight bold)))\n \"Face for special keys (SPC, TAB, RET)\"\n :group 'which-key-faces)\n\n(defface which-key-docstring-face\n '((t . (:inherit which-key-note-face)))\n \"Face for docstrings\"\n :group 'which-key-faces)\n\n;;;; Custom popup\n\n(defcustom which-key-custom-popup-max-dimensions-function nil\n \"Variable to hold a custom max-dimensions function.\nWill be passed the width of the active window and is expected to\nreturn the maximum height in lines and width in characters of the\nwhich-key popup in the form a cons cell (height . width).\"\n :group 'which-key\n :type '(choice function (const nil)))\n\n(defcustom which-key-custom-hide-popup-function nil\n \"Variable to hold a custom hide-popup function.\nIt takes no arguments and the return value is ignored.\"\n :group 'which-key\n :type '(choice function (const nil)))\n\n(defcustom which-key-custom-show-popup-function nil\n \"Variable to hold a custom show-popup function.\nWill be passed the required dimensions in the form (height .\nwidth) in lines and characters respectively. The return value is\nignored.\"\n :group 'which-key\n :type '(choice function (const nil)))\n\n(defcustom which-key-lighter \" WK\"\n \"Minor mode lighter to use in the mode-line.\"\n :group 'which-key\n :type 'string)\n\n(defvar which-key-inhibit nil\n \"Prevent which-key from popping up momentarily by setting this\nto a non-nil value for the execution of a command. Like this\n\n\$let \\(\\(which-key-inhibit t\$\\)\n...\\)\")\n\n(defvar which-key-keymap-history nil\n \"History of keymap selections in functions like\n`which-key-show-keymap'.\")\n\n;;; Internal Vars\n\n(defvar which-key--buffer nil\n \"Internal: Holds reference to which-key buffer.\")\n(defvar which-key--timer nil\n \"Internal: Holds reference to open window timer.\")\n(defvar which-key--secondary-timer-active nil\n \"Internal: Non-nil if the secondary timer is active.\")\n(defvar which-key--paging-timer nil\n \"Internal: Holds reference to timer for paging.\")\n(defvar which-key--frame nil\n \"Internal: Holds reference to which-key frame.\nUsed when `which-key-popup-type' is frame.\")\n(defvar which-key--echo-keystrokes-backup nil\n \"Internal: Backup the initial value of `echo-keystrokes'.\")\n(defvar which-key--prefix-help-cmd-backup nil\n \"Internal: Backup the value of `prefix-help-command'.\")\n(defvar which-key--last-try-2-loc nil\n \"Internal: Last location of side-window when two locations\nused.\")\n(defvar which-key--automatic-display nil\n \"Internal: Non-nil if popup was triggered with automatic\nupdate.\")\n(defvar which-key--debug-buffer-name nil\n \"If non-nil, use this buffer for debug messages.\")\n(defvar which-key--multiple-locations nil)\n(defvar which-key--inhibit-next-operator-popup nil)\n(defvar which-key--prior-show-keymap-args nil)\n(defvar which-key--previous-frame-size nil)\n(defvar which-key--prefix-title-alist nil)\n(defvar which-key--evil-keys-regexp (eval-when-compile\n (regexp-opt '(\"-state\"))))\n(defvar which-key--ignore-non-evil-keys-regexp\n (eval-when-compile\n (regexp-opt '(\"mouse-\" \"wheel-\" \"remap\" \"drag-\" \"scroll-bar\"\n \"select-window\" \"switch-frame\" \"which-key-\"))))\n(defvar which-key--ignore-keys-regexp\n (eval-when-compile\n (regexp-opt '(\"mouse-\" \"wheel-\" \"remap\" \"drag-\" \"scroll-bar\"\n \"select-window\" \"switch-frame\" \"-state\"\n \"which-key-\"))))\n\n(make-obsolete-variable 'which-key-prefix-name-alist nil \"2016-10-05\")\n(make-obsolete-variable 'which-key-prefix-title-alist nil \"2016-10-05\")\n\n(defvar which-key--pages-obj nil)\n(cl-defstruct which-key--pages\n pages\n height\n widths\n keys/page\n page-nums\n num-pages\n total-keys\n prefix\n prefix-title)\n\n(defun which-key--rotate (list n)\n (let* ((len (length list))\n (n (if (< n 0) (+ len n) n))\n (n (mod n len)))\n (append (last list (- len n)) (butlast list (- len n)))))\n\n(defun which-key--pages-set-current-page (pages-obj n)\n (setf (which-key--pages-pages pages-obj)\n (which-key--rotate (which-key--pages-pages pages-obj) n))\n (setf (which-key--pages-widths pages-obj)\n (which-key--rotate (which-key--pages-widths pages-obj) n))\n (setf (which-key--pages-keys/page pages-obj)\n (which-key--rotate (which-key--pages-keys/page pages-obj) n))\n (setf (which-key--pages-page-nums pages-obj)\n (which-key--rotate (which-key--pages-page-nums pages-obj) n))\n pages-obj)\n\n(defsubst which-key--on-first-page ()\n (= (which-key--pages-page-nums which-key--pages-obj) 1))\n\n(defsubst which-key--on-last-page ()\n (= (which-key--pages-page-nums which-key--pages-obj)\n (which-key--pages-num-pages which-key--pages-obj)))\n\n(defsubst which-key--current-prefix ()\n (when which-key--pages-obj\n (which-key--pages-prefix which-key--pages-obj)))\n\n(defmacro which-key--debug-message (&rest msg)\n `(when which-key--debug-buffer-name\n (let ((buf (get-buffer-create which-key--debug-buffer-name))\n (fmt-msg (format ,@msg)))\n (with-current-buffer buf\n (goto-char (point-max))\n (insert \"\\n\" fmt-msg \"\\n\")))))\n\n;;; Third-party library support\n;;;; Evil\n\n(defcustom which-key-allow-evil-operators (boundp 'evil-this-operator)\n \"Allow popup to show for evil operators. The popup is normally\n inhibited in the middle of commands, but setting this to\n non-nil will override this behavior for evil operators.\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-show-operator-state-maps nil\n \"Experimental: Try to show the right keys following an evil\ncommand that reads a motion, such as \\\"y\\\", \\\"d\\\" and \\\"c\\\" from\nnormal state. This is experimental, because there might be some\nvalid keys missing and it might be showing some invalid keys.\"\n :group 'which-key\n :type 'boolean)\n\n;;;;; God-mode\n\n(defvar which-key--god-mode-support-enabled nil\n \"Support god-mode if non-nil. This is experimental,\nso you need to explicitly opt-in for now. Please report any\nproblems at github.\")\n\n(defvar which-key--god-mode-key-string nil\n \"Holds key string to use for god-mode support.\")\n\n(defadvice god-mode-lookup-command\n (around which-key--god-mode-lookup-command-advice disable)\n (setq which-key--god-mode-key-string (ad-get-arg 0))\n (unwind-protect\n ad-do-it\n (when (bound-and-true-p which-key-mode)\n (which-key--hide-popup))))\n\n(defun which-key-enable-god-mode-support (&optional disable)\n \"Enable support for god-mode if non-nil. This is experimental,\nso you need to explicitly opt-in for now. Please report any\nproblems at github. If DISABLE is non-nil disable support.\"\n (interactive \"P\")\n (setq which-key--god-mode-support-enabled (null disable))\n (if disable\n (ad-disable-advice\n 'god-mode-lookup-command\n 'around 'which-key--god-mode-lookup-command-advice)\n (ad-enable-advice\n 'god-mode-lookup-command\n 'around 'which-key--god-mode-lookup-command-advice))\n (ad-activate 'god-mode-lookup-command))\n\n;;; Mode\n\n;;;###autoload\n(define-minor-mode which-key-mode\n \"Toggle which-key-mode.\"\n :global t\n :lighter which-key-lighter\n :keymap (let ((map (make-sparse-keymap)))\n (mapc\n (lambda (prefix)\n (define-key map\n (kbd (concat prefix \" \" which-key-paging-key))\n #'which-key-C-h-dispatch))\n which-key-paging-prefixes)\n map)\n (if which-key-mode\n (progn\n (setq which-key--echo-keystrokes-backup echo-keystrokes)\n (when (or (eq which-key-show-prefix 'echo)\n (eq which-key-popup-type 'minibuffer))\n (which-key--setup-echo-keystrokes))\n (unless (member prefix-help-command which-key--paging-functions)\n (setq which-key--prefix-help-cmd-backup prefix-help-command))\n (when (or which-key-use-C-h-commands\n which-key-show-early-on-C-h)\n (setq prefix-help-command #'which-key-C-h-dispatch))\n (when which-key-show-remaining-keys\n (add-hook 'pre-command-hook #'which-key--lighter-restore))\n (add-hook 'pre-command-hook #'which-key--hide-popup)\n (add-hook 'focus-out-hook #'which-key--stop-timer)\n (add-hook 'focus-in-hook #'which-key--start-timer)\n (add-hook 'window-size-change-functions\n 'which-key--hide-popup-on-frame-size-change)\n (which-key--start-timer))\n (setq echo-keystrokes which-key--echo-keystrokes-backup)\n (when which-key--prefix-help-cmd-backup\n (setq prefix-help-command which-key--prefix-help-cmd-backup))\n (when which-key-show-remaining-keys\n (remove-hook 'pre-command-hook #'which-key--lighter-restore))\n (remove-hook 'pre-command-hook #'which-key--hide-popup)\n (remove-hook 'focus-out-hook #'which-key--stop-timer)\n (remove-hook 'focus-in-hook #'which-key--start-timer)\n (remove-hook 'window-size-change-functions\n 'which-key--hide-popup-on-frame-size-change)\n (which-key--stop-timer)))\n\n(defun which-key--init-buffer ()\n \"Initialize which-key buffer\"\n (unless (buffer-live-p which-key--buffer)\n (setq which-key--buffer (get-buffer-create which-key-buffer-name))\n (with-current-buffer which-key--buffer\n ;; suppress confusing minibuffer message\n (let (message-log-max)\n (toggle-truncate-lines 1)\n (message \"\"))\n (setq-local cursor-type nil)\n (setq-local cursor-in-non-selected-windows nil)\n (setq-local mode-line-format nil)\n (setq-local word-wrap nil)\n (setq-local show-trailing-whitespace nil)\n (run-hooks 'which-key-init-buffer-hook))))\n\n(defun which-key--setup-echo-keystrokes ()\n \"Reduce `echo-keystrokes' if necessary (it will interfere if\nit's set too high).\"\n (when (and echo-keystrokes\n (> (abs (- echo-keystrokes which-key-echo-keystrokes)) 0.000001))\n (if (> which-key-idle-delay which-key-echo-keystrokes)\n (setq echo-keystrokes which-key-echo-keystrokes)\n (setq which-key-echo-keystrokes (/ (float which-key-idle-delay) 4)\n echo-keystrokes which-key-echo-keystrokes))))\n\n(defun which-key-remove-default-unicode-chars ()\n \"Use of `which-key-dont-use-unicode' is preferred to this\nfunction, but it's included here in case someone cannot set that\nvariable early enough in their configuration, if they are using a\nstarter kit for example.\"\n (when (string-equal which-key-separator \" → \")\n (setq which-key-separator \" : \"))\n (setq which-key-key-replacement-alist\n (delete '(\"left\" . \"←\") which-key-key-replacement-alist))\n (setq which-key-key-replacement-alist\n (delete '(\"right\" . \"→\") which-key-key-replacement-alist)))\n\n;;; Default configuration functions for use by users.\n\n;;;###autoload\n(defun which-key-setup-side-window-right ()\n \"Apply suggested settings for side-window that opens on right.\"\n (interactive)\n (setq which-key-popup-type 'side-window\n which-key-side-window-location 'right\n which-key-show-prefix 'top))\n\n;;;###autoload\n(defun which-key-setup-side-window-right-bottom ()\n \"Apply suggested settings for side-window that opens on right\nif there is space and the bottom otherwise.\"\n (interactive)\n (setq which-key-popup-type 'side-window\n which-key-side-window-location '(right bottom)\n which-key-show-prefix 'top))\n\n;;;###autoload\n(defun which-key-setup-side-window-bottom ()\n \"Apply suggested settings for side-window that opens on\nbottom.\"\n (interactive)\n (which-key--setup-echo-keystrokes)\n (setq which-key-popup-type 'side-window\n which-key-side-window-location 'bottom\n which-key-show-prefix 'echo))\n\n;;;###autoload\n(defun which-key-setup-minibuffer ()\n \"Apply suggested settings for minibuffer.\nDo not use this setup if you use the paging commands. Instead use\n`which-key-setup-side-window-bottom', which is nearly identical\nbut more functional.\"\n (interactive)\n (which-key--setup-echo-keystrokes)\n (setq which-key-popup-type 'minibuffer\n which-key-show-prefix 'left))\n\n;;; Helper functions to modify replacement lists.\n\n;;;###autoload\n(defun which-key-add-key-based-replacements\n (key-sequence replacement &rest more)\n \"Replace the description of KEY-SEQUENCE with REPLACEMENT.\nKEY-SEQUENCE is a string suitable for use in `kbd'. REPLACEMENT\nmay either be a string, as in\n\n\$which-key-add-key-based-replacements \\\"C-x 1\\\" \\\"maximize\\\"\$\n\na cons of two strings as in\n\n\$which-key-add-key-based-replacements \\\"C-x 8\\\"\n '(\\\"unicode\\\" . \\\"Unicode keys\\\")\$\n\nor a function that takes a \$KEY . BINDING\$ cons and returns a\nreplacement.\n\nIn the second case, the second string is used to provide a longer\nname for the keys under a prefix.\n\nMORE allows you to specifcy additional KEY REPLACEMENT pairs. All\nreplacements are added to\n`which-key-key-based-description-replacement-alist'.\"\n ;; TODO: Make interactive\n (while key-sequence\n ;; normalize key sequences before adding\n (let ((key-seq (key-description (kbd key-sequence)))\n (replace (or (and (functionp replacement) replacement)\n (car-safe replacement)\n replacement)))\n (push (cons (cons (concat \"\\\\`\" (regexp-quote key-seq) \"\\\\'\") nil)\n (if (functionp replace) replace (cons nil replace)))\n which-key-replacement-alist)\n (when (and (not (functionp replacement)) (consp replacement))\n (push (cons key-seq (cdr-safe replacement))\n which-key--prefix-title-alist)))\n (setq key-sequence (pop more) replacement (pop more))))\n(put 'which-key-add-key-based-replacements 'lisp-indent-function 'defun)\n\n;;;###autoload\n(defun which-key-add-major-mode-key-based-replacements\n (mode key-sequence replacement &rest more)\n \"Functions like `which-key-add-key-based-replacements'.\nThe difference is that MODE specifies the `major-mode' that must\nbe active for KEY-SEQUENCE and REPLACEMENT (MORE contains\naddition KEY-SEQUENCE REPLACEMENT pairs) to apply.\"\n ;; TODO: Make interactive\n (when (not (symbolp mode))\n (error \"MODE should be a symbol corresponding to a value of major-mode\"))\n (let ((mode-alist\n (or (cdr-safe (assq mode which-key-replacement-alist)) (list)))\n (title-mode-alist\n (or (cdr-safe (assq mode which-key--prefix-title-alist)) (list))))\n (while key-sequence\n ;; normalize key sequences before adding\n (let ((key-seq (key-description (kbd key-sequence)))\n (replace (or (and (functionp replacement) replacement)\n (car-safe replacement)\n replacement)))\n (push (cons (cons (concat \"\\\\`\" (regexp-quote key-seq) \"\\\\'\") nil)\n (if (functionp replace) replace (cons nil replace)))\n mode-alist)\n (when (and (not (functionp replacement)) (consp replacement))\n (push (cons key-seq (cdr-safe replacement))\n title-mode-alist)))\n (setq key-sequence (pop more) replacement (pop more)))\n (if (assq mode which-key-replacement-alist)\n (setcdr (assq mode which-key-replacement-alist) mode-alist)\n (push (cons mode mode-alist) which-key-replacement-alist))\n (if (assq mode which-key--prefix-title-alist)\n (setcdr (assq mode which-key--prefix-title-alist) title-mode-alist)\n (push (cons mode title-mode-alist) which-key--prefix-title-alist))))\n(put 'which-key-add-major-mode-key-based-replacements\n 'lisp-indent-function 'defun)\n\n(defalias 'which-key-add-prefix-title 'which-key-add-key-based-replacements)\n(make-obsolete 'which-key-add-prefix-title\n 'which-key-add-key-based-replacements\n \"2016-10-05\")\n\n(defalias 'which-key-declare-prefixes 'which-key-add-key-based-replacements)\n(make-obsolete 'which-key-declare-prefixes\n 'which-key-add-key-based-replacements\n \"2016-10-05\")\n\n(defalias 'which-key-declare-prefixes-for-mode\n 'which-key-add-major-mode-key-based-replacements)\n(make-obsolete 'which-key-declare-prefixes-for-mode\n 'which-key-add-major-mode-key-based-replacements\n \"2016-10-05\")\n\n(defun which-key-define-key-recursively (map key def &optional at-root)\n \"Recursively bind KEY in MAP to DEF on every level of MAP except the first.\nIf AT-ROOT is non-nil the binding is also placed at the root of MAP.\"\n (when at-root (define-key map key def))\n (map-keymap\n (lambda (_ev df)\n (when (keymapp df)\n (which-key-define-key-recursively df key def t)))\n map))\n\n(defun which-key--process-define-key-args (keymap key def)\n \"When DEF takes the form (\\\"DESCRIPTION\\\". DEF), make sure\nwhich-key uses \\\"DESCRIPTION\\\" for this binding. This function is\nmeant to be used as :before advice for `define-key'.\"\n (with-demoted-errors \"Which-key extended define-key error: %s\"\n (when (and (consp def)\n (stringp (car def))\n (symbolp (cdr def)))\n (define-key keymap (which-key--pseudo-key key) `(which-key ,def)))))\n\n(when which-key-enable-extended-define-key\n (advice-add #'define-key :before #'which-key--process-define-key-args))\n\n;;; Functions for computing window sizes\n\n(defun which-key--text-width-to-total (text-width)\n \"Convert window text-width to window total-width.\nTEXT-WIDTH is the desired text width of the window. The function\ncalculates what total width is required for a window in the\nselected to have a text-width of TEXT-WIDTH columns. The\ncalculation considers possible fringes and scroll bars. This\nfunction assumes that the desired window has the same character\nwidth as the frame.\"\n (let ((char-width (frame-char-width)))\n (+ text-width\n (/ (frame-fringe-width) char-width)\n (/ (frame-scroll-bar-width) char-width)\n (if (which-key--char-enlarged-p) 1 0)\n ;; add padding to account for possible wide (unicode) characters\n 3)))\n\n(defun which-key--total-width-to-text (total-width)\n \"Convert window total-width to window text-width.\nTOTAL-WIDTH is the desired total width of the window. The function calculates\nwhat text width fits such a window. The calculation considers possible fringes\nand scroll bars. This function assumes that the desired window has the same\ncharacter width as the frame.\"\n (let ((char-width (frame-char-width)))\n (- total-width\n (/ (frame-fringe-width) char-width)\n (/ (frame-scroll-bar-width) char-width)\n (if (which-key--char-enlarged-p) 1 0)\n ;; add padding to account for possible wide (unicode) characters\n 3)))\n\n(defun which-key--char-enlarged-p (&optional _frame)\n (> (frame-char-width)\n (/ (float (frame-pixel-width)) (window-total-width (frame-root-window)))))\n\n(defun which-key--char-reduced-p (&optional _frame)\n (< (frame-char-width)\n (/ (float (frame-pixel-width)) (window-total-width (frame-root-window)))))\n\n(defun which-key--char-exact-p (&optional _frame)\n (= (frame-char-width)\n (/ (float (frame-pixel-width)) (window-total-width (frame-root-window)))))\n\n(defun which-key--width-or-percentage-to-width (width-or-percentage)\n \"Return window total width.\nIf WIDTH-OR-PERCENTAGE is a whole number, return it unchanged. Otherwise, it\nshould be a percentage (a number between 0 and 1) out of the frame's width.\nMore precisely, it should be a percentage out of the frame's root window's\ntotal width.\"\n (if (wholenump width-or-percentage)\n width-or-percentage\n (round (* width-or-percentage (window-total-width (frame-root-window))))))\n\n(defun which-key--height-or-percentage-to-height (height-or-percentage)\n \"Return window total height.\nIf HEIGHT-OR-PERCENTAGE is a whole number, return it unchanged. Otherwise, it\nshould be a percentage (a number between 0 and 1) out of the frame's height.\nMore precisely, it should be a percentage out of the frame's root window's\ntotal height.\"\n (if (wholenump height-or-percentage)\n height-or-percentage\n (round (* height-or-percentage (window-total-height (frame-root-window))))))\n\n(defun which-key--frame-size-changed-p ()\n \"Non-nil if a change in frame size is detected.\"\n (let ((new-size (cons (frame-width) (frame-height))))\n (cond ((null which-key--previous-frame-size)\n (setq which-key--previous-frame-size new-size)\n nil)\n ((not (equal which-key--previous-frame-size new-size))\n (setq which-key--previous-frame-size new-size)))))\n\n;;; Show/hide which-key buffer\n\n(defun which-key--hide-popup ()\n \"This function is called to hide the which-key buffer.\"\n (unless (or which-key-persistent-popup\n (member real-this-command which-key--paging-functions))\n (setq which-key--last-try-2-loc nil)\n (setq which-key--pages-obj nil)\n (setq which-key--automatic-display nil)\n (setq which-key--prior-show-keymap-args nil)\n (when (and which-key-idle-secondary-delay which-key--secondary-timer-active)\n (which-key--start-timer))\n (which-key--lighter-restore)\n (cl-case which-key-popup-type\n ;; Not necessary to hide minibuffer\n ;; (minibuffer (which-key--hide-buffer-minibuffer))\n (side-window (which-key--hide-buffer-side-window))\n (frame (which-key--hide-buffer-frame))\n (custom (funcall which-key-custom-hide-popup-function)))))\n\n(defun which-key--hide-popup-ignore-command ()\n \"Version of `which-key--hide-popup' without the check of\n`real-this-command'.\"\n (cl-case which-key-popup-type\n (side-window (which-key--hide-buffer-side-window))\n (frame (which-key--hide-buffer-frame))\n (custom (funcall which-key-custom-hide-popup-function))))\n\n(defun which-key--hide-popup-on-frame-size-change (&optional _)\n \"Hide which-key popup if the frame is resized (to trigger a new\npopup).\"\n (when (which-key--frame-size-changed-p)\n (which-key--hide-popup)))\n\n(defun which-key--hide-buffer-side-window ()\n \"Hide which-key buffer when side-window popup is used.\"\n (when (buffer-live-p which-key--buffer)\n ;; in case which-key buffer was shown in an existing window, `quit-window'\n ;; will re-show the previous buffer, instead of closing the window\n (quit-windows-on which-key--buffer)))\n\n(defun which-key--hide-buffer-frame ()\n \"Hide which-key buffer when frame popup is used.\"\n (when (frame-live-p which-key--frame)\n (delete-frame which-key--frame)))\n\n(defun which-key--popup-showing-p ()\n (and (bufferp which-key--buffer)\n (window-live-p (get-buffer-window which-key--buffer))))\n\n(defun which-key--show-popup (act-popup-dim)\n \"Show the which-key buffer.\nACT-POPUP-DIM includes the dimensions, (height . width) of the\nbuffer text to be displayed in the popup. Return nil if no window\nis shown, or if there is no need to start the closing timer.\"\n (when (and (> (car act-popup-dim) 0) (> (cdr act-popup-dim) 0))\n (cl-case which-key-popup-type\n ;; Not called for minibuffer\n ;; (minibuffer (which-key--show-buffer-minibuffer act-popup-dim))\n (side-window (which-key--show-buffer-side-window act-popup-dim))\n (frame (which-key--show-buffer-frame act-popup-dim))\n (custom (funcall which-key-custom-show-popup-function act-popup-dim)))))\n\n(defun which-key--fit-buffer-to-window-horizontally\n (&optional window &rest params)\n \"Slightly modified version of `fit-buffer-to-window'.\nUse &rest params because `fit-buffer-to-window' has a different\ncall signature in different emacs versions\"\n (let ((fit-window-to-buffer-horizontally t))\n (apply #'fit-window-to-buffer window params)))\n\n(defun which-key--show-buffer-side-window (act-popup-dim)\n \"Show which-key buffer when popup type is side-window.\"\n (let* ((height (car act-popup-dim))\n (width (cdr act-popup-dim))\n (alist\n (if which-key-allow-imprecise-window-fit\n `((window-width . ,(which-key--text-width-to-total width))\n (window-height . ,height)\n (side . ,which-key-side-window-location)\n (slot . ,which-key-side-window-slot))\n `((window-width . which-key--fit-buffer-to-window-horizontally)\n (window-height . (lambda (w) (fit-window-to-buffer w nil 1)))\n (side . ,which-key-side-window-location)\n (slot . ,which-key-side-window-slot)))))\n ;; Previously used `display-buffer-in-major-side-window' here, but\n ;; apparently that is meant to be an internal function. See emacs bug #24828\n ;; and advice given there.\n (cond\n ((eq which-key--multiple-locations t)\n ;; possibly want to switch sides in this case so we can't reuse the window\n (delete-windows-on which-key--buffer)\n (display-buffer-in-side-window which-key--buffer alist))\n ((get-buffer-window which-key--buffer)\n (display-buffer-reuse-window which-key--buffer alist))\n (t\n (display-buffer-in-side-window which-key--buffer alist)))))\n\n(defun which-key--show-buffer-frame (act-popup-dim)\n \"Show which-key buffer when popup type is frame.\"\n (let* (;(orig-window (selected-window))\n (frame-height (+ (car act-popup-dim)\n (if (with-current-buffer which-key--buffer\n mode-line-format)\n 1\n 0)))\n ;; without adding 2, frame sometimes isn't wide enough for the buffer.\n ;; this is probably because of the fringes. however, setting fringes\n ;; sizes to 0 (instead of adding 2) didn't always make the frame wide\n ;; enough. don't know why it is so.\n (frame-width (+ (cdr act-popup-dim) 2))\n (new-window (if (and (frame-live-p which-key--frame)\n (eq which-key--buffer\n (window-buffer\n (frame-root-window which-key--frame))))\n (which-key--show-buffer-reuse-frame\n frame-height frame-width)\n (which-key--show-buffer-new-frame\n frame-height frame-width))))\n (when new-window\n ;; display successful\n (setq which-key--frame (window-frame new-window))\n new-window)))\n\n(defun which-key--show-buffer-new-frame (frame-height frame-width)\n \"Helper for `which-key--show-buffer-frame'.\"\n (let* ((frame-params `((height . ,frame-height)\n (width . ,frame-width)\n ;; tell the window manager to respect the given sizes\n (user-size . t)\n ;; which-key frame doesn't need a minibuffer\n (minibuffer . nil)\n (name . \"which-key\")\n ;; no need for scroll bars in which-key frame\n (vertical-scroll-bars . nil)\n ;; (left-fringe . 0)\n ;; (right-fringe . 0)\n ;; (right-divider-width . 0)\n ;; make sure frame is visible\n (visibility . t)))\n (alist `((pop-up-frame-parameters . ,frame-params)))\n (orig-frame (selected-frame))\n (new-window (display-buffer-pop-up-frame which-key--buffer alist)))\n (when new-window\n ;; display successful\n (redirect-frame-focus (window-frame new-window) orig-frame)\n new-window)))\n\n(defun which-key--show-buffer-reuse-frame (frame-height frame-width)\n \"Helper for `which-key--show-buffer-frame'.\"\n (let ((window\n (display-buffer-reuse-window\n which-key--buffer `((reusable-frames . ,which-key--frame)))))\n (when window\n ;; display successful\n (set-frame-size (window-frame window) frame-width frame-height)\n window)))\n\n;;; Max dimension of available window functions\n\n(defun which-key--popup-max-dimensions ()\n \"Dimesion functions should return the maximum possible (height\n. width) of the intended popup. SELECTED-WINDOW-WIDTH is the\nwidth of currently active window, not the which-key buffer\nwindow.\"\n (cl-case which-key-popup-type\n (minibuffer (which-key--minibuffer-max-dimensions))\n (side-window (which-key--side-window-max-dimensions))\n (frame (which-key--frame-max-dimensions))\n (custom (funcall which-key-custom-popup-max-dimensions-function\n (window-width)))))\n\n(defun which-key--minibuffer-max-dimensions ()\n \"Return max-dimensions of minibuffer (height . width).\nMeasured in lines and characters respectively.\"\n (cons\n ;; height\n (if (floatp max-mini-window-height)\n (floor (* (frame-text-lines)\n max-mini-window-height))\n max-mini-window-height)\n ;; width\n (max 0 (- (frame-text-cols) which-key-unicode-correction))))\n\n(defun which-key--side-window-max-dimensions ()\n \"Return max-dimensions of the side-window popup (height .\nwidth) in lines and characters respectively.\"\n (cons\n ;; height\n (if (member which-key-side-window-location '(left right))\n ;; 1 is a kludge to make sure there is no overlap\n (- (frame-height) (window-text-height (minibuffer-window)) 1)\n ;; (window-mode-line-height which-key--window))\n ;; FIXME: change to something like\n ;; (min which-*-height (calculate-max-height))\n (which-key--height-or-percentage-to-height\n which-key-side-window-max-height))\n ;; width\n (max 0\n (- (if (member which-key-side-window-location '(left right))\n (which-key--total-width-to-text\n (which-key--width-or-percentage-to-width\n which-key-side-window-max-width))\n (which-key--total-width-to-text\n (which-key--width-or-percentage-to-width\n 1.0)))\n which-key-unicode-correction))))\n\n(defun which-key--frame-max-dimensions ()\n \"Return max-dimensions of the frame popup (height .\nwidth) in lines and characters respectively.\"\n (cons which-key-frame-max-height which-key-frame-max-width))\n\n;;; Sorting functions\n\n(defun which-key--string< (a b &optional alpha)\n (let* ((da (downcase a))\n (db (downcase b)))\n (cond ((string-equal da db)\n (if which-key-sort-uppercase-first\n (string-lessp a b)\n (not (string-lessp a b))))\n (alpha (string-lessp da db))\n (t (string-lessp a b)))))\n\n(defun which-key--key-description< (a b &optional alpha)\n \"Sorting function used for `which-key-key-order' and\n`which-key-key-order-alpha'.\"\n (save-match-data\n (let* ((rngrgxp \"^\\\$[^ ]+\\\$ \\\\.\\\\. [^ ]+\")\n (a (if (string-match rngrgxp a) (match-string 1 a) a))\n (b (if (string-match rngrgxp b) (match-string 1 b) b))\n (aem? (string-equal a \"\"))\n (bem? (string-equal b \"\"))\n (a1? (= 1 (length a)))\n (b1? (= 1 (length b)))\n (srgxp \"^\\\$RET\\\\|SPC\\\\|TAB\\\\|DEL\\\\|LFD\\\\|ESC\\\\|NUL\\\$\")\n (asp? (string-match-p srgxp a))\n (bsp? (string-match-p srgxp b))\n (prrgxp \"^\\\$M\\\\|C\\\\|S\\\\|A\\\\|H\\\\|s\\\$-\")\n (apr? (string-match-p prrgxp a))\n (bpr? (string-match-p prrgxp b))\n (afn? (string-match-p \"\" a))\n (bfn? (string-match-p \"\" b)))\n (cond ((or aem? bem?) (and aem? (not bem?)))\n ((and asp? bsp?)\n (if (string-equal (substring a 0 3) (substring b 0 3))\n (which-key--key-description<\n (substring a 3) (substring b 3) alpha)\n (which-key--string< a b alpha)))\n ((or asp? bsp?) asp?)\n ((and a1? b1?) (which-key--string< a b alpha))\n ((or a1? b1?) a1?)\n ((and afn? bfn?)\n (< (string-to-number\n (replace-regexp-in-string \"\" \"\\\\1\" a))\n (string-to-number\n (replace-regexp-in-string \"\" \"\\\\1\" b))))\n ((or afn? bfn?) afn?)\n ((and apr? bpr?)\n (if (string-equal (substring a 0 2) (substring b 0 2))\n (which-key--key-description<\n (substring a 2) (substring b 2) alpha)\n (which-key--string< a b alpha)))\n ((or apr? bpr?) apr?)\n (t (which-key--string< a b alpha))))))\n\n(defsubst which-key-key-order-alpha (acons bcons)\n \"Order key descriptions A and B.\nOrder is lexicographic within a \\\"class\\\", where the classes and\nthe ordering of classes are listed below.\n\nspecial (SPC,TAB,...) < single char < mod (C-,M-,...) < other.\nSorts single characters alphabetically with lowercase coming\nbefore upper.\"\n (which-key--key-description< (car acons) (car bcons) t))\n\n(defsubst which-key-key-order (acons bcons)\n \"Order key descriptions A and B.\nOrder is lexicographic within a \\\"class\\\", where the classes and\nthe ordering of classes are listed below.\n\nspecial (SPC,TAB,...) < single char < mod (C-,M-,...) < other.\"\n (which-key--key-description< (car acons) (car bcons)))\n\n(defsubst which-key-description-order (acons bcons)\n \"Order descriptions of A and B.\nUses `string-lessp' after applying lowercase.\"\n (string-lessp (downcase (cdr acons)) (downcase (cdr bcons))))\n\n(defsubst which-key--group-p (description)\n (or (string-match-p \"^\\\$group:\\\\|Prefix\\\$\" description)\n (keymapp (intern description))))\n\n(defun which-key-prefix-then-key-order (acons bcons)\n \"Order first by whether A and/or B is a prefix with no prefix\ncoming before a prefix. Within these categories order using\n`which-key-key-order'.\"\n (let ((apref? (which-key--group-p (cdr acons)))\n (bpref? (which-key--group-p (cdr bcons))))\n (if (not (eq apref? bpref?))\n (and (not apref?) bpref?)\n (which-key-key-order acons bcons))))\n\n(defun which-key-prefix-then-key-order-reverse (acons bcons)\n \"Order first by whether A and/or B is a prefix with prefix\ncoming before a prefix. Within these categories order using\n`which-key-key-order'.\"\n (let ((apref? (which-key--group-p (cdr acons)))\n (bpref? (which-key--group-p (cdr bcons))))\n (if (not (eq apref? bpref?))\n (and apref? (not bpref?))\n (which-key-key-order acons bcons))))\n\n(defun which-key-local-then-key-order (acons bcons)\n \"Order first by whether A and/or B is a local binding with\nlocal bindings coming first. Within these categories order using\n`which-key-key-order'.\"\n (let ((aloc? (which-key--local-binding-p acons))\n (bloc? (which-key--local-binding-p bcons)))\n (if (not (eq aloc? bloc?))\n (and aloc? (not bloc?))\n (which-key-key-order acons bcons))))\n\n;;; Functions for retrieving and formatting keys\n\n(defsubst which-key--string-width (maybe-string)\n \"If MAYBE-STRING is a string use `which-key--string-width' o/w return 0.\"\n (if (stringp maybe-string) (string-width maybe-string) 0))\n\n(defsubst which-key--safe-lookup-key (keymap key)\n \"Version of `lookup-key' that allows KEYMAP to be nil. KEY is not checked.\"\n (when (keymapp keymap) (lookup-key keymap key)))\n\n(defsubst which-key--butlast-string (str)\n (mapconcat #'identity (butlast (split-string str)) \" \"))\n\n(defun which-key--match-replacement (key-binding replacement)\n ;; these are mode specific ones to ignore. The mode specific case is\n ;; handled in the selection of alist\n (when (and (consp key-binding) (not (symbolp (car replacement))))\n (let ((key-regexp (caar replacement))\n (binding-regexp (cdar replacement))\n case-fold-search)\n (and (or (null key-regexp)\n (string-match-p key-regexp\n (car key-binding)))\n (or (null binding-regexp)\n (string-match-p binding-regexp\n (cdr key-binding)))))))\n\n(defun which-key--get-pseudo-binding (key-binding &optional prefix)\n (let* ((pseudo-binding\n (key-binding (which-key--pseudo-key (kbd (car key-binding)) prefix)))\n (pseudo-binding (when pseudo-binding (cadr pseudo-binding)))\n (pseudo-desc (when pseudo-binding (car pseudo-binding)))\n (pseudo-def (when pseudo-binding (cdr pseudo-binding)))\n (real-def (key-binding (kbd (car key-binding))))\n ;; treat keymaps as if they're nil bindings. This creates the\n ;; possibility that we rename the wrong binding but this seems\n ;; unlikely.\n (real-def (unless (keymapp real-def) real-def)))\n (when (and pseudo-binding\n (eq pseudo-def real-def))\n (cons (car key-binding) pseudo-desc))))\n\n(defun which-key--maybe-replace (key-binding &optional prefix)\n \"Use `which-key--replacement-alist' to maybe replace KEY-BINDING.\nKEY-BINDING is a cons cell of the form \$KEY . BINDING\$ each of\nwhich are strings. KEY is of the form produced by `key-binding'.\"\n (let* ((pseudo-binding (which-key--get-pseudo-binding key-binding prefix))\n one-match)\n (if pseudo-binding\n pseudo-binding\n (let* ((all-repls\n (append (cdr-safe (assq major-mode which-key-replacement-alist))\n which-key-replacement-alist)))\n (dolist (repl all-repls key-binding)\n (when (and (or which-key-allow-multiple-replacements\n (not one-match))\n (which-key--match-replacement key-binding repl))\n (setq one-match t)\n (setq key-binding\n (cond ((or (not (consp repl)) (null (cdr repl)))\n key-binding)\n ((functionp (cdr repl))\n (funcall (cdr repl) key-binding))\n ((consp (cdr repl))\n (cons\n (cond ((and (caar repl) (cadr repl))\n (replace-regexp-in-string\n (caar repl) (cadr repl) (car key-binding) t))\n ((cadr repl) (cadr repl))\n (t (car key-binding)))\n (cond ((and (cdar repl) (cddr repl))\n (replace-regexp-in-string\n (cdar repl) (cddr repl) (cdr key-binding) t))\n ((cddr repl) (cddr repl))\n (t (cdr key-binding)))))))))))))\n\n(defsubst which-key--current-key-list (&optional key-str)\n (append (listify-key-sequence (which-key--current-prefix))\n (when key-str\n (listify-key-sequence (kbd key-str)))))\n\n(defsubst which-key--current-key-string (&optional key-str)\n (key-description (which-key--current-key-list key-str)))\n\n(defun which-key--local-binding-p (keydesc)\n (eq (which-key--safe-lookup-key\n (current-local-map) (kbd (which-key--current-key-string (car keydesc))))\n (intern (cdr keydesc))))\n\n(defun which-key--map-binding-p (map keydesc)\n \"Does MAP contain KEYDESC = (key . binding)?\"\n (or\n (when (bound-and-true-p evil-state)\n (let ((lookup\n (which-key--safe-lookup-key\n map\n (kbd (which-key--current-key-string\n (format \"<%s-state> %s\" evil-state (car keydesc)))))))\n (or (eq lookup (intern (cdr keydesc)))\n (and (keymapp lookup) (string= (cdr keydesc) \"Prefix Command\")))))\n (let ((lookup\n (which-key--safe-lookup-key\n map (kbd (which-key--current-key-string (car keydesc))))))\n (or (eq lookup (intern (cdr keydesc)))\n (and (keymapp lookup) (string= (cdr keydesc) \"Prefix Command\"))))))\n\n(defun which-key--pseudo-key (key &optional prefix)\n \"Replace the last key in the sequence KEY by a special symbol\nin order for which-key to allow looking up a description for the key.\"\n (let* ((seq (listify-key-sequence key))\n (final (intern (format \"which-key-%s\" (key-description (last seq))))))\n (if prefix\n (vconcat prefix (list final))\n (vconcat (butlast seq) (list final)))))\n\n(defun which-key--maybe-get-prefix-title (keys)\n \"KEYS is a string produced by `key-description'.\nA title is possibly returned using\n`which-key--prefix-title-alist'. An empty stiring is returned if\nno title exists.\"\n (cond\n ((not (string-equal keys \"\"))\n (let* ((title-res\n (cdr-safe (assoc-string keys which-key--prefix-title-alist)))\n (repl-res\n (cdr-safe (which-key--maybe-replace (cons keys \"\"))))\n (binding (key-binding (kbd keys)))\n (alternate (when (and binding (symbolp binding))\n (symbol-name binding))))\n (cond (title-res title-res)\n ((not (string-equal repl-res \"\")) repl-res)\n ((and (eq which-key-show-prefix 'echo) alternate)\n alternate)\n ((and (member which-key-show-prefix '(bottom top))\n (eq which-key-side-window-location 'bottom)\n echo-keystrokes)\n (if alternate alternate\n (concat \"Following \" keys)))\n (t \"\"))))\n (t \"\")))\n\n(defun which-key--propertize (string &rest properties)\n \"Version of `propertize' that checks type of STRING.\"\n (when (stringp string)\n (apply #'propertize string properties)))\n\n(defun which-key--propertize-key (key)\n \"Add a face to KEY.\nIf KEY contains any \\\"special keys\\\" defined in\n`which-key-special-keys' then truncate and add the corresponding\n`which-key-special-key-face'.\"\n (let ((key-w-face (which-key--propertize key 'face 'which-key-key-face))\n (regexp (concat \"\\\$\"\n (mapconcat 'identity which-key-special-keys\n \"\\\\|\") \"\\\$\"))\n case-fold-search)\n (save-match-data\n (if (and which-key-special-keys\n (string-match regexp key))\n (let ((beg (match-beginning 0)) (end (match-end 0)))\n (concat (substring key-w-face 0 beg)\n (which-key--propertize (substring key-w-face beg (1+ beg))\n 'face 'which-key-special-key-face)\n (substring key-w-face end\n (which-key--string-width key-w-face))))\n key-w-face))))\n\n(defsubst which-key--truncate-description (desc)\n \"Truncate DESC description to `which-key-max-description-length'.\"\n (let* ((last-face (get-text-property (1- (length desc)) 'face desc))\n (dots (which-key--propertize \"..\" 'face last-face)))\n (if (and which-key-max-description-length\n (> (length desc) which-key-max-description-length))\n (concat (substring desc 0 which-key-max-description-length) dots)\n desc)))\n\n(defun which-key--highlight-face (description)\n \"Return the highlight face for DESCRIPTION if it has one.\"\n (let (face)\n (dolist (el which-key-highlighted-command-list)\n (unless face\n (cond ((consp el)\n (when (string-match-p (car el) description)\n (setq face (cdr el))))\n ((stringp el)\n (when (string-match-p el description)\n (setq face 'which-key-highlighted-command-face)))\n (t\n (message \"which-key: warning: element %s of \\\nwhich-key-highlighted-command-list is not a string or a cons\ncell\" el)))))\n face))\n\n(defun which-key--propertize-description\n (description group local hl-face &optional original-description)\n \"Add face to DESCRIPTION where the face chosen depends on\nwhether the description represents a group or a command. Also\nmake some minor adjustments to the description string, like\nremoving a \\\"group:\\\" prefix.\n\nORIGINAL-DESCRIPTION is the description given by\n`describe-buffer-bindings'.\"\n (when description\n (let* ((desc description)\n (desc (if (string-match-p \"^group:\" desc)\n (substring desc 6) desc))\n (desc (if group (concat which-key-prefix-prefix desc) desc)))\n (make-text-button\n desc nil\n 'face (cond (hl-face hl-face)\n (group 'which-key-group-description-face)\n (local 'which-key-local-map-description-face)\n (t 'which-key-command-description-face))\n 'help-echo (cond\n ((and original-description\n (fboundp (intern original-description))\n (documentation (intern original-description))\n ;; tooltip-mode doesn't exist in emacs-nox\n (boundp 'tooltip-mode) tooltip-mode)\n (documentation (intern original-description)))\n ((and original-description\n (fboundp (intern original-description))\n (documentation (intern original-description))\n (let* ((doc (documentation\n (intern original-description)))\n (str (replace-regexp-in-string \"\\n\" \" \" doc))\n (max (floor (* (frame-width) 0.8))))\n (if (> (length str) max)\n (concat (substring str 0 max) \"...\")\n str))))))\n desc)))\n\n(defun which-key--extract-key (key-str)\n \"Pull the last key (or key range) out of KEY-STR.\"\n (save-match-data\n (let ((key-range-regexp \"\\\\`.*\\\$[^ \\t]+ \\\\.\\\\. [^ \\t]+\\\$\\\\'\"))\n (if (string-match key-range-regexp key-str)\n (match-string 1 key-str)\n (car (last (split-string key-str \" \")))))))\n\n(defun which-key--maybe-add-docstring (current original)\n \"Maybe concat a docstring to CURRENT and return result.\nSpecifically, do this if ORIGINAL is a command with a docstring\nand `which-key-show-docstrings' is non-nil. If\n`which-key-show-docstrings' is the symbol docstring-only, just\nreturn the docstring.\"\n (let* ((orig-sym (intern original))\n (doc (when (commandp orig-sym)\n (documentation orig-sym)))\n (docstring (when doc\n (which-key--propertize (car (split-string doc \"\\n\"))\n 'face 'which-key-docstring-face))))\n (cond ((not (and which-key-show-docstrings docstring))\n current)\n ((eq which-key-show-docstrings 'docstring-only)\n docstring)\n (t\n (format \"%s %s\" current docstring)))))\n\n(defun which-key--format-and-replace (unformatted &optional prefix preserve-full-key)\n \"Take a list of (key . desc) cons cells in UNFORMATTED, add\nfaces and perform replacements according to the three replacement\nalists. Returns a list (key separator description).\"\n (let ((sep-w-face\n (which-key--propertize which-key-separator\n 'face 'which-key-separator-face))\n (local-map (current-local-map))\n new-list)\n (dolist (key-binding unformatted)\n (let* ((key (car key-binding))\n (orig-desc (cdr key-binding))\n (group (which-key--group-p orig-desc))\n ;; At top-level prefix is nil\n (keys (if prefix\n (concat (key-description prefix) \" \" key)\n key))\n (local (eq (which-key--safe-lookup-key local-map (kbd keys))\n (intern orig-desc)))\n (hl-face (which-key--highlight-face orig-desc))\n (key-binding (which-key--maybe-replace (cons keys orig-desc) prefix))\n (final-desc (which-key--propertize-description\n (cdr key-binding) group local hl-face orig-desc)))\n (when final-desc\n (setq final-desc\n (which-key--truncate-description\n (which-key--maybe-add-docstring final-desc orig-desc))))\n (when (consp key-binding)\n (push\n (list (which-key--propertize-key\n (if preserve-full-key\n (car key-binding)\n (which-key--extract-key (car key-binding))))\n sep-w-face\n final-desc)\n new-list))))\n (nreverse new-list)))\n\n(defun which-key--get-keymap-bindings (keymap &optional all prefix)\n \"Retrieve top-level bindings from KEYMAP.\nIf ALL is non-nil, get all bindings, not just the top-level\nones. PREFIX is for internal use and should not be used.\"\n (let (bindings)\n (map-keymap\n (lambda (ev def)\n (let* ((key (append prefix (list ev)))\n (key-desc (key-description key)))\n (cond ((or (string-match-p\n which-key--ignore-non-evil-keys-regexp key-desc)\n (eq ev 'menu-bar)))\n ;; extract evil keys corresponding to current state\n ((and (keymapp def)\n (boundp 'evil-state)\n (bound-and-true-p evil-local-mode)\n (string-match-p (format \"<%s-state>$\" evil-state) key-desc))\n (setq bindings\n ;; this function keeps the latter of the two duplicates\n ;; which will be the evil binding\n (cl-remove-duplicates\n (append bindings\n (which-key--get-keymap-bindings def all prefix))\n :test (lambda (a b) (string= (car a) (car b))))))\n ((and (keymapp def)\n (string-match-p which-key--evil-keys-regexp key-desc)))\n ((and (keymapp def)\n (or all\n ;; event 27 is escape, so this will pick up meta\n ;; bindings and hopefully not too much more\n (and (numberp ev) (= ev 27))))\n (setq bindings\n (append bindings\n (which-key--get-keymap-bindings def t key))))\n (t\n (when def\n (cl-pushnew\n (cons key-desc\n (cond\n ((keymapp def) \"Prefix Command\")\n ((symbolp def) (copy-sequence (symbol-name def)))\n ((eq 'lambda (car-safe def)) \"lambda\")\n ((eq 'menu-item (car-safe def)) \"menu-item\")\n ((stringp def) def)\n ((vectorp def) (key-description def))\n (t \"unknown\")))\n bindings :test (lambda (a b) (string= (car a) (car b)))))))))\n keymap)\n bindings))\n\n(defun which-key--compute-binding (binding)\n \"Replace BINDING with remapped binding if it exists.\n\nRequires `which-key-compute-remaps' to be non-nil\"\n (let (remap)\n (if (and which-key-compute-remaps\n (setq remap (command-remapping (intern binding))))\n (copy-sequence (symbol-name remap))\n binding)))\n\n(defun which-key--get-current-bindings (&optional prefix)\n \"Generate a list of current active bindings.\"\n (let ((key-str-qt (regexp-quote (key-description prefix)))\n (buffer (current-buffer))\n (ignore-bindings '(\"self-insert-command\" \"ignore\"\n \"ignore-event\" \"company-ignore\"))\n (ignore-sections-regexp\n (eval-when-compile\n (regexp-opt '(\"Key translations\" \"Function key map translations\"\n \"Input decoding map translations\")))))\n (with-temp-buffer\n (setq-local indent-tabs-mode t)\n (setq-local tab-width 8)\n (describe-buffer-bindings buffer prefix)\n (goto-char (point-min))\n (let ((header-p (not (= (char-after) ?\\f)))\n bindings header)\n (while (not (eobp))\n (cond\n (header-p\n (setq header (buffer-substring-no-properties\n (point)\n (line-end-position)))\n (setq header-p nil)\n (forward-line 3))\n ((= (char-after) ?\\f)\n (setq header-p t))\n ((looking-at \"^[ \\t]*$\"))\n ((or (not (string-match-p ignore-sections-regexp header)) prefix)\n (let ((binding-start (save-excursion\n (and (re-search-forward \"\\t+\" nil t)\n (match-end 0))))\n key binding)\n (when binding-start\n (setq key (buffer-substring-no-properties\n (point) binding-start))\n (setq binding (buffer-substring-no-properties\n binding-start\n (line-end-position)))\n (save-match-data\n (cond\n ((member binding ignore-bindings))\n ((string-match-p which-key--ignore-keys-regexp key))\n ((and prefix\n (string-match (format \"^%s[ \\t]\\\$[^ \\t]+\\\$[ \\t]+$\"\n key-str-qt) key))\n (unless (assoc-string (match-string 1 key) bindings)\n (push (cons (match-string 1 key)\n (which-key--compute-binding binding))\n bindings)))\n ((and prefix\n (string-match\n (format\n \"^%s[ \\t]\\\$[^ \\t]+\\\$ \\\\.\\\\. %s[ \\t]\\\$[^ \\t]+\\\$[ \\t]+$\"\n key-str-qt key-str-qt) key))\n (let ((stripped-key (concat (match-string 1 key)\n \" \\.\\. \"\n (match-string 2 key))))\n (unless (assoc-string stripped-key bindings)\n (push (cons stripped-key\n (which-key--compute-binding binding))\n bindings))))\n ((string-match\n \"^\\\$[^ \\t]+\\\\|[^ \\t]+ \\\\.\\\\. [^ \\t]+\\\$[ \\t]+$\" key)\n (unless (assoc-string (match-string 1 key) bindings)\n (push (cons (match-string 1 key)\n (which-key--compute-binding binding))\n bindings)))))))))\n (forward-line))\n (nreverse bindings)))))\n\n(defun which-key--get-bindings (&optional prefix keymap filter recursive)\n \"Collect key bindings.\nIf KEYMAP is nil, collect from current buffer using the current\nkey sequence as a prefix. Otherwise, collect from KEYMAP. FILTER\nis a function to use to filter the bindings. If RECURSIVE is\nnon-nil, then bindings are collected recursively for all prefixes.\"\n (let* ((unformatted\n (cond ((keymapp keymap)\n (which-key--get-keymap-bindings keymap recursive))\n (keymap\n (error \"%s is not a keymap\" keymap))\n (t\n (which-key--get-current-bindings prefix)))))\n (when filter\n (setq unformatted (cl-remove-if-not filter unformatted)))\n (when which-key-sort-order\n (setq unformatted\n (sort unformatted which-key-sort-order)))\n (which-key--format-and-replace unformatted prefix recursive)))\n\n;;; Functions for laying out which-key buffer pages\n\n(defun which-key--normalize-columns (columns)\n \"Pad COLUMNS to the same length using empty strings.\"\n (let ((max-len (cl-reduce (lambda (a x) (max a (length x))) columns\n :initial-value 0)))\n (mapcar\n (lambda (c)\n (if (< (length c) max-len)\n (append c (make-list (- max-len (length c)) \"\"))\n c))\n columns)))\n\n(defsubst which-key--join-columns (columns)\n \"Transpose columns into rows, concat rows into lines and rows into page.\"\n (let* ((padded (which-key--normalize-columns (nreverse columns)))\n (rows (apply #'cl-mapcar #'list padded)))\n (mapconcat (lambda (row) (mapconcat #'identity row \" \")) rows \"\\n\")))\n\n(defsubst which-key--max-len (keys index)\n \"Internal function for finding the max length of the INDEX\nelement in each list element of KEYS.\"\n (cl-reduce\n (lambda (x y) (max x (which-key--string-width (nth index y))))\n keys :initial-value 0))\n\n(defun which-key--pad-column (col-keys)\n \"Take a column of (key separator description) COL-KEYS,\ncalculate the max width in the column and pad all cells out to\nthat width.\"\n (let* ((col-key-width (+ which-key-add-column-padding\n (which-key--max-len col-keys 0)))\n (col-sep-width (which-key--max-len col-keys 1))\n (col-desc-width (which-key--max-len col-keys 2))\n (col-width (+ 1 col-key-width col-sep-width col-desc-width)))\n (cons col-width\n (mapcar (lambda (k)\n (format (concat \"%\" (int-to-string col-key-width)\n \"s%s%-\" (int-to-string col-desc-width) \"s\")\n (nth 0 k) (nth 1 k) (nth 2 k)))\n col-keys))))\n\n(defun which-key--partition-list (n list)\n \"Partition LIST into N-sized sublists.\"\n (let (res)\n (while list\n (setq res (cons (cl-subseq list 0 (min n (length list))) res)\n list (nthcdr n list)))\n (nreverse res)))\n\n(defun which-key--list-to-pages (keys avl-lines avl-width)\n \"Convert list of KEYS to columns based on dimensions AVL-LINES and AVL-WIDTH.\nReturns a `which-key--pages' object that holds the page strings,\nas well as metadata.\"\n (let ((cols-w-widths (mapcar #'which-key--pad-column\n (which-key--partition-list avl-lines keys)))\n (page-width 0) (n-pages 0) (n-keys 0) (n-columns 0)\n page-cols pages page-widths keys/page col)\n (if (> (apply #'max (mapcar #'car cols-w-widths)) avl-width)\n ;; give up if no columns fit\n nil\n (while cols-w-widths\n ;; start new page\n (cl-incf n-pages)\n (setq col (pop cols-w-widths))\n (setq page-cols (list (cdr col)))\n (setq page-width (car col))\n (setq n-keys (length (cdr col)))\n (setq n-columns 1)\n ;; add additional columns as long as they fit\n (while (and cols-w-widths\n (or (null which-key-max-display-columns)\n (< n-columns which-key-max-display-columns))\n (<= (+ (caar cols-w-widths) page-width) avl-width))\n (setq col (pop cols-w-widths))\n (push (cdr col) page-cols)\n (cl-incf page-width (car col))\n (cl-incf n-keys (length (cdr col)))\n (cl-incf n-columns))\n (push (which-key--join-columns page-cols) pages)\n (push n-keys keys/page)\n (push page-width page-widths))\n (make-which-key--pages\n :pages (nreverse pages)\n :height (if (> n-pages 1) avl-lines (min avl-lines n-keys))\n :widths (nreverse page-widths)\n :keys/page (reverse keys/page)\n :page-nums (number-sequence 1 n-pages)\n :num-pages n-pages\n :total-keys (apply #'+ keys/page)))))\n\n(defun which-key--create-pages-1\n (keys available-lines available-width &optional min-lines vertical)\n \"Create page strings using `which-key--list-to-pages'.\nWill try to find the best number of rows and columns using the\ngiven dimensions and the length and widths of ITEMS. Use VERTICAL\nif the ITEMS are laid out vertically and the number of columns\nshould be minimized.\"\n (let ((result (which-key--list-to-pages\n keys available-lines available-width))\n (min-lines (or min-lines 0))\n found prev-result)\n (if (or (null result)\n vertical\n (> (which-key--pages-num-pages result) 1)\n (= 1 available-lines))\n result\n ;; simple search for a fitting page\n (while (and (> available-lines min-lines)\n (not found))\n (setq available-lines (- available-lines 1)\n prev-result result\n result (which-key--list-to-pages\n keys available-lines available-width)\n found (> (which-key--pages-num-pages result) 1)))\n (if found prev-result result))))\n\n(defun which-key--create-pages (keys &optional prefix-keys prefix-title)\n \"Create page strings using `which-key--list-to-pages'.\nWill try to find the best number of rows and columns using the\ngiven dimensions and the length and wdiths of KEYS. SEL-WIN-WIDTH\nis the width of the live window.\"\n (let* ((max-dims (which-key--popup-max-dimensions))\n (max-lines (car max-dims))\n (max-width (cdr max-dims))\n (prefix-desc (key-description prefix-keys))\n (full-prefix (which-key--full-prefix prefix-desc))\n (prefix (when (eq which-key-show-prefix 'left)\n (+ 2 (which-key--string-width full-prefix))))\n (prefix-top-bottom (member which-key-show-prefix '(bottom top)))\n (avl-lines (if prefix-top-bottom (- max-lines 1) max-lines))\n (min-lines (min avl-lines which-key-min-display-lines))\n (avl-width (if prefix (- max-width prefix) max-width))\n (vertical (and (eq which-key-popup-type 'side-window)\n (member which-key-side-window-location '(left right))))\n result)\n (setq result\n (which-key--create-pages-1\n keys avl-lines avl-width min-lines vertical))\n (when (and result\n (> (which-key--pages-num-pages result) 0))\n (setf (which-key--pages-prefix result) prefix-keys)\n (setf (which-key--pages-prefix-title result)\n (or prefix-title\n (which-key--maybe-get-prefix-title\n (key-description prefix-keys))))\n (which-key--debug-message \"Frame height: %s\nMinibuffer height: %s\nMax dimensions: (%s,%s)\nAvailable for bindings: (%s,%s)\nActual lines: %s\" (frame-height) (window-text-height (minibuffer-window))\nmax-lines max-width avl-lines avl-width (which-key--pages-height result))\n result)))\n\n(defun which-key--lighter-status ()\n \"Possibly show number of keys and total in the mode line.\"\n (when which-key-show-remaining-keys\n (let ((n-shown (car (which-key--pages-keys/page which-key--pages-obj)))\n (n-tot (which-key--pages-total-keys which-key--pages-obj)))\n (setcar (cdr (assq 'which-key-mode minor-mode-alist))\n (format \" WK: %s/%s keys\" n-shown n-tot)))))\n\n(defun which-key--lighter-restore ()\n \"Restore the lighter for which-key.\"\n (when which-key-show-remaining-keys\n (setcar (cdr (assq 'which-key-mode minor-mode-alist))\n which-key-lighter)))\n\n(defun which-key--echo (text)\n \"Echo TEXT to minibuffer without logging.\"\n (let (message-log-max)\n (message \"%s\" text)))\n\n(defun which-key--next-page-hint (prefix-keys)\n \"Return string for next page hint.\"\n (let* ((paging-key (concat prefix-keys \" \" which-key-paging-key))\n (paging-key-bound (eq 'which-key-C-h-dispatch\n (key-binding (kbd paging-key))))\n (key (if paging-key-bound which-key-paging-key \"C-h\")))\n (when which-key-use-C-h-commands\n (which-key--propertize (format \"[%s paging/help]\" key)\n 'face 'which-key-note-face))))\n\n(eval-and-compile\n (if (fboundp 'universal-argument--description)\n (defalias 'which-key--universal-argument--description\n 'universal-argument--description)\n (defun which-key--universal-argument--description ()\n ;; Backport of the definition of universal-argument--description in\n ;; emacs25 on 2015-12-04\n (when prefix-arg\n (concat \"C-u\"\n (pcase prefix-arg\n (`(-) \" -\")\n (`(,(and (pred integerp) n))\n (let ((str \"\"))\n (while (and (> n 4) (= (mod n 4) 0))\n (setq str (concat str \" C-u\"))\n (setq n (/ n 4)))\n (if (= n 4) str (format \" %s\" prefix-arg))))\n (_ (format \" %s\" prefix-arg))))))))\n\n(defun which-key--full-prefix (prefix-keys &optional -prefix-arg dont-prop-keys)\n \"Return a description of the full key sequence up to now,\nincluding prefix arguments.\"\n (let* ((left (eq which-key-show-prefix 'left))\n (prefix-arg (if -prefix-arg -prefix-arg prefix-arg))\n (str (concat\n (which-key--universal-argument--description)\n (when prefix-arg \" \")\n prefix-keys))\n (dash (if (and (not (string= prefix-keys \"\"))\n (null left)) \"-\" \"\")))\n (if (or (eq which-key-show-prefix 'echo) dont-prop-keys)\n (concat str dash)\n (concat (which-key--propertize-key str)\n (which-key--propertize dash 'face 'which-key-key-face)))))\n\n(defun which-key--get-popup-map ()\n \"Generate transient-map for use in the top level binding display.\"\n (unless which-key--automatic-display\n (let ((map (make-sparse-keymap)))\n (define-key map (kbd which-key-paging-key) #'which-key-C-h-dispatch)\n (when which-key-use-C-h-commands\n ;; Show next page even when C-h is pressed\n (define-key map (kbd \"C-h\") #'which-key-C-h-dispatch))\n map)))\n\n(defun which-key--process-page (pages-obj)\n \"Add information to the basic list of key bindings, including\nif applicable the current prefix, the name of the current prefix,\nand a page count.\"\n (let* ((page (car (which-key--pages-pages pages-obj)))\n (height (which-key--pages-height pages-obj))\n (n-pages (which-key--pages-num-pages pages-obj))\n (page-n (car (which-key--pages-page-nums pages-obj)))\n (prefix-desc (key-description (which-key--pages-prefix pages-obj)))\n (prefix-title (which-key--pages-prefix-title pages-obj))\n (full-prefix (which-key--full-prefix prefix-desc))\n (nxt-pg-hint (which-key--next-page-hint prefix-desc))\n ;; not used in left case\n (status-line\n (concat (which-key--propertize prefix-title 'face 'which-key-note-face)\n (when (< 1 n-pages)\n (which-key--propertize (format \" (%s of %s)\" page-n n-pages)\n 'face 'which-key-note-face)))))\n (pcase which-key-show-prefix\n (`left\n (let* ((page-cnt (which-key--propertize (format \"%s/%s\" page-n n-pages)\n 'face 'which-key-separator-face))\n (first-col-width (+ 2 (max (which-key--string-width full-prefix)\n (which-key--string-width page-cnt))))\n (prefix (format (concat \"%-\" (int-to-string first-col-width) \"s\")\n full-prefix))\n (page-cnt (if (> n-pages 1)\n (format\n (concat \"%-\" (int-to-string first-col-width) \"s\")\n page-cnt)\n (make-string first-col-width 32)))\n lines first-line new-end)\n (if (= 1 height)\n (cons (concat prefix page) nil)\n (setq lines (split-string page \"\\n\")\n first-line (concat prefix (car lines) \"\\n\" page-cnt)\n new-end (concat \"\\n\" (make-string first-col-width 32)))\n (cons\n (concat first-line (mapconcat #'identity (cdr lines) new-end))\n nil))))\n (`top\n (cons\n (concat (when (or (= 0 echo-keystrokes)\n (not (eq which-key-side-window-location 'bottom)))\n (concat full-prefix \" \"))\n status-line \" \" nxt-pg-hint \"\\n\" page)\n nil))\n (`bottom\n (cons\n (concat page \"\\n\"\n (when (or (= 0 echo-keystrokes)\n (not (eq which-key-side-window-location 'bottom)))\n (concat full-prefix \" \"))\n status-line \" \" nxt-pg-hint)\n nil))\n (`echo\n (cons page\n (lambda ()\n (which-key--echo\n (concat full-prefix (when prefix-desc \" \")\n status-line (when status-line \" \")\n nxt-pg-hint)))))\n (`mode-line\n (cons page\n (lambda ()\n (with-current-buffer which-key--buffer\n (setq-local mode-line-format\n (concat \" \" full-prefix\n \" \" status-line\n \" \" nxt-pg-hint))))))\n (_ (cons page nil)))))\n\n(defun which-key--show-page (&optional n)\n \"Show current page. N changes the current page to the Nth page\nrelative to the current one.\"\n (which-key--init-buffer) ;; in case it was killed\n (let ((prefix-keys (which-key--current-key-string))\n golden-ratio-mode)\n (if (null which-key--pages-obj)\n (message \"%s- which-key can't show keys: There is not \\\nenough space based on your settings and frame size.\" prefix-keys)\n (when n\n (setq which-key--pages-obj\n (which-key--pages-set-current-page which-key--pages-obj n)))\n (let ((page-echo (which-key--process-page which-key--pages-obj))\n (height (which-key--pages-height which-key--pages-obj))\n (width (car (which-key--pages-widths which-key--pages-obj))))\n (which-key--lighter-status)\n (if (eq which-key-popup-type 'minibuffer)\n (which-key--echo (car page-echo))\n (with-current-buffer which-key--buffer\n (erase-buffer)\n (insert (car page-echo))\n (goto-char (point-min)))\n (when (cdr page-echo) (funcall (cdr page-echo)))\n (which-key--show-popup (cons height width)))))\n ;; used for paging at top-level\n (if (fboundp 'set-transient-map)\n (set-transient-map (which-key--get-popup-map))\n (with-no-warnings\n (set-temporary-overlay-map (which-key--get-popup-map))))))\n\n;;; Paging functions\n\n;;;###autoload\n(defun which-key-reload-key-sequence (&optional key-seq)\n \"Simulate entering the key sequence KEY-SEQ.\nKEY-SEQ should be a list of events as produced by\n`listify-key-sequence'. If nil, KEY-SEQ defaults to\n`which-key--current-key-list'. Any prefix arguments that were\nused are reapplied to the new key sequence.\"\n (let* ((key-seq (or key-seq (which-key--current-key-list)))\n (next-event (mapcar (lambda (ev) (cons t ev)) key-seq)))\n (setq prefix-arg current-prefix-arg\n unread-command-events next-event)))\n\n(defun which-key-turn-page (delta)\n \"Show the next page of keys.\"\n (which-key-reload-key-sequence)\n (if which-key--last-try-2-loc\n (let ((which-key-side-window-location which-key--last-try-2-loc)\n (which-key--multiple-locations t))\n (which-key--show-page delta))\n (which-key--show-page delta))\n (which-key--start-paging-timer))\n\n;;;###autoload\n(defun which-key-show-standard-help (&optional _)\n \"Call the command in `which-key--prefix-help-cmd-backup'.\nUsually this is `describe-prefix-bindings'.\"\n (interactive)\n (let ((which-key-inhibit t)\n (popup-showing (which-key--popup-showing-p)))\n (which-key--hide-popup-ignore-command)\n (cond ((and (eq which-key--prefix-help-cmd-backup\n 'describe-prefix-bindings)\n ;; If the popup is not showing, we call\n ;; `describe-prefix-bindings' directly.\n popup-showing)\n ;; This is essentially what `describe-prefix-bindings' does. We can't\n ;; use this function directly, because the prefix will not be correct\n ;; when we enter using `which-key-C-h-dispatch'.\n (describe-bindings (kbd (which-key--current-key-string))))\n ((functionp which-key--prefix-help-cmd-backup)\n (funcall which-key--prefix-help-cmd-backup)))))\n\n;;;###autoload\n(defun which-key-show-next-page-no-cycle ()\n \"Show next page of keys unless on the last page, in which case\ncall `which-key-show-standard-help'.\"\n (interactive)\n (let ((which-key-inhibit t))\n (if (which-key--on-last-page)\n (which-key-show-standard-help)\n (which-key-turn-page 1))))\n\n;;;###autoload\n(defun which-key-show-previous-page-no-cycle ()\n \"Show previous page of keys unless on the first page, in which\ncase do nothing.\"\n (interactive)\n (let ((which-key-inhibit t))\n (unless (which-key--on-first-page)\n (which-key-turn-page -1))))\n\n;;;###autoload\n(defun which-key-show-next-page-cycle (&optional _)\n \"Show the next page of keys, cycling from end to beginning\nafter last page.\"\n (interactive)\n (let ((which-key-inhibit t))\n (which-key-turn-page 1)))\n\n;;;###autoload\n(defun which-key-show-previous-page-cycle (&optional _)\n \"Show the previous page of keys, cycling from beginning to end\nafter first page.\"\n (interactive)\n (let ((which-key-inhibit t))\n (which-key-turn-page -1)))\n\n;;;###autoload\n(defun which-key-show-top-level (&optional _)\n \"Show top-level bindings.\"\n (interactive)\n (which-key--create-buffer-and-show nil nil nil \"Top-level bindings\"))\n\n;;;###autoload\n(defun which-key-show-major-mode ()\n \"Show top-level bindings in the map of the current major mode.\n\nThis function will also detect evil bindings made using\n`evil-define-key' in this map. These bindings will depend on the\ncurrent evil state. \"\n (interactive)\n (let ((map-sym (intern (format \"%s-map\" major-mode))))\n (if (and (boundp map-sym) (keymapp (symbol-value map-sym)))\n (which-key--create-buffer-and-show\n nil nil\n (apply-partially #'which-key--map-binding-p (symbol-value map-sym))\n \"Major-mode bindings\")\n (message \"which-key: No map named %s\" map-sym))))\n\n;;;###autoload\n(defun which-key-dump-bindings (prefix buffer-name)\n \"Dump bindings from PREFIX into buffer named BUFFER-NAME.\n\nPREFIX should be a string suitable for `kbd'.\"\n (interactive \"sPrefix: \\nB\")\n (let* ((buffer (get-buffer-create buffer-name))\n (keys (which-key--get-bindings (kbd prefix))))\n (with-current-buffer buffer\n (point-max)\n (save-excursion\n (dolist (key keys)\n (insert (apply #'format \"%s%s%s\\n\" key)))))\n (switch-to-buffer-other-window buffer)))\n\n;;;###autoload\n(defun which-key-undo-key (&optional _)\n \"Undo last keypress and force which-key update.\"\n (interactive)\n (let* ((key-lst (butlast (which-key--current-key-list)))\n (which-key-inhibit t))\n (cond (which-key--prior-show-keymap-args\n (if (keymapp (cdr (car-safe which-key--prior-show-keymap-args)))\n (let ((args (pop which-key--prior-show-keymap-args)))\n (which-key--show-keymap (car args) (cdr args)))\n (which-key--hide-popup)))\n (key-lst\n (which-key-reload-key-sequence key-lst)\n (which-key--create-buffer-and-show (apply #'vector key-lst)))\n (t (setq which-key--automatic-display nil)\n (which-key-show-top-level)))))\n(defalias 'which-key-undo 'which-key-undo-key)\n\n(defun which-key-abort (&optional _)\n \"Abort key sequence.\"\n (interactive)\n (let ((which-key-inhibit t))\n (which-key--hide-popup-ignore-command)\n (keyboard-quit)))\n\n(defun which-key-digit-argument (key)\n \"Version of `digit-argument' for use in `which-key-C-h-map'.\"\n (interactive)\n (let ((last-command-event (string-to-char key)))\n (digit-argument key))\n (let ((current-prefix-arg prefix-arg))\n (which-key-reload-key-sequence)))\n\n(defun which-key-toggle-docstrings (&optional _)\n \"Toggle the display of docstrings.\"\n (interactive)\n (unless (eq which-key-show-docstrings 'docstring-only)\n (setq which-key-show-docstrings (null which-key-show-docstrings)))\n (which-key-reload-key-sequence)\n (which-key--create-buffer-and-show (which-key--current-prefix)))\n\n;;;###autoload\n(defun which-key-C-h-dispatch ()\n \"Dispatch C-h commands by looking up key in\n`which-key-C-h-map'. This command is always accessible (from any\nprefix) if `which-key-use-C-h-commands' is non nil.\"\n (interactive)\n (cond ((and (not (which-key--popup-showing-p))\n which-key-show-early-on-C-h)\n (let* ((current-prefix\n (butlast\n (listify-key-sequence (which-key--this-command-keys)))))\n (which-key-reload-key-sequence current-prefix)\n (if which-key-idle-secondary-delay\n (which-key--start-timer which-key-idle-secondary-delay t)\n (which-key--start-timer 0.05 t))))\n ((not (which-key--popup-showing-p))\n (which-key-show-standard-help))\n (t\n (if (not (which-key--popup-showing-p))\n (which-key-show-standard-help)\n (let* ((prefix-keys (which-key--current-key-string))\n (full-prefix (which-key--full-prefix prefix-keys current-prefix-arg t))\n (prompt (concat (when (string-equal prefix-keys \"\")\n (which-key--propertize\n (concat \" \"\n (which-key--pages-prefix-title\n which-key--pages-obj))\n 'face 'which-key-note-face))\n full-prefix\n (which-key--propertize\n (substitute-command-keys\n (concat\n \" \\\\\"\n \" \\\\[which-key-show-next-page-cycle]\"\n which-key-separator \"next-page,\"\n \" \\\\[which-key-show-previous-page-cycle]\"\n which-key-separator \"previous-page,\"\n \" \\\\[which-key-undo-key]\"\n which-key-separator \"undo-key,\"\n \" \\\\[which-key-toggle-docstrings]\"\n which-key-separator \"toggle-docstrings,\"\n \" \\\\[which-key-show-standard-help]\"\n which-key-separator \"help,\"\n \" \\\\[which-key-abort]\"\n which-key-separator \"abort\"\n \" 1..9\"\n which-key-separator \"digit-arg\"))\n 'face 'which-key-note-face)))\n (key (string (read-key prompt)))\n (cmd (lookup-key which-key-C-h-map key))\n (which-key-inhibit t))\n (if cmd (funcall cmd key) (which-key-turn-page 0)))))))\n\n;;; Update\n\n(defun which-key--any-match-p (regexps string)\n \"Non-nil if any of REGEXPS match STRING.\"\n (catch 'match\n (dolist (regexp regexps)\n (when (string-match-p regexp string)\n (throw 'match t)))))\n\n(defun which-key--try-2-side-windows\n (bindings prefix-keys prefix-title loc1 loc2 &rest _ignore)\n \"Try to show BINDINGS (PAGE-N) in LOC1 first.\n\nOnly if no bindings fit fallback to LOC2.\"\n (let (pages1)\n (let ((which-key-side-window-location loc1)\n (which-key--multiple-locations t))\n (setq pages1 (which-key--create-pages\n bindings prefix-keys prefix-title)))\n (if pages1\n (progn\n (setq which-key--pages-obj pages1)\n (let ((which-key-side-window-location loc1)\n (which-key--multiple-locations t))\n (which-key--show-page))\n loc1)\n (let ((which-key-side-window-location loc2)\n (which-key--multiple-locations t))\n (setq which-key--pages-obj\n (which-key--create-pages bindings prefix-keys prefix-title))\n (which-key--show-page)\n loc2))))\n\n(defun which-key--read-keymap ()\n \"Read keymap symbol from minibuffer.\"\n (intern\n (completing-read \"Keymap: \" obarray\n (lambda (m)\n (and (boundp m)\n (keymapp (symbol-value m))\n (not (equal (symbol-value m)\n (make-sparse-keymap)))))\n t\n (let ((sym (symbol-at-point)))\n (and (boundp sym)\n (keymapp (symbol-value sym))\n (symbol-name sym)))\n 'which-key-keymap-history)))\n\n;;;###autoload\n(defun which-key-show-keymap (keymap &optional no-paging)\n \"Show the top-level bindings in KEYMAP using which-key. KEYMAP\nis selected interactively from all available keymaps.\n\nIf NO-PAGING is non-nil, which-key will not intercept subsequent\nkeypresses for the paging functionality.\"\n (interactive (list (which-key--read-keymap)))\n (which-key--show-keymap (symbol-name keymap)\n (symbol-value keymap)\n nil nil no-paging))\n\n;;;###autoload\n(defun which-key-show-full-keymap (keymap)\n \"Show all bindings in KEYMAP using which-key. KEYMAP is\nselected interactively from all available keymaps.\"\n (interactive (list (which-key--read-keymap)))\n (which-key--show-keymap (symbol-name keymap)\n (symbol-value keymap)\n nil t))\n\n;;;###autoload\n(defun which-key-show-minor-mode-keymap ()\n \"Show the top-level bindings in KEYMAP using which-key. KEYMAP\nis selected interactively by mode in `minor-mode-map-alist'.\"\n (interactive)\n (let ((mode-sym\n (intern\n (completing-read\n \"Minor Mode: \"\n (mapcar 'car\n (cl-remove-if-not\n (lambda (entry)\n (and (symbol-value (car entry))\n (not (equal (cdr entry) (make-sparse-keymap)))))\n minor-mode-map-alist))\n nil t nil 'which-key-keymap-history))))\n (which-key--show-keymap (symbol-name mode-sym)\n (cdr (assq mode-sym minor-mode-map-alist)))))\n\n(defun which-key--show-keymap\n (keymap-name keymap &optional prior-args all no-paging)\n (when prior-args (push prior-args which-key--prior-show-keymap-args))\n (let ((bindings (which-key--get-bindings nil keymap nil all)))\n (if (= (length bindings) 0)\n (message \"which-key: No bindings found in %s\" keymap-name)\n (cond ((listp which-key-side-window-location)\n (setq which-key--last-try-2-loc\n (apply #'which-key--try-2-side-windows\n bindings nil keymap-name\n which-key-side-window-location)))\n (t (setq which-key--pages-obj\n (which-key--create-pages bindings nil keymap-name))\n (which-key--show-page)))\n (unless no-paging\n (let* ((key (key-description (list (read-key))))\n (next-def (lookup-key keymap (kbd key))))\n (cond ((and which-key-use-C-h-commands (string= \"C-h\" key))\n (which-key-C-h-dispatch))\n ((keymapp next-def)\n (which-key--hide-popup-ignore-command)\n (which-key--show-keymap (concat keymap-name \" \" key) next-def\n (cons keymap-name keymap)))\n (t (which-key--hide-popup))))))))\n\n(defun which-key--evil-operator-filter (binding)\n (let ((def (intern (cdr binding))))\n (and (functionp def)\n (not (evil-get-command-property def :suppress-operator)))))\n\n(defun which-key--show-evil-operator-keymap ()\n (if which-key--inhibit-next-operator-popup\n (setq which-key--inhibit-next-operator-popup nil)\n (let ((keymap\n (make-composed-keymap (list evil-operator-shortcut-map\n evil-operator-state-map\n evil-motion-state-map))))\n (when (keymapp keymap)\n (let ((formatted-keys\n (which-key--get-bindings\n nil keymap #'which-key--evil-operator-filter)))\n (cond ((= (length formatted-keys) 0)\n (message \"which-key: Keymap empty\"))\n ((listp which-key-side-window-location)\n (setq which-key--last-try-2-loc\n (apply #'which-key--try-2-side-windows\n formatted-keys nil \"evil operator/motion keys\"\n which-key-side-window-location)))\n (t (setq which-key--pages-obj\n (which-key--create-pages\n formatted-keys\n nil \"evil operator/motion keys\"))\n (which-key--show-page)))))\n (let* ((key (key-description (list (read-key)))))\n (when (member key '(\"f\" \"F\" \"t\" \"T\" \"`\"))\n ;; these keys trigger commands that read the next char manually\n (setq which-key--inhibit-next-operator-popup t))\n (cond ((and which-key-use-C-h-commands (string= \"C-h\" key))\n (which-key-C-h-dispatch))\n ((string= key \"ESC\")\n (which-key--hide-popup)\n (keyboard-quit))\n (t\n (which-key--hide-popup)\n (setq unread-command-events (listify-key-sequence key))))))))\n\n(defun which-key--create-buffer-and-show\n (&optional prefix-keys from-keymap filter prefix-title)\n \"Fill `which-key--buffer' with key descriptions and reformat.\nFinally, show the buffer.\"\n (let ((start-time (current-time))\n (formatted-keys (which-key--get-bindings\n prefix-keys from-keymap filter))\n (prefix-desc (key-description prefix-keys)))\n (cond ((= (length formatted-keys) 0)\n (message \"%s- which-key: There are no keys to show\" prefix-desc))\n ((listp which-key-side-window-location)\n (setq which-key--last-try-2-loc\n (apply #'which-key--try-2-side-windows\n formatted-keys prefix-keys prefix-title\n which-key-side-window-location)))\n (t (setq which-key--pages-obj\n (which-key--create-pages\n formatted-keys prefix-keys prefix-title))\n (which-key--show-page)))\n (which-key--debug-message\n \"On prefix \\\"%s\\\" which-key took %.0f ms.\" prefix-desc\n (* 1000 (float-time (time-since start-time))))))\n\n(defun which-key--this-command-keys ()\n \"Version of `this-single-command-keys' corrected for key-chords and god-mode.\"\n (let ((this-command-keys (this-single-command-keys)))\n (when (and (equal this-command-keys [key-chord])\n (bound-and-true-p key-chord-mode))\n (setq this-command-keys\n (condition-case nil\n (let ((rkeys (recent-keys)))\n (vector 'key-chord\n ;; Take the two preceding the last one, because the\n ;; read-event call in key-chord seems to add a\n ;; spurious key press to this list. Note this is\n ;; different from guide-key's method which didn't work\n ;; for me.\n (aref rkeys (- (length rkeys) 3))\n (aref rkeys (- (length rkeys) 2))))\n (error (progn\n (message \"which-key error in key-chord handling\")\n [key-chord])))))\n (when (and which-key--god-mode-support-enabled\n (bound-and-true-p god-local-mode)\n (eq this-command 'god-mode-self-insert))\n (setq this-command-keys (when which-key--god-mode-key-string\n (kbd which-key--god-mode-key-string))))\n this-command-keys))\n\n(defun which-key--update ()\n \"Function run by timer to possibly trigger\n`which-key--create-buffer-and-show'.\"\n (let ((prefix-keys (which-key--this-command-keys))\n delay-time)\n (cond ((and (> (length prefix-keys) 0)\n (or (keymapp (key-binding prefix-keys))\n ;; Some keymaps are stored here like iso-transl-ctl-x-8-map\n (keymapp (which-key--safe-lookup-key\n key-translation-map prefix-keys))\n ;; just in case someone uses one of these\n (keymapp (which-key--safe-lookup-key\n function-key-map prefix-keys)))\n (not which-key-inhibit)\n (or (null which-key-allow-regexps)\n (which-key--any-match-p\n which-key-allow-regexps (key-description prefix-keys)))\n (or (null which-key-inhibit-regexps)\n (not\n (which-key--any-match-p\n which-key-inhibit-regexps (key-description prefix-keys))))\n ;; Do not display the popup if a command is currently being\n ;; executed\n (or (and which-key-allow-evil-operators\n (bound-and-true-p evil-this-operator))\n (and which-key--god-mode-support-enabled\n (bound-and-true-p god-local-mode)\n (eq this-command 'god-mode-self-insert))\n (null this-command)))\n (when (and (not (equal prefix-keys (which-key--current-prefix)))\n (or (null which-key-delay-functions)\n (null (setq delay-time\n (run-hook-with-args-until-success\n 'which-key-delay-functions\n (key-description prefix-keys)\n (length prefix-keys))))\n (sit-for delay-time)))\n (setq which-key--automatic-display t)\n (which-key--create-buffer-and-show prefix-keys)\n (when (and which-key-idle-secondary-delay\n (not which-key--secondary-timer-active))\n (which-key--start-timer which-key-idle-secondary-delay t))))\n ((and which-key-show-transient-maps\n (keymapp overriding-terminal-local-map)\n ;; basic test for it being a hydra\n (not (eq (lookup-key overriding-terminal-local-map \"\\C-u\")\n 'hydra--universal-argument)))\n (which-key--create-buffer-and-show\n nil overriding-terminal-local-map))\n ((and which-key-show-operator-state-maps\n (bound-and-true-p evil-state)\n (eq evil-state 'operator)\n (not (which-key--popup-showing-p)))\n (which-key--show-evil-operator-keymap))\n (which-key--automatic-display\n (which-key--hide-popup)))))\n\n;;; Timers\n\n(defun which-key--start-timer (&optional delay secondary)\n \"Activate idle timer to trigger `which-key--update'.\"\n (which-key--stop-timer)\n (setq which-key--secondary-timer-active secondary)\n (setq which-key--timer\n (run-with-idle-timer\n (if delay\n delay\n which-key-idle-delay) t #'which-key--update)))\n\n(defun which-key--stop-timer ()\n \"Deactivate idle timer for `which-key--update'.\"\n (when which-key--timer (cancel-timer which-key--timer)))\n\n(defun which-key--start-paging-timer ()\n \"Activate timer to restart which-key after paging.\"\n (when which-key--paging-timer (cancel-timer which-key--paging-timer))\n (which-key--stop-timer)\n (setq which-key--paging-timer\n (run-with-idle-timer\n 0.2 t (lambda ()\n (when (or (not (member real-last-command\n which-key--paging-functions))\n (and (< 0 (length (this-single-command-keys)))\n (not (equal (which-key--current-prefix)\n (which-key--this-command-keys)))))\n (cancel-timer which-key--paging-timer)\n (if which-key-idle-secondary-delay\n ;; we haven't executed a command yet so the secandary\n ;; timer is more relevant here\n (which-key--start-timer which-key-idle-secondary-delay t)\n (which-key--start-timer)))))))\n\n(provide 'which-key)\n;;; which-key.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"which-key-20180608.551","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":1676177,"end":1676210},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1676210},"to":{"change":7,"start":1676176,"end":1676176},"introduced_by":7}],"inode":{"change":7,"pos":1676176}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"which-key-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1676176},"to":{"change":7,"start":1793222,"end":1793268},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1793268},"to":{"change":7,"start":1787827,"end":1787827},"introduced_by":7}],"inode":{"change":7,"pos":1787827}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1787827},"to":{"change":7,"start":1787828,"end":1793221},"introduced_by":7}],"inode":{"change":7,"pos":1787827}},"content":[{"Del":";;; which-key-autoloads.el --- automatically extracted autoloads\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"which-key\" \"which-key.el\" (0 0 0 0))\n;;; Generated autoloads from which-key.el\n\n(defvar which-key-mode nil \"\\\nNon-nil if Which-Key mode is enabled.\nSee the `which-key-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `which-key-mode'.\")\n\n(custom-autoload 'which-key-mode \"which-key\" nil)\n\n(autoload 'which-key-mode \"which-key\" \"\\\nToggle which-key-mode.\n\n\\(fn &optional ARG)\" t nil)\n\n(autoload 'which-key-setup-side-window-right \"which-key\" \"\\\nApply suggested settings for side-window that opens on right.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-setup-side-window-right-bottom \"which-key\" \"\\\nApply suggested settings for side-window that opens on right\nif there is space and the bottom otherwise.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-setup-side-window-bottom \"which-key\" \"\\\nApply suggested settings for side-window that opens on\nbottom.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-setup-minibuffer \"which-key\" \"\\\nApply suggested settings for minibuffer.\nDo not use this setup if you use the paging commands. Instead use\n`which-key-setup-side-window-bottom', which is nearly identical\nbut more functional.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-add-key-based-replacements \"which-key\" \"\\\nReplace the description of KEY-SEQUENCE with REPLACEMENT.\nKEY-SEQUENCE is a string suitable for use in `kbd'. REPLACEMENT\nmay either be a string, as in\n\n\\(which-key-add-key-based-replacements \\\"C-x 1\\\" \\\"maximize\\\")\n\na cons of two strings as in\n\n\\(which-key-add-key-based-replacements \\\"C-x 8\\\"\n '(\\\"unicode\\\" . \\\"Unicode keys\\\"))\n\nor a function that takes a (KEY . BINDING) cons and returns a\nreplacement.\n\nIn the second case, the second string is used to provide a longer\nname for the keys under a prefix.\n\nMORE allows you to specifcy additional KEY REPLACEMENT pairs. All\nreplacements are added to\n`which-key-key-based-description-replacement-alist'.\n\n\\(fn KEY-SEQUENCE REPLACEMENT &rest MORE)\" nil nil)\n\n(autoload 'which-key-add-major-mode-key-based-replacements \"which-key\" \"\\\nFunctions like `which-key-add-key-based-replacements'.\nThe difference is that MODE specifies the `major-mode' that must\nbe active for KEY-SEQUENCE and REPLACEMENT (MORE contains\naddition KEY-SEQUENCE REPLACEMENT pairs) to apply.\n\n\\(fn MODE KEY-SEQUENCE REPLACEMENT &rest MORE)\" nil nil)\n\n(autoload 'which-key-reload-key-sequence \"which-key\" \"\\\nSimulate entering the key sequence KEY-SEQ.\nKEY-SEQ should be a list of events as produced by\n`listify-key-sequence'. If nil, KEY-SEQ defaults to\n`which-key--current-key-list'. Any prefix arguments that were\nused are reapplied to the new key sequence.\n\n\\(fn &optional KEY-SEQ)\" nil nil)\n\n(autoload 'which-key-show-standard-help \"which-key\" \"\\\nCall the command in `which-key--prefix-help-cmd-backup'.\nUsually this is `describe-prefix-bindings'.\n\n\\(fn &optional _)\" t nil)\n\n(autoload 'which-key-show-next-page-no-cycle \"which-key\" \"\\\nShow next page of keys unless on the last page, in which case\ncall `which-key-show-standard-help'.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-show-previous-page-no-cycle \"which-key\" \"\\\nShow previous page of keys unless on the first page, in which\ncase do nothing.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-show-next-page-cycle \"which-key\" \"\\\nShow the next page of keys, cycling from end to beginning\nafter last page.\n\n\\(fn &optional _)\" t nil)\n\n(autoload 'which-key-show-previous-page-cycle \"which-key\" \"\\\nShow the previous page of keys, cycling from beginning to end\nafter first page.\n\n\\(fn &optional _)\" t nil)\n\n(autoload 'which-key-show-top-level \"which-key\" \"\\\nShow top-level bindings.\n\n\\(fn &optional _)\" t nil)\n\n(autoload 'which-key-show-major-mode \"which-key\" \"\\\nShow top-level bindings in the map of the current major mode.\n\nThis function will also detect evil bindings made using\n`evil-define-key' in this map. These bindings will depend on the\ncurrent evil state. \n\n\\(fn)\" t nil)\n\n(autoload 'which-key-undo-key \"which-key\" \"\\\nUndo last keypress and force which-key update.\n\n\\(fn &optional _)\" t nil)\n\n(autoload 'which-key-C-h-dispatch \"which-key\" \"\\\nDispatch C-h commands by looking up key in\n`which-key-C-h-map'. This command is always accessible (from any\nprefix) if `which-key-use-C-h-commands' is non nil.\n\n\\(fn)\" t nil)\n\n(autoload 'which-key-show-keymap \"which-key\" \"\\\nShow the top-level bindings in KEYMAP using which-key. KEYMAP\nis selected interactively from all available keymaps.\n\n\\(fn KEYMAP)\" t nil)\n\n(autoload 'which-key-show-full-keymap \"which-key\" \"\\\nShow all bindings in KEYMAP using which-key. KEYMAP is\nselected interactively from all available keymaps.\n\n\\(fn KEYMAP)\" t nil)\n\n(autoload 'which-key-show-minor-mode-keymap \"which-key\" \"\\\nShow the top-level bindings in KEYMAP using which-key. KEYMAP\nis selected interactively by mode in `minor-mode-map-alist'.\n\n\\(fn)\" t nil)\n\n(if (fboundp 'register-definition-prefixes) (register-definition-prefixes \"which-key\" '(\"which-key-\")))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; which-key-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"which-key-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1676176},"to":{"change":7,"start":1787785,"end":1787825},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1787825},"to":{"change":7,"start":1787546,"end":1787546},"introduced_by":7}],"inode":{"change":7,"pos":1787546}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1787546},"to":{"change":7,"start":1787547,"end":1787784},"introduced_by":7}],"inode":{"change":7,"pos":1787546}},"content":[{"Del":";;; -*- no-byte-compile: t -*-\r\n(define-package \"which-key\" \"20180608.551\" \"Display available keybindings in popup\" '((emacs \"24.4\")) :commit \"a4095e8ee6f932e049cebd90ab41b95b869ce3e4\" :url \"https://github.com/justbur/emacs-which-key\")\r\n"}]}},{"FileDel":{"deleted_names":[{"basename":"which-key.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1676176},"to":{"change":7,"start":1787508,"end":1787544},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1787544},"to":{"change":7,"start":1676212,"end":1676212},"introduced_by":7}],"inode":{"change":7,"pos":1676212}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1676212},"to":{"change":7,"start":1676213,"end":1787507},"introduced_by":7}],"inode":{"change":7,"pos":1676212}},"content":[{"Del":";;; which-key.el --- Display available keybindings in popup -*- lexical-binding: t; -*-\n\n;; Copyright (C) 2017 Free Software Foundation, Inc.\n\n;; Author: Justin Burkett \n;; Maintainer: Justin Burkett \n;; URL: https://github.com/justbur/emacs-which-key\n;; Package-Version: 20180608.551\n;; Version: 3.2.0\n;; Keywords:\n;; Package-Requires: ((emacs \"24.4\"))\n\n;; This program is free software; you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; which-key provides the minor mode which-key-mode for Emacs. The mode displays\n;; the key bindings following your currently entered incomplete command (a\n;; prefix) in a popup. For example, after enabling the minor mode if you enter\n;; C-x and wait for the default of 1 second the minibuffer will expand with all\n;; of the available key bindings that follow C-x (or as many as space allows\n;; given your settings). This includes prefixes like C-x 8 which are shown in a\n;; different face. Screenshots of what the popup will look like along with\n;; information about additional features can be found at\n;; https://github.com/justbur/emacs-which-key.\n;;\n\n;;; Code:\n\n(require 'cl-lib)\n(require 'button)\n(require 'regexp-opt)\n\n;; For compiler\n(defvar evil-operator-shortcut-map)\n(defvar evil-operator-state-map)\n(defvar evil-motion-state-map)\n(defvar golden-ratio-mode)\n(declare-function evil-get-command-property \"ext:evil-common.el\")\n\n;;; Options\n\n(defgroup which-key nil\n \"Customization options for which-key-mode\"\n :group 'help\n :prefix \"which-key-\")\n\n(defcustom which-key-idle-delay 1.0\n \"Delay (in seconds) for which-key buffer to popup. A value of zero\nmight lead to issues, so a non-zero value is recommended\n(see https://github.com/justbur/emacs-which-key/issues/134).\"\n :group 'which-key\n :type 'float)\n\n(defcustom which-key-idle-secondary-delay nil\n \"Once the which-key buffer shows once for a key sequence reduce\nthe idle time to this amount (in seconds). This makes it possible\nto shorten the delay for subsequent popups in the same key\nsequence. The default is for this value to be nil, which disables\nthis behavior.\"\n :group 'which-key\n :type '(choice float (const :tag \"Disabled\" nil)))\n\n(defcustom which-key-echo-keystrokes (if (and echo-keystrokes\n (> (+ echo-keystrokes 0.01)\n which-key-idle-delay))\n (/ (float which-key-idle-delay) 4)\n echo-keystrokes)\n \"Value to use for `echo-keystrokes'.\nThis only applies if `which-key-popup-type' is minibuffer or\n`which-key-show-prefix' is echo. It needs to be less than\n`which-key-idle-delay' or else the keystroke echo will erase the\nwhich-key popup.\"\n :group 'which-key\n :type 'float)\n\n(defcustom which-key-max-description-length 27\n \"Truncate the description of keys to this length.\nAlso adds \\\"..\\\". If nil, disable any truncation.\"\n :group 'which-key\n :type '(choice integer (const :tag \"Disable truncation\" nil)))\n\n(defcustom which-key-add-column-padding 0\n \"Additional padding (number of spaces) to add to the left of\neach key column.\"\n :group 'which-key\n :type 'integer)\n\n(defcustom which-key-unicode-correction 3\n \"Correction for wide unicode characters.\nSince we measure width in terms of the number of characters,\nUnicode characters that are wider than ASCII characters throw off\nthe calculation for available width in the which-key buffer. This\nvariable allows you to adjust for the wide unicode characters by\nartificially reducing the available width in the buffer.\n\nThe default of 3 means allow for the total extra width\ncontributed by any wide unicode characters to be up to one\nadditional ASCII character in the which-key buffer. Increase this\nnumber if you are seeing charaters get cutoff on the right side\nof the which-key popup.\"\n :group 'which-key\n :type 'integer)\n\n(defcustom which-key-dont-use-unicode nil\n \"If non-nil, don't use any unicode characters in default setup.\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-separator\n (if which-key-dont-use-unicode \" : \" \" → \")\n \"Separator to use between key and description. Default is \\\" →\n\\\", unless `which-key-dont-use-unicode' is non nil, in which case\nthe default is \\\" : \\\".\"\n :group 'which-key\n :type 'string)\n\n(defcustom which-key-prefix-prefix \"+\"\n \"String to insert in front of prefix commands (i.e., commands\nthat represent a sub-map). Default is \\\"+\\\".\"\n :group 'which-key\n :type 'string)\n\n(defcustom which-key-compute-remaps nil\n \"If non-nil, show remapped command if a command has been\nremapped given the currently active keymaps.\"\n :group 'which-key\n :type 'boolean)\n\n(defvar which-key-key-replacement-alist nil)\n(make-obsolete-variable 'which-key-key-replacement-alist\n 'which-key-replacement-alist \"2016-11-21\")\n(defvar which-key-description-replacement-alist nil)\n(make-obsolete-variable 'which-key-description-replacement-alist\n 'which-key-replacement-alist \"2016-11-21\")\n(defvar which-key-key-based-description-replacement-alist nil)\n(make-obsolete-variable 'which-key-key-based-description-replacement-alist\n 'which-key-replacement-alist \"2016-11-21\")\n\n(defcustom which-key-replacement-alist\n (delq nil\n `(((nil . \"Prefix Command\") . (nil . \"prefix\"))\n ((nil . \"\\\\`\\\\?\\\\?\\\\'\") . (nil . \"lambda\"))\n ((nil . \"which-key-show-next-page-no-cycle\") . (nil . \"wk next pg\"))\n ,@(unless which-key-dont-use-unicode\n '(((\"\") . (\"←\"))\n ((\"\") . (\"→\"))))\n ((\"<\\\$[[:alnum:]-]+\\\$>\") . (\"\\\\1\"))))\n \"Association list to determine how to manipulate descriptions\nof key bindings in the which-key popup. Each element of the list\nis a nested cons cell with the format\n\n\$MATCH CONS . REPLACEMENT\$.\n\nThe MATCH CONS determines when a replacement should occur and\nREPLACEMENT determines how the replacement should occur. Each may\nhave the format \$KEY REGEXP . BINDING REGEXP\$. For the\nreplacement to apply the key binding must match both the KEY\nREGEXP and the BINDING REGEXP. A value of nil in either position\ncan be used to match every possibility. The replacement is\nperformed by using `replace-regexp-in-string' on the KEY REGEXP\nfrom the MATCH CONS and REPLACEMENT when it is a cons cell, and\nthen similarly for the BINDING REGEXP. A nil value in the BINDING\nREGEXP position cancels the replacement. For example, the entry\n\n\$\\(nil . \\\"Prefix Command\\\"\$ . \$nil . \\\"prefix\\\"\$\\)\n\nmatches any binding with the descriptions \\\"Prefix Command\\\" and\nreplaces the description with \\\"prefix\\\", ignoring the\ncorresponding key.\n\nREPLACEMENT may also be a function taking a cons cell\n\$KEY . BINDING\$ and producing a new corresponding cons cell.\n\nIf REPLACEMENT is anything other than a cons cell \$and non nil\$\nthe key binding is ignored by which-key.\n\nFinally, you can multiple replacements to occur for a given key\nbinding by setting `which-key-allow-multiple-replacements' to a\nnon-nil value.\"\n :group 'which-key\n :type '(alist :key-type (cons (choice regexp (const nil))\n (choice regexp (const nil)))\n :value-type (cons (choice string (const nil))\n (choice string (const nil)))))\n\n(when (bound-and-true-p which-key-key-replacement-alist)\n (mapc\n (lambda (repl)\n (push (cons (cons (car repl) nil) (cons (cdr repl) nil))\n which-key-replacement-alist))\n which-key-key-replacement-alist))\n(when (bound-and-true-p which-key-description-replacement-alist)\n (mapc\n (lambda (repl)\n (push (cons (cons nil (car repl)) (cons nil (cdr repl)))\n which-key-replacement-alist))\n which-key-description-replacement-alist))\n\n(defcustom which-key-allow-multiple-replacements nil\n \"Allow a key binding to match and be modified by multiple\nelements in `which-key-replacement-alist' if non-nil. When nil,\nonly the first match is used to perform replacements from\n`which-key-replacement-alist'.\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-show-docstrings nil\n \"If non-nil, show each command's docstring next to the command\nin the which-key buffer. This will only display the docstring up\nto the first line break. If you set this variable to the symbol\ndocstring-only, then the command's name with be omitted. You\nprobably also want to adjust `which-key-max-description-length'\nat the same time if you use this feature.\"\n :group 'which-key\n :type '(radio\n (const :tag \"Do not show docstrings\" nil)\n (const :tag \"Add docstring to command names\" t)\n (const :tag \"Replace command name with docstring\" docstring-only)))\n\n(defcustom which-key-highlighted-command-list '()\n \"A list of strings and/or cons cells used to highlight certain\ncommands. If the element is a string, assume it is a regexp\npattern for matching command names and use\n`which-key-highlighted-command-face' for any matching names. If\nthe element is a cons cell, it should take the form (regexp .\nface to apply).\"\n :group 'which-key\n :type '(repeat (choice string (cons regexp face))))\n\n(defcustom which-key-special-keys '()\n \"These keys will automatically be truncated to one character\nand have `which-key-special-key-face' applied to them. This is\ndisabled by default. Try this to see the effect.\n\n\$setq which-key-special-keys '(\\\"SPC\\\" \\\"TAB\\\" \\\"RET\\\" \\\"ESC\\\" \\\"DEL\\\")\$\"\n :group 'which-key\n :type '(repeat string))\n\n(defcustom which-key-buffer-name \" *which-key*\"\n \"Name of which-key buffer.\"\n :group 'which-key\n :type 'string)\n\n(defcustom which-key-show-prefix 'echo\n \"Whether to and where to display the current prefix sequence.\nPossible choices are echo for echo area (the default), left, top\nand nil. Nil turns the feature off.\"\n :group 'which-key\n :type '(radio (const :tag \"Left of the keys\" left)\n (const :tag \"In the first line\" top)\n (const :tag \"In the last line\" bottom)\n (const :tag \"In the echo area\" echo)\n (const :tag \"In the mode-line\" mode-line)\n (const :tag \"Hide\" nil)))\n\n(defcustom which-key-popup-type 'side-window\n \"Supported types are minibuffer, side-window, frame, and custom.\"\n :group 'which-key\n :type '(radio (const :tag \"Show in minibuffer\" minibuffer)\n (const :tag \"Show in side window\" side-window)\n (const :tag \"Show in popup frame\" frame)\n (const :tag \"Use your custom display functions\" custom)))\n\n(defcustom which-key-min-display-lines 1\n \"The minimum number of horizontal lines to display in the\n which-key buffer.\"\n :group 'which-key\n :type 'integer)\n\n(defcustom which-key-max-display-columns nil\n \"The maximum number of columns to display in the which-key\nbuffer. nil means don't impose a maximum.\"\n :group 'which-key\n :type '(choice integer (const :tag \"Unbounded\" nil)))\n\n(defcustom which-key-side-window-location 'bottom\n \"Location of which-key popup when `which-key-popup-type' is side-window.\nShould be one of top, bottom, left or right. You can also specify\na list of two locations, like (right bottom). In this case, the\nfirst location is tried. If there is not enough room, the second\nlocation is tried.\"\n :group 'which-key\n :type '(radio (const right)\n (const bottom)\n (const left)\n (const top)\n (const (right bottom))\n (const (bottom right))))\n\n(defcustom which-key-side-window-slot 0\n \"The `slot' to use for `display-buffer-in-side-window' when\n`which-key-popup-type' is 'side-window. Quoting from the\ndocstring of `display-buffer-in-side-window',\n\n‘slot’ if non-nil, specifies the window slot where to display\n BUFFER. A value of zero or nil means use the middle slot on\n the specified side. A negative value means use a slot\n preceding (that is, above or on the left of) the middle slot.\n A positive value means use a slot following (that is, below or\n on the right of) the middle slot. The default is zero.\"\n :group 'which-key\n :type 'integer)\n\n(defcustom which-key-side-window-max-width 0.333\n \"Maximum width of which-key popup when type is side-window and\nlocation is left or right.\nThis variable can also be a number between 0 and 1. In that case, it denotes\na percentage out of the frame's width.\"\n :group 'which-key\n :type 'float)\n\n(defcustom which-key-side-window-max-height 0.25\n \"Maximum height of which-key popup when type is side-window and\nlocation is top or bottom.\nThis variable can also be a number between 0 and 1. In that case, it denotes\na percentage out of the frame's height.\"\n :group 'which-key\n :type 'float)\n\n(defcustom which-key-frame-max-width 60\n \"Maximum width of which-key popup when type is frame.\"\n :group 'which-key\n :type 'integer)\n\n(defcustom which-key-frame-max-height 20\n \"Maximum height of which-key popup when type is frame.\"\n :group 'which-key\n :type 'integer)\n\n(defcustom which-key-allow-imprecise-window-fit nil\n \"If non-nil allow which-key to use a less intensive method of\nfitting the popup window to the buffer. If you are noticing lag\nwhen the which-key popup displays turning this on may help.\n\nSee https://github.com/justbur/emacs-which-key/issues/130\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-show-remaining-keys nil\n \"Show remaining keys in last slot, when keys are hidden.\"\n :group 'which-key\n :type '(radio (const :tag \"Yes\" t)\n (const :tag \"No\" nil)))\n\n(defcustom which-key-sort-order 'which-key-key-order\n \"If nil, do not resort the output from\n`describe-buffer-bindings' which groups by mode. Ordering options\nare\n\n1. `which-key-key-order': by key (default)\n2. `which-key-key-order-alpha': by key using alphabetical order\n3. `which-key-description-order': by description\n4. `which-key-prefix-then-key-order': prefix (no prefix first) then key\n5. `which-key-local-then-key-order': local binding then key\n\nSee the README and the docstrings for those functions for more\ninformation.\"\n :group 'which-key\n :type '(choice (function-item which-key-key-order)\n (function-item which-key-key-order-alpha)\n (function-item which-key-description-order)\n (function-item which-key-prefix-then-key-order)\n (function-item which-key-local-then-key-order)))\n\n(defcustom which-key-sort-uppercase-first t\n \"If non-nil, uppercase comes before lowercase in sorting\nfunction chosen in `which-key-sort-order'. Otherwise, the order\nis reversed.\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-paging-prefixes '()\n \"Enable paging for these prefixes.\"\n :group 'which-key\n :type '(repeat string))\n\n(defcustom which-key-paging-key \"\"\n \"Key to use for changing pages. Bound after each of the\nprefixes in `which-key-paging-prefixes'\"\n :group 'which-key\n :type 'string)\n\n;; (defcustom which-key-undo-key nil\n;; \"Key (string) to use for undoing keypresses. Bound recursively\n;; in each of the maps in `which-key-undo-keymaps'.\"\n;; :group 'which-key\n;; :type 'string)\n\n;; (defcustom which-key-undo-keymaps '()\n;; \"Keymaps in which to bind `which-key-undo-key'\"\n;; :group 'which-key\n;; :type '(repeat symbol))\n\n(defcustom which-key-use-C-h-commands t\n \"Use C-h for paging if non-nil. Normally C-h after a prefix\n calls `describe-prefix-bindings'. This changes that command to\n a which-key paging command when which-key-mode is active.\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-is-verbose nil\n \"Whether to warn about potential mistakes in configuration.\"\n :group 'which-key\n :type 'boolean)\n\n(defvar which-key-C-h-map\n (let ((map (make-sparse-keymap)))\n (dolist (bind '((\"\\C-a\" . which-key-abort)\n (\"a\" . which-key-abort)\n (\"\\C-d\" . which-key-toggle-docstrings)\n (\"d\" . which-key-toggle-docstrings)\n (\"\\C-h\" . which-key-show-standard-help)\n (\"h\" . which-key-show-standard-help)\n (\"\\C-n\" . which-key-show-next-page-cycle)\n (\"n\" . which-key-show-next-page-cycle)\n (\"\\C-p\" . which-key-show-previous-page-cycle)\n (\"p\" . which-key-show-previous-page-cycle)\n (\"\\C-u\" . which-key-undo-key)\n (\"u\" . which-key-undo-key)\n (\"1\" . which-key-digit-argument)\n (\"2\" . which-key-digit-argument)\n (\"3\" . which-key-digit-argument)\n (\"4\" . which-key-digit-argument)\n (\"5\" . which-key-digit-argument)\n (\"6\" . which-key-digit-argument)\n (\"7\" . which-key-digit-argument)\n (\"8\" . which-key-digit-argument)\n (\"9\" . which-key-digit-argument)))\n (define-key map (car bind) (cdr bind)))\n map)\n \"Keymap for C-h commands.\")\n\n(defvar which-key--paging-functions '(which-key-C-h-dispatch\n which-key-turn-page\n which-key-show-next-page-cycle\n which-key-show-next-page-no-cycle\n which-key-show-previous-page-cycle\n which-key-show-previous-page-no-cycle\n which-key-undo-key\n which-key-undo))\n\n(defcustom which-key-hide-alt-key-translations t\n \"Hide key translations using Alt key if non nil.\nThese translations are not relevant most of the times since a lot\nof terminals issue META modifier for the Alt key.\n\nSee http://www.gnu.org/software/emacs/manual/html_node/emacs/Modifier-Keys.html\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-delay-functions nil\n \"A list of functions that may decide whether to delay the\nwhich-key popup based on the current incomplete key\nsequence. Each function in the list is run with two arguments,\nthe current key sequence as produced by `key-description' and the\nlength of the key sequence. If the popup should be delayed based\non that key sequence, the function should return the delay time\nin seconds. Returning nil means no delay. The first function in\nthis list to return a value is the value that is used.\n\nThe delay time is effectively added to the normal\n`which-key-idle-delay'.\"\n :group 'which-key\n :type '(repeat function))\n\n(defcustom which-key-allow-regexps nil\n \"A list of regexp strings to use to filter key sequences. When\nnon-nil, for a key sequence to trigger the which-key popup it\nmust match one of the regexps in this list. The format of the key\nsequences is what is produced by `key-description'.\"\n :group 'which-key\n :type '(repeat regexp))\n\n(defcustom which-key-inhibit-regexps nil\n \"Similar to `which-key-allow-regexps', a list of regexp strings\nto use to filter key sequences. When non-nil, for a key sequence\nto trigger the which-key popup it cannot match one of the regexps\nin this list. The format of the key sequences is what is produced\nby `key-description'.\"\n :group 'which-key\n :type '(repeat regexp))\n\n(defcustom which-key-show-transient-maps nil\n \"Show keymaps created by `set-transient-map' when applicable.\n\nMore specifically, detect when `overriding-terminal-local-map' is\nset (this is the keymap used by `set-transient-map') and display\nit.\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-enable-extended-define-key nil\n \"Advise `define-key' to make which-key aware of definitions of the form\n\n \\(define-key KEYMAP KEY '(\\\"DESCRIPTION\\\" . DEF))\n\nWith the advice, this definition will have the side effect of\ncreating a replacement in `which-key-replacement-alist' that\nreplaces DEF with DESCRIPTION when the key sequence ends in\nKEY. Using a cons cell like this is a valid definition for\n`define-key'. All this does is to make which-key aware of it.\n\nSince many higher level keybinding functions use `define-key'\ninternally, this will affect most if not all of those as well.\n\nThis variable must be set before loading which-key.\"\n :group 'which-key\n :type 'boolean)\n\n;; Hooks\n(defcustom which-key-init-buffer-hook '()\n \"Hook run when which-key buffer is initialized.\"\n :group 'which-key\n :type 'hook)\n\n;;;; Faces\n\n(defgroup which-key-faces nil\n \"Faces for which-key-mode\"\n :group 'which-key\n :prefix \"which-key-\")\n\n(defface which-key-key-face\n '((t . (:inherit font-lock-constant-face)))\n \"Face for which-key keys\"\n :group 'which-key-faces)\n\n(defface which-key-separator-face\n '((t . (:inherit font-lock-comment-face)))\n \"Face for the separator (default separator is an arrow)\"\n :group 'which-key-faces)\n\n(defface which-key-note-face\n '((t . (:inherit which-key-separator-face)))\n \"Face for notes or hints occasionally provided\"\n :group 'which-key-faces)\n\n(defface which-key-command-description-face\n '((t . (:inherit font-lock-function-name-face)))\n \"Face for the key description when it is a command\"\n :group 'which-key-faces)\n\n(defface which-key-local-map-description-face\n '((t . (:inherit which-key-command-description-face)))\n \"Face for the key description when it is found in `current-local-map'\"\n :group 'which-key-faces)\n\n(defface which-key-highlighted-command-face\n '((t . (:inherit which-key-command-description-face :underline t)))\n \"Default face for the command description when it is a command\nand it matches a string in `which-key-highlighted-command-list'.\"\n :group 'which-key-faces)\n\n(defface which-key-group-description-face\n '((t . (:inherit font-lock-keyword-face)))\n \"Face for the key description when it is a group or prefix\"\n :group 'which-key-faces)\n\n(defface which-key-special-key-face\n '((t . (:inherit which-key-key-face :inverse-video t :weight bold)))\n \"Face for special keys (SPC, TAB, RET)\"\n :group 'which-key-faces)\n\n(defface which-key-docstring-face\n '((t . (:inherit which-key-note-face)))\n \"Face for docstrings\"\n :group 'which-key-faces)\n\n;;;; Custom popup\n\n(defcustom which-key-custom-popup-max-dimensions-function nil\n \"Variable to hold a custom max-dimensions function.\nWill be passed the width of the active window and is expected to\nreturn the maximum height in lines and width in characters of the\nwhich-key popup in the form a cons cell (height . width).\"\n :group 'which-key\n :type '(choice function (const nil)))\n\n(defcustom which-key-custom-hide-popup-function nil\n \"Variable to hold a custom hide-popup function.\nIt takes no arguments and the return value is ignored.\"\n :group 'which-key\n :type '(choice function (const nil)))\n\n(defcustom which-key-custom-show-popup-function nil\n \"Variable to hold a custom show-popup function.\nWill be passed the required dimensions in the form (height .\nwidth) in lines and characters respectively. The return value is\nignored.\"\n :group 'which-key\n :type '(choice function (const nil)))\n\n(defcustom which-key-lighter \" WK\"\n \"Minor mode lighter to use in the mode-line.\"\n :group 'which-key\n :type 'string)\n\n(defvar which-key-inhibit nil\n \"Prevent which-key from popping up momentarily by setting this\nto a non-nil value for the execution of a command. Like this\n\n\$let \\(\\(which-key-inhibit t\$\\)\n...\\)\")\n\n(defvar which-key-keymap-history nil\n \"History of keymap selections in functions like\n`which-key-show-keymap'.\")\n\n;;; Internal Vars\n\n(defvar which-key--buffer nil\n \"Internal: Holds reference to which-key buffer.\")\n(defvar which-key--timer nil\n \"Internal: Holds reference to open window timer.\")\n(defvar which-key--secondary-timer-active nil\n \"Internal: Non-nil if the secondary timer is active.\")\n(defvar which-key--paging-timer nil\n \"Internal: Holds reference to timer for paging.\")\n(defvar which-key--frame nil\n \"Internal: Holds reference to which-key frame.\nUsed when `which-key-popup-type' is frame.\")\n(defvar which-key--echo-keystrokes-backup nil\n \"Internal: Backup the initial value of `echo-keystrokes'.\")\n(defvar which-key--prefix-help-cmd-backup nil\n \"Internal: Backup the value of `prefix-help-command'.\")\n(defvar which-key--last-try-2-loc nil\n \"Internal: Last location of side-window when two locations\nused.\")\n(defvar which-key--automatic-display nil\n \"Internal: Non-nil if popup was triggered with automatic\nupdate.\")\n(defvar which-key--multiple-locations nil)\n(defvar which-key--inhibit-next-operator-popup nil)\n(defvar which-key--prior-show-keymap-args nil)\n(defvar which-key--previous-frame-size nil)\n(defvar which-key--prefix-title-alist nil)\n(defvar which-key--debug nil)\n(defvar which-key--evil-keys-regexp (eval-when-compile\n (regexp-opt '(\"-state\"))))\n(defvar which-key--ignore-non-evil-keys-regexp\n (eval-when-compile\n (regexp-opt '(\"mouse-\" \"wheel-\" \"remap\" \"drag-\" \"scroll-bar\"\n \"select-window\" \"switch-frame\" \"which-key-\"))))\n(defvar which-key--ignore-keys-regexp\n (eval-when-compile\n (regexp-opt '(\"mouse-\" \"wheel-\" \"remap\" \"drag-\" \"scroll-bar\"\n \"select-window\" \"switch-frame\" \"-state\"\n \"which-key-\"))))\n\n(make-obsolete-variable 'which-key-prefix-name-alist nil \"2016-10-05\")\n(make-obsolete-variable 'which-key-prefix-title-alist nil \"2016-10-05\")\n\n(defvar which-key--pages-obj nil)\n(cl-defstruct which-key--pages\n pages\n height\n widths\n keys/page\n page-nums\n num-pages\n total-keys\n prefix\n prefix-title)\n\n(defun which-key--rotate (list n)\n (let* ((len (length list))\n (n (if (< n 0) (+ len n) n))\n (n (mod n len)))\n (append (last list (- len n)) (butlast list (- len n)))))\n\n(defun which-key--pages-set-current-page (pages-obj n)\n (setf (which-key--pages-pages pages-obj)\n (which-key--rotate (which-key--pages-pages pages-obj) n))\n (setf (which-key--pages-widths pages-obj)\n (which-key--rotate (which-key--pages-widths pages-obj) n))\n (setf (which-key--pages-keys/page pages-obj)\n (which-key--rotate (which-key--pages-keys/page pages-obj) n))\n (setf (which-key--pages-page-nums pages-obj)\n (which-key--rotate (which-key--pages-page-nums pages-obj) n))\n pages-obj)\n\n(defsubst which-key--on-first-page ()\n (= (which-key--pages-page-nums which-key--pages-obj) 1))\n\n(defsubst which-key--on-last-page ()\n (= (which-key--pages-page-nums which-key--pages-obj)\n (which-key--pages-num-pages which-key--pages-obj)))\n\n(defsubst which-key--current-prefix ()\n (when which-key--pages-obj\n (which-key--pages-prefix which-key--pages-obj)))\n\n;;; Third-party library support\n;;;; Evil\n\n(defcustom which-key-allow-evil-operators (boundp 'evil-this-operator)\n \"Allow popup to show for evil operators. The popup is normally\n inhibited in the middle of commands, but setting this to\n non-nil will override this behavior for evil operators.\"\n :group 'which-key\n :type 'boolean)\n\n(defcustom which-key-show-operator-state-maps nil\n \"Experimental: Try to show the right keys following an evil\ncommand that reads a motion, such as \\\"y\\\", \\\"d\\\" and \\\"c\\\" from\nnormal state. This is experimental, because there might be some\nvalid keys missing and it might be showing some invalid keys.\"\n :group 'which-key\n :type 'boolean)\n\n;;;;; God-mode\n\n(defvar which-key--god-mode-support-enabled nil\n \"Support god-mode if non-nil. This is experimental,\nso you need to explicitly opt-in for now. Please report any\nproblems at github.\")\n\n(defvar which-key--god-mode-key-string nil\n \"Holds key string to use for god-mode support.\")\n\n(defadvice god-mode-lookup-command\n (around which-key--god-mode-lookup-command-advice disable)\n (setq which-key--god-mode-key-string (ad-get-arg 0))\n (unwind-protect\n ad-do-it\n (when (bound-and-true-p which-key-mode)\n (which-key--hide-popup))))\n\n(defun which-key-enable-god-mode-support (&optional disable)\n \"Enable support for god-mode if non-nil. This is experimental,\nso you need to explicitly opt-in for now. Please report any\nproblems at github. If DISABLE is non-nil disable support.\"\n (interactive \"P\")\n (setq which-key--god-mode-support-enabled (null disable))\n (if disable\n (ad-disable-advice\n 'god-mode-lookup-command\n 'around 'which-key--god-mode-lookup-command-advice)\n (ad-enable-advice\n 'god-mode-lookup-command\n 'around 'which-key--god-mode-lookup-command-advice))\n (ad-activate 'god-mode-lookup-command))\n\n;;; Mode\n\n;;;###autoload\n(define-minor-mode which-key-mode\n \"Toggle which-key-mode.\"\n :global t\n :lighter which-key-lighter\n :keymap (let ((map (make-sparse-keymap)))\n (mapc\n (lambda (prefix)\n (define-key map\n (kbd (concat prefix \" \" which-key-paging-key))\n #'which-key-C-h-dispatch))\n which-key-paging-prefixes)\n map)\n (if which-key-mode\n (progn\n (setq which-key--echo-keystrokes-backup echo-keystrokes)\n (when (or (eq which-key-show-prefix 'echo)\n (eq which-key-popup-type 'minibuffer))\n (which-key--setup-echo-keystrokes))\n (unless (member prefix-help-command which-key--paging-functions)\n (setq which-key--prefix-help-cmd-backup prefix-help-command))\n (when which-key-use-C-h-commands\n (setq prefix-help-command #'which-key-C-h-dispatch))\n (when which-key-show-remaining-keys\n (add-hook 'pre-command-hook #'which-key--lighter-restore))\n (add-hook 'pre-command-hook #'which-key--hide-popup)\n (add-hook 'focus-out-hook #'which-key--stop-timer)\n (add-hook 'focus-in-hook #'which-key--start-timer)\n (add-hook 'window-size-change-functions\n 'which-key--hide-popup-on-frame-size-change)\n (which-key--start-timer))\n (setq echo-keystrokes which-key--echo-keystrokes-backup)\n (when which-key--prefix-help-cmd-backup\n (setq prefix-help-command which-key--prefix-help-cmd-backup))\n (when which-key-show-remaining-keys\n (remove-hook 'pre-command-hook #'which-key--lighter-restore))\n (remove-hook 'pre-command-hook #'which-key--hide-popup)\n (remove-hook 'focus-out-hook #'which-key--stop-timer)\n (remove-hook 'focus-in-hook #'which-key--start-timer)\n (remove-hook 'window-size-change-functions\n 'which-key--hide-popup-on-frame-size-change)\n (which-key--stop-timer)))\n\n(defun which-key--init-buffer ()\n \"Initialize which-key buffer\"\n (unless (buffer-live-p which-key--buffer)\n (setq which-key--buffer (get-buffer-create which-key-buffer-name))\n (with-current-buffer which-key--buffer\n ;; suppress confusing minibuffer message\n (let (message-log-max)\n (toggle-truncate-lines 1)\n (message \"\"))\n (setq-local cursor-type nil)\n (setq-local cursor-in-non-selected-windows nil)\n (setq-local mode-line-format nil)\n (setq-local word-wrap nil)\n (setq-local show-trailing-whitespace nil)\n (run-hooks 'which-key-init-buffer-hook))))\n\n(defun which-key--setup-echo-keystrokes ()\n \"Reduce `echo-keystrokes' if necessary (it will interfere if\nit's set too high).\"\n (when (and echo-keystrokes\n (> (abs (- echo-keystrokes which-key-echo-keystrokes)) 0.000001))\n (if (> which-key-idle-delay which-key-echo-keystrokes)\n (setq echo-keystrokes which-key-echo-keystrokes)\n (setq which-key-echo-keystrokes (/ (float which-key-idle-delay) 4)\n echo-keystrokes which-key-echo-keystrokes))))\n\n(defun which-key-remove-default-unicode-chars ()\n \"Use of `which-key-dont-use-unicode' is preferred to this\nfunction, but it's included here in case someone cannot set that\nvariable early enough in their configuration, if they are using a\nstarter kit for example.\"\n (when (string-equal which-key-separator \" → \")\n (setq which-key-separator \" : \"))\n (setq which-key-key-replacement-alist\n (delete '(\"left\" . \"←\") which-key-key-replacement-alist))\n (setq which-key-key-replacement-alist\n (delete '(\"right\" . \"→\") which-key-key-replacement-alist)))\n\n;;; Default configuration functions for use by users.\n\n;;;###autoload\n(defun which-key-setup-side-window-right ()\n \"Apply suggested settings for side-window that opens on right.\"\n (interactive)\n (setq which-key-popup-type 'side-window\n which-key-side-window-location 'right\n which-key-show-prefix 'top))\n\n;;;###autoload\n(defun which-key-setup-side-window-right-bottom ()\n \"Apply suggested settings for side-window that opens on right\nif there is space and the bottom otherwise.\"\n (interactive)\n (setq which-key-popup-type 'side-window\n which-key-side-window-location '(right bottom)\n which-key-show-prefix 'top))\n\n;;;###autoload\n(defun which-key-setup-side-window-bottom ()\n \"Apply suggested settings for side-window that opens on\nbottom.\"\n (interactive)\n (which-key--setup-echo-keystrokes)\n (setq which-key-popup-type 'side-window\n which-key-side-window-location 'bottom\n which-key-show-prefix 'echo))\n\n;;;###autoload\n(defun which-key-setup-minibuffer ()\n \"Apply suggested settings for minibuffer.\nDo not use this setup if you use the paging commands. Instead use\n`which-key-setup-side-window-bottom', which is nearly identical\nbut more functional.\"\n (interactive)\n (which-key--setup-echo-keystrokes)\n (setq which-key-popup-type 'minibuffer\n which-key-show-prefix 'left))\n\n;;; Helper functions to modify replacement lists.\n\n;;;###autoload\n(defun which-key-add-key-based-replacements\n (key-sequence replacement &rest more)\n \"Replace the description of KEY-SEQUENCE with REPLACEMENT.\nKEY-SEQUENCE is a string suitable for use in `kbd'. REPLACEMENT\nmay either be a string, as in\n\n\$which-key-add-key-based-replacements \\\"C-x 1\\\" \\\"maximize\\\"\$\n\na cons of two strings as in\n\n\$which-key-add-key-based-replacements \\\"C-x 8\\\"\n '(\\\"unicode\\\" . \\\"Unicode keys\\\")\$\n\nor a function that takes a \$KEY . BINDING\$ cons and returns a\nreplacement.\n\nIn the second case, the second string is used to provide a longer\nname for the keys under a prefix.\n\nMORE allows you to specifcy additional KEY REPLACEMENT pairs. All\nreplacements are added to\n`which-key-key-based-description-replacement-alist'.\"\n ;; TODO: Make interactive\n (while key-sequence\n ;; normalize key sequences before adding\n (let ((key-seq (key-description (kbd key-sequence)))\n (replace (or (and (functionp replacement) replacement)\n (car-safe replacement)\n replacement)))\n (push (cons (cons (concat \"\\\\`\" (regexp-quote key-seq) \"\\\\'\") nil)\n (if (functionp replace) replace (cons nil replace)))\n which-key-replacement-alist)\n (when (and (not (functionp replacement)) (consp replacement))\n (push (cons key-seq (cdr-safe replacement))\n which-key--prefix-title-alist)))\n (setq key-sequence (pop more) replacement (pop more))))\n(put 'which-key-add-key-based-replacements 'lisp-indent-function 'defun)\n\n;;;###autoload\n(defun which-key-add-major-mode-key-based-replacements\n (mode key-sequence replacement &rest more)\n \"Functions like `which-key-add-key-based-replacements'.\nThe difference is that MODE specifies the `major-mode' that must\nbe active for KEY-SEQUENCE and REPLACEMENT (MORE contains\naddition KEY-SEQUENCE REPLACEMENT pairs) to apply.\"\n ;; TODO: Make interactive\n (when (not (symbolp mode))\n (error \"MODE should be a symbol corresponding to a value of major-mode\"))\n (let ((mode-alist\n (or (cdr-safe (assq mode which-key-replacement-alist)) (list)))\n (title-mode-alist\n (or (cdr-safe (assq mode which-key--prefix-title-alist)) (list))))\n (while key-sequence\n ;; normalize key sequences before adding\n (let ((key-seq (key-description (kbd key-sequence)))\n (replace (or (and (functionp replacement) replacement)\n (car-safe replacement)\n replacement)))\n (push (cons (cons (concat \"\\\\`\" (regexp-quote key-seq) \"\\\\'\") nil)\n (if (functionp replace) replace (cons nil replace)))\n mode-alist)\n (when (and (not (functionp replacement)) (consp replacement))\n (push (cons key-seq (cdr-safe replacement))\n title-mode-alist)))\n (setq key-sequence (pop more) replacement (pop more)))\n (if (assq mode which-key-replacement-alist)\n (setcdr (assq mode which-key-replacement-alist) mode-alist)\n (push (cons mode mode-alist) which-key-replacement-alist))\n (if (assq mode which-key--prefix-title-alist)\n (setcdr (assq mode which-key--prefix-title-alist) title-mode-alist)\n (push (cons mode title-mode-alist) which-key--prefix-title-alist))))\n(put 'which-key-add-major-mode-key-based-replacements\n 'lisp-indent-function 'defun)\n\n(defalias 'which-key-add-prefix-title 'which-key-add-key-based-replacements)\n(make-obsolete 'which-key-add-prefix-title\n 'which-key-add-key-based-replacements\n \"2016-10-05\")\n\n(defalias 'which-key-declare-prefixes 'which-key-add-key-based-replacements)\n(make-obsolete 'which-key-declare-prefixes\n 'which-key-add-key-based-replacements\n \"2016-10-05\")\n\n(defalias 'which-key-declare-prefixes-for-mode\n 'which-key-add-major-mode-key-based-replacements)\n(make-obsolete 'which-key-declare-prefixes-for-mode\n 'which-key-add-major-mode-key-based-replacements\n \"2016-10-05\")\n\n(defun which-key-define-key-recursively (map key def &optional at-root)\n \"Recursively bind KEY in MAP to DEF on every level of MAP except the first.\nIf AT-ROOT is non-nil the binding is also placed at the root of MAP.\"\n (when at-root (define-key map key def))\n (map-keymap\n (lambda (_ev df)\n (when (keymapp df)\n (which-key-define-key-recursively df key def t)))\n map))\n\n(defun which-key--process-define-key-args (keymap key def)\n \"When DEF takes the form (\\\"DESCRIPTION\\\". DEF), make sure\nwhich-key uses \\\"DESCRIPTION\\\" for this binding. This function is\nmeant to be used as :before advice for `define-key'.\"\n (with-demoted-errors \"Which-key extended define-key error: %s\"\n (when (and (consp def)\n (stringp (car def))\n (symbolp (cdr def)))\n (define-key keymap (which-key--pseudo-key key) `(which-key ,def)))))\n\n(when which-key-enable-extended-define-key\n (advice-add #'define-key :before #'which-key--process-define-key-args))\n\n;;; Functions for computing window sizes\n\n(defun which-key--text-width-to-total (text-width)\n \"Convert window text-width to window total-width.\nTEXT-WIDTH is the desired text width of the window. The function\ncalculates what total width is required for a window in the\nselected to have a text-width of TEXT-WIDTH columns. The\ncalculation considers possible fringes and scroll bars. This\nfunction assumes that the desired window has the same character\nwidth as the frame.\"\n (let ((char-width (frame-char-width)))\n (+ text-width\n (/ (frame-fringe-width) char-width)\n (/ (frame-scroll-bar-width) char-width)\n (if (which-key--char-enlarged-p) 1 0)\n ;; add padding to account for possible wide (unicode) characters\n 3)))\n\n(defun which-key--total-width-to-text (total-width)\n \"Convert window total-width to window text-width.\nTOTAL-WIDTH is the desired total width of the window. The function calculates\nwhat text width fits such a window. The calculation considers possible fringes\nand scroll bars. This function assumes that the desired window has the same\ncharacter width as the frame.\"\n (let ((char-width (frame-char-width)))\n (- total-width\n (/ (frame-fringe-width) char-width)\n (/ (frame-scroll-bar-width) char-width)\n (if (which-key--char-enlarged-p) 1 0)\n ;; add padding to account for possible wide (unicode) characters\n 3)))\n\n(defun which-key--char-enlarged-p (&optional _frame)\n (> (frame-char-width)\n (/ (float (frame-pixel-width)) (window-total-width (frame-root-window)))))\n\n(defun which-key--char-reduced-p (&optional _frame)\n (< (frame-char-width)\n (/ (float (frame-pixel-width)) (window-total-width (frame-root-window)))))\n\n(defun which-key--char-exact-p (&optional _frame)\n (= (frame-char-width)\n (/ (float (frame-pixel-width)) (window-total-width (frame-root-window)))))\n\n(defun which-key--width-or-percentage-to-width (width-or-percentage)\n \"Return window total width.\nIf WIDTH-OR-PERCENTAGE is a whole number, return it unchanged. Otherwise, it\nshould be a percentage (a number between 0 and 1) out of the frame's width.\nMore precisely, it should be a percentage out of the frame's root window's\ntotal width.\"\n (if (wholenump width-or-percentage)\n width-or-percentage\n (round (* width-or-percentage (window-total-width (frame-root-window))))))\n\n(defun which-key--height-or-percentage-to-height (height-or-percentage)\n \"Return window total height.\nIf HEIGHT-OR-PERCENTAGE is a whole number, return it unchanged. Otherwise, it\nshould be a percentage (a number between 0 and 1) out of the frame's height.\nMore precisely, it should be a percentage out of the frame's root window's\ntotal height.\"\n (if (wholenump height-or-percentage)\n height-or-percentage\n (round (* height-or-percentage (window-total-height (frame-root-window))))))\n\n(defun which-key--frame-size-changed-p ()\n \"Non-nil if a change in frame size is detected.\"\n (let ((new-size (cons (frame-width) (frame-height))))\n (cond ((null which-key--previous-frame-size)\n (setq which-key--previous-frame-size new-size)\n nil)\n ((not (equal which-key--previous-frame-size new-size))\n (setq which-key--previous-frame-size new-size)))))\n\n;;; Show/hide which-key buffer\n\n(defun which-key--hide-popup ()\n \"This function is called to hide the which-key buffer.\"\n (unless (member real-this-command which-key--paging-functions)\n (setq which-key--last-try-2-loc nil)\n (setq which-key--pages-obj nil)\n (setq which-key--automatic-display nil)\n (setq which-key--prior-show-keymap-args nil)\n (when (and which-key-idle-secondary-delay\n which-key--secondary-timer-active)\n (which-key--start-timer))\n (which-key--lighter-restore)\n (cl-case which-key-popup-type\n ;; Not necessary to hide minibuffer\n ;; (minibuffer (which-key--hide-buffer-minibuffer))\n (side-window (which-key--hide-buffer-side-window))\n (frame (which-key--hide-buffer-frame))\n (custom (funcall which-key-custom-hide-popup-function)))))\n\n(defun which-key--hide-popup-ignore-command ()\n \"Version of `which-key--hide-popup' without the check of\n`real-this-command'.\"\n (cl-case which-key-popup-type\n (side-window (which-key--hide-buffer-side-window))\n (frame (which-key--hide-buffer-frame))\n (custom (funcall which-key-custom-hide-popup-function))))\n\n(defun which-key--hide-popup-on-frame-size-change (&optional _)\n \"Hide which-key popup if the frame is resized (to trigger a new\npopup).\"\n (when (which-key--frame-size-changed-p)\n (which-key--hide-popup)))\n\n(defun which-key--hide-buffer-side-window ()\n \"Hide which-key buffer when side-window popup is used.\"\n (when (buffer-live-p which-key--buffer)\n ;; in case which-key buffer was shown in an existing window, `quit-window'\n ;; will re-show the previous buffer, instead of closing the window\n (quit-windows-on which-key--buffer)))\n\n(defun which-key--hide-buffer-frame ()\n \"Hide which-key buffer when frame popup is used.\"\n (when (frame-live-p which-key--frame)\n (delete-frame which-key--frame)))\n\n(defun which-key--popup-showing-p ()\n (window-live-p (get-buffer-window which-key--buffer)))\n\n(defun which-key--show-popup (act-popup-dim)\n \"Show the which-key buffer.\nACT-POPUP-DIM includes the dimensions, (height . width) of the\nbuffer text to be displayed in the popup. Return nil if no window\nis shown, or if there is no need to start the closing timer.\"\n (when (and (> (car act-popup-dim) 0) (> (cdr act-popup-dim) 0))\n (cl-case which-key-popup-type\n ;; Not called for minibuffer\n ;; (minibuffer (which-key--show-buffer-minibuffer act-popup-dim))\n (side-window (which-key--show-buffer-side-window act-popup-dim))\n (frame (which-key--show-buffer-frame act-popup-dim))\n (custom (funcall which-key-custom-show-popup-function act-popup-dim)))))\n\n(defun which-key--fit-buffer-to-window-horizontally\n (&optional window &rest params)\n \"Slightly modified version of `fit-buffer-to-window'.\nUse &rest params because `fit-buffer-to-window' has a different\ncall signature in different emacs versions\"\n (let ((fit-window-to-buffer-horizontally t))\n (apply #'fit-window-to-buffer window params)))\n\n(defun which-key--show-buffer-side-window (act-popup-dim)\n \"Show which-key buffer when popup type is side-window.\"\n (let* ((height (car act-popup-dim))\n (width (cdr act-popup-dim))\n (alist\n (if which-key-allow-imprecise-window-fit\n `((window-width . ,(which-key--text-width-to-total width))\n (window-height . ,height)\n (side . ,which-key-side-window-location)\n (slot . ,which-key-side-window-slot))\n `((window-width . which-key--fit-buffer-to-window-horizontally)\n (window-height . (lambda (w) (fit-window-to-buffer w nil 1)))\n (side . ,which-key-side-window-location)\n (slot . ,which-key-side-window-slot)))))\n ;; Previously used `display-buffer-in-major-side-window' here, but\n ;; apparently that is meant to be an internal function. See emacs bug #24828\n ;; and advice given there.\n (cond\n ((eq which-key--multiple-locations t)\n ;; possibly want to switch sides in this case so we can't reuse the window\n (delete-windows-on which-key--buffer)\n (display-buffer-in-side-window which-key--buffer alist))\n ((get-buffer-window which-key--buffer)\n (display-buffer-reuse-window which-key--buffer alist))\n (t\n (display-buffer-in-side-window which-key--buffer alist)))))\n\n(defun which-key--show-buffer-frame (act-popup-dim)\n \"Show which-key buffer when popup type is frame.\"\n (let* (;(orig-window (selected-window))\n (frame-height (+ (car act-popup-dim)\n (if (with-current-buffer which-key--buffer\n mode-line-format)\n 1\n 0)))\n ;; without adding 2, frame sometimes isn't wide enough for the buffer.\n ;; this is probably because of the fringes. however, setting fringes\n ;; sizes to 0 (instead of adding 2) didn't always make the frame wide\n ;; enough. don't know why it is so.\n (frame-width (+ (cdr act-popup-dim) 2))\n (new-window (if (and (frame-live-p which-key--frame)\n (eq which-key--buffer\n (window-buffer\n (frame-root-window which-key--frame))))\n (which-key--show-buffer-reuse-frame\n frame-height frame-width)\n (which-key--show-buffer-new-frame\n frame-height frame-width))))\n (when new-window\n ;; display successful\n (setq which-key--frame (window-frame new-window))\n new-window)))\n\n(defun which-key--show-buffer-new-frame (frame-height frame-width)\n \"Helper for `which-key--show-buffer-frame'.\"\n (let* ((frame-params `((height . ,frame-height)\n (width . ,frame-width)\n ;; tell the window manager to respect the given sizes\n (user-size . t)\n ;; which-key frame doesn't need a minibuffer\n (minibuffer . nil)\n (name . \"which-key\")\n ;; no need for scroll bars in which-key frame\n (vertical-scroll-bars . nil)\n ;; (left-fringe . 0)\n ;; (right-fringe . 0)\n ;; (right-divider-width . 0)\n ;; make sure frame is visible\n (visibility . t)))\n (alist `((pop-up-frame-parameters . ,frame-params)))\n (orig-frame (selected-frame))\n (new-window (display-buffer-pop-up-frame which-key--buffer alist)))\n (when new-window\n ;; display successful\n (redirect-frame-focus (window-frame new-window) orig-frame)\n new-window)))\n\n(defun which-key--show-buffer-reuse-frame (frame-height frame-width)\n \"Helper for `which-key--show-buffer-frame'.\"\n (let ((window\n (display-buffer-reuse-window\n which-key--buffer `((reusable-frames . ,which-key--frame)))))\n (when window\n ;; display successful\n (set-frame-size (window-frame window) frame-width frame-height)\n window)))\n\n;;; Max dimension of available window functions\n\n(defun which-key--popup-max-dimensions ()\n \"Dimesion functions should return the maximum possible (height\n. width) of the intended popup. SELECTED-WINDOW-WIDTH is the\nwidth of currently active window, not the which-key buffer\nwindow.\"\n (cl-case which-key-popup-type\n (minibuffer (which-key--minibuffer-max-dimensions))\n (side-window (which-key--side-window-max-dimensions))\n (frame (which-key--frame-max-dimensions))\n (custom (funcall which-key-custom-popup-max-dimensions-function\n (window-width)))))\n\n(defun which-key--minibuffer-max-dimensions ()\n \"Return max-dimensions of minibuffer (height . width).\nMeasured in lines and characters respectively.\"\n (cons\n ;; height\n (if (floatp max-mini-window-height)\n (floor (* (frame-text-lines)\n max-mini-window-height))\n max-mini-window-height)\n ;; width\n (max 0 (- (frame-text-cols) which-key-unicode-correction))))\n\n(defun which-key--side-window-max-dimensions ()\n \"Return max-dimensions of the side-window popup (height .\nwidth) in lines and characters respectively.\"\n (cons\n ;; height\n (if (member which-key-side-window-location '(left right))\n ;; 1 is a kludge to make sure there is no overlap\n (- (frame-height) (window-text-height (minibuffer-window)) 1)\n ;; (window-mode-line-height which-key--window))\n ;; FIXME: change to something like\n ;; (min which-*-height (calculate-max-height))\n (which-key--height-or-percentage-to-height\n which-key-side-window-max-height))\n ;; width\n (max 0\n (- (if (member which-key-side-window-location '(left right))\n (which-key--total-width-to-text\n (which-key--width-or-percentage-to-width\n which-key-side-window-max-width))\n (which-key--total-width-to-text\n (which-key--width-or-percentage-to-width\n 1.0)))\n which-key-unicode-correction))))\n\n(defun which-key--frame-max-dimensions ()\n \"Return max-dimensions of the frame popup (height .\nwidth) in lines and characters respectively.\"\n (cons which-key-frame-max-height which-key-frame-max-width))\n\n;;; Sorting functions\n\n(defun which-key--string< (a b &optional alpha)\n (let* ((da (downcase a))\n (db (downcase b)))\n (cond ((string-equal da db)\n (if which-key-sort-uppercase-first\n (string-lessp a b)\n (not (string-lessp a b))))\n (alpha (string-lessp da db))\n (t (string-lessp a b)))))\n\n(defun which-key--key-description< (a b &optional alpha)\n \"Sorting function used for `which-key-key-order' and\n`which-key-key-order-alpha'.\"\n (save-match-data\n (let* ((rngrgxp \"^\\\$[^ ]+\\\$ \\\\.\\\\. [^ ]+\")\n (a (if (string-match rngrgxp a) (match-string 1 a) a))\n (b (if (string-match rngrgxp b) (match-string 1 b) b))\n (aem? (string-equal a \"\"))\n (bem? (string-equal b \"\"))\n (a1? (= 1 (length a)))\n (b1? (= 1 (length b)))\n (srgxp \"^\\\$RET\\\\|SPC\\\\|TAB\\\\|DEL\\\\|LFD\\\\|ESC\\\\|NUL\\\$\")\n (asp? (string-match-p srgxp a))\n (bsp? (string-match-p srgxp b))\n (prrgxp \"^\\\$M\\\\|C\\\\|S\\\\|A\\\\|H\\\\|s\\\$-\")\n (apr? (string-match-p prrgxp a))\n (bpr? (string-match-p prrgxp b))\n (afn? (string-match-p \"\" a))\n (bfn? (string-match-p \"\" b)))\n (cond ((or aem? bem?) (and aem? (not bem?)))\n ((and asp? bsp?)\n (if (string-equal (substring a 0 3) (substring b 0 3))\n (which-key--key-description<\n (substring a 3) (substring b 3) alpha)\n (which-key--string< a b alpha)))\n ((or asp? bsp?) asp?)\n ((and a1? b1?) (which-key--string< a b alpha))\n ((or a1? b1?) a1?)\n ((and afn? bfn?)\n (< (string-to-number\n (replace-regexp-in-string \"\" \"\\\\1\" a))\n (string-to-number\n (replace-regexp-in-string \"\" \"\\\\1\" b))))\n ((or afn? bfn?) afn?)\n ((and apr? bpr?)\n (if (string-equal (substring a 0 2) (substring b 0 2))\n (which-key--key-description<\n (substring a 2) (substring b 2) alpha)\n (which-key--string< a b alpha)))\n ((or apr? bpr?) apr?)\n (t (which-key--string< a b alpha))))))\n\n(defsubst which-key-key-order-alpha (acons bcons)\n \"Order key descriptions A and B.\nOrder is lexicographic within a \\\"class\\\", where the classes and\nthe ordering of classes are listed below.\n\nspecial (SPC,TAB,...) < single char < mod (C-,M-,...) < other.\nSorts single characters alphabetically with lowercase coming\nbefore upper.\"\n (which-key--key-description< (car acons) (car bcons) t))\n\n(defsubst which-key-key-order (acons bcons)\n \"Order key descriptions A and B.\nOrder is lexicographic within a \\\"class\\\", where the classes and\nthe ordering of classes are listed below.\n\nspecial (SPC,TAB,...) < single char < mod (C-,M-,...) < other.\"\n (which-key--key-description< (car acons) (car bcons)))\n\n(defsubst which-key-description-order (acons bcons)\n \"Order descriptions of A and B.\nUses `string-lessp' after applying lowercase.\"\n (string-lessp (downcase (cdr acons)) (downcase (cdr bcons))))\n\n(defsubst which-key--group-p (description)\n (or (string-match-p \"^\\\$group:\\\\|Prefix\\\$\" description)\n (keymapp (intern description))))\n\n(defun which-key-prefix-then-key-order (acons bcons)\n \"Order first by whether A and/or B is a prefix with no prefix\ncoming before a prefix. Within these categories order using\n`which-key-key-order'.\"\n (let ((apref? (which-key--group-p (cdr acons)))\n (bpref? (which-key--group-p (cdr bcons))))\n (if (not (eq apref? bpref?))\n (and (not apref?) bpref?)\n (which-key-key-order acons bcons))))\n\n(defun which-key-prefix-then-key-order-reverse (acons bcons)\n \"Order first by whether A and/or B is a prefix with prefix\ncoming before a prefix. Within these categories order using\n`which-key-key-order'.\"\n (let ((apref? (which-key--group-p (cdr acons)))\n (bpref? (which-key--group-p (cdr bcons))))\n (if (not (eq apref? bpref?))\n (and apref? (not bpref?))\n (which-key-key-order acons bcons))))\n\n(defun which-key-local-then-key-order (acons bcons)\n \"Order first by whether A and/or B is a local binding with\nlocal bindings coming first. Within these categories order using\n`which-key-key-order'.\"\n (let ((aloc? (which-key--local-binding-p acons))\n (bloc? (which-key--local-binding-p bcons)))\n (if (not (eq aloc? bloc?))\n (and aloc? (not bloc?))\n (which-key-key-order acons bcons))))\n\n;;; Functions for retrieving and formatting keys\n\n(defsubst which-key--string-width (maybe-string)\n \"If MAYBE-STRING is a string use `which-key--string-width' o/w return 0.\"\n (if (stringp maybe-string) (string-width maybe-string) 0))\n\n(defsubst which-key--safe-lookup-key (keymap key)\n \"Version of `lookup-key' that allows KEYMAP to be nil. KEY is not checked.\"\n (when (keymapp keymap) (lookup-key keymap key)))\n\n(defsubst which-key--butlast-string (str)\n (mapconcat #'identity (butlast (split-string str)) \" \"))\n\n(defun which-key--get-replacements (key-binding &optional use-major-mode)\n (let ((alist (or (and use-major-mode\n (cdr-safe\n (assq major-mode which-key-replacement-alist)))\n which-key-replacement-alist))\n res case-fold-search)\n (catch 'res\n (dolist (replacement alist)\n ;; these are mode specific ones to ignore. The mode specific case is\n ;; handled in the selection of alist\n (unless (symbolp (car replacement))\n (let ((key-regexp (caar replacement))\n (binding-regexp (cdar replacement)))\n (when (and (or (null key-regexp)\n (string-match-p key-regexp\n (car key-binding)))\n (or (null binding-regexp)\n (string-match-p binding-regexp\n (cdr key-binding))))\n (push replacement res)\n (when (not which-key-allow-multiple-replacements)\n (throw 'res res)))))))\n (nreverse res)))\n\n(defun which-key--get-pseudo-binding (key-binding &optional prefix)\n (let* ((pseudo-binding\n (key-binding (which-key--pseudo-key (kbd (car key-binding)) prefix)))\n (pseudo-binding (when pseudo-binding (cadr pseudo-binding)))\n (pseudo-desc (when pseudo-binding (car pseudo-binding)))\n (pseudo-def (when pseudo-binding (cdr pseudo-binding)))\n (real-def (key-binding (kbd (car key-binding))))\n ;; treat keymaps as if they're nil bindings. This creates the\n ;; possibility that we rename the wrong binding but this seems\n ;; unlikely.\n (real-def (unless (keymapp real-def) real-def)))\n (when (and pseudo-binding\n (eq pseudo-def real-def))\n (cons (car key-binding) pseudo-desc))))\n\n(defun which-key--maybe-replace (key-binding &optional prefix)\n \"Use `which-key--replacement-alist' to maybe replace KEY-BINDING.\nKEY-BINDING is a cons cell of the form \$KEY . BINDING\$ each of\nwhich are strings. KEY is of the form produced by `key-binding'.\"\n (let* ((pseudo-binding (which-key--get-pseudo-binding key-binding prefix)))\n (if pseudo-binding\n pseudo-binding\n (let* ((mode-res (which-key--get-replacements key-binding t))\n (all-repls (or mode-res\n (which-key--get-replacements key-binding))))\n (dolist (repl all-repls key-binding)\n (setq key-binding\n (cond ((or (not (consp repl)) (null (cdr repl)))\n key-binding)\n ((functionp (cdr repl))\n (funcall (cdr repl) key-binding))\n ((consp (cdr repl))\n (cons\n (cond ((and (caar repl) (cadr repl))\n (replace-regexp-in-string\n (caar repl) (cadr repl) (car key-binding) t))\n ((cadr repl) (cadr repl))\n (t (car key-binding)))\n (cond ((and (cdar repl) (cddr repl))\n (replace-regexp-in-string\n (cdar repl) (cddr repl) (cdr key-binding) t))\n ((cddr repl) (cddr repl))\n (t (cdr key-binding))))))))))))\n\n(defsubst which-key--current-key-list (&optional key-str)\n (append (listify-key-sequence (which-key--current-prefix))\n (when key-str\n (listify-key-sequence (kbd key-str)))))\n\n(defsubst which-key--current-key-string (&optional key-str)\n (key-description (which-key--current-key-list key-str)))\n\n(defun which-key--local-binding-p (keydesc)\n (eq (which-key--safe-lookup-key\n (current-local-map) (kbd (which-key--current-key-string (car keydesc))))\n (intern (cdr keydesc))))\n\n(defun which-key--map-binding-p (map keydesc)\n \"Does MAP contain KEYDESC = (key . binding)?\"\n (or\n (when (bound-and-true-p evil-state)\n (let ((lookup\n (which-key--safe-lookup-key\n map\n (kbd (which-key--current-key-string\n (format \"<%s-state> %s\" evil-state (car keydesc)))))))\n (or (eq lookup (intern (cdr keydesc)))\n (and (keymapp lookup) (string= (cdr keydesc) \"Prefix Command\")))))\n (let ((lookup\n (which-key--safe-lookup-key\n map (kbd (which-key--current-key-string (car keydesc))))))\n (or (eq lookup (intern (cdr keydesc)))\n (and (keymapp lookup) (string= (cdr keydesc) \"Prefix Command\"))))))\n\n(defun which-key--pseudo-key (key &optional prefix)\n \"Replace the last key in the sequence KEY by a special symbol\nin order for which-key to allow looking up a description for the key.\"\n (let* ((seq (listify-key-sequence key))\n (final (intern (format \"which-key-%s\" (key-description (last seq))))))\n (if prefix\n (vconcat prefix (list final))\n (vconcat (butlast seq) (list final)))))\n\n(defun which-key--maybe-get-prefix-title (keys)\n \"KEYS is a string produced by `key-description'.\nA title is possibly returned using\n`which-key--prefix-title-alist'. An empty stiring is returned if\nno title exists.\"\n (cond\n ((not (string-equal keys \"\"))\n (let* ((title-res\n (cdr-safe (assoc-string keys which-key--prefix-title-alist)))\n (repl-res\n (cdr-safe (which-key--maybe-replace (cons keys \"\"))))\n (binding (key-binding (kbd keys)))\n (alternate (when (and binding (symbolp binding))\n (symbol-name binding))))\n (cond (title-res title-res)\n ((not (string-equal repl-res \"\")) repl-res)\n ((and (eq which-key-show-prefix 'echo) alternate)\n alternate)\n ((and (member which-key-show-prefix '(bottom top))\n (eq which-key-side-window-location 'bottom)\n echo-keystrokes)\n (if alternate alternate\n (concat \"Following \" keys)))\n (t \"\"))))\n (t \"\")))\n\n(defun which-key--propertize (string &rest properties)\n \"Version of `propertize' that checks type of STRING.\"\n (when (stringp string)\n (apply #'propertize string properties)))\n\n(defun which-key--propertize-key (key)\n \"Add a face to KEY.\nIf KEY contains any \\\"special keys\\\" defined in\n`which-key-special-keys' then truncate and add the corresponding\n`which-key-special-key-face'.\"\n (let ((key-w-face (which-key--propertize key 'face 'which-key-key-face))\n (regexp (concat \"\\\$\"\n (mapconcat 'identity which-key-special-keys\n \"\\\\|\") \"\\\$\"))\n case-fold-search)\n (save-match-data\n (if (and which-key-special-keys\n (string-match regexp key))\n (let ((beg (match-beginning 0)) (end (match-end 0)))\n (concat (substring key-w-face 0 beg)\n (which-key--propertize (substring key-w-face beg (1+ beg))\n 'face 'which-key-special-key-face)\n (substring key-w-face end\n (which-key--string-width key-w-face))))\n key-w-face))))\n\n(defsubst which-key--truncate-description (desc)\n \"Truncate DESC description to `which-key-max-description-length'.\"\n (let* ((last-face (get-text-property (1- (length desc)) 'face desc))\n (dots (which-key--propertize \"..\" 'face last-face)))\n (if (and which-key-max-description-length\n (> (length desc) which-key-max-description-length))\n (concat (substring desc 0 which-key-max-description-length) dots)\n desc)))\n\n(defun which-key--highlight-face (description)\n \"Return the highlight face for DESCRIPTION if it has one.\"\n (let (face)\n (dolist (el which-key-highlighted-command-list)\n (unless face\n (cond ((consp el)\n (when (string-match-p (car el) description)\n (setq face (cdr el))))\n ((stringp el)\n (when (string-match-p el description)\n (setq face 'which-key-highlighted-command-face)))\n (t\n (message \"which-key: warning: element %s of \\\nwhich-key-highlighted-command-list is not a string or a cons\ncell\" el)))))\n face))\n\n(defun which-key--propertize-description\n (description group local hl-face &optional original-description)\n \"Add face to DESCRIPTION where the face chosen depends on\nwhether the description represents a group or a command. Also\nmake some minor adjustments to the description string, like\nremoving a \\\"group:\\\" prefix.\n\nORIGINAL-DESCRIPTION is the description given by\n`describe-buffer-bindings'.\"\n (when description\n (let* ((desc description)\n (desc (if (string-match-p \"^group:\" desc)\n (substring desc 6) desc))\n (desc (if group (concat which-key-prefix-prefix desc) desc)))\n (make-text-button\n desc nil\n 'face (cond (hl-face hl-face)\n (group 'which-key-group-description-face)\n (local 'which-key-local-map-description-face)\n (t 'which-key-command-description-face))\n 'help-echo (cond\n ((and original-description\n (fboundp (intern original-description))\n (documentation (intern original-description))\n ;; tooltip-mode doesn't exist in emacs-nox\n (boundp 'tooltip-mode) tooltip-mode)\n (documentation (intern original-description)))\n ((and original-description\n (fboundp (intern original-description))\n (documentation (intern original-description))\n (let* ((doc (documentation\n (intern original-description)))\n (str (replace-regexp-in-string \"\\n\" \" \" doc))\n (max (floor (* (frame-width) 0.8))))\n (if (> (length str) max)\n (concat (substring str 0 max) \"...\")\n str))))))\n desc)))\n\n(defun which-key--extract-key (key-str)\n \"Pull the last key (or key range) out of KEY-STR.\"\n (save-match-data\n (let ((key-range-regexp \"\\\\`.*\\\$[^ \\t]+ \\\\.\\\\. [^ \\t]+\\\$\\\\'\"))\n (if (string-match key-range-regexp key-str)\n (match-string 1 key-str)\n (car (last (split-string key-str \" \")))))))\n\n(defun which-key--maybe-add-docstring (current original)\n \"Maybe concat a docstring to CURRENT and return result.\nSpecifically, do this if ORIGINAL is a command with a docstring\nand `which-key-show-docstrings' is non-nil. If\n`which-key-show-docstrings' is the symbol docstring-only, just\nreturn the docstring.\"\n (let* ((orig-sym (intern original))\n (doc (when (commandp orig-sym)\n (documentation orig-sym)))\n (docstring (when doc\n (which-key--propertize (car (split-string doc \"\\n\"))\n 'face 'which-key-docstring-face))))\n (cond ((not (and which-key-show-docstrings docstring))\n current)\n ((eq which-key-show-docstrings 'docstring-only)\n docstring)\n (t\n (format \"%s %s\" current docstring)))))\n\n(defun which-key--format-and-replace (unformatted &optional prefix preserve-full-key)\n \"Take a list of (key . desc) cons cells in UNFORMATTED, add\nfaces and perform replacements according to the three replacement\nalists. Returns a list (key separator description).\"\n (let ((sep-w-face\n (which-key--propertize which-key-separator\n 'face 'which-key-separator-face))\n (local-map (current-local-map))\n new-list)\n (dolist (key-binding unformatted)\n (let* ((key (car key-binding))\n (orig-desc (cdr key-binding))\n (group (which-key--group-p orig-desc))\n ;; At top-level prefix is nil\n (keys (if prefix\n (concat (key-description prefix) \" \" key)\n key))\n (local (eq (which-key--safe-lookup-key local-map (kbd keys))\n (intern orig-desc)))\n (hl-face (which-key--highlight-face orig-desc))\n (key-binding (which-key--maybe-replace (cons keys orig-desc) prefix))\n (final-desc (which-key--propertize-description\n (cdr key-binding) group local hl-face orig-desc)))\n (when final-desc\n (setq final-desc\n (which-key--truncate-description\n (which-key--maybe-add-docstring final-desc orig-desc))))\n (when (consp key-binding)\n (push\n (list (which-key--propertize-key\n (if preserve-full-key\n (car key-binding)\n (which-key--extract-key (car key-binding))))\n sep-w-face\n final-desc)\n new-list))))\n (nreverse new-list)))\n\n(defun which-key--get-keymap-bindings (keymap &optional all prefix)\n \"Retrieve top-level bindings from KEYMAP.\nIf ALL is non-nil, get all bindings, not just the top-level\nones. PREFIX is for internal use and should not be used.\"\n (let (bindings)\n (map-keymap\n (lambda (ev def)\n (let* ((key (append prefix (list ev)))\n (key-desc (key-description key)))\n (cond ((or (string-match-p\n which-key--ignore-non-evil-keys-regexp key-desc)\n (eq ev 'menu-bar)))\n ;; extract evil keys corresponding to current state\n ((and (keymapp def)\n (boundp 'evil-state)\n (bound-and-true-p evil-local-mode)\n (string-match-p (format \"<%s-state>$\" evil-state) key-desc))\n (setq bindings\n ;; this function keeps the latter of the two duplicates\n ;; which will be the evil binding\n (cl-remove-duplicates\n (append bindings\n (which-key--get-keymap-bindings def all prefix))\n :test (lambda (a b) (string= (car a) (car b))))))\n ((and (keymapp def)\n (string-match-p which-key--evil-keys-regexp key-desc)))\n ((and (keymapp def)\n (or all\n ;; event 27 is escape, so this will pick up meta\n ;; bindings and hopefully not too much more\n (and (numberp ev) (= ev 27))))\n (setq bindings\n (append bindings\n (which-key--get-keymap-bindings def t key))))\n (t\n (when def\n (cl-pushnew\n (cons key-desc\n (cond\n ((keymapp def) \"Prefix Command\")\n ((symbolp def) (copy-sequence (symbol-name def)))\n ((eq 'lambda (car-safe def)) \"lambda\")\n ((eq 'menu-item (car-safe def)) \"menu-item\")\n ((stringp def) def)\n (t \"unknown\")))\n bindings :test (lambda (a b) (string= (car a) (car b)))))))))\n keymap)\n bindings))\n\n(defun which-key--compute-binding (binding)\n \"Replace BINDING with remapped binding if it exists.\n\nRequires `which-key-compute-remaps' to be non-nil\"\n (let (remap)\n (if (and which-key-compute-remaps\n (setq remap (command-remapping (intern binding))))\n (copy-sequence (symbol-name remap))\n binding)))\n\n(defun which-key--get-current-bindings (&optional prefix)\n \"Generate a list of current active bindings.\"\n (let ((key-str-qt (regexp-quote (key-description prefix)))\n (buffer (current-buffer))\n (ignore-bindings '(\"self-insert-command\" \"ignore\"\n \"ignore-event\" \"company-ignore\"))\n (ignore-sections-regexp\n (eval-when-compile\n (regexp-opt '(\"Key translations\" \"Function key map translations\"\n \"Input decoding map translations\")))))\n (with-temp-buffer\n (setq-local indent-tabs-mode t)\n (setq-local tab-width 8)\n (describe-buffer-bindings buffer prefix)\n (goto-char (point-min))\n (let ((header-p (not (= (char-after) ?\\f)))\n bindings header)\n (while (not (eobp))\n (cond\n (header-p\n (setq header (buffer-substring-no-properties\n (point)\n (line-end-position)))\n (setq header-p nil)\n (forward-line 3))\n ((= (char-after) ?\\f)\n (setq header-p t))\n ((looking-at \"^[ \\t]*$\"))\n ((or (not (string-match-p ignore-sections-regexp header)) prefix)\n (let ((binding-start (save-excursion\n (and (re-search-forward \"\\t+\" nil t)\n (match-end 0))))\n key binding)\n (when binding-start\n (setq key (buffer-substring-no-properties\n (point) binding-start))\n (setq binding (buffer-substring-no-properties\n binding-start\n (line-end-position)))\n (save-match-data\n (cond\n ((member binding ignore-bindings))\n ((string-match-p which-key--ignore-keys-regexp key))\n ((and prefix\n (string-match (format \"^%s[ \\t]\\\$[^ \\t]+\\\$[ \\t]+$\"\n key-str-qt) key))\n (unless (assoc-string (match-string 1 key) bindings)\n (push (cons (match-string 1 key)\n (which-key--compute-binding binding))\n bindings)))\n ((and prefix\n (string-match\n (format\n \"^%s[ \\t]\\\$[^ \\t]+\\\$ \\\\.\\\\. %s[ \\t]\\\$[^ \\t]+\\\$[ \\t]+$\"\n key-str-qt key-str-qt) key))\n (let ((stripped-key (concat (match-string 1 key)\n \" \\.\\. \"\n (match-string 2 key))))\n (unless (assoc-string stripped-key bindings)\n (push (cons stripped-key\n (which-key--compute-binding binding))\n bindings))))\n ((string-match\n \"^\\\$[^ \\t]+\\\\|[^ \\t]+ \\\\.\\\\. [^ \\t]+\\\$[ \\t]+$\" key)\n (unless (assoc-string (match-string 1 key) bindings)\n (push (cons (match-string 1 key)\n (which-key--compute-binding binding))\n bindings)))))))))\n (forward-line))\n (nreverse bindings)))))\n\n(defun which-key--get-bindings (&optional prefix keymap filter recursive)\n \"Collect key bindings.\nIf KEYMAP is nil, collect from current buffer using the current\nkey sequence as a prefix. Otherwise, collect from KEYMAP. FILTER\nis a function to use to filter the bindings. If RECURSIVE is\nnon-nil, then bindings are collected recursively for all prefixes.\"\n (let* ((unformatted\n (cond ((keymapp keymap)\n (which-key--get-keymap-bindings keymap recursive))\n (keymap\n (error \"%s is not a keymap\" keymap))\n (t\n (which-key--get-current-bindings prefix)))))\n (when filter\n (setq unformatted (cl-remove-if-not filter unformatted)))\n (when which-key-sort-order\n (setq unformatted\n (sort unformatted which-key-sort-order)))\n (which-key--format-and-replace unformatted prefix recursive)))\n\n;;; Functions for laying out which-key buffer pages\n\n(defun which-key--normalize-columns (columns)\n \"Pad COLUMNS to the same length using empty strings.\"\n (let ((max-len (cl-reduce (lambda (a x) (max a (length x))) columns\n :initial-value 0)))\n (mapcar\n (lambda (c)\n (if (< (length c) max-len)\n (append c (make-list (- max-len (length c)) \"\"))\n c))\n columns)))\n\n(defsubst which-key--join-columns (columns)\n \"Transpose columns into rows, concat rows into lines and rows into page.\"\n (let* ((padded (which-key--normalize-columns (nreverse columns)))\n (rows (apply #'cl-mapcar #'list padded)))\n (mapconcat (lambda (row) (mapconcat #'identity row \" \")) rows \"\\n\")))\n\n(defsubst which-key--max-len (keys index)\n \"Internal function for finding the max length of the INDEX\nelement in each list element of KEYS.\"\n (cl-reduce\n (lambda (x y) (max x (which-key--string-width (nth index y))))\n keys :initial-value 0))\n\n(defun which-key--pad-column (col-keys)\n \"Take a column of (key separator description) COL-KEYS,\ncalculate the max width in the column and pad all cells out to\nthat width.\"\n (let* ((col-key-width (+ which-key-add-column-padding\n (which-key--max-len col-keys 0)))\n (col-sep-width (which-key--max-len col-keys 1))\n (col-desc-width (which-key--max-len col-keys 2))\n (col-width (+ 1 col-key-width col-sep-width col-desc-width)))\n (cons col-width\n (mapcar (lambda (k)\n (format (concat \"%\" (int-to-string col-key-width)\n \"s%s%-\" (int-to-string col-desc-width) \"s\")\n (nth 0 k) (nth 1 k) (nth 2 k)))\n col-keys))))\n\n(defun which-key--partition-list (n list)\n \"Partition LIST into N-sized sublists.\"\n (let (res)\n (while list\n (setq res (cons (cl-subseq list 0 (min n (length list))) res)\n list (nthcdr n list)))\n (nreverse res)))\n\n(defun which-key--list-to-pages (keys avl-lines avl-width)\n \"Convert list of KEYS to columns based on dimensions AVL-LINES and AVL-WIDTH.\nReturns a `which-key--pages' object that holds the page strings,\nas well as metadata.\"\n (let ((cols-w-widths (mapcar #'which-key--pad-column\n (which-key--partition-list avl-lines keys)))\n (page-width 0) (n-pages 0) (n-keys 0) (n-columns 0)\n page-cols pages page-widths keys/page col)\n (if (> (apply #'max (mapcar #'car cols-w-widths)) avl-width)\n ;; give up if no columns fit\n nil\n (while cols-w-widths\n ;; start new page\n (cl-incf n-pages)\n (setq col (pop cols-w-widths))\n (setq page-cols (list (cdr col)))\n (setq page-width (car col))\n (setq n-keys (length (cdr col)))\n (setq n-columns 1)\n ;; add additional columns as long as they fit\n (while (and cols-w-widths\n (or (null which-key-max-display-columns)\n (< n-columns which-key-max-display-columns))\n (<= (+ (caar cols-w-widths) page-width) avl-width))\n (setq col (pop cols-w-widths))\n (push (cdr col) page-cols)\n (cl-incf page-width (car col))\n (cl-incf n-keys (length (cdr col)))\n (cl-incf n-columns))\n (push (which-key--join-columns page-cols) pages)\n (push n-keys keys/page)\n (push page-width page-widths))\n (make-which-key--pages\n :pages (nreverse pages)\n :height avl-lines\n :widths (nreverse page-widths)\n :keys/page (reverse keys/page)\n :page-nums (number-sequence 1 n-pages)\n :num-pages n-pages\n :total-keys (apply #'+ keys/page)))))\n\n(defun which-key--create-pages-1\n (keys available-lines available-width &optional min-lines vertical)\n \"Create page strings using `which-key--list-to-pages'.\nWill try to find the best number of rows and columns using the\ngiven dimensions and the length and widths of ITEMS. Use VERTICAL\nif the ITEMS are laid out vertically and the number of columns\nshould be minimized.\"\n (let ((result (which-key--list-to-pages\n keys available-lines available-width))\n (min-lines (or min-lines 0))\n found prev-result)\n (if (or (null result)\n vertical\n (> (which-key--pages-num-pages result) 1)\n (= 1 available-lines))\n result\n ;; simple search for a fitting page\n (while (and (> available-lines min-lines)\n (not found))\n (setq available-lines (- available-lines 1)\n prev-result result\n result (which-key--list-to-pages\n keys available-lines available-width)\n found (> (which-key--pages-num-pages result) 1)))\n (if found prev-result result))))\n\n(defun which-key--create-pages (keys &optional prefix-keys prefix-title)\n \"Create page strings using `which-key--list-to-pages'.\nWill try to find the best number of rows and columns using the\ngiven dimensions and the length and wdiths of KEYS. SEL-WIN-WIDTH\nis the width of the live window.\"\n (let* ((max-dims (which-key--popup-max-dimensions))\n (max-lines (car max-dims))\n (max-width (cdr max-dims))\n (prefix-desc (key-description prefix-keys))\n (full-prefix (which-key--full-prefix prefix-desc))\n (prefix (when (eq which-key-show-prefix 'left)\n (+ 2 (which-key--string-width full-prefix))))\n (prefix-top-bottom (member which-key-show-prefix '(bottom top)))\n (avl-lines (if prefix-top-bottom (- max-lines 1) max-lines))\n (min-lines (min avl-lines which-key-min-display-lines))\n (avl-width (if prefix (- max-width prefix) max-width))\n (vertical (and (eq which-key-popup-type 'side-window)\n (member which-key-side-window-location '(left right))))\n result)\n (setq result\n (which-key--create-pages-1\n keys avl-lines avl-width min-lines vertical))\n (when (and result\n (> (which-key--pages-num-pages result) 0))\n (setf (which-key--pages-prefix result) prefix-keys)\n (setf (which-key--pages-prefix-title result)\n (or prefix-title\n (which-key--maybe-get-prefix-title\n (key-description prefix-keys))))\n result)))\n\n(defun which-key--lighter-status ()\n \"Possibly show number of keys and total in the mode line.\"\n (when which-key-show-remaining-keys\n (let ((n-shown (car (which-key--pages-keys/page which-key--pages-obj)))\n (n-tot (which-key--pages-total-keys which-key--pages-obj)))\n (setcar (cdr (assq 'which-key-mode minor-mode-alist))\n (format \" WK: %s/%s keys\" n-shown n-tot)))))\n\n(defun which-key--lighter-restore ()\n \"Restore the lighter for which-key.\"\n (when which-key-show-remaining-keys\n (setcar (cdr (assq 'which-key-mode minor-mode-alist))\n which-key-lighter)))\n\n(defun which-key--echo (text)\n \"Echo TEXT to minibuffer without logging.\"\n (let (message-log-max)\n (message \"%s\" text)))\n\n(defun which-key--next-page-hint (prefix-keys)\n \"Return string for next page hint.\"\n (let* ((paging-key (concat prefix-keys \" \" which-key-paging-key))\n (paging-key-bound (eq 'which-key-C-h-dispatch\n (key-binding (kbd paging-key))))\n (key (if paging-key-bound which-key-paging-key \"C-h\")))\n (when which-key-use-C-h-commands\n (which-key--propertize (format \"[%s paging/help]\" key)\n 'face 'which-key-note-face))))\n\n(eval-and-compile\n (if (fboundp 'universal-argument--description)\n (defalias 'which-key--universal-argument--description\n 'universal-argument--description)\n (defun which-key--universal-argument--description ()\n ;; Backport of the definition of universal-argument--description in\n ;; emacs25 on 2015-12-04\n (when prefix-arg\n (concat \"C-u\"\n (pcase prefix-arg\n (`(-) \" -\")\n (`(,(and (pred integerp) n))\n (let ((str \"\"))\n (while (and (> n 4) (= (mod n 4) 0))\n (setq str (concat str \" C-u\"))\n (setq n (/ n 4)))\n (if (= n 4) str (format \" %s\" prefix-arg))))\n (_ (format \" %s\" prefix-arg))))))))\n\n(defun which-key--full-prefix (prefix-keys &optional -prefix-arg dont-prop-keys)\n \"Return a description of the full key sequence up to now,\nincluding prefix arguments.\"\n (let* ((left (eq which-key-show-prefix 'left))\n (prefix-arg (if -prefix-arg -prefix-arg prefix-arg))\n (str (concat\n (which-key--universal-argument--description)\n (when prefix-arg \" \")\n prefix-keys))\n (dash (if (and (not (string= prefix-keys \"\"))\n (null left)) \"-\" \"\")))\n (if (or (eq which-key-show-prefix 'echo) dont-prop-keys)\n (concat str dash)\n (concat (which-key--propertize-key str)\n (which-key--propertize dash 'face 'which-key-key-face)))))\n\n(defun which-key--get-popup-map ()\n \"Generate transient-map for use in the top level binding display.\"\n (unless which-key--automatic-display\n (let ((map (make-sparse-keymap)))\n (define-key map (kbd which-key-paging-key) #'which-key-C-h-dispatch)\n (when which-key-use-C-h-commands\n ;; Show next page even when C-h is pressed\n (define-key map (kbd \"C-h\") #'which-key-C-h-dispatch))\n map)))\n\n(defun which-key--process-page (pages-obj)\n \"Add information to the basic list of key bindings, including\nif applicable the current prefix, the name of the current prefix,\nand a page count.\"\n (let* ((page (car (which-key--pages-pages pages-obj)))\n (height (which-key--pages-height pages-obj))\n (n-pages (which-key--pages-num-pages pages-obj))\n (page-n (car (which-key--pages-page-nums pages-obj)))\n (prefix-desc (key-description (which-key--pages-prefix pages-obj)))\n (prefix-title (which-key--pages-prefix-title pages-obj))\n (full-prefix (which-key--full-prefix prefix-desc))\n (nxt-pg-hint (which-key--next-page-hint prefix-desc))\n ;; not used in left case\n (status-line\n (concat (which-key--propertize prefix-title 'face 'which-key-note-face)\n (when (< 1 n-pages)\n (which-key--propertize (format \" (%s of %s)\" page-n n-pages)\n 'face 'which-key-note-face)))))\n (pcase which-key-show-prefix\n (`left\n (let* ((page-cnt (which-key--propertize (format \"%s/%s\" page-n n-pages)\n 'face 'which-key-separator-face))\n (first-col-width (+ 2 (max (which-key--string-width full-prefix)\n (which-key--string-width page-cnt))))\n (prefix (format (concat \"%-\" (int-to-string first-col-width) \"s\")\n full-prefix))\n (page-cnt (if (> n-pages 1)\n (format\n (concat \"%-\" (int-to-string first-col-width) \"s\")\n page-cnt)\n (make-string first-col-width 32)))\n lines first-line new-end)\n (if (= 1 height)\n (cons (concat prefix page) nil)\n (setq lines (split-string page \"\\n\")\n first-line (concat prefix (car lines) \"\\n\" page-cnt)\n new-end (concat \"\\n\" (make-string first-col-width 32)))\n (cons\n (concat first-line (mapconcat #'identity (cdr lines) new-end))\n nil))))\n (`top\n (cons\n (concat (when (or (= 0 echo-keystrokes)\n (not (eq which-key-side-window-location 'bottom)))\n (concat full-prefix \" \"))\n status-line \" \" nxt-pg-hint \"\\n\" page)\n nil))\n (`bottom\n (cons\n (concat page \"\\n\"\n (when (or (= 0 echo-keystrokes)\n (not (eq which-key-side-window-location 'bottom)))\n (concat full-prefix \" \"))\n status-line \" \" nxt-pg-hint)\n nil))\n (`echo\n (cons page\n (lambda ()\n (which-key--echo\n (concat full-prefix (when prefix-desc \" \")\n status-line (when status-line \" \")\n nxt-pg-hint)))))\n (`mode-line\n (cons page\n (lambda ()\n (with-current-buffer which-key--buffer\n (setq-local mode-line-format\n (concat \" \" full-prefix\n \" \" status-line\n \" \" nxt-pg-hint))))))\n (_ (cons page nil)))))\n\n(defun which-key--show-page (&optional n)\n \"Show current page. N changes the current page to the Nth page\nrelative to the current one.\"\n (which-key--init-buffer) ;; in case it was killed\n (let ((prefix-keys (which-key--current-key-string))\n golden-ratio-mode)\n (if (null which-key--pages-obj)\n (message \"%s- which-key can't show keys: There is not \\\nenough space based on your settings and frame size.\" prefix-keys)\n (when n\n (setq which-key--pages-obj\n (which-key--pages-set-current-page which-key--pages-obj n)))\n (let ((page-echo (which-key--process-page which-key--pages-obj))\n (height (which-key--pages-height which-key--pages-obj))\n (width (car (which-key--pages-widths which-key--pages-obj))))\n (which-key--lighter-status)\n (if (eq which-key-popup-type 'minibuffer)\n (which-key--echo (car page-echo))\n (with-current-buffer which-key--buffer\n (erase-buffer)\n (insert (car page-echo))\n (goto-char (point-min)))\n (when (cdr page-echo) (funcall (cdr page-echo)))\n (which-key--show-popup (cons height width)))))\n ;; used for paging at top-level\n (if (fboundp 'set-transient-map)\n (set-transient-map (which-key--get-popup-map))\n (with-no-warnings\n (set-temporary-overlay-map (which-key--get-popup-map))))))\n\n;;; Paging functions\n\n;;;###autoload\n(defun which-key-reload-key-sequence (&optional key-seq)\n \"Simulate entering the key sequence KEY-SEQ.\nKEY-SEQ should be a list of events as produced by\n`listify-key-sequence'. If nil, KEY-SEQ defaults to\n`which-key--current-key-list'. Any prefix arguments that were\nused are reapplied to the new key sequence.\"\n (let* ((key-seq (or key-seq (which-key--current-key-list)))\n (next-event (mapcar (lambda (ev) (cons t ev)) key-seq)))\n (setq prefix-arg current-prefix-arg\n unread-command-events next-event)))\n\n(defun which-key-turn-page (delta)\n \"Show the next page of keys.\"\n (which-key-reload-key-sequence)\n (if which-key--last-try-2-loc\n (let ((which-key-side-window-location which-key--last-try-2-loc)\n (which-key--multiple-locations t))\n (which-key--show-page delta))\n (which-key--show-page delta))\n (which-key--start-paging-timer))\n\n;;;###autoload\n(defun which-key-show-standard-help (&optional _)\n \"Call the command in `which-key--prefix-help-cmd-backup'.\nUsually this is `describe-prefix-bindings'.\"\n (interactive)\n (let ((which-key-inhibit t))\n (which-key--hide-popup-ignore-command)\n (cond ((eq which-key--prefix-help-cmd-backup\n 'describe-prefix-bindings)\n ;; This is essentially what `describe-prefix-bindings' does\n (describe-bindings\n (kbd (which-key--current-key-string))))\n ((functionp which-key--prefix-help-cmd-backup)\n (funcall which-key--prefix-help-cmd-backup)))))\n\n;;;###autoload\n(defun which-key-show-next-page-no-cycle ()\n \"Show next page of keys unless on the last page, in which case\ncall `which-key-show-standard-help'.\"\n (interactive)\n (let ((which-key-inhibit t))\n (if (which-key--on-last-page)\n (which-key-show-standard-help)\n (which-key-turn-page 1))))\n\n;;;###autoload\n(defun which-key-show-previous-page-no-cycle ()\n \"Show previous page of keys unless on the first page, in which\ncase do nothing.\"\n (interactive)\n (let ((which-key-inhibit t))\n (unless (which-key--on-first-page)\n (which-key-turn-page -1))))\n\n;;;###autoload\n(defun which-key-show-next-page-cycle (&optional _)\n \"Show the next page of keys, cycling from end to beginning\nafter last page.\"\n (interactive)\n (let ((which-key-inhibit t))\n (which-key-turn-page 1)))\n\n;;;###autoload\n(defun which-key-show-previous-page-cycle (&optional _)\n \"Show the previous page of keys, cycling from beginning to end\nafter first page.\"\n (interactive)\n (let ((which-key-inhibit t))\n (which-key-turn-page -1)))\n\n;;;###autoload\n(defun which-key-show-top-level (&optional _)\n \"Show top-level bindings.\"\n (interactive)\n (which-key--create-buffer-and-show nil nil nil \"Top-level bindings\"))\n\n;;;###autoload\n(defun which-key-show-major-mode ()\n \"Show top-level bindings in the map of the current major mode.\n\nThis function will also detect evil bindings made using\n`evil-define-key' in this map. These bindings will depend on the\ncurrent evil state. \"\n (interactive)\n (let ((map-sym (intern (format \"%s-map\" major-mode))))\n (if (and (boundp map-sym) (keymapp (symbol-value map-sym)))\n (which-key--create-buffer-and-show\n nil nil\n (apply-partially #'which-key--map-binding-p (symbol-value map-sym))\n \"Major-mode bindings\")\n (message \"which-key: No map named %s\" map-sym))))\n\n;;;###autoload\n(defun which-key-undo-key (&optional _)\n \"Undo last keypress and force which-key update.\"\n (interactive)\n (let* ((key-lst (butlast (which-key--current-key-list)))\n (which-key-inhibit t))\n (cond (which-key--prior-show-keymap-args\n (if (keymapp (cdr (car-safe which-key--prior-show-keymap-args)))\n (let ((args (pop which-key--prior-show-keymap-args)))\n (which-key--show-keymap (car args) (cdr args)))\n (which-key--hide-popup)))\n (key-lst\n (which-key-reload-key-sequence key-lst)\n (which-key--create-buffer-and-show (apply #'vector key-lst)))\n (t (setq which-key--automatic-display nil)\n (which-key-show-top-level)))))\n(defalias 'which-key-undo 'which-key-undo-key)\n\n(defun which-key-abort (&optional _)\n \"Abort key sequence.\"\n (interactive)\n (let ((which-key-inhibit t))\n (which-key--hide-popup-ignore-command)\n (keyboard-quit)))\n\n(defun which-key-digit-argument (key)\n \"Version of `digit-argument' for use in `which-key-C-h-map'.\"\n (interactive)\n (let ((last-command-event (string-to-char key)))\n (digit-argument key))\n (let ((current-prefix-arg prefix-arg))\n (which-key-reload-key-sequence)))\n\n(defun which-key-toggle-docstrings (&optional _)\n \"Toggle the display of docstrings.\"\n (interactive)\n (unless (eq which-key-show-docstrings 'docstring-only)\n (setq which-key-show-docstrings (null which-key-show-docstrings)))\n (which-key-reload-key-sequence)\n (which-key--create-buffer-and-show (which-key--current-prefix)))\n\n;;;###autoload\n(defun which-key-C-h-dispatch ()\n \"Dispatch C-h commands by looking up key in\n`which-key-C-h-map'. This command is always accessible (from any\nprefix) if `which-key-use-C-h-commands' is non nil.\"\n (interactive)\n (if (not (which-key--popup-showing-p))\n (which-key-show-standard-help)\n (let* ((prefix-keys (which-key--current-key-string))\n (full-prefix (which-key--full-prefix prefix-keys current-prefix-arg t))\n (prompt (concat (when (string-equal prefix-keys \"\")\n (which-key--propertize\n (concat \" \"\n (which-key--pages-prefix-title\n which-key--pages-obj))\n 'face 'which-key-note-face))\n full-prefix\n (which-key--propertize\n (substitute-command-keys\n (concat\n \" \\\\\"\n \" \\\\[which-key-show-next-page-cycle]\"\n which-key-separator \"next-page,\"\n \" \\\\[which-key-show-previous-page-cycle]\"\n which-key-separator \"previous-page,\"\n \" \\\\[which-key-undo-key]\"\n which-key-separator \"undo-key,\"\n \" \\\\[which-key-toggle-docstrings]\"\n which-key-separator \"toggle-docstrings,\"\n \" \\\\[which-key-show-standard-help]\"\n which-key-separator \"help,\"\n \" \\\\[which-key-abort]\"\n which-key-separator \"abort\"\n \" 1..9\"\n which-key-separator \"digit-arg\"))\n 'face 'which-key-note-face)))\n (key (string (read-key prompt)))\n (cmd (lookup-key which-key-C-h-map key))\n (which-key-inhibit t))\n (if cmd (funcall cmd key) (which-key-turn-page 0)))))\n\n;;; Update\n\n(defun which-key--any-match-p (regexps string)\n \"Non-nil if any of REGEXPS match STRING.\"\n (catch 'match\n (dolist (regexp regexps)\n (when (string-match-p regexp string)\n (throw 'match t)))))\n\n(defun which-key--try-2-side-windows\n (bindings prefix-keys prefix-title loc1 loc2 &rest _ignore)\n \"Try to show BINDINGS (PAGE-N) in LOC1 first.\n\nOnly if no bindings fit fallback to LOC2.\"\n (let (pages1)\n (let ((which-key-side-window-location loc1)\n (which-key--multiple-locations t))\n (setq pages1 (which-key--create-pages\n bindings prefix-keys prefix-title)))\n (if pages1\n (progn\n (setq which-key--pages-obj pages1)\n (let ((which-key-side-window-location loc1)\n (which-key--multiple-locations t))\n (which-key--show-page))\n loc1)\n (let ((which-key-side-window-location loc2)\n (which-key--multiple-locations t))\n (setq which-key--pages-obj\n (which-key--create-pages bindings prefix-keys prefix-title))\n (which-key--show-page)\n loc2))))\n\n(defun which-key--read-keymap ()\n \"Read keymap symbol from minibuffer.\"\n (intern\n (completing-read \"Keymap: \" obarray\n (lambda (m)\n (and (boundp m)\n (keymapp (symbol-value m))\n (not (equal (symbol-value m)\n (make-sparse-keymap)))))\n t\n (let ((sym (symbol-at-point)))\n (and (boundp sym)\n (keymapp (symbol-value sym))\n (symbol-name sym)))\n 'which-key-keymap-history)))\n\n;;;###autoload\n(defun which-key-show-keymap (keymap)\n \"Show the top-level bindings in KEYMAP using which-key. KEYMAP\nis selected interactively from all available keymaps.\"\n (interactive (list (which-key--read-keymap)))\n (which-key--show-keymap (symbol-name keymap)\n (symbol-value keymap)))\n\n;;;###autoload\n(defun which-key-show-full-keymap (keymap)\n \"Show all bindings in KEYMAP using which-key. KEYMAP is\nselected interactively from all available keymaps.\"\n (interactive (list (which-key--read-keymap)))\n (which-key--show-keymap (symbol-name keymap)\n (symbol-value keymap)\n nil t))\n\n;;;###autoload\n(defun which-key-show-minor-mode-keymap ()\n \"Show the top-level bindings in KEYMAP using which-key. KEYMAP\nis selected interactively by mode in `minor-mode-map-alist'.\"\n (interactive)\n (let ((mode-sym\n (intern\n (completing-read\n \"Minor Mode: \"\n (mapcar 'car\n (cl-remove-if-not\n (lambda (entry)\n (and (symbol-value (car entry))\n (not (equal (cdr entry) (make-sparse-keymap)))))\n minor-mode-map-alist))\n nil t nil 'which-key-keymap-history))))\n (which-key--show-keymap (symbol-name mode-sym)\n (cdr (assq mode-sym minor-mode-map-alist)))))\n\n(defun which-key--show-keymap (keymap-name keymap &optional prior-args all)\n (when prior-args (push prior-args which-key--prior-show-keymap-args))\n (let ((bindings (which-key--get-bindings nil keymap nil all)))\n (if (= (length bindings) 0)\n (message \"which-key: No bindings found in %s\" keymap-name)\n (cond ((listp which-key-side-window-location)\n (setq which-key--last-try-2-loc\n (apply #'which-key--try-2-side-windows\n bindings nil keymap-name\n which-key-side-window-location)))\n (t (setq which-key--pages-obj\n (which-key--create-pages bindings nil keymap-name))\n (which-key--show-page)))\n (let* ((key (key-description (list (read-key))))\n (next-def (lookup-key keymap (kbd key))))\n (cond ((and which-key-use-C-h-commands (string= \"C-h\" key))\n (which-key-C-h-dispatch))\n ((keymapp next-def)\n (which-key--hide-popup-ignore-command)\n (which-key--show-keymap (concat keymap-name \" \" key) next-def\n (cons keymap-name keymap)))\n (t (which-key--hide-popup)))))))\n\n(defun which-key--evil-operator-filter (binding)\n (let ((def (intern (cdr binding))))\n (and (functionp def)\n (not (evil-get-command-property def :suppress-operator)))))\n\n(defun which-key--show-evil-operator-keymap ()\n (if which-key--inhibit-next-operator-popup\n (setq which-key--inhibit-next-operator-popup nil)\n (let ((keymap\n (make-composed-keymap (list evil-operator-shortcut-map\n evil-operator-state-map\n evil-motion-state-map))))\n (when (keymapp keymap)\n (let ((formatted-keys\n (which-key--get-bindings\n nil keymap #'which-key--evil-operator-filter)))\n (cond ((= (length formatted-keys) 0)\n (message \"which-key: Keymap empty\"))\n ((listp which-key-side-window-location)\n (setq which-key--last-try-2-loc\n (apply #'which-key--try-2-side-windows\n formatted-keys nil \"evil operator/motion keys\"\n which-key-side-window-location)))\n (t (setq which-key--pages-obj\n (which-key--create-pages\n formatted-keys\n nil \"evil operator/motion keys\"))\n (which-key--show-page)))))\n (let* ((key (key-description (list (read-key)))))\n (when (member key '(\"f\" \"F\" \"t\" \"T\" \"`\"))\n ;; these keys trigger commands that read the next char manually\n (setq which-key--inhibit-next-operator-popup t))\n (cond ((and which-key-use-C-h-commands (string= \"C-h\" key))\n (which-key-C-h-dispatch))\n ((string= key \"ESC\")\n (which-key--hide-popup)\n (keyboard-quit))\n (t\n (which-key--hide-popup)\n (setq unread-command-events (listify-key-sequence key))))))))\n\n(defun which-key--create-buffer-and-show\n (&optional prefix-keys from-keymap filter prefix-title)\n \"Fill `which-key--buffer' with key descriptions and reformat.\nFinally, show the buffer.\"\n (let ((start-time (when which-key--debug (current-time)))\n (formatted-keys (which-key--get-bindings\n prefix-keys from-keymap filter))\n (prefix-desc (key-description prefix-keys)))\n (cond ((= (length formatted-keys) 0)\n (message \"%s- which-key: There are no keys to show\" prefix-desc))\n ((listp which-key-side-window-location)\n (setq which-key--last-try-2-loc\n (apply #'which-key--try-2-side-windows\n formatted-keys prefix-keys prefix-title\n which-key-side-window-location)))\n (t (setq which-key--pages-obj\n (which-key--create-pages\n formatted-keys prefix-keys prefix-title))\n (which-key--show-page)))\n (when which-key--debug\n (message \"On prefix \\\"%s\\\" which-key took %.0f ms.\" prefix-desc\n (* 1000 (float-time (time-since start-time)))))))\n\n(defun which-key--this-command-keys ()\n \"Version of `this-single-command-keys' corrected for key-chords and god-mode.\"\n (let ((this-command-keys (this-single-command-keys)))\n (when (and (equal this-command-keys [key-chord])\n (bound-and-true-p key-chord-mode))\n (setq this-command-keys\n (condition-case nil\n (let ((rkeys (recent-keys)))\n (vector 'key-chord\n ;; Take the two preceding the last one, because the\n ;; read-event call in key-chord seems to add a\n ;; spurious key press to this list. Note this is\n ;; different from guide-key's method which didn't work\n ;; for me.\n (aref rkeys (- (length rkeys) 3))\n (aref rkeys (- (length rkeys) 2))))\n (error (progn\n (message \"which-key error in key-chord handling\")\n [key-chord])))))\n (when (and which-key--god-mode-support-enabled\n (bound-and-true-p god-local-mode)\n (eq this-command 'god-mode-self-insert))\n (setq this-command-keys (when which-key--god-mode-key-string\n (kbd which-key--god-mode-key-string))))\n this-command-keys))\n\n(defun which-key--update ()\n \"Function run by timer to possibly trigger\n`which-key--create-buffer-and-show'.\"\n (let ((prefix-keys (which-key--this-command-keys))\n delay-time)\n (cond ((and (> (length prefix-keys) 0)\n (or (keymapp (key-binding prefix-keys))\n ;; Some keymaps are stored here like iso-transl-ctl-x-8-map\n (keymapp (which-key--safe-lookup-key\n key-translation-map prefix-keys))\n ;; just in case someone uses one of these\n (keymapp (which-key--safe-lookup-key\n function-key-map prefix-keys)))\n (not which-key-inhibit)\n (or (null which-key-allow-regexps)\n (which-key--any-match-p\n which-key-allow-regexps (key-description prefix-keys)))\n (or (null which-key-inhibit-regexps)\n (not\n (which-key--any-match-p\n which-key-inhibit-regexps (key-description prefix-keys))))\n ;; Do not display the popup if a command is currently being\n ;; executed\n (or (and which-key-allow-evil-operators\n (bound-and-true-p evil-this-operator))\n (and which-key--god-mode-support-enabled\n (bound-and-true-p god-local-mode)\n (eq this-command 'god-mode-self-insert))\n (null this-command)))\n (when (and (not (equal prefix-keys (which-key--current-prefix)))\n (or (null which-key-delay-functions)\n (null (setq delay-time\n (run-hook-with-args-until-success\n 'which-key-delay-functions\n (key-description prefix-keys)\n (length prefix-keys))))\n (sit-for delay-time)))\n (setq which-key--automatic-display t)\n (which-key--create-buffer-and-show prefix-keys)\n (when (and which-key-idle-secondary-delay\n (not which-key--secondary-timer-active))\n (which-key--start-timer which-key-idle-secondary-delay t))))\n ((and which-key-show-transient-maps\n (keymapp overriding-terminal-local-map)\n ;; basic test for it being a hydra\n (not (eq (lookup-key overriding-terminal-local-map \"\\C-u\")\n 'hydra--universal-argument)))\n (which-key--create-buffer-and-show\n nil overriding-terminal-local-map))\n ((and which-key-show-operator-state-maps\n (bound-and-true-p evil-state)\n (eq evil-state 'operator)\n (not (which-key--popup-showing-p)))\n (which-key--show-evil-operator-keymap))\n (which-key--automatic-display\n (which-key--hide-popup)))))\n\n;;; Timers\n\n(defun which-key--start-timer (&optional delay secondary)\n \"Activate idle timer to trigger `which-key--update'.\"\n (which-key--stop-timer)\n (setq which-key--secondary-timer-active secondary)\n (setq which-key--timer\n (run-with-idle-timer\n (if delay\n delay\n which-key-idle-delay) t #'which-key--update)))\n\n(defun which-key--stop-timer ()\n \"Deactivate idle timer for `which-key--update'.\"\n (when which-key--timer (cancel-timer which-key--timer)))\n\n(defun which-key--start-paging-timer ()\n \"Activate timer to restart which-key after paging.\"\n (when which-key--paging-timer (cancel-timer which-key--paging-timer))\n (which-key--stop-timer)\n (setq which-key--paging-timer\n (run-with-idle-timer\n 0.2 t (lambda ()\n (when (or (not (member real-last-command\n which-key--paging-functions))\n (and (< 0 (length (this-single-command-keys)))\n (not (equal (which-key--current-prefix)\n (which-key--this-command-keys)))))\n (cancel-timer which-key--paging-timer)\n (which-key--start-timer))))))\n\n(provide 'which-key)\n;;; which-key.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"websocket-20210110.17","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":1842108,"end":1842140},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1842140},"to":{"change":7,"start":1842107,"end":1842107},"introduced_by":7}],"inode":{"change":7,"pos":1842107}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"websocket-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1842107},"to":{"change":7,"start":1890829,"end":1890875},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1890875},"to":{"change":7,"start":1890271,"end":1890271},"introduced_by":7}],"inode":{"change":7,"pos":1890271}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1890271},"to":{"change":7,"start":1890272,"end":1890828},"introduced_by":7}],"inode":{"change":7,"pos":1890271}},"content":[{"Del":";;; websocket-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"websocket\" \"websocket.el\" (0 0 0 0))\n;;; Generated autoloads from websocket.el\n\n(register-definition-prefixes \"websocket\" '(\"websocket-\"))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; websocket-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"websocket-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1842107},"to":{"change":7,"start":1890229,"end":1890269},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1890269},"to":{"change":7,"start":1889799,"end":1889799},"introduced_by":7}],"inode":{"change":7,"pos":1889799}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1889799},"to":{"change":7,"start":1889800,"end":1890228},"introduced_by":7}],"inode":{"change":7,"pos":1889799}},"content":[{"Del":";;; Generated package description from websocket.el -*- no-byte-compile: t -*-\n(define-package \"websocket\" \"20210110.17\" \"Emacs WebSocket client and server\" '((cl-lib \"0.5\")) :commit \"34e11124fdd9d73e431499ba8a6b6a8023519664\" :authors '((\"Andrew Hyatt\" . \"ahyatt@gmail.com\")) :maintainer '(\"Andrew Hyatt\" . \"ahyatt@gmail.com\") :keywords '(\"communication\" \"websocket\" \"server\") :url \"https://github.com/ahyatt/emacs-websocket\")\n"}]}},{"FileDel":{"deleted_names":[{"basename":"websocket.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1842107},"to":{"change":7,"start":1889761,"end":1889797},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1889797},"to":{"change":7,"start":1842142,"end":1842142},"introduced_by":7}],"inode":{"change":7,"pos":1842142}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1842142},"to":{"change":7,"start":1842143,"end":1889760},"introduced_by":7}],"inode":{"change":7,"pos":1842142}},"content":[{"Del":";;; websocket.el --- Emacs WebSocket client and server -*- lexical-binding:t -*-\n\n;; Copyright (c) 2013, 2016-2017 Free Software Foundation, Inc.\n\n;; Author: Andrew Hyatt \n;; Homepage: https://github.com/ahyatt/emacs-websocket\n;; Keywords: Communication, Websocket, Server\n;; Package-Version: 20210110.17\n;; Package-Commit: 34e11124fdd9d73e431499ba8a6b6a8023519664\n;; Version: 1.13\n;; Package-Requires: ((cl-lib \"0.5\"))\n;;\n;; This program is free software; you can redistribute it and/or\n;; modify it under the terms of the GNU General Public License as\n;; published by the Free Software Foundation; either version 2 of the\n;; License, or (at your option) any later version.\n;;\n;; This program is distributed in the hope that it will be useful, but\n;; WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n;; General Public License for more details.\n;;\n;; You should have received a copy of the GNU General Public License\n;; along with GNU Emacs. If not, see .\n\n;;; Commentary:\n;; This implements RFC 6455, which can be found at\n;; http://tools.ietf.org/html/rfc6455.\n;;\n;; This library contains code to connect Emacs as a client to a\n;; websocket server, and for Emacs to act as a server for websocket\n;; connections.\n;;\n;; Websockets clients are created by calling `websocket-open', which\n;; returns a `websocket' struct. Users of this library use the\n;; websocket struct, and can call methods `websocket-send-text', which\n;; sends text over the websocket, or `websocket-send', which sends a\n;; `websocket-frame' struct, enabling finer control of what is sent.\n;; A callback is passed to `websocket-open' that will retrieve\n;; websocket frames called from the websocket. Websockets are\n;; eventually closed with `websocket-close'.\n;;\n;; Server functionality is similar. A server is started with\n;; `websocket-server' called with a port and the callbacks to use,\n;; which returns a process. The process can later be closed with\n;; `websocket-server-close'. A `websocket' struct is also created\n;; for every connection, and is exposed through the callbacks.\n\n(require 'bindat)\n(require 'url-parse)\n(require 'url-cookie)\n(require 'seq)\n(eval-when-compile (require 'cl-lib))\n\n;;; Code:\n\n(cl-defstruct (websocket\n (:constructor nil)\n (:constructor websocket-inner-create))\n \"A websocket structure.\nThis follows the W3C Websocket API, except translated to elisp\nidioms. The API is implemented in both the websocket struct and\nadditional methods. Due to how defstruct slots are accessed, all\nAPI methods are prefixed with \\\"websocket-\\\" and take a websocket\nas an argument, so the distrinction between the struct API and\nthe additional helper APIs are not visible to the caller.\n\nA websocket struct is created with `websocket-open'.\n\n`ready-state' contains one of `connecting', `open', or\n`closed', depending on the state of the websocket.\n\nThe W3C API \\\"bufferedAmount\\\" call is not currently implemented,\nsince there is no elisp API to get the buffered amount from the\nsubprocess. There may, in fact, be output data buffered,\nhowever, when the `on-message' or `on-close' callbacks are\ncalled.\n\n`on-open', `on-message', `on-close', and `on-error' are described\nin `websocket-open'.\n\nThe `negotiated-extensions' slot lists the extensions accepted by\nboth the client and server, and `negotiated-protocols' does the\nsame for the protocols.\"\n ;; API\n (ready-state 'connecting)\n client-data\n on-open\n on-message\n on-close\n on-error\n negotiated-protocols\n negotiated-extensions\n (server-p nil :read-only t)\n\n ;; Other data - clients should not have to access this.\n (url (cl-assert nil) :read-only t)\n (protocols nil :read-only t)\n (extensions nil :read-only t)\n (conn (cl-assert nil) :read-only t)\n ;; Only populated for servers, this is the server connection.\n server-conn\n accept-string\n (inflight-input nil))\n\n(defvar websocket-version \"1.12\"\n \"Version numbers of this version of websocket.el.\")\n\n(defvar websocket-debug nil\n \"Set to true to output debugging info to a per-websocket buffer.\nThe buffer is ` *websocket URL debug*' where URL is the\nURL of the connection.\")\n\n(defconst websocket-guid \"258EAFA5-E914-47DA-95CA-C5AB0DC85B11\"\n \"The websocket GUID as defined in RFC 6455.\nDo not change unless the RFC changes.\")\n\n(defvar websocket-callback-debug-on-error nil\n \"If true, when an error happens in a client callback, invoke the debugger.\nHaving this on can cause issues with missing frames if the debugger is\nexited by quitting instead of continuing, so it's best to have this set\nto nil unless it is especially needed.\")\n\n(defmacro websocket-document-function (function docstring)\n \"Document FUNCTION with DOCSTRING. Use this for defstruct accessor etc.\"\n (declare (indent defun)\n (doc-string 2))\n `(put ',function 'function-documentation ,docstring))\n\n(websocket-document-function websocket-on-open\n \"Accessor for websocket on-open callback.\nSee `websocket-open' for details.\n\n\\(fn WEBSOCKET)\")\n\n(websocket-document-function websocket-on-message\n \"Accessor for websocket on-message callback.\nSee `websocket-open' for details.\n\n\\(fn WEBSOCKET)\")\n\n(websocket-document-function websocket-on-close\n \"Accessor for websocket on-close callback.\nSee `websocket-open' for details.\n\n\\(fn WEBSOCKET)\")\n\n(websocket-document-function websocket-on-error\n \"Accessor for websocket on-error callback.\nSee `websocket-open' for details.\n\n\\(fn WEBSOCKET)\")\n\n(defun websocket-genbytes (nbytes)\n \"Generate NBYTES random bytes.\"\n (let ((s (make-string nbytes ?\\s)))\n (dotimes (i nbytes)\n (aset s i (random 256)))\n s))\n\n(defun websocket-try-callback (websocket-callback callback-type websocket\n &rest rest)\n \"Invoke function WEBSOCKET-CALLBACK with WEBSOCKET and REST args.\nIf an error happens, it is handled according to\n`websocket-callback-debug-on-error'.\"\n ;; This looks like it should be able to done more efficiently, but\n ;; I'm not sure that's the case. We can't do it as a macro, since\n ;; we want it to change whenever websocket-callback-debug-on-error\n ;; changes.\n (let ((args rest)\n (debug-on-error websocket-callback-debug-on-error))\n (push websocket args)\n (if websocket-callback-debug-on-error\n (condition-case err\n (apply (funcall websocket-callback websocket) args)\n ((debug error) (funcall (websocket-on-error websocket)\n websocket callback-type err)))\n (condition-case err\n (apply (funcall websocket-callback websocket) args)\n (error (funcall (websocket-on-error websocket) websocket\n callback-type err))))))\n\n(defun websocket-genkey ()\n \"Generate a key suitable for the websocket handshake.\"\n (base64-encode-string (websocket-genbytes 16)))\n\n(defun websocket-calculate-accept (key)\n \"Calculate the expect value of the accept header.\nThis is based on the KEY from the Sec-WebSocket-Key header.\"\n (base64-encode-string\n (sha1 (concat key websocket-guid) nil nil t)))\n\n(defun websocket-get-bytes (s n)\n \"From string S, retrieve the value of N bytes.\nReturn the value as an unsigned integer. The value N must be a\npower of 2, up to 8.\n\nWe support getting frames up to 536870911 bytes (2^29 - 1),\napproximately 537M long.\"\n (if (= n 8)\n (let* ((32-bit-parts\n (bindat-get-field (bindat-unpack '((:val vec 2 u32)) s) :val))\n (cval\n (logior (lsh (aref 32-bit-parts 0) 32) (aref 32-bit-parts 1))))\n (if (and (= (aref 32-bit-parts 0) 0)\n (= (lsh (aref 32-bit-parts 1) -29) 0))\n cval\n (signal 'websocket-unparseable-frame\n (list \"Frame value found too large to parse!\"))))\n ;; n is not 8\n (bindat-get-field\n (condition-case _\n (bindat-unpack\n `((:val\n ,(cond ((= n 1) 'u8)\n ((= n 2) 'u16)\n ((= n 4) 'u32)\n ;; This is an error with the library,\n ;; not a user-facing, meaningful error.\n (t (error\n \"websocket-get-bytes: Unknown N: %S\" n)))))\n s)\n (args-out-of-range (signal 'websocket-unparseable-frame\n (list (format \"Frame unexpectedly short: %s\" s)))))\n :val)))\n\n(defun websocket-to-bytes (val nbytes)\n \"Encode the integer VAL in NBYTES of data.\nNBYTES much be a power of 2, up to 8.\n\nThis supports encoding values up to 536870911 bytes (2^29 - 1),\napproximately 537M long.\"\n (when (and (< nbytes 8)\n (> val (expt 2 (* 8 nbytes))))\n ;; not a user-facing error, this must be caused from an error in\n ;; this library\n (error \"websocket-to-bytes: Value %d could not be expressed in %d bytes\"\n val nbytes))\n (if (= nbytes 8)\n (progn\n (let* ((hi-32bits (lsh val -32))\n ;; This is just VAL on systems that don't have >= 32 bits.\n (low-32bits (- val (lsh hi-32bits 32))))\n (when (or (> hi-32bits 0) (> (lsh low-32bits -29) 0))\n (signal 'websocket-frame-too-large (list val)))\n (bindat-pack `((:val vec 2 u32))\n `((:val . [,hi-32bits ,low-32bits])))))\n (bindat-pack\n `((:val ,(cond ((= nbytes 1) 'u8)\n ((= nbytes 2) 'u16)\n ((= nbytes 4) 'u32)\n ;; Library error, not system error\n (t (error \"websocket-to-bytes: Unknown NBYTES: %S\" nbytes)))))\n `((:val . ,val)))))\n\n(defun websocket-get-opcode (s)\n \"Retrieve the opcode from first byte of string S.\"\n (websocket-ensure-length s 1)\n (let ((opcode (logand #xf (aref s 0))))\n (cond ((= opcode 0) 'continuation)\n ((= opcode 1) 'text)\n ((= opcode 2) 'binary)\n ((= opcode 8) 'close)\n ((= opcode 9) 'ping)\n ((= opcode 10) 'pong))))\n\n(defun websocket-get-payload-len (s)\n \"Parse out the payload length from the string S.\nWe start at position 0, and return a cons of the payload length and how\nmany bytes were consumed from the string.\"\n (websocket-ensure-length s 1)\n (let* ((initial-val (logand 127 (aref s 0))))\n (cond ((= initial-val 127)\n (websocket-ensure-length s 9)\n (cons (websocket-get-bytes (substring s 1) 8) 9))\n ((= initial-val 126)\n (websocket-ensure-length s 3)\n (cons (websocket-get-bytes (substring s 1) 2) 3))\n (t (cons initial-val 1)))))\n\n(cl-defstruct websocket-frame opcode payload length completep)\n\n(defun websocket-frame-text (frame)\n \"Given FRAME, return the payload as a utf-8 encoded string.\"\n (cl-assert (websocket-frame-p frame))\n (decode-coding-string (websocket-frame-payload frame) 'utf-8))\n\n(defun websocket-mask (key data)\n \"Using string KEY, mask string DATA according to the RFC.\nThis is used to both mask and unmask data.\"\n ;; Returning the string as unibyte is important here. Because we set the\n ;; string byte by byte, this results in a unibyte string.\n (cl-loop\n with result = (make-string (length data) ?x)\n for i from 0 below (length data)\n do (setf (seq-elt result i) (logxor (aref key (mod i 4)) (seq-elt data i)))\n finally return result))\n\n(defun websocket-ensure-length (s n)\n \"Ensure the string S has at most N bytes.\nOtherwise we throw the error `websocket-incomplete-frame'.\"\n (when (< (length s) n)\n (throw 'websocket-incomplete-frame nil)))\n\n(defun websocket-encode-frame (frame should-mask)\n \"Encode the FRAME struct to the binary representation.\nWe mask the frame or not, depending on SHOULD-MASK.\"\n (let* ((opcode (websocket-frame-opcode frame))\n (payload (websocket-frame-payload frame))\n (fin (websocket-frame-completep frame))\n (payloadp (and payload\n (memq opcode '(continuation ping pong text binary))))\n (mask-key (when should-mask (websocket-genbytes 4))))\n (apply #'unibyte-string\n (let ((val (append (list\n (logior (pcase opcode\n (`continuation 0)\n (`text 1)\n (`binary 2)\n (`close 8)\n (`ping 9)\n (`pong 10))\n (if fin 128 0)))\n (when payloadp\n (list\n (logior\n (if should-mask 128 0)\n (cond ((< (length payload) 126) (length payload))\n ((< (length payload) 65536) 126)\n (t 127)))))\n (when (and payloadp (>= (length payload) 126))\n (append (websocket-to-bytes\n (length payload)\n (cond ((< (length payload) 126) 1)\n ((< (length payload) 65536) 2)\n (t 8))) nil))\n (when (and payloadp should-mask)\n (append mask-key nil))\n (when payloadp\n (append (if should-mask (websocket-mask mask-key payload)\n payload)\n nil)))))\n ;; We have to make sure the non-payload data is a full 32-bit frame\n (if (= 1 (length val))\n (append val '(0)) val)))))\n\n(defun websocket-read-frame (s)\n \"Read from string S a `websocket-frame' struct with the contents.\nThis only gets complete frames. Partial frames need to wait until\nthe frame finishes. If the frame is not completed, return NIL.\"\n (catch 'websocket-incomplete-frame\n (websocket-ensure-length s 1)\n (let* ((opcode (websocket-get-opcode s))\n (fin (logand 128 (aref s 0)))\n (payloadp (memq opcode '(continuation text binary ping pong)))\n (payload-len (when payloadp\n (websocket-get-payload-len (substring s 1))))\n (maskp (and\n payloadp\n (= 128 (logand 128 (aref s 1)))))\n (payload-start (when payloadp (+ (if maskp 5 1) (cdr payload-len))))\n (payload-end (when payloadp (+ payload-start (car payload-len))))\n (unmasked-payload (when payloadp\n (websocket-ensure-length s payload-end)\n (substring s payload-start payload-end))))\n (make-websocket-frame\n :opcode opcode\n :payload\n (if maskp\n (let ((masking-key (substring s (+ 1 (cdr payload-len))\n (+ 5 (cdr payload-len)))))\n (websocket-mask masking-key unmasked-payload))\n unmasked-payload)\n :length (if payloadp payload-end 1)\n :completep (> fin 0)))))\n\n(defun websocket-format-error (err)\n \"Format an error message like command level does.\nERR should be a cons of error symbol and error data.\"\n\n ;; Formatting code adapted from `edebug-report-error'\n (concat (or (get (car err) 'error-message)\n (format \"peculiar error (%s)\" (car err)))\n (when (cdr err)\n (format \": %s\"\n (mapconcat #'prin1-to-string\n (cdr err) \", \")))))\n\n(defun websocket-default-error-handler (_websocket type err)\n \"The default error handler used to handle errors in callbacks.\"\n (display-warning 'websocket\n (format \"in callback `%S': %s\"\n type\n (websocket-format-error err))\n :error))\n\n;; Error symbols in use by the library\n(put 'websocket-unsupported-protocol 'error-conditions\n '(error websocket-error websocket-unsupported-protocol))\n(put 'websocket-unsupported-protocol 'error-message \"Unsupported websocket protocol\")\n(put 'websocket-wss-needs-emacs-24 'error-conditions\n '(error websocket-error websocket-unsupported-protocol\n websocket-wss-needs-emacs-24))\n(put 'websocket-wss-needs-emacs-24 'error-message\n \"wss protocol is not supported for Emacs before version 24.\")\n(put 'websocket-received-error-http-response 'error-conditions\n '(error websocket-error websocket-received-error-http-response))\n(put 'websocket-received-error-http-response 'error-message\n \"Error response received from websocket server\")\n(put 'websocket-invalid-header 'error-conditions\n '(error websocket-error websocket-invalid-header))\n(put 'websocket-invalid-header 'error-message\n \"Invalid HTTP header sent\")\n(put 'websocket-illegal-frame 'error-conditions\n '(error websocket-error websocket-illegal-frame))\n(put 'websocket-illegal-frame 'error-message\n \"Cannot send illegal frame to websocket\")\n(put 'websocket-closed 'error-conditions\n '(error websocket-error websocket-closed))\n(put 'websocket-closed 'error-message\n \"Cannot send message to a closed websocket\")\n(put 'websocket-unparseable-frame 'error-conditions\n '(error websocket-error websocket-unparseable-frame))\n(put 'websocket-unparseable-frame 'error-message\n \"Received an unparseable frame\")\n(put 'websocket-frame-too-large 'error-conditions\n '(error websocket-error websocket-frame-too-large))\n(put 'websocket-frame-too-large 'error-message\n \"The frame being sent is too large for this emacs to handle\")\n\n(defun websocket-intersect (a b)\n \"Simple list intersection, should function like Common Lisp's `intersection'.\"\n (let ((result))\n (dolist (elem a (nreverse result))\n (when (member elem b)\n (push elem result)))))\n\n(defun websocket-get-debug-buffer-create (websocket)\n \"Get or create the buffer corresponding to WEBSOCKET.\"\n (let ((buf (get-buffer-create (format \"*websocket %s debug*\"\n (websocket-url websocket)))))\n (when (= 0 (buffer-size buf))\n (buffer-disable-undo buf))\n buf))\n\n(defun websocket-debug (websocket msg &rest args)\n \"In the WEBSOCKET's debug buffer, send MSG, with format ARGS.\"\n (when websocket-debug\n (let ((buf (websocket-get-debug-buffer-create websocket)))\n (save-excursion\n (with-current-buffer buf\n (goto-char (point-max))\n (insert \"[WS] \")\n (insert (apply #'format (append (list msg) args)))\n (insert \"\\n\"))))))\n\n(defun websocket-verify-response-code (output)\n \"Verify that OUTPUT contains a valid HTTP response code.\nThe only acceptable one to websocket is responce code 101.\nA t value will be returned on success, and an error thrown\nif not.\"\n (unless (string-match \"^HTTP/1.1 \\\$[[:digit:]]+\\\$\" output)\n (signal 'websocket-invalid-header (list \"Invalid HTTP status line\")))\n (unless (equal \"101\" (match-string 1 output))\n (signal 'websocket-received-error-http-response\n\t (list (string-to-number (match-string 1 output)))))\n t)\n\n(defun websocket-parse-repeated-field (output field)\n \"From header-containing OUTPUT, parse out the list from a\npossibly repeated field.\"\n (let ((pos 0)\n (extensions))\n (while (and pos\n (string-match (format \"\\r\\n%s: \\\$.*\\\$\\r\\n\" field)\n output pos))\n (when (setq pos (match-end 1))\n (setq extensions (append extensions (split-string\n (match-string 1 output) \", ?\")))))\n extensions))\n\n(defun websocket-process-frame (websocket frame)\n \"Using the WEBSOCKET's filter and connection, process the FRAME.\nThis returns a lambda that should be executed when all frames have\nbeen processed. If the frame has a payload, the lambda has the frame\npassed to the filter slot of WEBSOCKET. If the frame is a ping,\nthe lambda has a reply with a pong. If the frame is a close, the lambda\nhas connection termination.\"\n (let ((opcode (websocket-frame-opcode frame)))\n (cond ((memq opcode '(continuation text binary))\n (lambda () (websocket-try-callback 'websocket-on-message 'on-message\n websocket frame)))\n ((eq opcode 'ping)\n (lambda () (websocket-send websocket\n (make-websocket-frame\n :opcode 'pong\n :payload (websocket-frame-payload frame)\n :completep t))))\n ((eq opcode 'close)\n (lambda () (delete-process (websocket-conn websocket))))\n (t (lambda ())))))\n\n(defun websocket-process-input-on-open-ws (websocket text)\n \"This handles input processing for both the client and server filters.\"\n (let ((current-frame)\n (processing-queue)\n (start-point 0))\n (while (setq current-frame (websocket-read-frame\n (substring text start-point)))\n (push (websocket-process-frame websocket current-frame) processing-queue)\n (cl-incf start-point (websocket-frame-length current-frame)))\n (when (> (length text) start-point)\n (setf (websocket-inflight-input websocket)\n (substring text start-point)))\n (dolist (to-process (nreverse processing-queue))\n (funcall to-process))))\n\n(defun websocket-send-text (websocket text)\n \"To the WEBSOCKET, send TEXT as a complete frame.\"\n (websocket-send\n websocket\n (make-websocket-frame :opcode 'text\n :payload (encode-coding-string\n text 'raw-text)\n :completep t)))\n\n(defun websocket-check (frame)\n \"Check FRAME for correctness, returning true if correct.\"\n (or\n ;; Text, binary, and continuation frames need payloads\n (and (memq (websocket-frame-opcode frame) '(text binary continuation))\n (websocket-frame-payload frame))\n ;; Pings and pongs may optionally have them\n (memq (websocket-frame-opcode frame) '(ping pong))\n ;; And close shouldn't have any payload, and should always be complete.\n (and (eq (websocket-frame-opcode frame) 'close)\n (not (websocket-frame-payload frame))\n (websocket-frame-completep frame))))\n\n(defun websocket-send (websocket frame)\n \"To the WEBSOCKET server, send the FRAME.\nThis will raise an error if the frame is illegal.\n\nThe error signaled may be of type `websocket-illegal-frame' if\nthe frame is malformed in some way, also having the condition\ntype of `websocket-error'. The data associated with the signal\nis the frame being sent.\n\nIf the websocket is closed a signal `websocket-closed' is sent,\nalso with `websocket-error' condition. The data in the signal is\nalso the frame.\n\nThe frame may be too large for this buid of Emacs, in which case\n`websocket-frame-too-large' is returned, with the data of the\nsize of the frame which was too large to process. This also has\nthe `websocket-error' condition.\"\n (unless (websocket-check frame)\n (signal 'websocket-illegal-frame (list frame)))\n (websocket-debug websocket \"Sending frame, opcode: %s payload: %s\"\n (websocket-frame-opcode frame)\n (websocket-frame-payload frame))\n (unless (websocket-openp websocket)\n (signal 'websocket-closed (list frame)))\n (process-send-string (websocket-conn websocket)\n ;; We mask only when we're a client, following the spec.\n (websocket-encode-frame frame (not (websocket-server-p websocket)))))\n\n(defun websocket-openp (websocket)\n \"Check WEBSOCKET and return non-nil if the connection is open.\"\n (and websocket\n (not (eq 'close (websocket-ready-state websocket)))\n (member (process-status (websocket-conn websocket)) '(open run))))\n\n(defun websocket-close (websocket)\n \"Close WEBSOCKET and erase all the old websocket data.\"\n (websocket-debug websocket \"Closing websocket\")\n (websocket-try-callback 'websocket-on-close 'on-close websocket)\n (when (websocket-openp websocket)\n (websocket-send websocket\n (make-websocket-frame :opcode 'close\n :completep t))\n (setf (websocket-ready-state websocket) 'closed))\n (delete-process (websocket-conn websocket)))\n\n;;;;;;;;;;;;;;;;;;;;;;\n;; Websocket client ;;\n;;;;;;;;;;;;;;;;;;;;;;\n\n(cl-defun websocket-open (url &key protocols extensions (on-open 'identity)\n (on-message (lambda (_w _f))) (on-close 'identity)\n (on-error 'websocket-default-error-handler)\n (nowait nil) (custom-header-alist nil))\n \"Open a websocket connection to URL, returning the `websocket' struct.\nThe PROTOCOL argument is optional, and setting it will declare to\nthe server that this client supports the protocols in the list\ngiven. We will require that the server also has to support that\nprotocols.\n\nSimilar logic applies to EXTENSIONS, which is a list of conses,\nthe car of which is a string naming the extension, and the cdr of\nwhich is the list of parameter strings to use for that extension.\nThe parameter strings are of the form \\\"key=value\\\" or \\\"value\\\".\nEXTENSIONS can be NIL if none are in use. An example value would\nbe (\\\"deflate-stream\\\" . (\\\"mux\\\" \\\"max-channels=4\\\")).\n\nCookies that are set via `url-cookie-store' will be used during\ncommunication with the server, and cookies received from the\nserver will be stored in the same cookie storage that the\n`url-cookie' package uses.\n\nOptionally you can specify\nON-OPEN, ON-MESSAGE and ON-CLOSE callbacks as well.\n\nThe ON-OPEN callback is called after the connection is\nestablished with the websocket as the only argument. The return\nvalue is unused.\n\nThe ON-MESSAGE callback is called after receiving a frame, and is\ncalled with the websocket as the first argument and\n`websocket-frame' struct as the second. The return value is\nunused.\n\nThe ON-CLOSE callback is called after the connection is closed, or\nfailed to open. It is called with the websocket as the only\nargument, and the return value is unused.\n\nThe ON-ERROR callback is called when any of the other callbacks\nhave an error. It takes the websocket as the first argument, and\na symbol as the second argument either `on-open', `on-message',\nor `on-close', and the error as the third argument. Do NOT\nrethrow the error, or else you may miss some websocket messages.\nYou similarly must not generate any other errors in this method.\nIf you want to debug errors, set\n`websocket-callback-debug-on-error' to t, but this also can be\ndangerous is the debugger is quit out of. If not specified,\n`websocket-default-error-handler' is used.\n\nFor each of these event handlers, the client code can store\narbitrary data in the `client-data' slot in the returned\nwebsocket.\n\nThe following errors might be thrown in this method or in\nwebsocket processing, all of them having the error-condition\n`websocket-error' in addition to their own symbol:\n\n`websocket-unsupported-protocol': Data in the error signal is the\nprotocol that is unsupported. For example, giving a URL starting\nwith http by mistake raises this error.\n\n`websocket-wss-needs-emacs-24': Trying to connect wss protocol\nusing Emacs < 24 raises this error. You can catch this error\nalso by `websocket-unsupported-protocol'.\n\n`websocket-received-error-http-response': Data in the error\nsignal is the integer error number.\n\n`websocket-invalid-header': Data in the error is a string\ndescribing the invalid header received from the server.\n\n`websocket-unparseable-frame': Data in the error is a string\ndescribing the problem with the frame.\n\n`nowait': If NOWAIT is true, return without waiting for the\nconnection to complete.\n\n`custom-headers-alist': An alist of custom headers to pass to the\nserver. The car is the header name, the cdr is the header value.\nThese are different from the extensions because it is not related\nto the websocket protocol.\n\"\n (let* ((name (format \"websocket to %s\" url))\n (url-struct (url-generic-parse-url url))\n (key (websocket-genkey))\n (coding-system-for-read 'binary)\n (coding-system-for-write 'binary)\n (conn (if (member (url-type url-struct) '(\"ws\" \"wss\"))\n (let* ((type (if (equal (url-type url-struct) \"ws\")\n 'plain 'tls))\n (port (if (= 0 (url-port url-struct))\n (if (eq type 'tls) 443 80)\n (url-port url-struct)))\n (host (url-host url-struct)))\n (if (eq type 'plain)\n (make-network-process :name name :buffer nil :host host\n :service port :nowait nowait)\n (condition-case-unless-debug nil\n (open-network-stream name nil host port :type type :nowait nowait)\n (wrong-number-of-arguments\n (signal 'websocket-wss-needs-emacs-24 (list \"wss\"))))))\n (signal 'websocket-unsupported-protocol (list (url-type url-struct)))))\n (websocket (websocket-inner-create\n :conn conn\n :url url\n :on-open on-open\n :on-message on-message\n :on-close on-close\n :on-error on-error\n :protocols protocols\n :extensions (mapcar 'car extensions)\n :accept-string\n (websocket-calculate-accept key))))\n (unless conn (error \"Could not establish the websocket connection to %s\" url))\n (process-put conn :websocket websocket)\n (set-process-filter conn\n (lambda (process output)\n (let ((websocket (process-get process :websocket)))\n (websocket-outer-filter websocket output))))\n (set-process-sentinel\n conn\n (websocket-sentinel url conn key protocols extensions custom-header-alist nowait))\n (set-process-query-on-exit-flag conn nil)\n (websocket-ensure-handshake url conn key protocols extensions custom-header-alist nowait)\n websocket))\n\n(defun websocket-sentinel (url conn key protocols extensions custom-header-alist nowait)\n #'(lambda (process change)\n (let ((websocket (process-get process :websocket)))\n (websocket-debug websocket \"State change to %s\" change)\n (let ((status (process-status process)))\n (when (and nowait (eq status 'open))\n (websocket-ensure-handshake url conn key protocols extensions custom-header-alist nowait))\n\n (when (and (member status '(closed failed exit signal))\n (not (eq 'closed (websocket-ready-state websocket))))\n (websocket-try-callback 'websocket-on-close 'on-close websocket))))))\n\n(defun websocket-ensure-handshake (url conn key protocols extensions custom-header-alist nowait)\n (let ((url-struct (url-generic-parse-url url))\n (websocket (process-get conn :websocket)))\n (when (and (eq 'connecting (websocket-ready-state websocket))\n (memq (process-status conn)\n (list 'run (if nowait 'connect 'open))))\n (websocket-debug websocket \"Sending handshake, key: %s, acceptance: %s\"\n key (websocket-accept-string websocket))\n (process-send-string conn\n (format \"GET %s HTTP/1.1\\r\\n%s\"\n (let ((path (url-filename url-struct)))\n (if (> (length path) 0) path \"/\"))\n (websocket-create-headers\n url key protocols extensions custom-header-alist))))))\n\n(defun websocket-process-headers (url headers)\n \"On opening URL, process the HEADERS sent from the server.\"\n (when (string-match \"Set-Cookie: \$.*\$\\r\\n\" headers)\n ;; The url-current-object is assumed to be set by\n ;; url-cookie-handle-set-cookie.\n (let ((url-current-object (url-generic-parse-url url)))\n (url-cookie-handle-set-cookie (match-string 1 headers)))))\n\n(defun websocket-outer-filter (websocket output)\n \"Filter the WEBSOCKET server's OUTPUT.\nThis will parse headers and process frames repeatedly until there\nis no more output or the connection closes. If the websocket\nconnection is invalid, the connection will be closed.\"\n (websocket-debug websocket \"Received: %s\" output)\n (let ((start-point)\n (text (concat (websocket-inflight-input websocket) output))\n (header-end-pos))\n (setf (websocket-inflight-input websocket) nil)\n ;; If we've received the complete header, check to see if we've\n ;; received the desired handshake.\n (when (and (eq 'connecting (websocket-ready-state websocket)))\n (if (and (setq header-end-pos (string-match \"\\r\\n\\r\\n\" text))\n (setq start-point (+ 4 header-end-pos)))\n (progn\n (condition-case err\n (progn\n (websocket-verify-response-code text)\n (websocket-verify-headers websocket text)\n (websocket-process-headers (websocket-url websocket) text))\n (error\n (websocket-close websocket)\n (funcall (websocket-on-error websocket)\n websocket 'on-open err)))\n (setf (websocket-ready-state websocket) 'open)\n (websocket-try-callback 'websocket-on-open 'on-open websocket))\n (setf (websocket-inflight-input websocket) text)))\n (when (eq 'open (websocket-ready-state websocket))\n (websocket-process-input-on-open-ws\n websocket (substring text (or start-point 0))))))\n\n(defun websocket-verify-headers (websocket output)\n \"Based on WEBSOCKET's data, ensure the headers in OUTPUT are valid.\nThe output is assumed to have complete headers. This function\nwill either return t or call `error'. This has the side-effect\nof populating the list of server extensions to WEBSOCKET.\"\n (let ((accept-regexp\n (concat \"Sec-Web[Ss]ocket-Accept: \" (regexp-quote (websocket-accept-string websocket)))))\n (websocket-debug websocket \"Checking for accept header regexp: %s\" accept-regexp)\n (unless (string-match accept-regexp output)\n (signal 'websocket-invalid-header\n (list \"Incorrect handshake from websocket: is this really a websocket connection?\"))))\n (let ((case-fold-search t))\n (websocket-debug websocket \"Checking for upgrade header\")\n (unless (string-match \"\\r\\nUpgrade: websocket\\r\\n\" output)\n (signal 'websocket-invalid-header\n (list \"No 'Upgrade: websocket' header found\")))\n (websocket-debug websocket \"Checking for connection header\")\n (unless (string-match \"\\r\\nConnection: upgrade\\r\\n\" output)\n (signal 'websocket-invalid-header\n (list \"No 'Connection: upgrade' header found\")))\n (when (websocket-protocols websocket)\n (dolist (protocol (websocket-protocols websocket))\n (websocket-debug websocket \"Checking for protocol match: %s\"\n protocol)\n (let ((protocols\n (if (string-match (format \"\\r\\nSec-Websocket-Protocol: %s\\r\\n\"\n protocol)\n output)\n (list protocol)\n (signal 'websocket-invalid-header\n (list \"Incorrect or missing protocol returned by the server.\")))))\n (setf (websocket-negotiated-protocols websocket) protocols))))\n (let* ((extensions (websocket-parse-repeated-field\n output\n \"Sec-WebSocket-Extensions\"))\n (extra-extensions))\n (dolist (ext extensions)\n (let ((x (cl-first (split-string ext \"; ?\"))))\n (unless (or (member x (websocket-extensions websocket))\n (member x extra-extensions))\n (push x extra-extensions))))\n (when extra-extensions\n (signal 'websocket-invalid-header\n (list (format \"Non-requested extensions returned by server: %S\"\n extra-extensions))))\n (setf (websocket-negotiated-extensions websocket) extensions)))\n t)\n\n;;;;;;;;;;;;;;;;;;;;;;\n;; Websocket server ;;\n;;;;;;;;;;;;;;;;;;;;;;\n\n(defvar websocket-server-websockets nil\n \"A list of current websockets live on any server.\")\n\n(cl-defun websocket-server (port &rest plist)\n \"Open a websocket server on PORT.\nIf the plist contains a `:host' HOST pair, this value will be\nused to configure the addresses the socket listens on. The symbol\n`local' specifies the local host. If unspecified or nil, the\nsocket will listen on all addresses.\n\nThis also takes a plist of callbacks: `:on-open', `:on-message',\n`:on-close' and `:on-error', which operate exactly as documented\nin the websocket client function `websocket-open'. Returns the\nconnection, which should be kept in order to pass to\n`websocket-server-close'.\"\n (let* ((conn (make-network-process\n :name (format \"websocket server on port %s\" port)\n :server t\n :family 'ipv4\n :noquery t\n :filter 'websocket-server-filter\n :log 'websocket-server-accept\n :filter-multibyte nil\n :plist plist\n :host (plist-get plist :host)\n :service port)))\n conn))\n\n(defun websocket-server-close (conn)\n \"Closes the websocket, as well as all open websockets for this server.\"\n (let ((to-delete))\n (dolist (ws websocket-server-websockets)\n (when (eq (websocket-server-conn ws) conn)\n (if (eq (websocket-ready-state ws) 'closed)\n (unless (member ws to-delete)\n (push ws to-delete))\n (websocket-close ws))))\n (dolist (ws to-delete)\n (setq websocket-server-websockets (remove ws websocket-server-websockets))))\n (delete-process conn))\n\n(defun websocket-server-accept (server client _message)\n \"Accept a new websocket connection from a client.\"\n (let ((ws (websocket-inner-create\n :server-conn server\n :conn client\n :url client\n :server-p t\n :on-open (or (process-get server :on-open) 'identity)\n :on-message (or (process-get server :on-message) (lambda (_ws _frame)))\n :on-close (let ((user-method\n (or (process-get server :on-close) 'identity)))\n (lambda (ws)\n (setq websocket-server-websockets\n (remove ws websocket-server-websockets))\n (funcall user-method ws)))\n :on-error (or (process-get server :on-error)\n 'websocket-default-error-handler)\n :protocols (process-get server :protocol)\n :extensions (mapcar 'car (process-get server :extensions)))))\n (unless (member ws websocket-server-websockets)\n (push ws websocket-server-websockets))\n (process-put client :websocket ws)\n (set-process-coding-system client 'binary 'binary)\n (set-process-sentinel client\n (lambda (process change)\n (let ((websocket (process-get process :websocket)))\n (websocket-debug websocket \"State change to %s\" change)\n (when (and\n (member (process-status process) '(closed failed exit signal))\n (not (eq 'closed (websocket-ready-state websocket))))\n (websocket-try-callback 'websocket-on-close 'on-close websocket)))))))\n\n(defun websocket-create-headers (url key protocol extensions custom-headers-alist)\n \"Create connections headers for the given URL, KEY, PROTOCOL, and EXTENSIONS.\nAdditionally, the CUSTOM-HEADERS-ALIST is passed from the client.\nAll these parameters are defined as in `websocket-open'.\"\n (let* ((parsed-url (url-generic-parse-url url))\n (host-port (if (url-port-if-non-default parsed-url)\n (format \"%s:%s\" (url-host parsed-url) (url-port parsed-url))\n (url-host parsed-url)))\n (cookie-header (url-cookie-generate-header-lines\n host-port (car (url-path-and-query parsed-url))\n (equal (url-type parsed-url) \"wss\"))))\n (format (concat \"Host: %s\\r\\n\"\n \"Upgrade: websocket\\r\\n\"\n \"Connection: Upgrade\\r\\n\"\n \"Sec-WebSocket-Key: %s\\r\\n\"\n \"Sec-WebSocket-Version: 13\\r\\n\"\n (when protocol\n (concat\n (mapconcat\n (lambda (protocol)\n (format \"Sec-WebSocket-Protocol: %s\" protocol))\n protocol \"\\r\\n\")\n \"\\r\\n\"))\n (when extensions\n (format \"Sec-WebSocket-Extensions: %s\\r\\n\"\n (mapconcat\n (lambda (ext)\n (concat\n (car ext)\n (when (cdr ext) \"; \")\n (when (cdr ext)\n (mapconcat 'identity (cdr ext) \"; \"))))\n extensions \", \")))\n (when cookie-header cookie-header)\n (concat (mapconcat (lambda (cons) (format \"%s: %s\" (car cons) (cdr cons)))\n custom-headers-alist \"\\r\\n\")\n (when custom-headers-alist \"\\r\\n\"))\n \"\\r\\n\")\n host-port\n key\n protocol)))\n\n(defun websocket-get-server-response (websocket client-protocols client-extensions)\n \"Get the websocket response from client WEBSOCKET.\"\n (let ((separator \"\\r\\n\"))\n (concat \"HTTP/1.1 101 Switching Protocols\" separator\n \"Upgrade: websocket\" separator\n \"Connection: Upgrade\" separator\n \"Sec-WebSocket-Accept: \"\n (websocket-accept-string websocket) separator\n (let ((protocols\n (websocket-intersect client-protocols\n (websocket-protocols websocket))))\n (when protocols\n (concat\n (mapconcat\n (lambda (protocol) (format \"Sec-WebSocket-Protocol: %s\"\n protocol)) protocols separator)\n separator)))\n (let ((extensions (websocket-intersect\n client-extensions\n (websocket-extensions websocket))))\n (when extensions\n (concat\n (mapconcat\n (lambda (extension) (format \"Sec-Websocket-Extensions: %s\"\n extension)) extensions separator)\n separator)))\n separator)))\n\n(defun websocket-server-filter (process output)\n \"This acts on all OUTPUT from websocket clients PROCESS.\"\n (let* ((ws (process-get process :websocket))\n (text (concat (websocket-inflight-input ws) output)))\n (setf (websocket-inflight-input ws) nil)\n (cond ((eq (websocket-ready-state ws) 'connecting)\n ;; check for connection string\n (let ((end-of-header-pos\n (let ((pos (string-match \"\\r\\n\\r\\n\" text)))\n (when pos (+ 4 pos)))))\n (if end-of-header-pos\n (progn\n (let ((header-info (websocket-verify-client-headers text)))\n (if header-info\n (progn (setf (websocket-accept-string ws)\n (websocket-calculate-accept\n (plist-get header-info :key)))\n (process-send-string\n process\n (websocket-get-server-response\n ws (plist-get header-info :protocols)\n (plist-get header-info :extensions)))\n (setf (websocket-ready-state ws) 'open)\n (websocket-try-callback 'websocket-on-open\n 'on-open ws))\n (message \"Invalid client headers found in: %s\" output)\n (process-send-string process \"HTTP/1.1 400 Bad Request\\r\\n\\r\\n\")\n (websocket-close ws)))\n (when (> (length text) (+ 1 end-of-header-pos))\n (websocket-server-filter process (substring\n text\n end-of-header-pos))))\n (setf (websocket-inflight-input ws) text))))\n ((eq (websocket-ready-state ws) 'open)\n (websocket-process-input-on-open-ws ws text))\n ((eq (websocket-ready-state ws) 'closed)\n (message \"WARNING: Should not have received further input on closed websocket\")))))\n\n(defun websocket-verify-client-headers (output)\n \"Verify the headers from the WEBSOCKET client connection in OUTPUT.\nUnlike `websocket-verify-headers', this is a quieter routine. We\ndon't want to error due to a bad client, so we just print out\nmessages and a plist containing `:key', the websocket key,\n`:protocols' and `:extensions'.\"\n (cl-block nil\n (let ((case-fold-search t)\n (plist))\n (unless (string-match \"HTTP/1.1\" output)\n (message \"Websocket client connection: HTTP/1.1 not found\")\n (cl-return nil))\n (unless (string-match \"^Host: \" output)\n (message \"Websocket client connection: Host header not found\")\n (cl-return nil))\n (unless (string-match \"^Upgrade: websocket\\r\\n\" output)\n (message \"Websocket client connection: Upgrade: websocket not found\")\n (cl-return nil))\n (if (string-match \"^Sec-WebSocket-Key: \\\$[[:graph:]]+\\\$\\r\\n\" output)\n (setq plist (plist-put plist :key (match-string 1 output)))\n (message \"Websocket client connect: No key sent\")\n (cl-return nil))\n (unless (string-match \"^Sec-WebSocket-Version: 13\" output)\n (message \"Websocket client connect: Websocket version 13 not found\")\n (cl-return nil))\n (when (string-match \"^Sec-WebSocket-Protocol:\" output)\n (setq plist (plist-put plist :protocols (websocket-parse-repeated-field\n output\n \"Sec-Websocket-Protocol\"))))\n (when (string-match \"^Sec-WebSocket-Extensions:\" output)\n (setq plist (plist-put plist :extensions (websocket-parse-repeated-field\n output\n \"Sec-Websocket-Extensions\"))))\n plist)))\n\n(provide 'websocket)\n\n;;; websocket.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"websocket-20180423.16","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":1890878,"end":1890910},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1890910},"to":{"change":7,"start":1890877,"end":1890877},"introduced_by":7}],"inode":{"change":7,"pos":1890877}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"websocket-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1890877},"to":{"change":7,"start":1940169,"end":1940215},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1940215},"to":{"change":7,"start":1939594,"end":1939594},"introduced_by":7}],"inode":{"change":7,"pos":1939594}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1939594},"to":{"change":7,"start":1939595,"end":1940168},"introduced_by":7}],"inode":{"change":7,"pos":1939594}},"content":[{"Del":";;; websocket-autoloads.el --- automatically extracted autoloads\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"websocket\" \"websocket.el\" (0 0 0 0))\n;;; Generated autoloads from websocket.el\n\n(if (fboundp 'register-definition-prefixes) (register-definition-prefixes \"websocket\" '(\"websocket-\")))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; websocket-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"websocket-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1890877},"to":{"change":7,"start":1939552,"end":1939592},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1939592},"to":{"change":7,"start":1939220,"end":1939220},"introduced_by":7}],"inode":{"change":7,"pos":1939220}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1939220},"to":{"change":7,"start":1939221,"end":1939551},"introduced_by":7}],"inode":{"change":7,"pos":1939220}},"content":[{"Del":";;; -*- no-byte-compile: t -*-\n(define-package \"websocket\" \"20180423.16\" \"Emacs WebSocket client and server\" '((cl-lib \"0.5\")) :commit \"0d96ba2ff5a25c6cd6c66f417cc9b5f38a4308ba\" :keywords '(\"communication\" \"websocket\" \"server\") :authors '((\"Andrew Hyatt\" . \"ahyatt@gmail.com\")) :maintainer '(\"Andrew Hyatt\" . \"ahyatt@gmail.com\"))\n"}]}},{"FileDel":{"deleted_names":[{"basename":"websocket.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1890877},"to":{"change":7,"start":1939182,"end":1939218},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1939218},"to":{"change":7,"start":1890912,"end":1890912},"introduced_by":7}],"inode":{"change":7,"pos":1890912}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1890912},"to":{"change":7,"start":1890913,"end":1939181},"introduced_by":7}],"inode":{"change":7,"pos":1890912}},"content":[{"Del":";;; websocket.el --- Emacs WebSocket client and server -*- lexical-binding:t -*-\n\n;; Copyright (c) 2013, 2016-2017 Free Software Foundation, Inc.\n\n;; Author: Andrew Hyatt \n;; Keywords: Communication, Websocket, Server\n;; Package-Version: 20180423.16\n;; Version: 1.9\n;; Package-Requires: ((cl-lib \"0.5\"))\n;;\n;; This program is free software; you can redistribute it and/or\n;; modify it under the terms of the GNU General Public License as\n;; published by the Free Software Foundation; either version 3 of the\n;; License, or (at your option) any later version.\n;;\n;; This program is distributed in the hope that it will be useful, but\n;; WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n;; General Public License for more details.\n;;\n;; You should have received a copy of the GNU General Public License\n;; along with GNU Emacs. If not, see .\n\n;;; Commentary:\n;; This implements RFC 6455, which can be found at\n;; http://tools.ietf.org/html/rfc6455.\n;;\n;; This library contains code to connect Emacs as a client to a\n;; websocket server, and for Emacs to act as a server for websocket\n;; connections.\n;;\n;; Websockets clients are created by calling `websocket-open', which\n;; returns a `websocket' struct. Users of this library use the\n;; websocket struct, and can call methods `websocket-send-text', which\n;; sends text over the websocket, or `websocket-send', which sends a\n;; `websocket-frame' struct, enabling finer control of what is sent.\n;; A callback is passed to `websocket-open' that will retrieve\n;; websocket frames called from the websocket. Websockets are\n;; eventually closed with `websocket-close'.\n;;\n;; Server functionality is similar. A server is started with\n;; `websocket-server' called with a port and the callbacks to use,\n;; which returns a process. The process can later be closed with\n;; `websocket-server-close'. A `websocket' struct is also created\n;; for every connection, and is exposed through the callbacks.\n\n(require 'bindat)\n(require 'url-parse)\n(require 'url-cookie)\n(eval-when-compile (require 'cl-lib))\n\n;;; Code:\n\n(cl-defstruct (websocket\n (:constructor nil)\n (:constructor websocket-inner-create))\n \"A websocket structure.\nThis follows the W3C Websocket API, except translated to elisp\nidioms. The API is implemented in both the websocket struct and\nadditional methods. Due to how defstruct slots are accessed, all\nAPI methods are prefixed with \\\"websocket-\\\" and take a websocket\nas an argument, so the distrinction between the struct API and\nthe additional helper APIs are not visible to the caller.\n\nA websocket struct is created with `websocket-open'.\n\n`ready-state' contains one of `connecting', `open', or\n`closed', depending on the state of the websocket.\n\nThe W3C API \\\"bufferedAmount\\\" call is not currently implemented,\nsince there is no elisp API to get the buffered amount from the\nsubprocess. There may, in fact, be output data buffered,\nhowever, when the `on-message' or `on-close' callbacks are\ncalled.\n\n`on-open', `on-message', `on-close', and `on-error' are described\nin `websocket-open'.\n\nThe `negotiated-extensions' slot lists the extensions accepted by\nboth the client and server, and `negotiated-protocols' does the\nsame for the protocols.\"\n ;; API\n (ready-state 'connecting)\n client-data\n on-open\n on-message\n on-close\n on-error\n negotiated-protocols\n negotiated-extensions\n (server-p nil :read-only t)\n\n ;; Other data - clients should not have to access this.\n (url (cl-assert nil) :read-only t)\n (protocols nil :read-only t)\n (extensions nil :read-only t)\n (conn (cl-assert nil) :read-only t)\n ;; Only populated for servers, this is the server connection.\n server-conn\n accept-string\n (inflight-input nil))\n\n(defvar websocket-version \"1.9\"\n \"Version numbers of this version of websocket.el.\")\n\n(defvar websocket-debug nil\n \"Set to true to output debugging info to a per-websocket buffer.\nThe buffer is ` *websocket URL debug*' where URL is the\nURL of the connection.\")\n\n(defconst websocket-guid \"258EAFA5-E914-47DA-95CA-C5AB0DC85B11\"\n \"The websocket GUID as defined in RFC 6455.\nDo not change unless the RFC changes.\")\n\n(defvar websocket-callback-debug-on-error nil\n \"If true, when an error happens in a client callback, invoke the debugger.\nHaving this on can cause issues with missing frames if the debugger is\nexited by quitting instead of continuing, so it's best to have this set\nto nil unless it is especially needed.\")\n\n(defmacro websocket-document-function (function docstring)\n \"Document FUNCTION with DOCSTRING. Use this for defstruct accessor etc.\"\n (declare (indent defun)\n (doc-string 2))\n `(put ',function 'function-documentation ,docstring))\n\n(websocket-document-function websocket-on-open\n \"Accessor for websocket on-open callback.\nSee `websocket-open' for details.\n\n\\(fn WEBSOCKET)\")\n\n(websocket-document-function websocket-on-message\n \"Accessor for websocket on-message callback.\nSee `websocket-open' for details.\n\n\\(fn WEBSOCKET)\")\n\n(websocket-document-function websocket-on-close\n \"Accessor for websocket on-close callback.\nSee `websocket-open' for details.\n\n\\(fn WEBSOCKET)\")\n\n(websocket-document-function websocket-on-error\n \"Accessor for websocket on-error callback.\nSee `websocket-open' for details.\n\n\\(fn WEBSOCKET)\")\n\n(defun websocket-genbytes (nbytes)\n \"Generate NBYTES random bytes.\"\n (let ((s (make-string nbytes ?\\s)))\n (dotimes (i nbytes)\n (aset s i (random 256)))\n s))\n\n(defun websocket-try-callback (websocket-callback callback-type websocket\n &rest rest)\n \"Invoke function WEBSOCKET-CALLBACK with WEBSOCKET and REST args.\nIf an error happens, it is handled according to\n`websocket-callback-debug-on-error'.\"\n ;; This looks like it should be able to done more efficiently, but\n ;; I'm not sure that's the case. We can't do it as a macro, since\n ;; we want it to change whenever websocket-callback-debug-on-error\n ;; changes.\n (let ((args rest)\n (debug-on-error websocket-callback-debug-on-error))\n (push websocket args)\n (if websocket-callback-debug-on-error\n (condition-case err\n (apply (funcall websocket-callback websocket) args)\n ((debug error) (funcall (websocket-on-error websocket)\n websocket callback-type err)))\n (condition-case err\n (apply (funcall websocket-callback websocket) args)\n (error (funcall (websocket-on-error websocket) websocket\n callback-type err))))))\n\n(defun websocket-genkey ()\n \"Generate a key suitable for the websocket handshake.\"\n (base64-encode-string (websocket-genbytes 16)))\n\n(defun websocket-calculate-accept (key)\n \"Calculate the expect value of the accept header.\nThis is based on the KEY from the Sec-WebSocket-Key header.\"\n (base64-encode-string\n (sha1 (concat key websocket-guid) nil nil t)))\n\n(defun websocket-get-bytes (s n)\n \"From string S, retrieve the value of N bytes.\nReturn the value as an unsigned integer. The value N must be a\npower of 2, up to 8.\n\nWe support getting frames up to 536870911 bytes (2^29 - 1),\napproximately 537M long.\"\n (if (= n 8)\n (let* ((32-bit-parts\n (bindat-get-field (bindat-unpack '((:val vec 2 u32)) s) :val))\n (cval\n (logior (lsh (aref 32-bit-parts 0) 32) (aref 32-bit-parts 1))))\n (if (and (= (aref 32-bit-parts 0) 0)\n (= (lsh (aref 32-bit-parts 1) -29) 0))\n cval\n (signal 'websocket-unparseable-frame\n \"Frame value found too large to parse!\")))\n ;; n is not 8\n (bindat-get-field\n (condition-case _\n (bindat-unpack\n `((:val\n ,(cond ((= n 1) 'u8)\n ((= n 2) 'u16)\n ((= n 4) 'u32)\n ;; This is an error with the library,\n ;; not a user-facing, meaningful error.\n (t (error\n \"websocket-get-bytes: Unknown N: %S\" n)))))\n s)\n (args-out-of-range (signal 'websocket-unparseable-frame\n (format \"Frame unexpectedly shortly: %s\" s))))\n :val)))\n\n(defun websocket-to-bytes (val nbytes)\n \"Encode the integer VAL in NBYTES of data.\nNBYTES much be a power of 2, up to 8.\n\nThis supports encoding values up to 536870911 bytes (2^29 - 1),\napproximately 537M long.\"\n (when (and (< nbytes 8)\n (> val (expt 2 (* 8 nbytes))))\n ;; not a user-facing error, this must be caused from an error in\n ;; this library\n (error \"websocket-to-bytes: Value %d could not be expressed in %d bytes\"\n val nbytes))\n (if (= nbytes 8)\n (progn\n (let* ((hi-32bits (lsh val -32))\n ;; This is just VAL on systems that don't have >= 32 bits.\n (low-32bits (- val (lsh hi-32bits 32))))\n (when (or (> hi-32bits 0) (> (lsh low-32bits -29) 0))\n (signal 'websocket-frame-too-large val))\n (bindat-pack `((:val vec 2 u32))\n `((:val . [,hi-32bits ,low-32bits])))))\n (bindat-pack\n `((:val ,(cond ((= nbytes 1) 'u8)\n ((= nbytes 2) 'u16)\n ((= nbytes 4) 'u32)\n ;; Library error, not system error\n (t (error \"websocket-to-bytes: Unknown NBYTES: %S\" nbytes)))))\n `((:val . ,val)))))\n\n(defun websocket-get-opcode (s)\n \"Retrieve the opcode from first byte of string S.\"\n (websocket-ensure-length s 1)\n (let ((opcode (logand #xf (websocket-get-bytes s 1))))\n (cond ((= opcode 0) 'continuation)\n ((= opcode 1) 'text)\n ((= opcode 2) 'binary)\n ((= opcode 8) 'close)\n ((= opcode 9) 'ping)\n ((= opcode 10) 'pong))))\n\n(defun websocket-get-payload-len (s)\n \"Parse out the payload length from the string S.\nWe start at position 0, and return a cons of the payload length and how\nmany bytes were consumed from the string.\"\n (websocket-ensure-length s 1)\n (let* ((initial-val (logand 127 (websocket-get-bytes s 1))))\n (cond ((= initial-val 127)\n (websocket-ensure-length s 9)\n (cons (websocket-get-bytes (substring s 1) 8) 9))\n ((= initial-val 126)\n (websocket-ensure-length s 3)\n (cons (websocket-get-bytes (substring s 1) 2) 3))\n (t (cons initial-val 1)))))\n\n(cl-defstruct websocket-frame opcode payload length completep)\n\n(defun websocket-frame-text (frame)\n \"Given FRAME, return the payload as a utf-8 encoded string.\"\n (cl-assert (websocket-frame-p frame))\n (decode-coding-string (websocket-frame-payload frame) 'utf-8))\n\n(defun websocket-mask (key data)\n \"Using string KEY, mask string DATA according to the RFC.\nThis is used to both mask and unmask data.\"\n ;; If we don't make the string unibyte here, a string of bytes that should be\n ;; interpreted as a unibyte string will instead be interpreted as a multibyte\n ;; string of the same length (for example, 6 multibyte chars for 你好 instead\n ;; of the correct 6 unibyte chars, which would convert into 2 multibyte\n ;; chars).\n (apply\n #'unibyte-string\n (cl-loop for b across data\n for i from 0 to (length data)\n collect\n (logxor (websocket-get-bytes (substring key (mod i 4)) 1) b))))\n\n(defun websocket-ensure-length (s n)\n \"Ensure the string S has at most N bytes.\nOtherwise we throw the error `websocket-incomplete-frame'.\"\n (when (< (length s) n)\n (throw 'websocket-incomplete-frame nil)))\n\n(defun websocket-encode-frame (frame should-mask)\n \"Encode the FRAME struct to the binary representation.\nWe mask the frame or not, depending on SHOULD-MASK.\"\n (let* ((opcode (websocket-frame-opcode frame))\n (payload (websocket-frame-payload frame))\n (fin (websocket-frame-completep frame))\n (payloadp (and payload\n (memq opcode '(continuation ping pong text binary))))\n (mask-key (when should-mask (websocket-genbytes 4))))\n (apply #'unibyte-string\n (let ((val (append (list\n (logior (pcase opcode\n (`continuation 0)\n (`text 1)\n (`binary 2)\n (`close 8)\n (`ping 9)\n (`pong 10))\n (if fin 128 0)))\n (when payloadp\n (list\n (logior\n (if should-mask 128 0)\n (cond ((< (length payload) 126) (length payload))\n ((< (length payload) 65536) 126)\n (t 127)))))\n (when (and payloadp (>= (length payload) 126))\n (append (websocket-to-bytes\n (length payload)\n (cond ((< (length payload) 126) 1)\n ((< (length payload) 65536) 2)\n (t 8))) nil))\n (when (and payloadp should-mask)\n (append mask-key nil))\n (when payloadp\n (append (if should-mask (websocket-mask mask-key payload)\n payload)\n nil)))))\n ;; We have to make sure the non-payload data is a full 32-bit frame\n (if (= 1 (length val))\n (append val '(0)) val)))))\n\n(defun websocket-read-frame (s)\n \"Read from string S a `websocket-frame' struct with the contents.\nThis only gets complete frames. Partial frames need to wait until\nthe frame finishes. If the frame is not completed, return NIL.\"\n (catch 'websocket-incomplete-frame\n (websocket-ensure-length s 1)\n (let* ((opcode (websocket-get-opcode s))\n (fin (logand 128 (websocket-get-bytes s 1)))\n (payloadp (memq opcode '(continuation text binary ping pong)))\n (payload-len (when payloadp\n (websocket-get-payload-len (substring s 1))))\n (maskp (and\n payloadp\n (= 128 (logand 128 (websocket-get-bytes (substring s 1) 1)))))\n (payload-start (when payloadp (+ (if maskp 5 1) (cdr payload-len))))\n (payload-end (when payloadp (+ payload-start (car payload-len))))\n (unmasked-payload (when payloadp\n (websocket-ensure-length s payload-end)\n (substring s payload-start payload-end))))\n (make-websocket-frame\n :opcode opcode\n :payload\n (if maskp\n (let ((masking-key (substring s (+ 1 (cdr payload-len))\n (+ 5 (cdr payload-len)))))\n (websocket-mask masking-key unmasked-payload))\n unmasked-payload)\n :length (if payloadp payload-end 1)\n :completep (> fin 0)))))\n\n(defun websocket-format-error (err)\n \"Format an error message like command level does.\nERR should be a cons of error symbol and error data.\"\n\n ;; Formatting code adapted from `edebug-report-error'\n (concat (or (get (car err) 'error-message)\n (format \"peculiar error (%s)\" (car err)))\n (when (cdr err)\n (format \": %s\"\n (mapconcat #'prin1-to-string\n (cdr err) \", \")))))\n\n(defun websocket-default-error-handler (_websocket type err)\n \"The default error handler used to handle errors in callbacks.\"\n (display-warning 'websocket\n (format \"in callback `%S': %s\"\n type\n (websocket-format-error err))\n :error))\n\n;; Error symbols in use by the library\n(put 'websocket-unsupported-protocol 'error-conditions\n '(error websocket-error websocket-unsupported-protocol))\n(put 'websocket-unsupported-protocol 'error-message \"Unsupported websocket protocol\")\n(put 'websocket-wss-needs-emacs-24 'error-conditions\n '(error websocket-error websocket-unsupported-protocol\n websocket-wss-needs-emacs-24))\n(put 'websocket-wss-needs-emacs-24 'error-message\n \"wss protocol is not supported for Emacs before version 24.\")\n(put 'websocket-received-error-http-response 'error-conditions\n '(error websocket-error websocket-received-error-http-response))\n(put 'websocket-received-error-http-response 'error-message\n \"Error response received from websocket server\")\n(put 'websocket-invalid-header 'error-conditions\n '(error websocket-error websocket-invalid-header))\n(put 'websocket-invalid-header 'error-message\n \"Invalid HTTP header sent\")\n(put 'websocket-illegal-frame 'error-conditions\n '(error websocket-error websocket-illegal-frame))\n(put 'websocket-illegal-frame 'error-message\n \"Cannot send illegal frame to websocket\")\n(put 'websocket-closed 'error-conditions\n '(error websocket-error websocket-closed))\n(put 'websocket-closed 'error-message\n \"Cannot send message to a closed websocket\")\n(put 'websocket-unparseable-frame 'error-conditions\n '(error websocket-error websocket-unparseable-frame))\n(put 'websocket-unparseable-frame 'error-message\n \"Received an unparseable frame\")\n(put 'websocket-frame-too-large 'error-conditions\n '(error websocket-error websocket-frame-too-large))\n(put 'websocket-frame-too-large 'error-message\n \"The frame being sent is too large for this emacs to handle\")\n\n(defun websocket-intersect (a b)\n \"Simple list intersection, should function like Common Lisp's `intersection'.\"\n (let ((result))\n (dolist (elem a (nreverse result))\n (when (member elem b)\n (push elem result)))))\n\n(defun websocket-get-debug-buffer-create (websocket)\n \"Get or create the buffer corresponding to WEBSOCKET.\"\n (let ((buf (get-buffer-create (format \"*websocket %s debug*\"\n (websocket-url websocket)))))\n (when (= 0 (buffer-size buf))\n (buffer-disable-undo buf))\n buf))\n\n(defun websocket-debug (websocket msg &rest args)\n \"In the WEBSOCKET's debug buffer, send MSG, with format ARGS.\"\n (when websocket-debug\n (let ((buf (websocket-get-debug-buffer-create websocket)))\n (save-excursion\n (with-current-buffer buf\n (goto-char (point-max))\n (insert \"[WS] \")\n (insert (apply #'format (append (list msg) args)))\n (insert \"\\n\"))))))\n\n(defun websocket-verify-response-code (output)\n \"Verify that OUTPUT contains a valid HTTP response code.\nThe only acceptable one to websocket is responce code 101.\nA t value will be returned on success, and an error thrown\nif not.\"\n (unless (string-match \"^HTTP/1.1 \\\$[[:digit:]]+\\\$\" output)\n (signal 'websocket-invalid-header \"Invalid HTTP status line\"))\n (unless (equal \"101\" (match-string 1 output))\n (signal 'websocket-received-error-http-response\n\t (string-to-number (match-string 1 output))))\n t)\n\n(defun websocket-parse-repeated-field (output field)\n \"From header-containing OUTPUT, parse out the list from a\npossibly repeated field.\"\n (let ((pos 0)\n (extensions))\n (while (and pos\n (string-match (format \"\\r\\n%s: \\\$.*\\\$\\r\\n\" field)\n output pos))\n (when (setq pos (match-end 1))\n (setq extensions (append extensions (split-string\n (match-string 1 output) \", ?\")))))\n extensions))\n\n(defun websocket-process-frame (websocket frame)\n \"Using the WEBSOCKET's filter and connection, process the FRAME.\nThis returns a lambda that should be executed when all frames have\nbeen processed. If the frame has a payload, the lambda has the frame\npassed to the filter slot of WEBSOCKET. If the frame is a ping,\nthe lambda has a reply with a pong. If the frame is a close, the lambda\nhas connection termination.\"\n (let ((opcode (websocket-frame-opcode frame)))\n (cond ((memq opcode '(continuation text binary))\n (lambda () (websocket-try-callback 'websocket-on-message 'on-message\n websocket frame)))\n ((eq opcode 'ping)\n (lambda () (websocket-send websocket\n (make-websocket-frame\n :opcode 'pong\n :payload (websocket-frame-payload frame)\n :completep t))))\n ((eq opcode 'close)\n (lambda () (delete-process (websocket-conn websocket))))\n (t (lambda ())))))\n\n(defun websocket-process-input-on-open-ws (websocket text)\n \"This handles input processing for both the client and server filters.\"\n (let ((current-frame)\n (processing-queue)\n (start-point 0))\n (while (setq current-frame (websocket-read-frame\n (substring text start-point)))\n (push (websocket-process-frame websocket current-frame) processing-queue)\n (cl-incf start-point (websocket-frame-length current-frame)))\n (when (> (length text) start-point)\n (setf (websocket-inflight-input websocket)\n (substring text start-point)))\n (dolist (to-process (nreverse processing-queue))\n (funcall to-process))))\n\n(defun websocket-send-text (websocket text)\n \"To the WEBSOCKET, send TEXT as a complete frame.\"\n (websocket-send\n websocket\n (make-websocket-frame :opcode 'text\n :payload (encode-coding-string\n text 'raw-text)\n :completep t)))\n\n(defun websocket-check (frame)\n \"Check FRAME for correctness, returning true if correct.\"\n (or\n ;; Text, binary, and continuation frames need payloads\n (and (memq (websocket-frame-opcode frame) '(text binary continuation))\n (websocket-frame-payload frame))\n ;; Pings and pongs may optionally have them\n (memq (websocket-frame-opcode frame) '(ping pong))\n ;; And close shouldn't have any payload, and should always be complete.\n (and (eq (websocket-frame-opcode frame) 'close)\n (not (websocket-frame-payload frame))\n (websocket-frame-completep frame))))\n\n(defun websocket-send (websocket frame)\n \"To the WEBSOCKET server, send the FRAME.\nThis will raise an error if the frame is illegal.\n\nThe error signaled may be of type `websocket-illegal-frame' if\nthe frame is malformed in some way, also having the condition\ntype of `websocket-error'. The data associated with the signal\nis the frame being sent.\n\nIf the websocket is closed a signal `websocket-closed' is sent,\nalso with `websocket-error' condition. The data in the signal is\nalso the frame.\n\nThe frame may be too large for this buid of Emacs, in which case\n`websocket-frame-too-large' is returned, with the data of the\nsize of the frame which was too large to process. This also has\nthe `websocket-error' condition.\"\n (unless (websocket-check frame)\n (signal 'websocket-illegal-frame frame))\n (websocket-debug websocket \"Sending frame, opcode: %s payload: %s\"\n (websocket-frame-opcode frame)\n (websocket-frame-payload frame))\n (websocket-ensure-connected websocket)\n (unless (websocket-openp websocket)\n (signal 'websocket-closed frame))\n (process-send-string (websocket-conn websocket)\n ;; We mask only when we're a client, following the spec.\n (websocket-encode-frame frame (not (websocket-server-p websocket)))))\n\n(defun websocket-openp (websocket)\n ;; FIXME: \"open and either connecting or open\"? I don't understand. --Stef\n \"Check WEBSOCKET and return non-nil if it is open, and either\nconnecting or open.\"\n (and websocket\n (not (eq 'close (websocket-ready-state websocket)))\n (member (process-status (websocket-conn websocket)) '(open run))))\n\n(defun websocket-close (websocket)\n \"Close WEBSOCKET and erase all the old websocket data.\"\n (websocket-debug websocket \"Closing websocket\")\n (websocket-try-callback 'websocket-on-close 'on-close websocket)\n (when (websocket-openp websocket)\n (websocket-send websocket\n (make-websocket-frame :opcode 'close\n :completep t))\n (setf (websocket-ready-state websocket) 'closed))\n (delete-process (websocket-conn websocket)))\n\n(defun websocket-ensure-connected (websocket)\n \"If the WEBSOCKET connection is closed, open it.\"\n (unless (and (websocket-conn websocket)\n (cl-ecase (process-status (websocket-conn websocket))\n ((run open listen) t)\n ((stop exit signal closed connect failed nil) nil)))\n (websocket-close websocket)\n (websocket-open (websocket-url websocket)\n :protocols (websocket-protocols websocket)\n :extensions (websocket-extensions websocket)\n :on-open (websocket-on-open websocket)\n :on-message (websocket-on-message websocket)\n :on-close (websocket-on-close websocket)\n :on-error (websocket-on-error websocket))))\n\n;;;;;;;;;;;;;;;;;;;;;;\n;; Websocket client ;;\n;;;;;;;;;;;;;;;;;;;;;;\n\n(cl-defun websocket-open (url &key protocols extensions (on-open 'identity)\n (on-message (lambda (_w _f))) (on-close 'identity)\n (on-error 'websocket-default-error-handler)\n (nowait nil) (custom-header-alist nil))\n \"Open a websocket connection to URL, returning the `websocket' struct.\nThe PROTOCOL argument is optional, and setting it will declare to\nthe server that this client supports the protocols in the list\ngiven. We will require that the server also has to support that\nprotocols.\n\nSimilar logic applies to EXTENSIONS, which is a list of conses,\nthe car of which is a string naming the extension, and the cdr of\nwhich is the list of parameter strings to use for that extension.\nThe parameter strings are of the form \\\"key=value\\\" or \\\"value\\\".\nEXTENSIONS can be NIL if none are in use. An example value would\nbe (\\\"deflate-stream\\\" . (\\\"mux\\\" \\\"max-channels=4\\\")).\n\nCookies that are set via `url-cookie-store' will be used during\ncommunication with the server, and cookies received from the\nserver will be stored in the same cookie storage that the\n`url-cookie' package uses.\n\nOptionally you can specify\nON-OPEN, ON-MESSAGE and ON-CLOSE callbacks as well.\n\nThe ON-OPEN callback is called after the connection is\nestablished with the websocket as the only argument. The return\nvalue is unused.\n\nThe ON-MESSAGE callback is called after receiving a frame, and is\ncalled with the websocket as the first argument and\n`websocket-frame' struct as the second. The return value is\nunused.\n\nThe ON-CLOSE callback is called after the connection is closed, or\nfailed to open. It is called with the websocket as the only\nargument, and the return value is unused.\n\nThe ON-ERROR callback is called when any of the other callbacks\nhave an error. It takes the websocket as the first argument, and\na symbol as the second argument either `on-open', `on-message',\nor `on-close', and the error as the third argument. Do NOT\nrethrow the error, or else you may miss some websocket messages.\nYou similarly must not generate any other errors in this method.\nIf you want to debug errors, set\n`websocket-callback-debug-on-error' to t, but this also can be\ndangerous is the debugger is quit out of. If not specified,\n`websocket-default-error-handler' is used.\n\nFor each of these event handlers, the client code can store\narbitrary data in the `client-data' slot in the returned\nwebsocket.\n\nThe following errors might be thrown in this method or in\nwebsocket processing, all of them having the error-condition\n`websocket-error' in addition to their own symbol:\n\n`websocket-unsupported-protocol': Data in the error signal is the\nprotocol that is unsupported. For example, giving a URL starting\nwith http by mistake raises this error.\n\n`websocket-wss-needs-emacs-24': Trying to connect wss protocol\nusing Emacs < 24 raises this error. You can catch this error\nalso by `websocket-unsupported-protocol'.\n\n`websocket-received-error-http-response': Data in the error\nsignal is the integer error number.\n\n`websocket-invalid-header': Data in the error is a string\ndescribing the invalid header received from the server.\n\n`websocket-unparseable-frame': Data in the error is a string\ndescribing the problem with the frame.\n\n`nowait': If NOWAIT is true, return without waiting for the\nconnection to complete.\n\n`custom-headers-alist': An alist of custom headers to pass to the\nserver. The car is the header name, the cdr is the header value.\nThese are different from the extensions because it is not related\nto the websocket protocol.\n\"\n (let* ((name (format \"websocket to %s\" url))\n (url-struct (url-generic-parse-url url))\n (key (websocket-genkey))\n (coding-system-for-read 'binary)\n (coding-system-for-write 'binary)\n (conn (if (member (url-type url-struct) '(\"ws\" \"wss\"))\n (let* ((type (if (equal (url-type url-struct) \"ws\")\n 'plain 'tls))\n (port (if (= 0 (url-port url-struct))\n (if (eq type 'tls) 443 80)\n (url-port url-struct)))\n (host (url-host url-struct)))\n (if (eq type 'plain)\n (make-network-process :name name :buffer nil :host host\n :service port :nowait nowait)\n (condition-case-unless-debug nil\n (open-network-stream name nil host port :type type :nowait nowait)\n (wrong-number-of-arguments\n (signal 'websocket-wss-needs-emacs-24 \"wss\")))))\n (signal 'websocket-unsupported-protocol (url-type url-struct))))\n (websocket (websocket-inner-create\n :conn conn\n :url url\n :on-open on-open\n :on-message on-message\n :on-close on-close\n :on-error on-error\n :protocols protocols\n :extensions (mapcar 'car extensions)\n :accept-string\n (websocket-calculate-accept key))))\n (unless conn (error \"Could not establish the websocket connection to %s\" url))\n (process-put conn :websocket websocket)\n (set-process-filter conn\n (lambda (process output)\n (let ((websocket (process-get process :websocket)))\n (websocket-outer-filter websocket output))))\n (set-process-sentinel\n conn\n (websocket-sentinel url conn key protocols extensions custom-header-alist nowait))\n (set-process-query-on-exit-flag conn nil)\n (websocket-ensure-handshake url conn key protocols extensions custom-header-alist)\n websocket))\n\n(defun websocket-sentinel (url conn key protocols extensions custom-header-alist nowait)\n #'(lambda (process change)\n (let ((websocket (process-get process :websocket)))\n (websocket-debug websocket \"State change to %s\" change)\n (let ((status (process-status process)))\n (when (and nowait (eq status 'open))\n (websocket-ensure-handshake url conn key protocols extensions custom-header-alist))\n\n (when (and (member status '(closed failed exit signal))\n (not (eq 'closed (websocket-ready-state websocket))))\n (websocket-try-callback 'websocket-on-close 'on-close websocket))))))\n\n(defun websocket-ensure-handshake (url conn key protocols extensions custom-header-alist)\n (let ((url-struct (url-generic-parse-url url))\n (websocket (process-get conn :websocket)))\n (when (and (eq 'connecting (websocket-ready-state websocket))\n (eq 'open (process-status conn)))\n (process-send-string conn\n (format \"GET %s HTTP/1.1\\r\\n\"\n (let ((path (url-filename url-struct)))\n (if (> (length path) 0) path \"/\"))))\n (websocket-debug websocket \"Sending handshake, key: %s, acceptance: %s\"\n key (websocket-accept-string websocket))\n (process-send-string conn\n (websocket-create-headers\n url key protocols extensions custom-header-alist)))))\n\n(defun websocket-process-headers (url headers)\n \"On opening URL, process the HEADERS sent from the server.\"\n (when (string-match \"Set-Cookie: \$.*\$\\r\\n\" headers)\n ;; The url-current-object is assumed to be set by\n ;; url-cookie-handle-set-cookie.\n (let ((url-current-object (url-generic-parse-url url)))\n (url-cookie-handle-set-cookie (match-string 1 headers)))))\n\n(defun websocket-outer-filter (websocket output)\n \"Filter the WEBSOCKET server's OUTPUT.\nThis will parse headers and process frames repeatedly until there\nis no more output or the connection closes. If the websocket\nconnection is invalid, the connection will be closed.\"\n (websocket-debug websocket \"Received: %s\" output)\n (let ((start-point)\n (text (concat (websocket-inflight-input websocket) output))\n (header-end-pos))\n (setf (websocket-inflight-input websocket) nil)\n ;; If we've received the complete header, check to see if we've\n ;; received the desired handshake.\n (when (and (eq 'connecting (websocket-ready-state websocket)))\n (if (and (setq header-end-pos (string-match \"\\r\\n\\r\\n\" text))\n (setq start-point (+ 4 header-end-pos)))\n (progn\n (condition-case err\n (progn\n (websocket-verify-response-code text)\n (websocket-verify-headers websocket text)\n (websocket-process-headers (websocket-url websocket) text))\n (error\n (websocket-close websocket)\n (signal (car err) (cdr err))))\n (setf (websocket-ready-state websocket) 'open)\n (websocket-try-callback 'websocket-on-open 'on-open websocket))\n (setf (websocket-inflight-input websocket) text)))\n (when (eq 'open (websocket-ready-state websocket))\n (websocket-process-input-on-open-ws\n websocket (substring text (or start-point 0))))))\n\n(defun websocket-verify-headers (websocket output)\n \"Based on WEBSOCKET's data, ensure the headers in OUTPUT are valid.\nThe output is assumed to have complete headers. This function\nwill either return t or call `error'. This has the side-effect\nof populating the list of server extensions to WEBSOCKET.\"\n (let ((accept-string\n (concat \"Sec-WebSocket-Accept: \" (websocket-accept-string websocket))))\n (websocket-debug websocket \"Checking for accept header: %s\" accept-string)\n (unless (string-match (regexp-quote accept-string) output)\n (signal 'websocket-invalid-header\n \"Incorrect handshake from websocket: is this really a websocket connection?\")))\n (let ((case-fold-search t))\n (websocket-debug websocket \"Checking for upgrade header\")\n (unless (string-match \"\\r\\nUpgrade: websocket\\r\\n\" output)\n (signal 'websocket-invalid-header\n \"No 'Upgrade: websocket' header found\"))\n (websocket-debug websocket \"Checking for connection header\")\n (unless (string-match \"\\r\\nConnection: upgrade\\r\\n\" output)\n (signal 'websocket-invalid-header\n \"No 'Connection: upgrade' header found\"))\n (when (websocket-protocols websocket)\n (dolist (protocol (websocket-protocols websocket))\n (websocket-debug websocket \"Checking for protocol match: %s\"\n protocol)\n (let ((protocols\n (if (string-match (format \"\\r\\nSec-Websocket-Protocol: %s\\r\\n\"\n protocol)\n output)\n (list protocol)\n (signal 'websocket-invalid-header\n \"Incorrect or missing protocol returned by the server.\"))))\n (setf (websocket-negotiated-protocols websocket) protocols))))\n (let* ((extensions (websocket-parse-repeated-field\n output\n \"Sec-WebSocket-Extensions\"))\n (extra-extensions))\n (dolist (ext extensions)\n (let ((x (cl-first (split-string ext \"; ?\"))))\n (unless (or (member x (websocket-extensions websocket))\n (member x extra-extensions))\n (push x extra-extensions))))\n (when extra-extensions\n (signal 'websocket-invalid-header\n (format \"Non-requested extensions returned by server: %S\"\n extra-extensions)))\n (setf (websocket-negotiated-extensions websocket) extensions)))\n t)\n\n;;;;;;;;;;;;;;;;;;;;;;\n;; Websocket server ;;\n;;;;;;;;;;;;;;;;;;;;;;\n\n(defvar websocket-server-websockets nil\n \"A list of current websockets live on any server.\")\n\n(cl-defun websocket-server (port &rest plist)\n \"Open a websocket server on PORT.\nIf the plist contains a `:host' HOST pair, this value will be\nused to configure the addresses the socket listens on. The symbol\n`local' specifies the local host. If unspecified or nil, the\nsocket will listen on all addresses.\n\nThis also takes a plist of callbacks: `:on-open', `:on-message',\n`:on-close' and `:on-error', which operate exactly as documented\nin the websocket client function `websocket-open'. Returns the\nconnection, which should be kept in order to pass to\n`websocket-server-close'.\"\n (let* ((conn (make-network-process\n :name (format \"websocket server on port %s\" port)\n :server t\n :family 'ipv4\n :noquery t\n :filter 'websocket-server-filter\n :log 'websocket-server-accept\n :filter-multibyte nil\n :plist plist\n :host (plist-get plist :host)\n :service port)))\n conn))\n\n(defun websocket-server-close (conn)\n \"Closes the websocket, as well as all open websockets for this server.\"\n (let ((to-delete))\n (dolist (ws websocket-server-websockets)\n (when (eq (websocket-server-conn ws) conn)\n (if (eq (websocket-ready-state ws) 'closed)\n (unless (member ws to-delete)\n (push ws to-delete))\n (websocket-close ws))))\n (dolist (ws to-delete)\n (setq websocket-server-websockets (remove ws websocket-server-websockets))))\n (delete-process conn))\n\n(defun websocket-server-accept (server client _message)\n \"Accept a new websocket connection from a client.\"\n (let ((ws (websocket-inner-create\n :server-conn server\n :conn client\n :url client\n :server-p t\n :on-open (or (process-get server :on-open) 'identity)\n :on-message (or (process-get server :on-message) (lambda (_ws _frame)))\n :on-close (let ((user-method\n (or (process-get server :on-close) 'identity)))\n (lambda (ws)\n (setq websocket-server-websockets\n (remove ws websocket-server-websockets))\n (funcall user-method ws)))\n :on-error (or (process-get server :on-error)\n 'websocket-default-error-handler)\n :protocols (process-get server :protocol)\n :extensions (mapcar 'car (process-get server :extensions)))))\n (unless (member ws websocket-server-websockets)\n (push ws websocket-server-websockets))\n (process-put client :websocket ws)\n (set-process-coding-system client 'binary 'binary)\n (set-process-sentinel client\n (lambda (process change)\n (let ((websocket (process-get process :websocket)))\n (websocket-debug websocket \"State change to %s\" change)\n (when (and\n (member (process-status process) '(closed failed exit signal))\n (not (eq 'closed (websocket-ready-state websocket))))\n (websocket-try-callback 'websocket-on-close 'on-close websocket)))))))\n\n(defun websocket-create-headers (url key protocol extensions custom-headers-alist)\n \"Create connections headers for the given URL, KEY, PROTOCOL, and EXTENSIONS.\nAdditionally, the CUSTOM-HEADERS-ALIST is passed from the client.\nAll these parameters are defined as in `websocket-open'.\"\n (let* ((parsed-url (url-generic-parse-url url))\n (host-port (if (url-port-if-non-default parsed-url)\n (format \"%s:%s\" (url-host parsed-url) (url-port parsed-url))\n (url-host parsed-url)))\n (cookie-header (url-cookie-generate-header-lines\n host-port (car (url-path-and-query parsed-url))\n (equal (url-type parsed-url) \"wss\"))))\n (format (concat \"Host: %s\\r\\n\"\n \"Upgrade: websocket\\r\\n\"\n \"Connection: Upgrade\\r\\n\"\n \"Sec-WebSocket-Key: %s\\r\\n\"\n \"Sec-WebSocket-Version: 13\\r\\n\"\n (when protocol\n (concat\n (mapconcat\n (lambda (protocol)\n (format \"Sec-WebSocket-Protocol: %s\" protocol))\n protocol \"\\r\\n\")\n \"\\r\\n\"))\n (when extensions\n (format \"Sec-WebSocket-Extensions: %s\\r\\n\"\n (mapconcat\n (lambda (ext)\n (concat\n (car ext)\n (when (cdr ext) \"; \")\n (when (cdr ext)\n (mapconcat 'identity (cdr ext) \"; \"))))\n extensions \", \")))\n (when cookie-header cookie-header)\n (concat (mapconcat (lambda (cons) (format \"%s: %s\" (car cons) (cdr cons)))\n custom-headers-alist \"\\r\\n\")\n (when custom-headers-alist \"\\r\\n\"))\n \"\\r\\n\")\n host-port\n key\n protocol)))\n\n(defun websocket-get-server-response (websocket client-protocols client-extensions)\n \"Get the websocket response from client WEBSOCKET.\"\n (let ((separator \"\\r\\n\"))\n (concat \"HTTP/1.1 101 Switching Protocols\" separator\n \"Upgrade: websocket\" separator\n \"Connection: Upgrade\" separator\n \"Sec-WebSocket-Accept: \"\n (websocket-accept-string websocket) separator\n (let ((protocols\n (websocket-intersect client-protocols\n (websocket-protocols websocket))))\n (when protocols\n (concat\n (mapconcat\n (lambda (protocol) (format \"Sec-WebSocket-Protocol: %s\"\n protocol)) protocols separator)\n separator)))\n (let ((extensions (websocket-intersect\n client-extensions\n (websocket-extensions websocket))))\n (when extensions\n (concat\n (mapconcat\n (lambda (extension) (format \"Sec-Websocket-Extensions: %s\"\n extension)) extensions separator)\n separator)))\n separator)))\n\n(defun websocket-server-filter (process output)\n \"This acts on all OUTPUT from websocket clients PROCESS.\"\n (let* ((ws (process-get process :websocket))\n (text (concat (websocket-inflight-input ws) output)))\n (setf (websocket-inflight-input ws) nil)\n (cond ((eq (websocket-ready-state ws) 'connecting)\n ;; check for connection string\n (let ((end-of-header-pos\n (let ((pos (string-match \"\\r\\n\\r\\n\" text)))\n (when pos (+ 4 pos)))))\n (if end-of-header-pos\n (progn\n (let ((header-info (websocket-verify-client-headers text)))\n (if header-info\n (progn (setf (websocket-accept-string ws)\n (websocket-calculate-accept\n (plist-get header-info :key)))\n (process-send-string\n process\n (websocket-get-server-response\n ws (plist-get header-info :protocols)\n (plist-get header-info :extensions)))\n (setf (websocket-ready-state ws) 'open)\n (websocket-try-callback 'websocket-on-open\n 'on-open ws))\n (message \"Invalid client headers found in: %s\" output)\n (process-send-string process \"HTTP/1.1 400 Bad Request\\r\\n\\r\\n\")\n (websocket-close ws)))\n (when (> (length text) (+ 1 end-of-header-pos))\n (websocket-server-filter process (substring\n text\n end-of-header-pos))))\n (setf (websocket-inflight-input ws) text))))\n ((eq (websocket-ready-state ws) 'open)\n (websocket-process-input-on-open-ws ws text))\n ((eq (websocket-ready-state ws) 'closed)\n (message \"WARNING: Should not have received further input on closed websocket\")))))\n\n(defun websocket-verify-client-headers (output)\n \"Verify the headers from the WEBSOCKET client connection in OUTPUT.\nUnlike `websocket-verify-headers', this is a quieter routine. We\ndon't want to error due to a bad client, so we just print out\nmessages and a plist containing `:key', the websocket key,\n`:protocols' and `:extensions'.\"\n (cl-block nil\n (let ((case-fold-search t)\n (plist))\n (unless (string-match \"HTTP/1.1\" output)\n (message \"Websocket client connection: HTTP/1.1 not found\")\n (cl-return nil))\n (unless (string-match \"^Host: \" output)\n (message \"Websocket client connection: Host header not found\")\n (cl-return nil))\n (unless (string-match \"^Upgrade: websocket\\r\\n\" output)\n (message \"Websocket client connection: Upgrade: websocket not found\")\n (cl-return nil))\n (if (string-match \"^Sec-WebSocket-Key: \\\$[[:graph:]]+\\\$\\r\\n\" output)\n (setq plist (plist-put plist :key (match-string 1 output)))\n (message \"Websocket client connect: No key sent\")\n (cl-return nil))\n (unless (string-match \"^Sec-WebSocket-Version: 13\" output)\n (message \"Websocket client connect: Websocket version 13 not found\")\n (cl-return nil))\n (when (string-match \"^Sec-WebSocket-Protocol:\" output)\n (setq plist (plist-put plist :protocols (websocket-parse-repeated-field\n output\n \"Sec-Websocket-Protocol\"))))\n (when (string-match \"^Sec-WebSocket-Extensions:\" output)\n (setq plist (plist-put plist :extensions (websocket-parse-repeated-field\n output\n \"Sec-Websocket-Extensions\"))))\n plist)))\n\n(provide 'websocket)\n\n;;; websocket.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"visible-mark-20150623.2150","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":1966494,"end":1966531},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1966531},"to":{"change":7,"start":1966493,"end":1966493},"introduced_by":7}],"inode":{"change":7,"pos":1966493}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"visible-mark-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1966493},"to":{"change":7,"start":1976820,"end":1976869},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1976869},"to":{"change":7,"start":1975416,"end":1975416},"introduced_by":7}],"inode":{"change":7,"pos":1975416}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1975416},"to":{"change":7,"start":1975417,"end":1976819},"introduced_by":7}],"inode":{"change":7,"pos":1975416}},"content":[{"Del":";;; visible-mark-autoloads.el --- automatically extracted autoloads\n;;\n;;; Code:\n(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))\n\f\n;;;### (autoloads nil \"visible-mark\" \"visible-mark.el\" (23235 44929\n;;;;;; 0 0))\n;;; Generated autoloads from visible-mark.el\n\n(autoload 'visible-mark-mode \"visible-mark\" \"\\\nA mode to make the mark visible.\n\n\\(fn &optional ARG)\" t nil)\n\n(defvar global-visible-mark-mode nil \"\\\nNon-nil if Global Visible-Mark mode is enabled.\nSee the `global-visible-mark-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-visible-mark-mode'.\")\n\n(custom-autoload 'global-visible-mark-mode \"visible-mark\" nil)\n\n(autoload 'global-visible-mark-mode \"visible-mark\" \"\\\nToggle Visible-Mark mode in all buffers.\nWith prefix ARG, enable Global Visible-Mark mode if ARG is positive;\notherwise, disable it. If called from Lisp, enable the mode if\nARG is omitted or nil.\n\nVisible-Mark mode is enabled in all buffers where\n`visible-mark-mode-maybe' would do it.\nSee `visible-mark-mode' for more information on Visible-Mark mode.\n\n\\(fn &optional ARG)\" t nil)\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; End:\n;;; visible-mark-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"visible-mark-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1966493},"to":{"change":7,"start":1975371,"end":1975414},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1975414},"to":{"change":7,"start":1975121,"end":1975121},"introduced_by":7}],"inode":{"change":7,"pos":1975121}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1975121},"to":{"change":7,"start":1975122,"end":1975370},"introduced_by":7}],"inode":{"change":7,"pos":1975121}},"content":[{"Del":";;; -*- no-byte-compile: t -*-\r\n(define-package \"visible-mark\" \"20150623.2150\" \"Make marks visible.\" 'nil :commit \"a584db9bc88953b23a9648b3e14ade90767207f8\" :url \"https://gitlab.com/iankelling/visible-mark\" :keywords '(\"marking\" \"color\" \"faces\"))\r\n"}]}},{"FileDel":{"deleted_names":[{"basename":"visible-mark.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1966493},"to":{"change":7,"start":1975080,"end":1975119},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":1975119},"to":{"change":7,"start":1966533,"end":1966533},"introduced_by":7}],"inode":{"change":7,"pos":1966533}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":1966533},"to":{"change":7,"start":1966534,"end":1975079},"introduced_by":7}],"inode":{"change":7,"pos":1966533}},"content":[{"Del":";;; visible-mark.el --- Make marks visible.\n\n;; Copyright (C) 2014 by Ian Kelling\n\n;; Maintainer: Ian Kelling \n;; Mailing list: https://lists.iankelling.org/listinfo/visible-mark\n;; Author: Ian Kelling \n;; Author: Yann Hodique\n;; Author: MATSUYAMA Tomohiro \n;; Author: John Foerch \n;; Keywords: marking color faces\n;; Package-Version: 20150623.2150\n;; URL: https://gitlab.com/iankelling/visible-mark\n;; Created: 2008-02-21\n\n;;; License:\n\n;; This program is free software; you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n\n;;; Commentary:\n\n;; Emacs minor mode to highlight mark(s).\n;;\n;; Allows setting the number of marks to display, and the faces to display them.\n;;\n;; A good blog post was written introducing this package:\n;; http://pragmaticemacs.com/emacs/regions-marks-and-visual-mark/\n;;\n;; Example installation:\n;;\n;; 1. Put this file in Emacs's load-path\n;;\n;; 2. add custom faces to init file\n;; (require 'visible-mark)\n;; (global-visible-mark-mode 1) ;; or add (visible-mark-mode) to specific hooks\n;;\n;; 3. Add customizations. The defaults are very minimal. They could also be set\n;; via customize.\n;; \n;; (defface visible-mark-active ;; put this before (require 'visible-mark)\n;; '((((type tty) (class mono)))\n;; (t (:background \"magenta\"))) \"\")\n;; (setq visible-mark-max 2)\n;; (setq visible-mark-faces `(visible-mark-face1 visible-mark-face2))\n;; \n;;\n;; Additional useful functions like unpoping the mark are at\n;; http://www.emacswiki.org/emacs/MarkCommands\n;; and http://www.emacswiki.org/emacs/VisibleMark\n\n;; Known bugs\n;;\n;; Observed in circe, when the buffer has a right margin, and there\n;; is a mark at the beginning of a line, any text in the margin on that line\n;; gets styled with the mark's face. May also happen for left margins, but\n;; haven't tested yet.\n;;\n;; Patches / pull requests / feedback welcome.\n\n;;; Code:\n\n(eval-when-compile\n (require 'cl))\n\n(defgroup visible-mark nil\n \"Show the position of your mark.\"\n :group 'convenience\n :prefix \"visible-mark-\")\n\n(defface visible-mark-active\n '((((type tty) (class color))\n (:background \"gray\" :foreground \"black\"))\n (((type tty) (class mono))\n (:inverse-video t))\n (((class color) (background dark))\n (:background \"gray\" :foreground \"black\"))\n (((class color) (background light))\n (:background \"grey80\"))\n (t (:background \"gray\")))\n \"Face for the active mark. To redefine this in your init file,\ndo it before loading/requiring visible-mark.\"\n :group 'visible-mark)\n\n(defcustom visible-mark-inhibit-trailing-overlay t\n \"If non-nil, inhibit the extension of an overlay at the end of a line\nto the window margin.\"\n :group 'visible-mark\n :type 'boolean)\n\n(defcustom global-visible-mark-mode-exclude-alist nil\n \"A list of buffer names to be excluded.\"\n :group 'visible-mark\n :type '(repeat regexp))\n\n\n(defcustom visible-mark-max 1\n \"The number of marks in the backward direction to be visible.\"\n :group 'visible-mark\n :type 'integer)\n\n(defcustom visible-mark-forward-max 0\n \"The number of marks in the forward direction to be visible.\"\n :group 'visible-mark\n :type 'integer)\n\n(defcustom visible-mark-faces nil\n \"A list of mark faces for marks in the backward direction.\nIf visible-mark-max is greater than the amount of visible-mark-faces,\nthe last defined face will be reused.\"\n :group 'visible-mark\n :type '(repeat face))\n\n(defcustom visible-mark-forward-faces nil\n \"A list of mark faces for marks in the forward direction.\"\n :group 'visible-mark\n :type '(repeat face))\n\n\n;;; example faces\n\n(defface visible-mark-face1\n '((((type tty) (class mono)))\n (t (:background \"light salmon\")))\n \"Example face which can be customized and added to subsequent face lists.\"\n :group 'visible-mark)\n \n(defface visible-mark-face2\n '((((type tty) (class mono)))\n (t (:background \"light goldenrod\")))\n \"Example face which can be customized and added to subsequent face lists.\"\n :group 'visible-mark)\n\n(defface visible-mark-forward-face1\n '((((type tty) (class mono)))\n (t (:background \"pale green\")))\n \"Example face which can be customized and added to subsequent face lists.\"\n :group 'visible-mark)\n\n(defface visible-mark-forward-face2\n nil\n \"Placeholder face for customization and addition to subsequent face lists.\"\n :group 'visible-mark)\n\n\n\n\n(defvar visible-mark-overlays nil\n \"The overlays used for mark faces. Used internally by visible-mark-mode.\")\n(make-variable-buffer-local 'visible-mark-overlays)\n\n\n\n(defun visible-mark-initialize-overlays ()\n (mapc\n (lambda (x)\n (when (eq 'visible-mark (overlay-get x 'category))\n (delete-overlay x)))\n (overlays-in (point-min) (point-max))) \n (let (overlays)\n (dotimes (i (+ visible-mark-max visible-mark-forward-max))\n (let ((overlay (make-overlay (point-min) (point-min))))\n (overlay-put overlay 'category 'visible-mark)\n (push overlay overlays)))\n (setq visible-mark-overlays (nreverse overlays))))\n\n(defun visible-mark-find-overlay-at (pos)\n (let ((overlays (overlays-at pos))\n found)\n (while (and overlays (not found))\n (let ((overlay (car overlays)))\n (if (eq 'visible-mark (overlay-get overlay 'category))\n (setq found overlay)))\n (setq overlays (cdr overlays)))\n found))\n\n(defun visible-mark-move-overlays ()\n \"Update overlays in `visible-mark-overlays'. This is run in the `post-command-hook'\"\n (mapc (lambda (x) (delete-overlay x))\n visible-mark-overlays)\n (let ((marks (cons (mark-marker) mark-ring))\n (overlays visible-mark-overlays)\n (faces visible-mark-faces)\n (faces-forward visible-mark-forward-faces))\n (if mark-active (setq faces (cons 'visible-mark-active (cdr faces))))\n (dotimes (i visible-mark-max)\n (visible-mark-move-overlay (pop overlays) (pop marks) (car faces))\n (if (cdr faces) (pop faces)))\n (dotimes (i visible-mark-forward-max)\n (visible-mark-move-overlay (pop overlays) (car (last marks (1+ i))) (car faces-forward))\n (if (cdr faces-forward) (pop faces-forward)))))\n\n(defun visible-mark-move-overlay (overlay mark face)\n \"Set OVERLAY to position of MARK and display of FACE.\"\n (let ((pos (and mark (marker-position mark))))\n (when (and pos (not (equal (point) pos)))\n (cond\n ((and\n visible-mark-inhibit-trailing-overlay\n (save-excursion (goto-char pos) (eolp)))\n (overlay-put overlay 'face nil)\n (if (visible-mark-find-overlay-at pos)\n (progn (overlay-put overlay 'before-string nil))\n (overlay-put overlay 'before-string\n (propertize\n \" \"\n 'face face))\n (move-overlay overlay pos (1+ pos))))\n (t\n (overlay-put overlay 'before-string nil)\n (overlay-put overlay 'face face)\n (move-overlay overlay pos (1+ pos)))))))\n\n(require 'easy-mmode)\n(defun visible-mark-mode-maybe ()\n (when (cond\n ((minibufferp (current-buffer)) nil)\n ((cl-flet ((fun (arg)\n (if (null arg) nil\n (or (string-match (car arg) (buffer-name))\n (fun (cdr arg))))))\n (fun global-visible-mark-mode-exclude-alist)) nil)\n (t t))\n (visible-mark-mode t)))\n\n;;;###autoload\n(define-minor-mode visible-mark-mode\n \"A mode to make the mark visible.\"\n nil nil nil\n :group 'visible-mark\n (if visible-mark-mode\n (progn\n (visible-mark-initialize-overlays)\n (add-hook 'post-command-hook 'visible-mark-move-overlays nil t))\n (mapc 'delete-overlay visible-mark-overlays)\n (setq visible-mark-overlays nil)\n (remove-hook 'post-command-hook 'visible-mark-move-overlays t)))\n\n;;;###autoload\n(define-global-minor-mode\n global-visible-mark-mode visible-mark-mode visible-mark-mode-maybe\n :group 'visible-mark)\n\n(provide 'visible-mark)\n;;; visible-mark.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-0.28","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":2233212,"end":2233235},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233235},"to":{"change":7,"start":2233211,"end":2233211},"introduced_by":7}],"inode":{"change":7,"pos":2233211}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"LICENSE","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2487878,"end":2487909},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2487909},"to":{"change":7,"start":2452727,"end":2452727},"introduced_by":7}],"inode":{"change":7,"pos":2452727}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2452727},"to":{"change":7,"start":2452728,"end":2487877},"introduced_by":7}],"inode":{"change":7,"pos":2452727}},"content":[{"Del":" GNU GENERAL PUBLIC LICENSE\n Version 3, 29 June 2007\n\n Copyright (C) 2007 Free Software Foundation, Inc. \n Everyone is permitted to copy and distribute verbatim copies\n of this license document, but changing it is not allowed.\n\n Preamble\n\n The GNU General Public License is a free, copyleft license for\nsoftware and other kinds of works.\n\n The licenses for most software and other practical works are designed\nto take away your freedom to share and change the works. By contrast,\nthe GNU General Public License is intended to guarantee your freedom to\nshare and change all versions of a program--to make sure it remains free\nsoftware for all its users. We, the Free Software Foundation, use the\nGNU General Public License for most of our software; it applies also to\nany other work released this way by its authors. You can apply it to\nyour programs, too.\n\n When we speak of free software, we are referring to freedom, not\nprice. Our General Public Licenses are designed to make sure that you\nhave the freedom to distribute copies of free software (and charge for\nthem if you wish), that you receive source code or can get it if you\nwant it, that you can change the software or use pieces of it in new\nfree programs, and that you know you can do these things.\n\n To protect your rights, we need to prevent others from denying you\nthese rights or asking you to surrender the rights. Therefore, you have\ncertain responsibilities if you distribute copies of the software, or if\nyou modify it: responsibilities to respect the freedom of others.\n\n For example, if you distribute copies of such a program, whether\ngratis or for a fee, you must pass on to the recipients the same\nfreedoms that you received. You must make sure that they, too, receive\nor can get the source code. And you must show them these terms so they\nknow their rights.\n\n Developers that use the GNU GPL protect your rights with two steps:\n(1) assert copyright on the software, and (2) offer you this License\ngiving you legal permission to copy, distribute and/or modify it.\n\n For the developers' and authors' protection, the GPL clearly explains\nthat there is no warranty for this free software. For both users' and\nauthors' sake, the GPL requires that modified versions be marked as\nchanged, so that their problems will not be attributed erroneously to\nauthors of previous versions.\n\n Some devices are designed to deny users access to install or run\nmodified versions of the software inside them, although the manufacturer\ncan do so. This is fundamentally incompatible with the aim of\nprotecting users' freedom to change the software. The systematic\npattern of such abuse occurs in the area of products for individuals to\nuse, which is precisely where it is most unacceptable. Therefore, we\nhave designed this version of the GPL to prohibit the practice for those\nproducts. If such problems arise substantially in other domains, we\nstand ready to extend this provision to those domains in future versions\nof the GPL, as needed to protect the freedom of users.\n\n Finally, every program is threatened constantly by software patents.\nStates should not allow patents to restrict development and use of\nsoftware on general-purpose computers, but in those that do, we wish to\navoid the special danger that patents applied to a free program could\nmake it effectively proprietary. To prevent this, the GPL assures that\npatents cannot be used to render the program non-free.\n\n The precise terms and conditions for copying, distribution and\nmodification follow.\n\n TERMS AND CONDITIONS\n\n 0. Definitions.\n\n \"This License\" refers to version 3 of the GNU General Public License.\n\n \"Copyright\" also means copyright-like laws that apply to other kinds of\nworks, such as semiconductor masks.\n\n \"The Program\" refers to any copyrightable work licensed under this\nLicense. Each licensee is addressed as \"you\". \"Licensees\" and\n\"recipients\" may be individuals or organizations.\n\n To \"modify\" a work means to copy from or adapt all or part of the work\nin a fashion requiring copyright permission, other than the making of an\nexact copy. The resulting work is called a \"modified version\" of the\nearlier work or a work \"based on\" the earlier work.\n\n A \"covered work\" means either the unmodified Program or a work based\non the Program.\n\n To \"propagate\" a work means to do anything with it that, without\npermission, would make you directly or secondarily liable for\ninfringement under applicable copyright law, except executing it on a\ncomputer or modifying a private copy. Propagation includes copying,\ndistribution (with or without modification), making available to the\npublic, and in some countries other activities as well.\n\n To \"convey\" a work means any kind of propagation that enables other\nparties to make or receive copies. Mere interaction with a user through\na computer network, with no transfer of a copy, is not conveying.\n\n An interactive user interface displays \"Appropriate Legal Notices\"\nto the extent that it includes a convenient and prominently visible\nfeature that (1) displays an appropriate copyright notice, and (2)\ntells the user that there is no warranty for the work (except to the\nextent that warranties are provided), that licensees may convey the\nwork under this License, and how to view a copy of this License. If\nthe interface presents a list of user commands or options, such as a\nmenu, a prominent item in the list meets this criterion.\n\n 1. Source Code.\n\n The \"source code\" for a work means the preferred form of the work\nfor making modifications to it. \"Object code\" means any non-source\nform of a work.\n\n A \"Standard Interface\" means an interface that either is an official\nstandard defined by a recognized standards body, or, in the case of\ninterfaces specified for a particular programming language, one that\nis widely used among developers working in that language.\n\n The \"System Libraries\" of an executable work include anything, other\nthan the work as a whole, that (a) is included in the normal form of\npackaging a Major Component, but which is not part of that Major\nComponent, and (b) serves only to enable use of the work with that\nMajor Component, or to implement a Standard Interface for which an\nimplementation is available to the public in source code form. A\n\"Major Component\", in this context, means a major essential component\n(kernel, window system, and so on) of the specific operating system\n(if any) on which the executable work runs, or a compiler used to\nproduce the work, or an object code interpreter used to run it.\n\n The \"Corresponding Source\" for a work in object code form means all\nthe source code needed to generate, install, and (for an executable\nwork) run the object code and to modify the work, including scripts to\ncontrol those activities. However, it does not include the work's\nSystem Libraries, or general-purpose tools or generally available free\nprograms which are used unmodified in performing those activities but\nwhich are not part of the work. For example, Corresponding Source\nincludes interface definition files associated with source files for\nthe work, and the source code for shared libraries and dynamically\nlinked subprograms that the work is specifically designed to require,\nsuch as by intimate data communication or control flow between those\nsubprograms and other parts of the work.\n\n The Corresponding Source need not include anything that users\ncan regenerate automatically from other parts of the Corresponding\nSource.\n\n The Corresponding Source for a work in source code form is that\nsame work.\n\n 2. Basic Permissions.\n\n All rights granted under this License are granted for the term of\ncopyright on the Program, and are irrevocable provided the stated\nconditions are met. This License explicitly affirms your unlimited\npermission to run the unmodified Program. The output from running a\ncovered work is covered by this License only if the output, given its\ncontent, constitutes a covered work. This License acknowledges your\nrights of fair use or other equivalent, as provided by copyright law.\n\n You may make, run and propagate covered works that you do not\nconvey, without conditions so long as your license otherwise remains\nin force. You may convey covered works to others for the sole purpose\nof having them make modifications exclusively for you, or provide you\nwith facilities for running those works, provided that you comply with\nthe terms of this License in conveying all material for which you do\nnot control copyright. Those thus making or running the covered works\nfor you must do so exclusively on your behalf, under your direction\nand control, on terms that prohibit them from making any copies of\nyour copyrighted material outside their relationship with you.\n\n Conveying under any other circumstances is permitted solely under\nthe conditions stated below. Sublicensing is not allowed; section 10\nmakes it unnecessary.\n\n 3. Protecting Users' Legal Rights From Anti-Circumvention Law.\n\n No covered work shall be deemed part of an effective technological\nmeasure under any applicable law fulfilling obligations under article\n11 of the WIPO copyright treaty adopted on 20 December 1996, or\nsimilar laws prohibiting or restricting circumvention of such\nmeasures.\n\n When you convey a covered work, you waive any legal power to forbid\ncircumvention of technological measures to the extent such circumvention\nis effected by exercising rights under this License with respect to\nthe covered work, and you disclaim any intention to limit operation or\nmodification of the work as a means of enforcing, against the work's\nusers, your or third parties' legal rights to forbid circumvention of\ntechnological measures.\n\n 4. Conveying Verbatim Copies.\n\n You may convey verbatim copies of the Program's source code as you\nreceive it, in any medium, provided that you conspicuously and\nappropriately publish on each copy an appropriate copyright notice;\nkeep intact all notices stating that this License and any\nnon-permissive terms added in accord with section 7 apply to the code;\nkeep intact all notices of the absence of any warranty; and give all\nrecipients a copy of this License along with the Program.\n\n You may charge any price or no price for each copy that you convey,\nand you may offer support or warranty protection for a fee.\n\n 5. Conveying Modified Source Versions.\n\n You may convey a work based on the Program, or the modifications to\nproduce it from the Program, in the form of source code under the\nterms of section 4, provided that you also meet all of these conditions:\n\n a) The work must carry prominent notices stating that you modified\n it, and giving a relevant date.\n\n b) The work must carry prominent notices stating that it is\n released under this License and any conditions added under section\n 7. This requirement modifies the requirement in section 4 to\n \"keep intact all notices\".\n\n c) You must license the entire work, as a whole, under this\n License to anyone who comes into possession of a copy. This\n License will therefore apply, along with any applicable section 7\n additional terms, to the whole of the work, and all its parts,\n regardless of how they are packaged. This License gives no\n permission to license the work in any other way, but it does not\n invalidate such permission if you have separately received it.\n\n d) If the work has interactive user interfaces, each must display\n Appropriate Legal Notices; however, if the Program has interactive\n interfaces that do not display Appropriate Legal Notices, your\n work need not make them do so.\n\n A compilation of a covered work with other separate and independent\nworks, which are not by their nature extensions of the covered work,\nand which are not combined with it such as to form a larger program,\nin or on a volume of a storage or distribution medium, is called an\n\"aggregate\" if the compilation and its resulting copyright are not\nused to limit the access or legal rights of the compilation's users\nbeyond what the individual works permit. Inclusion of a covered work\nin an aggregate does not cause this License to apply to the other\nparts of the aggregate.\n\n 6. Conveying Non-Source Forms.\n\n You may convey a covered work in object code form under the terms\nof sections 4 and 5, provided that you also convey the\nmachine-readable Corresponding Source under the terms of this License,\nin one of these ways:\n\n a) Convey the object code in, or embodied in, a physical product\n (including a physical distribution medium), accompanied by the\n Corresponding Source fixed on a durable physical medium\n customarily used for software interchange.\n\n b) Convey the object code in, or embodied in, a physical product\n (including a physical distribution medium), accompanied by a\n written offer, valid for at least three years and valid for as\n long as you offer spare parts or customer support for that product\n model, to give anyone who possesses the object code either (1) a\n copy of the Corresponding Source for all the software in the\n product that is covered by this License, on a durable physical\n medium customarily used for software interchange, for a price no\n more than your reasonable cost of physically performing this\n conveying of source, or (2) access to copy the\n Corresponding Source from a network server at no charge.\n\n c) Convey individual copies of the object code with a copy of the\n written offer to provide the Corresponding Source. This\n alternative is allowed only occasionally and noncommercially, and\n only if you received the object code with such an offer, in accord\n with subsection 6b.\n\n d) Convey the object code by offering access from a designated\n place (gratis or for a charge), and offer equivalent access to the\n Corresponding Source in the same way through the same place at no\n further charge. You need not require recipients to copy the\n Corresponding Source along with the object code. If the place to\n copy the object code is a network server, the Corresponding Source\n may be on a different server (operated by you or a third party)\n that supports equivalent copying facilities, provided you maintain\n clear directions next to the object code saying where to find the\n Corresponding Source. Regardless of what server hosts the\n Corresponding Source, you remain obligated to ensure that it is\n available for as long as needed to satisfy these requirements.\n\n e) Convey the object code using peer-to-peer transmission, provided\n you inform other peers where the object code and Corresponding\n Source of the work are being offered to the general public at no\n charge under subsection 6d.\n\n A separable portion of the object code, whose source code is excluded\nfrom the Corresponding Source as a System Library, need not be\nincluded in conveying the object code work.\n\n A \"User Product\" is either (1) a \"consumer product\", which means any\ntangible personal property which is normally used for personal, family,\nor household purposes, or (2) anything designed or sold for incorporation\ninto a dwelling. In determining whether a product is a consumer product,\ndoubtful cases shall be resolved in favor of coverage. For a particular\nproduct received by a particular user, \"normally used\" refers to a\ntypical or common use of that class of product, regardless of the status\nof the particular user or of the way in which the particular user\nactually uses, or expects or is expected to use, the product. A product\nis a consumer product regardless of whether the product has substantial\ncommercial, industrial or non-consumer uses, unless such uses represent\nthe only significant mode of use of the product.\n\n \"Installation Information\" for a User Product means any methods,\nprocedures, authorization keys, or other information required to install\nand execute modified versions of a covered work in that User Product from\na modified version of its Corresponding Source. The information must\nsuffice to ensure that the continued functioning of the modified object\ncode is in no case prevented or interfered with solely because\nmodification has been made.\n\n If you convey an object code work under this section in, or with, or\nspecifically for use in, a User Product, and the conveying occurs as\npart of a transaction in which the right of possession and use of the\nUser Product is transferred to the recipient in perpetuity or for a\nfixed term (regardless of how the transaction is characterized), the\nCorresponding Source conveyed under this section must be accompanied\nby the Installation Information. But this requirement does not apply\nif neither you nor any third party retains the ability to install\nmodified object code on the User Product (for example, the work has\nbeen installed in ROM).\n\n The requirement to provide Installation Information does not include a\nrequirement to continue to provide support service, warranty, or updates\nfor a work that has been modified or installed by the recipient, or for\nthe User Product in which it has been modified or installed. Access to a\nnetwork may be denied when the modification itself materially and\nadversely affects the operation of the network or violates the rules and\nprotocols for communication across the network.\n\n Corresponding Source conveyed, and Installation Information provided,\nin accord with this section must be in a format that is publicly\ndocumented (and with an implementation available to the public in\nsource code form), and must require no special password or key for\nunpacking, reading or copying.\n\n 7. Additional Terms.\n\n \"Additional permissions\" are terms that supplement the terms of this\nLicense by making exceptions from one or more of its conditions.\nAdditional permissions that are applicable to the entire Program shall\nbe treated as though they were included in this License, to the extent\nthat they are valid under applicable law. If additional permissions\napply only to part of the Program, that part may be used separately\nunder those permissions, but the entire Program remains governed by\nthis License without regard to the additional permissions.\n\n When you convey a copy of a covered work, you may at your option\nremove any additional permissions from that copy, or from any part of\nit. (Additional permissions may be written to require their own\nremoval in certain cases when you modify the work.) You may place\nadditional permissions on material, added by you to a covered work,\nfor which you have or can give appropriate copyright permission.\n\n Notwithstanding any other provision of this License, for material you\nadd to a covered work, you may (if authorized by the copyright holders of\nthat material) supplement the terms of this License with terms:\n\n a) Disclaiming warranty or limiting liability differently from the\n terms of sections 15 and 16 of this License; or\n\n b) Requiring preservation of specified reasonable legal notices or\n author attributions in that material or in the Appropriate Legal\n Notices displayed by works containing it; or\n\n c) Prohibiting misrepresentation of the origin of that material, or\n requiring that modified versions of such material be marked in\n reasonable ways as different from the original version; or\n\n d) Limiting the use for publicity purposes of names of licensors or\n authors of the material; or\n\n e) Declining to grant rights under trademark law for use of some\n trade names, trademarks, or service marks; or\n\n f) Requiring indemnification of licensors and authors of that\n material by anyone who conveys the material (or modified versions of\n it) with contractual assumptions of liability to the recipient, for\n any liability that these contractual assumptions directly impose on\n those licensors and authors.\n\n All other non-permissive additional terms are considered \"further\nrestrictions\" within the meaning of section 10. If the Program as you\nreceived it, or any part of it, contains a notice stating that it is\ngoverned by this License along with a term that is a further\nrestriction, you may remove that term. If a license document contains\na further restriction but permits relicensing or conveying under this\nLicense, you may add to a covered work material governed by the terms\nof that license document, provided that the further restriction does\nnot survive such relicensing or conveying.\n\n If you add terms to a covered work in accord with this section, you\nmust place, in the relevant source files, a statement of the\nadditional terms that apply to those files, or a notice indicating\nwhere to find the applicable terms.\n\n Additional terms, permissive or non-permissive, may be stated in the\nform of a separately written license, or stated as exceptions;\nthe above requirements apply either way.\n\n 8. Termination.\n\n You may not propagate or modify a covered work except as expressly\nprovided under this License. Any attempt otherwise to propagate or\nmodify it is void, and will automatically terminate your rights under\nthis License (including any patent licenses granted under the third\nparagraph of section 11).\n\n However, if you cease all violation of this License, then your\nlicense from a particular copyright holder is reinstated (a)\nprovisionally, unless and until the copyright holder explicitly and\nfinally terminates your license, and (b) permanently, if the copyright\nholder fails to notify you of the violation by some reasonable means\nprior to 60 days after the cessation.\n\n Moreover, your license from a particular copyright holder is\nreinstated permanently if the copyright holder notifies you of the\nviolation by some reasonable means, this is the first time you have\nreceived notice of violation of this License (for any work) from that\ncopyright holder, and you cure the violation prior to 30 days after\nyour receipt of the notice.\n\n Termination of your rights under this section does not terminate the\nlicenses of parties who have received copies or rights from you under\nthis License. If your rights have been terminated and not permanently\nreinstated, you do not qualify to receive new licenses for the same\nmaterial under section 10.\n\n 9. Acceptance Not Required for Having Copies.\n\n You are not required to accept this License in order to receive or\nrun a copy of the Program. Ancillary propagation of a covered work\noccurring solely as a consequence of using peer-to-peer transmission\nto receive a copy likewise does not require acceptance. However,\nnothing other than this License grants you permission to propagate or\nmodify any covered work. These actions infringe copyright if you do\nnot accept this License. Therefore, by modifying or propagating a\ncovered work, you indicate your acceptance of this License to do so.\n\n 10. Automatic Licensing of Downstream Recipients.\n\n Each time you convey a covered work, the recipient automatically\nreceives a license from the original licensors, to run, modify and\npropagate that work, subject to this License. You are not responsible\nfor enforcing compliance by third parties with this License.\n\n An \"entity transaction\" is a transaction transferring control of an\norganization, or substantially all assets of one, or subdividing an\norganization, or merging organizations. If propagation of a covered\nwork results from an entity transaction, each party to that\ntransaction who receives a copy of the work also receives whatever\nlicenses to the work the party's predecessor in interest had or could\ngive under the previous paragraph, plus a right to possession of the\nCorresponding Source of the work from the predecessor in interest, if\nthe predecessor has it or can get it with reasonable efforts.\n\n You may not impose any further restrictions on the exercise of the\nrights granted or affirmed under this License. For example, you may\nnot impose a license fee, royalty, or other charge for exercise of\nrights granted under this License, and you may not initiate litigation\n(including a cross-claim or counterclaim in a lawsuit) alleging that\nany patent claim is infringed by making, using, selling, offering for\nsale, or importing the Program or any portion of it.\n\n 11. Patents.\n\n A \"contributor\" is a copyright holder who authorizes use under this\nLicense of the Program or a work on which the Program is based. The\nwork thus licensed is called the contributor's \"contributor version\".\n\n A contributor's \"essential patent claims\" are all patent claims\nowned or controlled by the contributor, whether already acquired or\nhereafter acquired, that would be infringed by some manner, permitted\nby this License, of making, using, or selling its contributor version,\nbut do not include claims that would be infringed only as a\nconsequence of further modification of the contributor version. For\npurposes of this definition, \"control\" includes the right to grant\npatent sublicenses in a manner consistent with the requirements of\nthis License.\n\n Each contributor grants you a non-exclusive, worldwide, royalty-free\npatent license under the contributor's essential patent claims, to\nmake, use, sell, offer for sale, import and otherwise run, modify and\npropagate the contents of its contributor version.\n\n In the following three paragraphs, a \"patent license\" is any express\nagreement or commitment, however denominated, not to enforce a patent\n(such as an express permission to practice a patent or covenant not to\nsue for patent infringement). To \"grant\" such a patent license to a\nparty means to make such an agreement or commitment not to enforce a\npatent against the party.\n\n If you convey a covered work, knowingly relying on a patent license,\nand the Corresponding Source of the work is not available for anyone\nto copy, free of charge and under the terms of this License, through a\npublicly available network server or other readily accessible means,\nthen you must either (1) cause the Corresponding Source to be so\navailable, or (2) arrange to deprive yourself of the benefit of the\npatent license for this particular work, or (3) arrange, in a manner\nconsistent with the requirements of this License, to extend the patent\nlicense to downstream recipients. \"Knowingly relying\" means you have\nactual knowledge that, but for the patent license, your conveying the\ncovered work in a country, or your recipient's use of the covered work\nin a country, would infringe one or more identifiable patents in that\ncountry that you have reason to believe are valid.\n\n If, pursuant to or in connection with a single transaction or\narrangement, you convey, or propagate by procuring conveyance of, a\ncovered work, and grant a patent license to some of the parties\nreceiving the covered work authorizing them to use, propagate, modify\nor convey a specific copy of the covered work, then the patent license\nyou grant is automatically extended to all recipients of the covered\nwork and works based on it.\n\n A patent license is \"discriminatory\" if it does not include within\nthe scope of its coverage, prohibits the exercise of, or is\nconditioned on the non-exercise of one or more of the rights that are\nspecifically granted under this License. You may not convey a covered\nwork if you are a party to an arrangement with a third party that is\nin the business of distributing software, under which you make payment\nto the third party based on the extent of your activity of conveying\nthe work, and under which the third party grants, to any of the\nparties who would receive the covered work from you, a discriminatory\npatent license (a) in connection with copies of the covered work\nconveyed by you (or copies made from those copies), or (b) primarily\nfor and in connection with specific products or compilations that\ncontain the covered work, unless you entered into that arrangement,\nor that patent license was granted, prior to 28 March 2007.\n\n Nothing in this License shall be construed as excluding or limiting\nany implied license or other defenses to infringement that may\notherwise be available to you under applicable patent law.\n\n 12. No Surrender of Others' Freedom.\n\n If conditions are imposed on you (whether by court order, agreement or\notherwise) that contradict the conditions of this License, they do not\nexcuse you from the conditions of this License. If you cannot convey a\ncovered work so as to satisfy simultaneously your obligations under this\nLicense and any other pertinent obligations, then as a consequence you may\nnot convey it at all. For example, if you agree to terms that obligate you\nto collect a royalty for further conveying from those to whom you convey\nthe Program, the only way you could satisfy both those terms and this\nLicense would be to refrain entirely from conveying the Program.\n\n 13. Use with the GNU Affero General Public License.\n\n Notwithstanding any other provision of this License, you have\npermission to link or combine any covered work with a work licensed\nunder version 3 of the GNU Affero General Public License into a single\ncombined work, and to convey the resulting work. The terms of this\nLicense will continue to apply to the part which is the covered work,\nbut the special requirements of the GNU Affero General Public License,\nsection 13, concerning interaction through a network will apply to the\ncombination as such.\n\n 14. Revised Versions of this License.\n\n The Free Software Foundation may publish revised and/or new versions of\nthe GNU General Public License from time to time. Such new versions will\nbe similar in spirit to the present version, but may differ in detail to\naddress new problems or concerns.\n\n Each version is given a distinguishing version number. If the\nProgram specifies that a certain numbered version of the GNU General\nPublic License \"or any later version\" applies to it, you have the\noption of following the terms and conditions either of that numbered\nversion or of any later version published by the Free Software\nFoundation. If the Program does not specify a version number of the\nGNU General Public License, you may choose any version ever published\nby the Free Software Foundation.\n\n If the Program specifies that a proxy can decide which future\nversions of the GNU General Public License can be used, that proxy's\npublic statement of acceptance of a version permanently authorizes you\nto choose that version for the Program.\n\n Later license versions may give you additional or different\npermissions. However, no additional obligations are imposed on any\nauthor or copyright holder as a result of your choosing to follow a\nlater version.\n\n 15. Disclaimer of Warranty.\n\n THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY\nAPPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT\nHOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM \"AS IS\" WITHOUT WARRANTY\nOF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,\nTHE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR\nPURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM\nIS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF\nALL NECESSARY SERVICING, REPAIR OR CORRECTION.\n\n 16. Limitation of Liability.\n\n IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING\nWILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS\nTHE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY\nGENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE\nUSE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF\nDATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD\nPARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),\nEVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF\nSUCH DAMAGES.\n\n 17. Interpretation of Sections 15 and 16.\n\n If the disclaimer of warranty and limitation of liability provided\nabove cannot be given local legal effect according to their terms,\nreviewing courts shall apply local law that most closely approximates\nan absolute waiver of all civil liability in connection with the\nProgram, unless a warranty or assumption of liability accompanies a\ncopy of the Program in return for a fee.\n\n END OF TERMS AND CONDITIONS\n\n How to Apply These Terms to Your New Programs\n\n If you develop a new program, and you want it to be of the greatest\npossible use to the public, the best way to achieve this is to make it\nfree software which everyone can redistribute and change under these terms.\n\n To do so, attach the following notices to the program. It is safest\nto attach them to the start of each source file to most effectively\nstate the exclusion of warranty; and each file should have at least\nthe \"copyright\" line and a pointer to where the full notice is found.\n\n \n Copyright (C) \n\n This program is free software: you can redistribute it and/or modify\n it under the terms of the GNU General Public License as published by\n the Free Software Foundation, either version 3 of the License, or\n (at your option) any later version.\n\n This program is distributed in the hope that it will be useful,\n but WITHOUT ANY WARRANTY; without even the implied warranty of\n MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n GNU General Public License for more details.\n\n You should have received a copy of the GNU General Public License\n along with this program. If not, see .\n\nAlso add information on how to contact you by electronic and paper mail.\n\n If the program does terminal interaction, make it output a short\nnotice like this when it starts in an interactive mode:\n\n Copyright (C) \n This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.\n This is free software, and you are welcome to redistribute it\n under certain conditions; type `show c' for details.\n\nThe hypothetical commands `show w' and `show c' should show the appropriate\nparts of the General Public License. Of course, your program's commands\nmight be different; for a GUI interface, you would use an \"about box\".\n\n You should also get your employer (if you work as a programmer) or school,\nif any, to sign a \"copyright disclaimer\" for the program, if necessary.\nFor more information on this, and how to apply and follow the GNU GPL, see\n.\n\n The GNU General Public License does not permit incorporating your program\ninto proprietary programs. If your program is a subroutine library, you\nmay consider it more useful to permit linking proprietary applications with\nthe library. If this is what you want to do, use the GNU Lesser General\nPublic License instead of this License. But first, please read\n.\n"}]}},{"FileDel":{"deleted_names":[{"basename":"README-elpa","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2452690,"end":2452725},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2452725},"to":{"change":7,"start":2415877,"end":2415877},"introduced_by":7}],"inode":{"change":7,"pos":2415877}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2415877},"to":{"change":7,"start":2415878,"end":2452689},"introduced_by":7}],"inode":{"change":7,"pos":2415877}},"content":[{"Del":"\t ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━\n\t VERTICO.EL - VERTICAL INTERACTIVE COMPLETION\n\t ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━\n\n\nTable of Contents\n─────────────────\n\n1. Features\n2. Key bindings\n3. Configuration\n.. 1. Completion styles and TAB completion\n.. 2. Completion-at-point and completion-in-region\n4. Extensions\n.. 1. Configure Vertico per command or completion category\n5. Complementary packages\n6. Child frames and Popups\n7. Alternatives\n8. Resources\n9. Contributions\n10. Problematic completion commands\n.. 1. `org-refile'\n.. 2. `org-agenda-filter'\n.. 3. `tmm-menubar'\n.. 4. `ffap-menu'\n.. 5. `completion-table-dynamic'\n.. 6. Submitting the empty string\n.. 7. Tramp hostname completion\n\n\nVertico provides a performant and minimalistic vertical completion UI\nbased on the default completion system. The main focus of Vertico is to\nprovide a UI which behaves /correctly/ under all circumstances. By\nreusing the built-in facilities system, Vertico achieves /full\ncompatibility/ with built-in Emacs completion commands and completion\ntables. Vertico only provides the completion UI but aims to be highly\nflexible, extensible and modular. Additional enhancements are available\nas [extensions] or [complementary packages]. The code base is small and\nmaintainable. The main `vertico.el' package is only about 600 lines of\ncode without white space and comments.\n\nTable of Contents\n─────────────────\n\n1. Features\n2. Key bindings\n3. Configuration\n.. 1. Completion styles and TAB completion\n.. 2. Completion-at-point and completion-in-region\n4. Extensions\n.. 1. Configure Vertico per command or completion category\n5. Complementary packages\n6. Child frames and Popups\n7. Alternatives\n8. Resources\n9. Contributions\n10. Problematic completion commands\n.. 1. `org-refile'\n.. 2. `org-agenda-filter'\n.. 3. `tmm-menubar'\n.. 4. `ffap-menu'\n.. 5. `completion-table-dynamic'\n.. 6. Submitting the empty string\n.. 7. Tramp hostname completion\n\n\n[extensions] See section 4\n\n[complementary packages] See section 5\n\n\n1 Features\n══════════\n\n • Vertical display with arrow key navigation. See the [extensions] for\n additional display modes.\n • Prompt shows the current candidate index and the total number of\n candidates.\n • The current candidate is inserted with `TAB' and selected with\n `RET'.\n • Non-existing candidates can be submitted with `M-RET' or by moving\n the point to the prompt.\n • Configurable sorting by history position, length and alphabetically.\n • Long candidates with newlines are formatted to take up less space.\n • Deferred completion style highlighting for performance.\n • Annotations are displayed next to the candidates (`annotation-' and\n `affixation-function').\n • Support for candidate grouping and group cycling commands\n (`group-function').\n\n \n\n\n[extensions] See section 4\n\n\n2 Key bindings\n══════════════\n\n Vertico defines its own local keymap in the minibuffer which is\n derived from `minibuffer-local-map'. The keymap keeps most of the\n `fundamental-mode' keybindings intact and remaps and binds only a\n handful of commands. Note in particular the binding of `TAB' to\n `vertico-insert' and the bindings of `vertico-exit/exit-input'.\n\n • `beginning-of-buffer', `minibuffer-beginning-of-buffer' ->\n `vertico-first'\n • `end-of-buffer' -> `vertico-last'\n • `scroll-down-command' -> `vertico-scroll-down'\n • `scroll-up-command' -> `vertico-scroll-up'\n • `next-line', `next-line-or-history-element' -> `vertico-next'\n • `previous-line', `previous-line-or-history-element' ->\n `vertico-previous'\n • `forward-paragraph' -> `vertico-next-group'\n • `backward-paragraph' -> `vertico-previous-group'\n • `exit-minibuffer' -> `vertico-exit'\n • `kill-ring-save' -> `vertico-save'\n • `M-RET' -> `vertico-exit-input'\n • `TAB' -> `vertico-insert'\n\n\n3 Configuration\n═══════════════\n\n Vertico is available from [GNU ELPA]. You can install it directly via\n `package-install'. After installation, you can activate the global\n minor mode with `M-x vertico-mode'. In order to configure Vertico and\n other packages in your init.el, you may want to take advantage of\n `use-package'. Here is an example configuration:\n\n ┌────\n │ ;; Enable vertico\n │ (use-package vertico\n │ :init\n │ (vertico-mode)\n │ \n │ ;; Different scroll margin\n │ ;; (setq vertico-scroll-margin 0)\n │ \n │ ;; Show more candidates\n │ ;; (setq vertico-count 20)\n │ \n │ ;; Grow and shrink the Vertico minibuffer\n │ ;; (setq vertico-resize t)\n │ \n │ ;; Optionally enable cycling for `vertico-next' and `vertico-previous'.\n │ ;; (setq vertico-cycle t)\n │ )\n │ \n │ ;; Persist history over Emacs restarts. Vertico sorts by history position.\n │ (use-package savehist\n │ :init\n │ (savehist-mode))\n │ \n │ ;; A few more useful configurations...\n │ (use-package emacs\n │ :init\n │ ;; Add prompt indicator to `completing-read-multiple'.\n │ ;; We display [CRM], e.g., [CRM,] if the separator is a comma.\n │ (defun crm-indicator (args)\n │ (cons (format \"[CRM%s] %s\"\n │ \t\t (replace-regexp-in-string\n │ \t\t \"\\\\`\\\\[.*?]\\\\*\\\\|\\\\[.*?]\\\\*\\\\'\" \"\"\n │ \t\t crm-separator)\n │ \t\t (car args))\n │ \t (cdr args)))\n │ (advice-add #'completing-read-multiple :filter-args #'crm-indicator)\n │ \n │ ;; Do not allow the cursor in the minibuffer prompt\n │ (setq minibuffer-prompt-properties\n │ \t'(read-only t cursor-intangible t face minibuffer-prompt))\n │ (add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)\n │ \n │ ;; Emacs 28: Hide commands in M-x which do not work in the current mode.\n │ ;; Vertico commands are hidden in normal buffers.\n │ ;; (setq read-extended-command-predicate\n │ ;; #'command-completion-default-include-p)\n │ \n │ ;; Enable recursive minibuffers\n │ (setq enable-recursive-minibuffers t))\n └────\n\n I recommend to give Orderless completion a try, which is different\n from the prefix TAB completion used by the basic default completion\n system or in shells.\n\n ┌────\n │ ;; Optionally use the `orderless' completion style.\n │ (use-package orderless\n │ :init\n │ ;; Configure a custom style dispatcher (see the Consult wiki)\n │ ;; (setq orderless-style-dispatchers '(+orderless-dispatch)\n │ ;; orderless-component-separator #'orderless-escapable-split-on-space)\n │ (setq completion-styles '(orderless basic)\n │ \tcompletion-category-defaults nil\n │ \tcompletion-category-overrides '((file (styles partial-completion)))))\n └────\n\n The `basic' completion style is specified as fallback in addition to\n `orderless' in order to ensure that completion commands which rely on\n dynamic completion tables, e.g., `completion-table-dynamic' or\n `completion-table-in-turn', work correctly. See `+orderless-dispatch'\n in the [Consult wiki] for an advanced Orderless style\n dispatcher. Additionally enable `partial-completion' for file path\n expansion. `partial-completion' is important for file wildcard\n support. Multiple files can be opened at once with `find-file' if you\n enter a wildcard. You may also give the `initials' completion style a\n try.\n\n See also the [Vertico Wiki] for additional configuration tips. For\n more general documentation read the chapter about completion in the\n [Emacs manual]. If you want to create your own completion commands,\n you can find documentation about completion in the [Elisp manual].\n\n\n[GNU ELPA] \n\n[Consult wiki] \n\n[Vertico Wiki] \n\n[Emacs manual]\n\n\n[Elisp manual]\n\n\n3.1 Completion styles and TAB completion\n────────────────────────────────────────\n\n The bindings of the `minibuffer-local-completion-map' are not\n available in Vertico by default. This means that TAB works differently\n from what you may expect from the default Emacs completion system.\n\n If you prefer to have the default completion commands a key press away\n you can add new bindings or even replace the Vertico bindings. Then\n the default completion commands behave as usual. For example you can\n use `M-TAB' to cycle between candidates if you have set\n `completion-cycle-threshold'.\n\n ┌────\n │ (define-key vertico-map \"?\" #'minibuffer-completion-help)\n │ (define-key vertico-map (kbd \"M-RET\") #'minibuffer-force-complete-and-exit)\n │ (define-key vertico-map (kbd \"M-TAB\") #'minibuffer-complete)\n └────\n\n The `orderless' completion style does not support completion of a\n common prefix substring, as you may be familiar with from shells or\n the basic default completion system. The reason is that the Orderless\n input string is usually not a prefix. In order to support completing\n prefixes you may want to combine `orderless' with `substring' in your\n `completion-styles' configuration.\n\n ┌────\n │ (setq completion-styles '(substring orderless basic))\n └────\n\n Alternatively you can experiment with the built-in completion-styles,\n e.g., adding `partial-completion' or `flex'. The `partial-completion'\n style is important to add if you want to open multiple files at once\n with `find-file' using wildcards. In order to open multiple files at\n once, you have to move to the prompt and then press `RET'.\n\n ┌────\n │ (setq completion-styles '(basic substring partial-completion flex))\n └────\n\n Because Vertico is fully compatible with Emacs default completion\n system, further customization of completion behavior can be achieved\n by setting the designated Emacs variables. For example, one may wish\n to disable case-sensitivity for file and buffer matching when built-in\n completion styles are used instead of `orderless':\n\n ┌────\n │ (setq read-file-name-completion-ignore-case t\n │ read-buffer-completion-ignore-case t\n │ completion-ignore-case t)\n └────\n\n\n3.2 Completion-at-point and completion-in-region\n────────────────────────────────────────────────\n\n The `completion-at-point' command is usually bound to `M-TAB' or\n `TAB'. In case you want to use Vertico for\n completion-at-point/completion-in-region, you can use the function\n `consult-completion-in-region' provided by the Consult package.\n\n ┌────\n │ ;; Use `consult-completion-in-region' if Vertico is enabled.\n │ ;; Otherwise use the default `completion--in-region' function.\n │ (setq completion-in-region-function\n │ (lambda (&rest args)\n │ \t(apply (if vertico-mode\n │ \t\t #'consult-completion-in-region\n │ \t\t #'completion--in-region)\n │ \t args)))\n └────\n\n The `completion-in-region-function' setting also affects TAB\n completion in the minibuffer when `M-:' (`eval-expression') is used.\n\n You may also want to look into my [Corfu] package, which provides a\n minimal completion system for `completion-in-region' in a child frame\n popup. Corfu is also a narrowly focused package and developed in the\n same spirit as Vertico.\n\n\n[Corfu] \n\n\n4 Extensions\n════════════\n\n We maintain small extension packages to Vertico in this repository in\n the subdirectory [extensions/]. The extensions are installed together\n with Vertico if you pull the package from ELPA. The extensions are\n inactive by default and can be enabled manually if\n desired. Furthermore it is possible to install all of the files\n separately, both `vertico.el' and the `vertico-*.el'\n extensions. Currently the following extensions come with the Vertico\n ELPA package:\n\n • [vertico-buffer]: `vertico-buffer-mode' to display Vertico in a\n separate buffer.\n • [vertico-directory]: Commands for Ido-like directory navigation.\n • [vertico-flat]: `vertico-flat-mode' to enable a flat, horizontal\n display.\n • [vertico-grid]: `vertico-grid-mode' to enable a grid display.\n • [vertico-indexed]: `vertico-indexed-mode' to select indexed\n candidates with prefix arguments.\n • [vertico-mouse]: `vertico-mouse-mode' to support for scrolling and\n candidate selection.\n • [vertico-multiform]: Configure Vertico modes per command or\n completion category.\n • [vertico-quick]: Commands to select using Avy-style quick keys.\n • [vertico-repeat]: The command `vertico-repeat' repeats the last\n completion session.\n • [vertico-reverse]: `vertico-reverse-mode' to reverse the display.\n • [vertico-unobtrusive]: `vertico-unobtrusive-mode' displays only the\n topmost candidate.\n\n See the Commentary of those files for configuration details. With\n these extensions it is possible to adapt Vertico such that it matches\n your preference or behaves similar to other familiar UIs. For example,\n the combination `vertico-flat' plus `vertico-directory' resembles Ido\n in look and feel. For an interface similar to Helm, the extension\n `vertico-buffer' allows you to configure freely where the completion\n buffer opens, instead of growing the minibuffer. Furthermore\n `vertico-buffer' will adjust the number of displayed candidates\n according to the buffer height.\n\n Configuration example for `vertico-directory':\n\n ┌────\n │ ;; Configure directory extension.\n │ (use-package vertico-directory\n │ :after vertico\n │ :ensure nil\n │ ;; More convenient directory navigation commands\n │ :bind (:map vertico-map\n │ \t (\"RET\" . vertico-directory-enter)\n │ \t (\"DEL\" . vertico-directory-delete-char)\n │ \t (\"M-DEL\" . vertico-directory-delete-word))\n │ ;; Tidy shadowed file names\n │ :hook (rfn-eshadow-update-overlay . vertico-directory-tidy))\n └────\n\n\n[extensions/] \n\n[vertico-buffer]\n\n\n[vertico-directory]\n\n\n[vertico-flat]\n\n\n[vertico-grid]\n\n\n[vertico-indexed]\n\n\n[vertico-mouse]\n\n\n[vertico-multiform]\n\n\n[vertico-quick]\n\n\n[vertico-repeat]\n\n\n[vertico-reverse]\n\n\n[vertico-unobtrusive]\n\n\n4.1 Configure Vertico per command or completion category\n────────────────────────────────────────────────────────\n\n \n\n Vertico offers the `vertico-multiform-mode' which allows you to\n configure Vertico per command or per completion category. The\n `vertico-buffer-mode' enables a Helm-like buffer display, which takes\n more space but also displays more candidates. This verbose display\n mode is useful for commands like `consult-imenu' or `consult-outline'\n since the buffer display allows you to get a better overview over the\n entire current buffer. But for other commands you want to keep using\n the default Vertico display. `vertico-multiform-mode' solves this\n configuration problem!\n\n ┌────\n │ ;; Enable vertico-multiform\n │ (vertico-multiform-mode)\n │ \n │ ;; Configure the display per command.\n │ ;; Use a buffer with indices for imenu\n │ ;; and a flat (Ido-like) menu for M-x.\n │ (setq vertico-multiform-commands\n │ '((consult-imenu buffer indexed)\n │ \t(execute-extended-command unobtrusive)))\n │ \n │ ;; Configure the display per completion category.\n │ ;; Use the grid display for files and a buffer\n │ ;; for the consult-grep commands.\n │ (setq vertico-multiform-categories\n │ '((file grid)\n │ \t(consult-grep buffer)))\n └────\n\n Temporary toggling between the different display modes is\n possible. Bind the following commands:\n\n ┌────\n │ (define-key vertico-map \"\\M-V\" #'vertico-multiform-vertical)\n │ (define-key vertico-map \"\\M-G\" #'vertico-multiform-grid)\n │ (define-key vertico-map \"\\M-F\" #'vertico-multiform-flat)\n │ (define-key vertico-map \"\\M-R\" #'vertico-multiform-reverse)\n │ (define-key vertico-map \"\\M-U\" #'vertico-multiform-unobtrusive)\n └────\n\n You can use your own functions or even lambdas to configure the\n completion behavior per command or per completion category. The\n function must have the calling convention of a mode, i.e., it takes a\n single argument, which is either 1 to turn on the mode and -1 to turn\n off the mode.\n\n ┌────\n │ ;; Configure `consult-outline' as a scaled down TOC in a separate buffer\n │ (setq vertico-multiform-commands\n │ `((consult-outline buffer ,(lambda (_) (text-scale-set -1)))))\n └────\n\n Furthermore you can tune buffer-local settings per command or\n category.\n\n ┌────\n │ ;; Change the default sorting function.\n │ ;; See `vertico-sort-function' and `vertico-sort-override-function'.\n │ (setq vertico-multiform-commands\n │ '((describe-symbol (vertico-sort-function . vertico-sort-alpha))))\n │ \n │ (setq vertico-multiform-categories\n │ '((symbol (vertico-sort-function . vertico-sort-alpha))\n │ \t(file (vertico-sort-function . sort-directories-first))))\n │ \n │ ;; Sort directories before files\n │ (defun sort-directories-first (files)\n │ (setq files (vertico-sort-history-length-alpha files))\n │ (nconc (seq-filter (lambda (x) (string-suffix-p \"/\" x)) files)\n │ \t (seq-remove (lambda (x) (string-suffix-p \"/\" x)) files)))\n └────\n\n Combining these features allows us to fine-tune the completion display\n even more by adjusting the `vertico-buffer-display-action'. We can for\n example reuse the current window for commands of the `consult-grep'\n category (`consult-grep', `consult-git-grep' and\n `consult-ripgrep'). Note that this configuration is incompatible with\n Consult preview, since the previewed buffer is usually shown in\n exactly this window. Nevertheless this snippet demonstrates the\n flexibility of the configuration system.\n\n ┌────\n │ ;; Configure the buffer display and the buffer display action\n │ (setq vertico-multiform-categories\n │ '((consult-grep\n │ \t buffer\n │ \t (vertico-buffer-display-action . (display-buffer-same-window)))))\n │ \n │ ;; Disable preview for consult-grep commands\n │ (consult-customize consult-ripgrep consult-git-grep consult-grep :preview-key nil)\n └────\n\n As another example, the following code uses `vertico-flat' and\n `vertico-cycle' to emulate `(ido-mode 'buffer)', i.e., Ido when it is\n enabled only for completion of buffer names. `vertico-cycle' set to\n `t' is necessary here to prevent completion candidates from\n disappearing when they scroll off-screen to the left.\n\n ┌────\n │ (setq vertico-multiform-categories\n │ '((buffer flat (vertico-cycle . t))))\n └────\n\n\n5 Complementary packages\n════════════════════════\n\n Vertico integrates well with complementary packages, which enrich the\n completion UI. These packages are fully supported:\n\n • [Marginalia]: Rich annotations in the minibuffer\n • [Consult]: Useful search and navigation commands\n • [Embark]: Minibuffer actions and context menu\n • [Orderless]: Advanced completion style\n\n In order to get accustomed with the package ecosystem, I recommend the\n following quick start approach:\n\n 1. Start with plain Emacs (`emacs -Q').\n 2. Install and enable Vertico to get incremental minibuffer\n completion.\n 3. Install Orderless and/or configure the built-in completion styles\n for more flexible minibuffer filtering.\n 4. Install Marginalia if you like rich minibuffer annotations.\n 5. Install Embark and add two keybindings for `embark-dwim' and\n `embark-act'. I am using the mnemonic keybindings `M-.' and `C-.'\n since these commands allow you to act on the object at point or in\n the minibuffer.\n 6. Install Consult if you want additional featureful completion\n commands, e.g., the buffer switcher `consult-buffer' with preview\n or the line-based search `consult-line'.\n 7. Install Embark-Consult and Wgrep for export from `consult-line' to\n `occur-mode' buffers and from `consult-grep' to editable\n `grep-mode' buffers.\n 8. Fine tune Vertico with [extensions].\n\n The ecosystem is modular. You don't have to use all of these\n components. Use only the ones you like and the ones which fit well\n into your setup. The steps 1. to 4. introduce no new commands over\n plain Emacs. Step 5. introduces the new commands `embark-act' and\n `embark-dwim'. In step 6. you get the Consult commands, some offer new\n functionality not present in Emacs already (e.g., `consult-line') and\n some are substitutes (e.g., `consult-buffer' for `switch-to-buffer').\n\n\n[Marginalia] \n\n[Consult] \n\n[Embark] \n\n[Orderless] \n\n[extensions] See section 4\n\n\n6 Child frames and Popups\n═════════════════════════\n\n An often requested feature is the ability to display the completions\n in a child frame popup. Personally I am critical of using child frames\n for minibuffer completion. From my experience it introduces more\n problems than it solves. Most importantly child frames hide the\n content of the underlying buffer. Furthermore child frames do not play\n well together with changing windows and entering recursive minibuffer\n sessions. On top, child frames can feel slow and sometimes flicker. A\n better alternative is the `vertico-buffer' display which can even be\n configured individually per command using `vertico-multiform'. On the\n plus side of child frames, the completion display appears at the\n center of the screen, where your eyes are focused. Please give the\n following packages a try and judge for yourself.\n\n • [mini-frame]: Display the entire minibuffer in a child frame.\n • [mini-popup]: Slightly simpler alternative to mini-frame.\n • [vertico-posframe]: Display only the Vertico minibuffer in a child\n frame using the posframe library.\n\n\n[mini-frame] \n\n[mini-popup] \n\n[vertico-posframe] \n\n\n7 Alternatives\n══════════════\n\n There are many alternative completion UIs, each UI with its own\n advantages and disadvantages.\n\n Vertico aims to be 100% compliant with all Emacs commands and achieves\n that with a minimal code base, relying purely on `completing-read'\n while avoiding to invent its own APIs. Inventing a custom API as Helm\n or Ivy is explicitly avoided in order to increase flexibility and\n package reuse. Due to its small code base and reuse of the Emacs\n built-in facilities, bugs and compatibility issues are less likely to\n occur in comparison to completion UIs or monolithic completion\n systems.\n\n Since Vertico only provides the UI, you may want to combine it with\n some of the complementary packages, to give a full-featured completion\n experience similar to Helm or Ivy. The idea is to have smaller\n independent components, which one can add and understand step by\n step. Each component focuses on its niche and tries to be as\n non-intrusive as possible. Vertico targets users interested in\n crafting their Emacs precisely to their liking - completion plays an\n integral part in how the users interacts with Emacs.\n\n There are other interactive completion UIs, which follow a similar\n philosophy:\n\n • [Mct]: Minibuffer and Completions in Tandem. Mct reuses the default\n `*Completions*' buffer and enhances it with automatic updates and\n additional keybindings, to select a candidate and move between\n minibuffer and completions buffer. Since Mct uses a fully functional\n buffer you can use familiar buffer commands inside the completions\n buffer. The main distinction to Vertico's approach is that\n `*Completions*' buffer displays all matching candidates. This has\n the advantage that you can interact freely with the candidates and\n jump around with Isearch or Avy. On the other hand it necessarily\n causes a slowdown. Mct supports completion in region via its\n `mct-region-mode'. Note that Mct development is currently\n [discontinued] due to recent changes of the default completion UI on\n the Emacs master branch.\n • [Selectrum]: Selectrum is the predecessor of Vertico, since it\n directly inspired Vertico. Vertico was designed specifically to\n address the technical shortcomings of Selectrum. Selectrum is not\n fully compatible with every Emacs completion command and dynamic\n completion tables ([selectrum#481]), since it uses its own filtering\n infrastructure, which deviates from the standard Emacs completion\n facilities. Therefore Selectrum is getting deprecated in favor of\n Vertico ([vertico#237], [selectrum#598)]. Furthermore, Vertico was\n designed with flexibility in mind via its [extensions]. See the\n [migration guide] if you plan to migrate from Selectrum to Vertico.\n • Icomplete: Emacs 28 comes with a builtin `icomplete-vertical-mode',\n which is a more bare-bone than Vertico. Vertico offers more\n flexibility thanks to its [extensions].\n\n\n[Mct] \n\n[discontinued]\n\n\n[Selectrum] \n\n[selectrum#481]\n\n\n[vertico#237] \n\n[selectrum#598)]\n\n\n[extensions] See section 4\n\n[migration guide]\n\n\n\n8 Resources\n═══════════\n\n If you want to learn more about Vertico and minibuffer completion,\n check out the following resources:\n\n • [Doom Emacs Vertico Module]: Vertico is Doom's default completion\n system.\n • [Crafted Emacs Completion Module]: Vertico and Corfu are used for\n completion.\n • [Prot's Emacs configuration]: Vertico and Corfu are used for\n completion.\n • [Emacs Completion Explained] (2022-07-19) by Andrew Tropin.\n • [Emacs Minibuffer Completions] (2022-02-12) by Greg Yut.\n • [Vertico Extensions for Emacs] (2022-01-08) by Karthik Chikmagalur.\n • [Using Emacs Episode 80 - Vertico, Marginalia, Consult and Embark]\n (2021-10-26) by Mike Zamansky.\n • [System Crafters Live! - Replacing Ivy and Counsel with Vertico and\n Consult] (2021-05-21) by David Wilson.\n • [Streamline Your Emacs Completions with Vertico] (2021-05-17) by\n David Wilson.\n\n\n[Doom Emacs Vertico Module]\n\n\n[Crafted Emacs Completion Module]\n\n\n[Prot's Emacs configuration]\n\n\n[Emacs Completion Explained]\n\n\n[Emacs Minibuffer Completions]\n\n\n[Vertico Extensions for Emacs]\n\n\n[Using Emacs Episode 80 - Vertico, Marginalia, Consult and Embark]\n\n\n[System Crafters Live! - Replacing Ivy and Counsel with Vertico and\nConsult] \n\n[Streamline Your Emacs Completions with Vertico]\n\n\n\n9 Contributions\n═══════════════\n\n Since this package is part of [GNU ELPA] contributions require a\n copyright assignment to the FSF.\n\n\n[GNU ELPA] \n\n\n10 Problematic completion commands\n══════════════════════════════════\n\n Vertico is robust in most scenarios. However some completion commands\n make certain assumptions about the completion styles and the\n completion UI. Some of these assumptions may not hold in Vertico or\n other UIs and require minor workarounds.\n\n\n10.1 `org-refile'\n─────────────────\n\n `org-refile' uses `org-olpath-completing-read' to complete the outline\n path in steps, when `org-refile-use-outline-path' is non-nil.\n\n Unfortunately the implementation of this Org completion table assumes\n that the `basic' completion style is used. The table is incompatible\n with completion styles like `substring', `flex' or `orderless'. In\n order to fix the issue at the root, the completion table should make\n use of completion boundaries similar to the built-in file completion\n table. In your user configuration you can prioritize `basic' before\n `orderless'.\n\n ┌────\n │ ;; Alternative 1: Use the basic completion style\n │ (setq org-refile-use-outline-path 'file\n │ org-outline-path-complete-in-steps t)\n │ (advice-add #'org-olpath-completing-read :around\n │ \t (lambda (&rest args)\n │ \t (minibuffer-with-setup-hook\n │ \t\t (lambda () (setq-local completion-styles '(basic)))\n │ \t\t(apply args))))\n └────\n\n Alternatively you may want to disable the outline path completion in\n steps. The completion on the full path can be quicker since the input\n string matches directly against substrings of the full path, which is\n useful with Orderless. However the list of possible completions\n becomes much more cluttered.\n\n ┌────\n │ ;; Alternative 2: Complete full paths\n │ (setq org-refile-use-outline-path 'file\n │ org-outline-path-complete-in-steps nil)\n └────\n\n\n10.2 `org-agenda-filter'\n────────────────────────\n\n Similar to `org-refile', the `org-agenda-filter' completion function\n (`org-agenda-filter-completion-function') does not make use of\n completion boundaries. Unfortunately `TAB' completion\n (`minibuffer-complete') does not work for this reason. This affects\n Vertico and also the Emacs default completion system. For example if\n you enter `+tag<0 TAB' the input is replaced with `0:10' which is not\n correct. With preserved completion boundaries, the expected result\n would be `+tag<0:10'.\n\n\n10.3 `tmm-menubar'\n──────────────────\n\n The text menu bar works well with Vertico but always shows a\n `*Completions*' buffer, which is unwanted if you use the Vertico\n UI. This completion buffer can be disabled with an advice. If you\n disabled the standard GUI menu bar and prefer the Vertico interface\n you may also overwrite the default F10 keybinding.\n\n ┌────\n │ (global-set-key [f10] #'tmm-menubar)\n │ (advice-add #'tmm-add-prompt :after #'minibuffer-hide-completions)\n └────\n\n\n10.4 `ffap-menu'\n────────────────\n\n The command `ffap-menu' shows the `*Completions*' buffer by default\n like `tmm-menubar', which is unnecessary with Vertico. This completion\n buffer can be disabled as follows.\n\n ┌────\n │ (advice-add #'ffap-menu-ask :around (lambda (&rest args)\n │ \t\t\t\t (cl-letf (((symbol-function #'minibuffer-completion-help)\n │ \t\t\t\t\t #'ignore))\n │ \t\t\t\t (apply args))))\n └────\n\n\n10.5 `completion-table-dynamic'\n───────────────────────────────\n\n Dynamic completion tables (`completion-table-dynamic',\n `completion-table-in-turn', etc.) should work well with\n Vertico. However the requirement is that the `basic' completion style\n is enabled. The `basic' style performs prefix filtering by passing the\n input to the completion table (or the dynamic completion table\n function). The `basic' completion style must not necessarily be\n configured with highest priority, it can also come after other\n completion styles like `orderless', `substring' or `flex'.\n\n ┌────\n │ (setq completion-styles '(basic))\n │ ;; (setq completion-styles '(orderless basic))\n │ (completing-read \"Dynamic: \"\n │ \t\t (completion-table-dynamic\n │ \t\t (lambda (str)\n │ \t\t (list (concat str \"1\")\n │ \t\t\t (concat str \"2\")\n │ \t\t\t (concat str \"3\")))))\n └────\n\n\n10.6 Submitting the empty string\n────────────────────────────────\n\n The commands `multi-occur', `auto-insert', `bbdb-create' read multiple\n arguments from the minibuffer with `completing-read', one at a time,\n until you submit an empty string. You should type `M-RET'\n (`vertico-exit-input') to finish the loop. Directly pressing `RET'\n (`vertico-exit') does not work since the first candidate is\n preselected.\n\n The underlying issue is that `completing-read' always allows you to\n exit with the empty string, which is called the /null completion/,\n even if the `REQUIRE-MATCH' argument is non-nil. Try the following two\n calls to `completing-read' with `C-x C-e':\n\n ┌────\n │ (completing-read \"Select: \" '(\"first\" \"second\" \"third\") nil 'require-match)\n │ (completing-read \"Select: \" '(\"first\" \"second\" \"third\") nil 'require-match nil nil \"\")\n └────\n\n In both cases the empty string can be submitted. In the first case no\n explicit default value is specified and Vertico preselects the *first*\n candidate. In order to exit with the empty string, press `M-RET'. In\n the second case the explicit default value \"\" is specified and Vertico\n preselects the prompt, such that exiting with the empty string is\n possible by pressing `RET' only.\n\n\n10.7 Tramp hostname completion\n──────────────────────────────\n\n In combination with Orderless, hostnames are not made available for\n completion after entering `/ssh:'. In order to avoid this problem, the\n `basic' completion style should be specified for the file completion\n category, such that `basic' is tried before `orderless'.\n\n ┌────\n │ (setq completion-styles '(orderless basic)\n │ completion-category-overrides '((file (styles basic partial-completion))))\n └────\n\n For users who are familiar with the `completion-style' machinery: You\n may also define a custom completion style which sets in only for\n remote files!\n\n ┌────\n │ (defun basic-remote-try-completion (string table pred point)\n │ (and (vertico--remote-p string)\n │ (completion-basic-try-completion string table pred point)))\n │ (defun basic-remote-all-completions (string table pred point)\n │ (and (vertico--remote-p string)\n │ (completion-basic-all-completions string table pred point)))\n │ (add-to-list\n │ 'completion-styles-alist\n │ '(basic-remote basic-remote-try-completion basic-remote-all-completions nil))\n │ (setq completion-styles '(orderless basic)\n │ completion-category-overrides '((file (styles basic-remote partial-completion))))\n └────\n"}]}},{"FileDel":{"deleted_names":[{"basename":"README.org","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2415841,"end":2415875},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2415875},"to":{"change":7,"start":2383231,"end":2383231},"introduced_by":7}],"inode":{"change":7,"pos":2383231}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2383231},"to":{"change":7,"start":2383232,"end":2415840},"introduced_by":7}],"inode":{"change":7,"pos":2383231}},"content":[{"Del":"#+title: vertico.el - VERTical Interactive COmpletion\n#+author: Daniel Mendler\n#+language: en\n#+export_file_name: vertico.texi\n#+texinfo_dir_category: Emacs misc features\n#+texinfo_dir_title: Vertico: (vertico).\n#+texinfo_dir_desc: VERTical Interactive COmpletion.\n\n#+html: $\"GNU$ \n#+html: $\"GNU$ \n#+html: $\"GNU-devel$ \n#+html:

\n\nVertico provides a performant and minimalistic vertical completion UI based on\nthe default completion system. The main focus of Vertico is to provide a UI\nwhich behaves /correctly/ under all circumstances. By reusing the built-in\nfacilities system, Vertico achieves /full compatibility/ with built-in Emacs\ncompletion commands and completion tables. Vertico only provides the completion\nUI but aims to be highly flexible, extensible and modular. Additional\nenhancements are available as [[#extensions][extensions]] or [[#complementary-packages][complementary packages]]. The code\nbase is small and maintainable. The main ~vertico.el~ package is only about 600\nlines of code without white space and comments.\n\n#+toc: headlines 8\n\n* Features\n\n- Vertical display with arrow key navigation. See the [[#extensions][extensions]] for additional display modes.\n- Prompt shows the current candidate index and the total number of candidates.\n- The current candidate is inserted with =TAB= and selected with =RET=.\n- Non-existing candidates can be submitted with =M-RET= or by moving the point to the prompt.\n- Configurable sorting by history position, length and alphabetically.\n- Long candidates with newlines are formatted to take up less space.\n- Deferred completion style highlighting for performance.\n- Annotations are displayed next to the candidates (~annotation-~ and ~affixation-function~).\n- Support for candidate grouping and group cycling commands (~group-function~).\n\n[[https://github.com/minad/vertico/blob/screenshots/vertico-mx.png?raw=true]]\n\n* Key bindings\n\nVertico defines its own local keymap in the minibuffer which is derived from\n~minibuffer-local-map~. The keymap keeps most of the ~fundamental-mode~ keybindings\nintact and remaps and binds only a handful of commands. Note in particular the\nbinding of =TAB= to ~vertico-insert~ and the bindings of ~vertico-exit/exit-input~.\n\n- ~beginning-of-buffer~, ~minibuffer-beginning-of-buffer~ -> ~vertico-first~\n- ~end-of-buffer~ -> ~vertico-last~\n- ~scroll-down-command~ -> ~vertico-scroll-down~\n- ~scroll-up-command~ -> ~vertico-scroll-up~\n- ~next-line~, ~next-line-or-history-element~ -> ~vertico-next~\n- ~previous-line~, ~previous-line-or-history-element~ -> ~vertico-previous~\n- ~forward-paragraph~ -> ~vertico-next-group~\n- ~backward-paragraph~ -> ~vertico-previous-group~\n- ~exit-minibuffer~ -> ~vertico-exit~\n- ~kill-ring-save~ -> ~vertico-save~\n- =M-RET= -> ~vertico-exit-input~\n- =TAB= -> ~vertico-insert~\n\n* Configuration\n\nVertico is available from [[https://elpa.gnu.org/packages/vertico.html][GNU ELPA]]. You can install it directly via\n~package-install~. After installation, you can activate the global minor mode with\n=M-x vertico-mode=. In order to configure Vertico and other packages in your\ninit.el, you may want to take advantage of ~use-package~. Here is an example\nconfiguration:\n\n#+begin_src emacs-lisp\n ;; Enable vertico\n (use-package vertico\n :init\n (vertico-mode)\n\n ;; Different scroll margin\n ;; (setq vertico-scroll-margin 0)\n\n ;; Show more candidates\n ;; (setq vertico-count 20)\n\n ;; Grow and shrink the Vertico minibuffer\n ;; (setq vertico-resize t)\n\n ;; Optionally enable cycling for `vertico-next' and `vertico-previous'.\n ;; (setq vertico-cycle t)\n )\n\n ;; Persist history over Emacs restarts. Vertico sorts by history position.\n (use-package savehist\n :init\n (savehist-mode))\n\n ;; A few more useful configurations...\n (use-package emacs\n :init\n ;; Add prompt indicator to `completing-read-multiple'.\n ;; We display [CRM], e.g., [CRM,] if the separator is a comma.\n (defun crm-indicator (args)\n (cons (format \"[CRM%s] %s\"\n (replace-regexp-in-string\n \"\\\\`\\\\[.*?]\\\\*\\\\|\\\\[.*?]\\\\*\\\\'\" \"\"\n crm-separator)\n (car args))\n (cdr args)))\n (advice-add #'completing-read-multiple :filter-args #'crm-indicator)\n\n ;; Do not allow the cursor in the minibuffer prompt\n (setq minibuffer-prompt-properties\n '(read-only t cursor-intangible t face minibuffer-prompt))\n (add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)\n\n ;; Emacs 28: Hide commands in M-x which do not work in the current mode.\n ;; Vertico commands are hidden in normal buffers.\n ;; (setq read-extended-command-predicate\n ;; #'command-completion-default-include-p)\n\n ;; Enable recursive minibuffers\n (setq enable-recursive-minibuffers t))\n#+end_src\n\nI recommend to give Orderless completion a try, which is different from the\nprefix TAB completion used by the basic default completion system or in shells.\n\n#+begin_src emacs-lisp\n ;; Optionally use the `orderless' completion style.\n (use-package orderless\n :init\n ;; Configure a custom style dispatcher (see the Consult wiki)\n ;; (setq orderless-style-dispatchers '(+orderless-dispatch)\n ;; orderless-component-separator #'orderless-escapable-split-on-space)\n (setq completion-styles '(orderless basic)\n completion-category-defaults nil\n completion-category-overrides '((file (styles partial-completion)))))\n#+end_src\n\nThe =basic= completion style is specified as fallback in addition to =orderless= in\norder to ensure that completion commands which rely on dynamic completion\ntables, e.g., ~completion-table-dynamic~ or ~completion-table-in-turn~, work\ncorrectly. See =+orderless-dispatch= in the [[https://github.com/minad/consult/wiki][Consult wiki]] for an advanced Orderless\nstyle dispatcher. Additionally enable =partial-completion= for file path\nexpansion. =partial-completion= is important for file wildcard support. Multiple\nfiles can be opened at once with =find-file= if you enter a wildcard. You may also\ngive the =initials= completion style a try.\n\nSee also the [[https://github.com/minad/vertico/wiki][Vertico Wiki]] for additional configuration tips. For more general\ndocumentation read the chapter about completion in the [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Completion.html][Emacs manual]]. If you want\nto create your own completion commands, you can find documentation about\ncompletion in the [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Completion.html][Elisp manual]].\n\n** Completion styles and TAB completion\n\nThe bindings of the ~minibuffer-local-completion-map~ are not available in Vertico\nby default. This means that TAB works differently from what you may expect from\nthe default Emacs completion system.\n\nIf you prefer to have the default completion commands a key press away you can\nadd new bindings or even replace the Vertico bindings. Then the default\ncompletion commands behave as usual. For example you can use =M-TAB= to cycle\nbetween candidates if you have set ~completion-cycle-threshold~.\n\n#+begin_src emacs-lisp\n (define-key vertico-map \"?\" #'minibuffer-completion-help)\n (define-key vertico-map (kbd \"M-RET\") #'minibuffer-force-complete-and-exit)\n (define-key vertico-map (kbd \"M-TAB\") #'minibuffer-complete)\n#+end_src\n\nThe ~orderless~ completion style does not support completion of a common prefix\nsubstring, as you may be familiar with from shells or the basic default\ncompletion system. The reason is that the Orderless input string is usually not\na prefix. In order to support completing prefixes you may want to combine\n~orderless~ with ~substring~ in your =completion-styles= configuration.\n\n#+begin_src emacs-lisp\n (setq completion-styles '(substring orderless basic))\n#+end_src\n\nAlternatively you can experiment with the built-in completion-styles, e.g.,\nadding =partial-completion= or =flex=. The =partial-completion= style is important to\nadd if you want to open multiple files at once with ~find-file~ using wildcards.\nIn order to open multiple files at once, you have to move to the prompt and then\npress =RET=.\n\n#+begin_src emacs-lisp\n (setq completion-styles '(basic substring partial-completion flex))\n#+end_src\n\nBecause Vertico is fully compatible with Emacs default completion system,\nfurther customization of completion behavior can be achieved by setting the\ndesignated Emacs variables. For example, one may wish to disable\ncase-sensitivity for file and buffer matching when built-in completion styles\nare used instead of ~orderless~:\n\n#+begin_src emacs-lisp\n (setq read-file-name-completion-ignore-case t\n read-buffer-completion-ignore-case t\n completion-ignore-case t)\n#+end_src\n\n** Completion-at-point and completion-in-region\n\nThe =completion-at-point= command is usually bound to =M-TAB= or =TAB=. In case you\nwant to use Vertico for completion-at-point/completion-in-region, you can use\nthe function ~consult-completion-in-region~ provided by the Consult package.\n\n#+begin_src emacs-lisp\n ;; Use `consult-completion-in-region' if Vertico is enabled.\n ;; Otherwise use the default `completion--in-region' function.\n (setq completion-in-region-function\n (lambda (&rest args)\n (apply (if vertico-mode\n #'consult-completion-in-region\n #'completion--in-region)\n args)))\n#+end_src\n\nThe =completion-in-region-function= setting also affects TAB completion in the\nminibuffer when =M-:= (~eval-expression~) is used.\n\nYou may also want to look into my [[https://github.com/minad/corfu][Corfu]] package, which provides a minimal\ncompletion system for =completion-in-region= in a child frame popup. Corfu is also\na narrowly focused package and developed in the same spirit as Vertico.\n\n* Extensions\n:properties:\n:custom_id: extensions\n:end:\n\nWe maintain small extension packages to Vertico in this repository in the\nsubdirectory [[https://github.com/minad/vertico/tree/main/extensions][extensions/]]. The extensions are installed together with Vertico if\nyou pull the package from ELPA. The extensions are inactive by default and can\nbe enabled manually if desired. Furthermore it is possible to install all of the\nfiles separately, both ~vertico.el~ and the ~vertico-*.el~ extensions. Currently the\nfollowing extensions come with the Vertico ELPA package:\n\n- [[https://github.com/minad/vertico/blob/main/extensions/vertico-buffer.el][vertico-buffer]]: =vertico-buffer-mode= to display Vertico in a separate buffer.\n- [[https://github.com/minad/vertico/blob/main/extensions/vertico-directory.el][vertico-directory]]: Commands for Ido-like directory navigation.\n- [[https://github.com/minad/vertico/blob/main/extensions/vertico-flat.el][vertico-flat]]: =vertico-flat-mode= to enable a flat, horizontal display.\n- [[https://github.com/minad/vertico/blob/main/extensions/vertico-grid.el][vertico-grid]]: =vertico-grid-mode= to enable a grid display.\n- [[https://github.com/minad/vertico/blob/main/extensions/vertico-indexed.el][vertico-indexed]]: =vertico-indexed-mode= to select indexed candidates with prefix arguments.\n- [[https://github.com/minad/vertico/blob/main/extensions/vertico-mouse.el][vertico-mouse]]: =vertico-mouse-mode= to support for scrolling and candidate selection.\n- [[https://github.com/minad/vertico/blob/main/extensions/vertico-multiform.el][vertico-multiform]]: Configure Vertico modes per command or completion category.\n- [[https://github.com/minad/vertico/blob/main/extensions/vertico-quick.el][vertico-quick]]: Commands to select using Avy-style quick keys.\n- [[https://github.com/minad/vertico/blob/main/extensions/vertico-repeat.el][vertico-repeat]]: The command =vertico-repeat= repeats the last completion session.\n- [[https://github.com/minad/vertico/blob/main/extensions/vertico-reverse.el][vertico-reverse]]: =vertico-reverse-mode= to reverse the display.\n- [[https://github.com/minad/vertico/blob/main/extensions/vertico-unobtrusive.el][vertico-unobtrusive]]: =vertico-unobtrusive-mode= displays only the topmost candidate.\n\nSee the Commentary of those files for configuration details. With these\nextensions it is possible to adapt Vertico such that it matches your preference\nor behaves similar to other familiar UIs. For example, the combination\n=vertico-flat= plus =vertico-directory= resembles Ido in look and feel. For an\ninterface similar to Helm, the extension =vertico-buffer= allows you to configure\nfreely where the completion buffer opens, instead of growing the minibuffer.\nFurthermore =vertico-buffer= will adjust the number of displayed candidates\naccording to the buffer height.\n\nConfiguration example for =vertico-directory=:\n\n#+begin_src emacs-lisp\n ;; Configure directory extension.\n (use-package vertico-directory\n :after vertico\n :ensure nil\n ;; More convenient directory navigation commands\n :bind (:map vertico-map\n (\"RET\" . vertico-directory-enter)\n (\"DEL\" . vertico-directory-delete-char)\n (\"M-DEL\" . vertico-directory-delete-word))\n ;; Tidy shadowed file names\n :hook (rfn-eshadow-update-overlay . vertico-directory-tidy))\n#+end_src\n\n** Configure Vertico per command or completion category\n\n[[https://github.com/minad/vertico/blob/screenshots/vertico-ripgrep.png?raw=true]]\n\nVertico offers the =vertico-multiform-mode= which allows you to configure Vertico\nper command or per completion category. The =vertico-buffer-mode= enables a\nHelm-like buffer display, which takes more space but also displays more\ncandidates. This verbose display mode is useful for commands like ~consult-imenu~\nor ~consult-outline~ since the buffer display allows you to get a better overview\nover the entire current buffer. But for other commands you want to keep using\nthe default Vertico display. ~vertico-multiform-mode~ solves this configuration\nproblem!\n\n#+begin_src emacs-lisp\n ;; Enable vertico-multiform\n (vertico-multiform-mode)\n\n ;; Configure the display per command.\n ;; Use a buffer with indices for imenu\n ;; and a flat (Ido-like) menu for M-x.\n (setq vertico-multiform-commands\n '((consult-imenu buffer indexed)\n (execute-extended-command unobtrusive)))\n\n ;; Configure the display per completion category.\n ;; Use the grid display for files and a buffer\n ;; for the consult-grep commands.\n (setq vertico-multiform-categories\n '((file grid)\n (consult-grep buffer)))\n#+end_src\n\nTemporary toggling between the different display modes is possible. Bind the\nfollowing commands:\n\n#+begin_src emacs-lisp\n (define-key vertico-map \"\\M-V\" #'vertico-multiform-vertical)\n (define-key vertico-map \"\\M-G\" #'vertico-multiform-grid)\n (define-key vertico-map \"\\M-F\" #'vertico-multiform-flat)\n (define-key vertico-map \"\\M-R\" #'vertico-multiform-reverse)\n (define-key vertico-map \"\\M-U\" #'vertico-multiform-unobtrusive)\n#+end_src\n\nYou can use your own functions or even lambdas to configure the completion\nbehavior per command or per completion category. The function must have the\ncalling convention of a mode, i.e., it takes a single argument, which is either\n1 to turn on the mode and -1 to turn off the mode.\n\n#+begin_src emacs-lisp\n ;; Configure `consult-outline' as a scaled down TOC in a separate buffer\n (setq vertico-multiform-commands\n `((consult-outline buffer ,(lambda (_) (text-scale-set -1)))))\n#+end_src\n\nFurthermore you can tune buffer-local settings per command or category.\n\n#+begin_src emacs-lisp\n ;; Change the default sorting function.\n ;; See `vertico-sort-function' and `vertico-sort-override-function'.\n (setq vertico-multiform-commands\n '((describe-symbol (vertico-sort-function . vertico-sort-alpha))))\n\n (setq vertico-multiform-categories\n '((symbol (vertico-sort-function . vertico-sort-alpha))\n (file (vertico-sort-function . sort-directories-first))))\n\n ;; Sort directories before files\n (defun sort-directories-first (files)\n (setq files (vertico-sort-history-length-alpha files))\n (nconc (seq-filter (lambda (x) (string-suffix-p \"/\" x)) files)\n (seq-remove (lambda (x) (string-suffix-p \"/\" x)) files)))\n#+end_src\n\nCombining these features allows us to fine-tune the completion display even more\nby adjusting the ~vertico-buffer-display-action~. We can for example reuse the\ncurrent window for commands of the ~consult-grep~ category (~consult-grep~,\n~consult-git-grep~ and ~consult-ripgrep~). Note that this configuration is\nincompatible with Consult preview, since the previewed buffer is usually shown\nin exactly this window. Nevertheless this snippet demonstrates the flexibility\nof the configuration system.\n\n#+begin_src emacs-lisp\n ;; Configure the buffer display and the buffer display action\n (setq vertico-multiform-categories\n '((consult-grep\n buffer\n (vertico-buffer-display-action . (display-buffer-same-window)))))\n\n ;; Disable preview for consult-grep commands\n (consult-customize consult-ripgrep consult-git-grep consult-grep :preview-key nil)\n#+end_src\n\nAs another example, the following code uses ~vertico-flat~ and ~vertico-cycle~ to\nemulate ~(ido-mode 'buffer)~, i.e., Ido when it is enabled only for completion of\nbuffer names. ~vertico-cycle~ set to ~t~ is necessary here to prevent completion\ncandidates from disappearing when they scroll off-screen to the left.\n\n#+begin_src emacs-lisp\n (setq vertico-multiform-categories\n '((buffer flat (vertico-cycle . t))))\n#+end_src\n\n* Complementary packages\n:properties:\n:custom_id: complementary-packages\n:end:\n\nVertico integrates well with complementary packages, which enrich the completion\nUI. These packages are fully supported:\n\n- [[https://github.com/minad/marginalia][Marginalia]]: Rich annotations in the minibuffer\n- [[https://github.com/minad/consult][Consult]]: Useful search and navigation commands\n- [[https://github.com/oantolin/embark][Embark]]: Minibuffer actions and context menu\n- [[https://github.com/oantolin/orderless][Orderless]]: Advanced completion style\n\nIn order to get accustomed with the package ecosystem, I recommend the following\nquick start approach:\n\n1. Start with plain Emacs (~emacs -Q~).\n2. Install and enable Vertico to get incremental minibuffer completion.\n3. Install Orderless and/or configure the built-in completion styles\n for more flexible minibuffer filtering.\n4. Install Marginalia if you like rich minibuffer annotations.\n5. Install Embark and add two keybindings for ~embark-dwim~ and ~embark-act~.\n I am using the mnemonic keybindings =M-.= and =C-.= since these commands allow\n you to act on the object at point or in the minibuffer.\n6. Install Consult if you want additional featureful completion commands,\n e.g., the buffer switcher ~consult-buffer~ with preview or the line-based\n search ~consult-line~.\n7. Install Embark-Consult and Wgrep for export from =consult-line= to =occur-mode=\n buffers and from =consult-grep= to editable =grep-mode= buffers.\n8. Fine tune Vertico with [[#extensions][extensions]].\n\nThe ecosystem is modular. You don't have to use all of these components. Use\nonly the ones you like and the ones which fit well into your setup. The steps 1.\nto 4. introduce no new commands over plain Emacs. Step 5. introduces the new\ncommands ~embark-act~ and ~embark-dwim~. In step 6. you get the Consult commands,\nsome offer new functionality not present in Emacs already (e.g., ~consult-line~)\nand some are substitutes (e.g., ~consult-buffer~ for ~switch-to-buffer~).\n\n* Child frames and Popups\n\nAn often requested feature is the ability to display the completions in a child\nframe popup. Personally I am critical of using child frames for minibuffer\ncompletion. From my experience it introduces more problems than it solves. Most\nimportantly child frames hide the content of the underlying buffer. Furthermore\nchild frames do not play well together with changing windows and entering\nrecursive minibuffer sessions. On top, child frames can feel slow and sometimes\nflicker. A better alternative is the ~vertico-buffer~ display which can even be\nconfigured individually per command using ~vertico-multiform~. On the plus side of\nchild frames, the completion display appears at the center of the screen, where\nyour eyes are focused. Please give the following packages a try and judge for\nyourself.\n\n- [[https://github.com/muffinmad/emacs-mini-frame][mini-frame]]: Display the entire minibuffer in a child frame.\n- [[https://github.com/minad/mini-popup][mini-popup]]: Slightly simpler alternative to mini-frame.\n- [[https://github.com/tumashu/vertico-posframe][vertico-posframe]]: Display only the Vertico minibuffer in a child frame using\n the posframe library.\n\n* Alternatives\n\nThere are many alternative completion UIs, each UI with its own advantages and\ndisadvantages.\n\nVertico aims to be 100% compliant with all Emacs commands and achieves that with\na minimal code base, relying purely on ~completing-read~ while avoiding to invent\nits own APIs. Inventing a custom API as Helm or Ivy is explicitly avoided in\norder to increase flexibility and package reuse. Due to its small code base and\nreuse of the Emacs built-in facilities, bugs and compatibility issues are less\nlikely to occur in comparison to completion UIs or monolithic completion systems.\n\nSince Vertico only provides the UI, you may want to combine it with some of the\ncomplementary packages, to give a full-featured completion experience similar to\nHelm or Ivy. The idea is to have smaller independent components, which one can\nadd and understand step by step. Each component focuses on its niche and tries\nto be as non-intrusive as possible. Vertico targets users interested in crafting\ntheir Emacs precisely to their liking - completion plays an integral part in how\nthe users interacts with Emacs.\n\nThere are other interactive completion UIs, which follow a similar philosophy:\n\n- [[https://git.sr.ht/~protesilaos/mct][Mct]]: Minibuffer and Completions in Tandem. Mct reuses the default\n ~*Completions*~ buffer and enhances it with automatic updates and additional\n keybindings, to select a candidate and move between minibuffer and completions\n buffer. Since Mct uses a fully functional buffer you can use familiar buffer\n commands inside the completions buffer. The main distinction to Vertico's\n approach is that ~*Completions*~ buffer displays all matching candidates. This\n has the advantage that you can interact freely with the candidates and jump\n around with Isearch or Avy. On the other hand it necessarily causes a\n slowdown. Mct supports completion in region via its ~mct-region-mode~. Note that\n Mct development is currently [[https://protesilaos.com/codelog/2022-04-14-emacs-discontinue-mct/][discontinued]] due to recent changes of the default\n completion UI on the Emacs master branch.\n- [[https://github.com/radian-software/selectrum][Selectrum]]: Selectrum is the predecessor of Vertico, since it directly inspired\n Vertico. Vertico was designed specifically to address the technical\n shortcomings of Selectrum. Selectrum is not fully compatible with every Emacs\n completion command and dynamic completion tables ([[https://github.com/radian-software/selectrum/issues/481][selectrum#481]]), since it\n uses its own filtering infrastructure, which deviates from the standard Emacs\n completion facilities. Therefore Selectrum is getting deprecated in favor of\n Vertico ([[https://github.com/minad/vertico/issues/237][vertico#237]], [[https://github.com/radian-software/selectrum/issues/598][selectrum#598)]]. Furthermore, Vertico was designed with\n flexibility in mind via its [[#extensions][extensions]]. See the [[https://github.com/minad/vertico/wiki/Migrating-from-Selectrum-to-Vertico][migration guide]] if you plan to\n migrate from Selectrum to Vertico.\n- Icomplete: Emacs 28 comes with a builtin =icomplete-vertical-mode=, which is a\n more bare-bone than Vertico. Vertico offers more flexibility thanks to its\n [[#extensions][extensions]].\n\n* Resources\n\nIf you want to learn more about Vertico and minibuffer completion, check out the\nfollowing resources:\n\n- [[https://github.com/doomemacs/doomemacs/tree/master/modules/completion/vertico][Doom Emacs Vertico Module]]: Vertico is Doom's default completion system.\n- [[https://github.com/SystemCrafters/crafted-emacs/blob/master/modules/crafted-completion.el][Crafted Emacs Completion Module]]: Vertico and Corfu are used for completion.\n- [[https://git.sr.ht/~protesilaos/dotfiles/tree/master/item/emacs/.emacs.d/][Prot's Emacs configuration]]: Vertico and Corfu are used for completion.\n- [[https://www.youtube.com/watch?v=fnE0lXoe7Y0][Emacs Completion Explained]] (2022-07-19) by Andrew Tropin.\n- [[https://www.youtube.com/watch?v=w9hHMDyF9V4][Emacs Minibuffer Completions]] (2022-02-12) by Greg Yut.\n- [[https://www.youtube.com/watch?v=hPwDbx--Waw][Vertico Extensions for Emacs]] (2022-01-08) by Karthik Chikmagalur.\n- [[https://youtu.be/5ffb2at2d7w][Using Emacs Episode 80 - Vertico, Marginalia, Consult and Embark]] (2021-10-26) by Mike Zamansky.\n- [[https://www.youtube.com/watch?v=UtqE-lR2HCA][System Crafters Live! - Replacing Ivy and Counsel with Vertico and Consult]] (2021-05-21) by David Wilson.\n- [[https://www.youtube.com/watch?v=J0OaRy85MOo][Streamline Your Emacs Completions with Vertico]] (2021-05-17) by David Wilson.\n\n* Contributions\n\nSince this package is part of [[https://elpa.gnu.org/packages/vertico.html][GNU ELPA]] contributions require a copyright\nassignment to the FSF.\n\n* Problematic completion commands\n\nVertico is robust in most scenarios. However some completion commands make\ncertain assumptions about the completion styles and the completion UI. Some of\nthese assumptions may not hold in Vertico or other UIs and require minor\nworkarounds.\n\n** ~org-refile~\n\n~org-refile~ uses ~org-olpath-completing-read~ to complete the outline path in\nsteps, when ~org-refile-use-outline-path~ is non-nil.\n\nUnfortunately the implementation of this Org completion table assumes that the\n~basic~ completion style is used. The table is incompatible with completion styles\nlike ~substring~, ~flex~ or ~orderless~. In order to fix the issue at the root, the\ncompletion table should make use of completion boundaries similar to the\nbuilt-in file completion table. In your user configuration you can prioritize\n~basic~ before ~orderless~.\n\n#+begin_src emacs-lisp\n ;; Alternative 1: Use the basic completion style\n (setq org-refile-use-outline-path 'file\n org-outline-path-complete-in-steps t)\n (advice-add #'org-olpath-completing-read :around\n (lambda (&rest args)\n (minibuffer-with-setup-hook\n (lambda () (setq-local completion-styles '(basic)))\n (apply args))))\n#+end_src\n\nAlternatively you may want to disable the outline path completion in steps. The\ncompletion on the full path can be quicker since the input string matches\ndirectly against substrings of the full path, which is useful with Orderless.\nHowever the list of possible completions becomes much more cluttered.\n\n#+begin_src emacs-lisp\n ;; Alternative 2: Complete full paths\n (setq org-refile-use-outline-path 'file\n org-outline-path-complete-in-steps nil)\n#+end_src\n\n** ~org-agenda-filter~\n\nSimilar to ~org-refile~, the ~org-agenda-filter~ completion function\n(~org-agenda-filter-completion-function~) does not make use of completion\nboundaries. Unfortunately =TAB= completion (~minibuffer-complete~) does not work for\nthis reason. This affects Vertico and also the Emacs default completion system.\nFor example if you enter ~+tag<0 TAB~ the input is replaced with ~0:10~ which is not\ncorrect. With preserved completion boundaries, the expected result would be\n~+tag<0:10~.\n\n** ~tmm-menubar~\n\nThe text menu bar works well with Vertico but always shows a =*Completions*=\nbuffer, which is unwanted if you use the Vertico UI. This completion buffer can\nbe disabled with an advice. If you disabled the standard GUI menu bar and prefer\nthe Vertico interface you may also overwrite the default F10 keybinding.\n\n#+begin_src emacs-lisp\n (global-set-key [f10] #'tmm-menubar)\n (advice-add #'tmm-add-prompt :after #'minibuffer-hide-completions)\n#+end_src\n\n** ~ffap-menu~\n\nThe command ~ffap-menu~ shows the =*Completions*= buffer by default like\n~tmm-menubar~, which is unnecessary with Vertico. This completion buffer can be\ndisabled as follows.\n\n#+begin_src emacs-lisp\n (advice-add #'ffap-menu-ask :around (lambda (&rest args)\n (cl-letf (((symbol-function #'minibuffer-completion-help)\n #'ignore))\n (apply args))))\n#+end_src\n\n** ~completion-table-dynamic~\n\nDynamic completion tables (~completion-table-dynamic~, ~completion-table-in-turn~,\netc.) should work well with Vertico. However the requirement is that the =basic=\ncompletion style is enabled. The =basic= style performs prefix filtering by\npassing the input to the completion table (or the dynamic completion table\nfunction). The =basic= completion style must not necessarily be configured with\nhighest priority, it can also come after other completion styles like =orderless=,\n=substring= or =flex=.\n\n#+begin_src emacs-lisp\n (setq completion-styles '(basic))\n ;; (setq completion-styles '(orderless basic))\n (completing-read \"Dynamic: \"\n (completion-table-dynamic\n (lambda (str)\n (list (concat str \"1\")\n (concat str \"2\")\n (concat str \"3\")))))\n#+end_src\n\n** Submitting the empty string\n\nThe commands ~multi-occur~, ~auto-insert~, ~bbdb-create~ read multiple arguments from\nthe minibuffer with ~completing-read~, one at a time, until you submit an empty\nstring. You should type =M-RET= (~vertico-exit-input~) to finish the loop. Directly\npressing =RET= (~vertico-exit~) does not work since the first candidate is\npreselected.\n\nThe underlying issue is that ~completing-read~ always allows you to exit with the\nempty string, which is called the /null completion/, even if the ~REQUIRE-MATCH~\nargument is non-nil. Try the following two calls to ~completing-read~ with =C-x C-e=:\n\n#+begin_src emacs-lisp\n (completing-read \"Select: \" '(\"first\" \"second\" \"third\") nil 'require-match)\n (completing-read \"Select: \" '(\"first\" \"second\" \"third\") nil 'require-match nil nil \"\")\n#+end_src\n\nIn both cases the empty string can be submitted. In the first case no explicit\ndefault value is specified and Vertico preselects the *first* candidate. In order\nto exit with the empty string, press =M-RET=. In the second case the explicit\ndefault value \"\" is specified and Vertico preselects the prompt, such that\nexiting with the empty string is possible by pressing =RET= only.\n\n** Tramp hostname completion\n\nIn combination with Orderless, hostnames are not made available for completion\nafter entering =/ssh:=. In order to avoid this problem, the =basic= completion style\nshould be specified for the file completion category, such that =basic= is tried\nbefore =orderless=.\n\n#+begin_src emacs-lisp\n (setq completion-styles '(orderless basic)\n completion-category-overrides '((file (styles basic partial-completion))))\n#+end_src\n\nFor users who are familiar with the =completion-style= machinery: You may also\ndefine a custom completion style which sets in only for remote files!\n\n#+begin_src emacs-lisp\n (defun basic-remote-try-completion (string table pred point)\n (and (vertico--remote-p string)\n (completion-basic-try-completion string table pred point)))\n (defun basic-remote-all-completions (string table pred point)\n (and (vertico--remote-p string)\n (completion-basic-all-completions string table pred point)))\n (add-to-list\n 'completion-styles-alist\n '(basic-remote basic-remote-try-completion basic-remote-all-completions nil))\n (setq completion-styles '(orderless basic)\n completion-category-overrides '((file (styles basic-remote partial-completion))))\n#+end_src\n"}]}},{"FileDel":{"deleted_names":[{"basename":"dir","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2383202,"end":2383229},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2383229},"to":{"change":7,"start":2382573,"end":2382573},"introduced_by":7}],"inode":{"change":7,"pos":2382573}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2382573},"to":{"change":7,"start":2382574,"end":2383201},"introduced_by":7}],"inode":{"change":7,"pos":2382573}},"content":[{"Del":"This is the file .../info/dir, which contains the\ntopmost node of the Info hierarchy, called (dir)Top.\nThe first time you invoke Info you start off looking at this node.\n\u001f\nFile: dir,\tNode: Top\tThis is the top of the INFO tree\n\n This (the Directory node) gives a menu of major topics.\n Typing \"q\" exits, \"H\" lists all Info commands, \"d\" returns here,\n \"h\" gives a primer for first-timers,\n \"mEmacs\" visits the Emacs manual, etc.\n\n In Emacs, you can click mouse button 2 on a menu item or cross reference\n to select it.\n\n* Menu:\n\nEmacs misc features\n* Vertico: (vertico). VERTical Interactive COmpletion.\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2382527,"end":2382571},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2382571},"to":{"change":7,"start":2368459,"end":2368459},"introduced_by":7}],"inode":{"change":7,"pos":2368459}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2368459},"to":{"change":7,"start":2368460,"end":2382526},"introduced_by":7}],"inode":{"change":7,"pos":2368459}},"content":[{"Del":";;; vertico-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"vertico\" \"vertico.el\" (0 0 0 0))\n;;; Generated autoloads from vertico.el\n\n(defvar vertico-mode nil \"\\\nNon-nil if Vertico mode is enabled.\nSee the `vertico-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `vertico-mode'.\")\n\n(custom-autoload 'vertico-mode \"vertico\" nil)\n\n(autoload 'vertico-mode \"vertico\" \"\\\nVERTical Interactive COmpletion.\n\nThis is a minor mode. If called interactively, toggle the\n`Vertico mode' mode. If the prefix argument is positive, enable\nthe mode, and if it is zero or negative, disable the mode.\n\nIf called from Lisp, toggle the mode if ARG is `toggle'. Enable\nthe mode if ARG is nil, omitted, or is a positive number.\nDisable the mode if ARG is a negative number.\n\nTo check whether the minor mode is enabled in the current buffer,\nevaluate `(default-value \\\\='vertico-mode)'.\n\nThe mode's hook is called both when the mode is enabled and when\nit is disabled.\n\n\\(fn &optional ARG)\" t nil)\n\n(register-definition-prefixes \"vertico\" '(\"vertico-\"))\n\n;;;***\n\f\n;;;### (autoloads nil \"vertico-buffer\" \"vertico-buffer.el\" (0 0 0\n;;;;;; 0))\n;;; Generated autoloads from vertico-buffer.el\n\n(defvar vertico-buffer-mode nil \"\\\nNon-nil if Vertico-Buffer mode is enabled.\nSee the `vertico-buffer-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `vertico-buffer-mode'.\")\n\n(custom-autoload 'vertico-buffer-mode \"vertico-buffer\" nil)\n\n(autoload 'vertico-buffer-mode \"vertico-buffer\" \"\\\nDisplay Vertico in a buffer instead of the minibuffer.\n\nThis is a minor mode. If called interactively, toggle the\n`Vertico-Buffer mode' mode. If the prefix argument is positive,\nenable the mode, and if it is zero or negative, disable the mode.\n\nIf called from Lisp, toggle the mode if ARG is `toggle'. Enable\nthe mode if ARG is nil, omitted, or is a positive number.\nDisable the mode if ARG is a negative number.\n\nTo check whether the minor mode is enabled in the current buffer,\nevaluate `(default-value \\\\='vertico-buffer-mode)'.\n\nThe mode's hook is called both when the mode is enabled and when\nit is disabled.\n\n\\(fn &optional ARG)\" t nil)\n\n(register-definition-prefixes \"vertico-buffer\" '(\"vertico-buffer-\"))\n\n;;;***\n\f\n;;;### (autoloads nil \"vertico-directory\" \"vertico-directory.el\"\n;;;;;; (0 0 0 0))\n;;; Generated autoloads from vertico-directory.el\n\n(autoload 'vertico-directory-enter \"vertico-directory\" \"\\\nEnter directory or exit completion with current candidate.\" t nil)\n\n(autoload 'vertico-directory-up \"vertico-directory\" \"\\\nDelete N directories before point.\n\n\\(fn &optional N)\" t nil)\n\n(autoload 'vertico-directory-delete-char \"vertico-directory\" \"\\\nDelete N directories or chars before point.\n\n\\(fn &optional N)\" t nil)\n\n(autoload 'vertico-directory-delete-word \"vertico-directory\" \"\\\nDelete N directories or words before point.\n\n\\(fn &optional N)\" t nil)\n\n(autoload 'vertico-directory-tidy \"vertico-directory\" \"\\\nTidy shadowed file name, see `rfn-eshadow-overlay'.\" nil nil)\n\n;;;***\n\f\n;;;### (autoloads nil \"vertico-flat\" \"vertico-flat.el\" (0 0 0 0))\n;;; Generated autoloads from vertico-flat.el\n\n(defvar vertico-flat-mode nil \"\\\nNon-nil if Vertico-Flat mode is enabled.\nSee the `vertico-flat-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `vertico-flat-mode'.\")\n\n(custom-autoload 'vertico-flat-mode \"vertico-flat\" nil)\n\n(autoload 'vertico-flat-mode \"vertico-flat\" \"\\\nFlat, horizontal display for Vertico.\n\nThis is a minor mode. If called interactively, toggle the\n`Vertico-Flat mode' mode. If the prefix argument is positive,\nenable the mode, and if it is zero or negative, disable the mode.\n\nIf called from Lisp, toggle the mode if ARG is `toggle'. Enable\nthe mode if ARG is nil, omitted, or is a positive number.\nDisable the mode if ARG is a negative number.\n\nTo check whether the minor mode is enabled in the current buffer,\nevaluate `(default-value \\\\='vertico-flat-mode)'.\n\nThe mode's hook is called both when the mode is enabled and when\nit is disabled.\n\n\\(fn &optional ARG)\" t nil)\n\n(register-definition-prefixes \"vertico-flat\" '(\"vertico-flat-\"))\n\n;;;***\n\f\n;;;### (autoloads nil \"vertico-grid\" \"vertico-grid.el\" (0 0 0 0))\n;;; Generated autoloads from vertico-grid.el\n\n(defvar vertico-grid-mode nil \"\\\nNon-nil if Vertico-Grid mode is enabled.\nSee the `vertico-grid-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `vertico-grid-mode'.\")\n\n(custom-autoload 'vertico-grid-mode \"vertico-grid\" nil)\n\n(autoload 'vertico-grid-mode \"vertico-grid\" \"\\\nGrid display for Vertico.\n\nThis is a minor mode. If called interactively, toggle the\n`Vertico-Grid mode' mode. If the prefix argument is positive,\nenable the mode, and if it is zero or negative, disable the mode.\n\nIf called from Lisp, toggle the mode if ARG is `toggle'. Enable\nthe mode if ARG is nil, omitted, or is a positive number.\nDisable the mode if ARG is a negative number.\n\nTo check whether the minor mode is enabled in the current buffer,\nevaluate `(default-value \\\\='vertico-grid-mode)'.\n\nThe mode's hook is called both when the mode is enabled and when\nit is disabled.\n\n\\(fn &optional ARG)\" t nil)\n\n(register-definition-prefixes \"vertico-grid\" '(\"vertico-grid-\"))\n\n;;;***\n\f\n;;;### (autoloads nil \"vertico-indexed\" \"vertico-indexed.el\" (0 0\n;;;;;; 0 0))\n;;; Generated autoloads from vertico-indexed.el\n\n(defvar vertico-indexed-mode nil \"\\\nNon-nil if Vertico-Indexed mode is enabled.\nSee the `vertico-indexed-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `vertico-indexed-mode'.\")\n\n(custom-autoload 'vertico-indexed-mode \"vertico-indexed\" nil)\n\n(autoload 'vertico-indexed-mode \"vertico-indexed\" \"\\\nPrefix candidates with indices.\n\nThis is a minor mode. If called interactively, toggle the\n`Vertico-Indexed mode' mode. If the prefix argument is positive,\nenable the mode, and if it is zero or negative, disable the mode.\n\nIf called from Lisp, toggle the mode if ARG is `toggle'. Enable\nthe mode if ARG is nil, omitted, or is a positive number.\nDisable the mode if ARG is a negative number.\n\nTo check whether the minor mode is enabled in the current buffer,\nevaluate `(default-value \\\\='vertico-indexed-mode)'.\n\nThe mode's hook is called both when the mode is enabled and when\nit is disabled.\n\n\\(fn &optional ARG)\" t nil)\n\n(register-definition-prefixes \"vertico-indexed\" '(\"vertico-indexed-\"))\n\n;;;***\n\f\n;;;### (autoloads nil \"vertico-mouse\" \"vertico-mouse.el\" (0 0 0 0))\n;;; Generated autoloads from vertico-mouse.el\n\n(defvar vertico-mouse-mode nil \"\\\nNon-nil if Vertico-Mouse mode is enabled.\nSee the `vertico-mouse-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `vertico-mouse-mode'.\")\n\n(custom-autoload 'vertico-mouse-mode \"vertico-mouse\" nil)\n\n(autoload 'vertico-mouse-mode \"vertico-mouse\" \"\\\nMouse support for Vertico.\n\nThis is a minor mode. If called interactively, toggle the\n`Vertico-Mouse mode' mode. If the prefix argument is positive,\nenable the mode, and if it is zero or negative, disable the mode.\n\nIf called from Lisp, toggle the mode if ARG is `toggle'. Enable\nthe mode if ARG is nil, omitted, or is a positive number.\nDisable the mode if ARG is a negative number.\n\nTo check whether the minor mode is enabled in the current buffer,\nevaluate `(default-value \\\\='vertico-mouse-mode)'.\n\nThe mode's hook is called both when the mode is enabled and when\nit is disabled.\n\n\\(fn &optional ARG)\" t nil)\n\n(register-definition-prefixes \"vertico-mouse\" '(\"vertico-mouse--\"))\n\n;;;***\n\f\n;;;### (autoloads nil \"vertico-multiform\" \"vertico-multiform.el\"\n;;;;;; (0 0 0 0))\n;;; Generated autoloads from vertico-multiform.el\n\n(defvar vertico-multiform-mode nil \"\\\nNon-nil if Vertico-Multiform mode is enabled.\nSee the `vertico-multiform-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `vertico-multiform-mode'.\")\n\n(custom-autoload 'vertico-multiform-mode \"vertico-multiform\" nil)\n\n(autoload 'vertico-multiform-mode \"vertico-multiform\" \"\\\nConfigure Vertico in various forms per command.\n\nThis is a minor mode. If called interactively, toggle the\n`Vertico-Multiform mode' mode. If the prefix argument is\npositive, enable the mode, and if it is zero or negative, disable\nthe mode.\n\nIf called from Lisp, toggle the mode if ARG is `toggle'. Enable\nthe mode if ARG is nil, omitted, or is a positive number.\nDisable the mode if ARG is a negative number.\n\nTo check whether the minor mode is enabled in the current buffer,\nevaluate `(default-value \\\\='vertico-multiform-mode)'.\n\nThe mode's hook is called both when the mode is enabled and when\nit is disabled.\n\n\\(fn &optional ARG)\" t nil)\n\n(register-definition-prefixes \"vertico-multiform\" '(\"vertico-multiform-\"))\n\n;;;***\n\f\n;;;### (autoloads nil \"vertico-quick\" \"vertico-quick.el\" (0 0 0 0))\n;;; Generated autoloads from vertico-quick.el\n\n(autoload 'vertico-quick-jump \"vertico-quick\" \"\\\nJump to candidate using quick keys.\" t nil)\n\n(autoload 'vertico-quick-exit \"vertico-quick\" \"\\\nExit with candidate using quick keys.\" t nil)\n\n(autoload 'vertico-quick-insert \"vertico-quick\" \"\\\nInsert candidate using quick keys.\" t nil)\n\n(register-definition-prefixes \"vertico-quick\" '(\"vertico-quick\"))\n\n;;;***\n\f\n;;;### (autoloads nil \"vertico-repeat\" \"vertico-repeat.el\" (0 0 0\n;;;;;; 0))\n;;; Generated autoloads from vertico-repeat.el\n\n(autoload 'vertico-repeat-save \"vertico-repeat\" \"\\\nSave Vertico session for `vertico-repeat'.\nThis function must be registered as `minibuffer-setup-hook'.\" nil nil)\n\n(autoload 'vertico-repeat-last \"vertico-repeat\" \"\\\nRepeat last Vertico completion SESSION.\nIf called interactively from an existing Vertico session,\n`vertico-repeat-last' will restore the last input and\nlast selected candidate for the current command.\n\n\\(fn &optional SESSION)\" t nil)\n\n(autoload 'vertico-repeat-select \"vertico-repeat\" \"\\\nSelect a Vertico session from the session history and repeat it.\nIf called from an existing Vertico session, you can select among\nprevious sessions for the current command.\" t nil)\n\n(autoload 'vertico-repeat \"vertico-repeat\" \"\\\nRepeat last Vertico session.\nIf prefix ARG is non-nil, offer completion menu to select from session history.\n\n\\(fn &optional ARG)\" t nil)\n\n(register-definition-prefixes \"vertico-repeat\" '(\"vertico-repeat-\"))\n\n;;;***\n\f\n;;;### (autoloads nil \"vertico-reverse\" \"vertico-reverse.el\" (0 0\n;;;;;; 0 0))\n;;; Generated autoloads from vertico-reverse.el\n\n(defvar vertico-reverse-mode nil \"\\\nNon-nil if Vertico-Reverse mode is enabled.\nSee the `vertico-reverse-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `vertico-reverse-mode'.\")\n\n(custom-autoload 'vertico-reverse-mode \"vertico-reverse\" nil)\n\n(autoload 'vertico-reverse-mode \"vertico-reverse\" \"\\\nReverse the Vertico display.\n\nThis is a minor mode. If called interactively, toggle the\n`Vertico-Reverse mode' mode. If the prefix argument is positive,\nenable the mode, and if it is zero or negative, disable the mode.\n\nIf called from Lisp, toggle the mode if ARG is `toggle'. Enable\nthe mode if ARG is nil, omitted, or is a positive number.\nDisable the mode if ARG is a negative number.\n\nTo check whether the minor mode is enabled in the current buffer,\nevaluate `(default-value \\\\='vertico-reverse-mode)'.\n\nThe mode's hook is called both when the mode is enabled and when\nit is disabled.\n\n\\(fn &optional ARG)\" t nil)\n\n(register-definition-prefixes \"vertico-reverse\" '(\"vertico-reverse-\"))\n\n;;;***\n\f\n;;;### (autoloads nil \"vertico-unobtrusive\" \"vertico-unobtrusive.el\"\n;;;;;; (0 0 0 0))\n;;; Generated autoloads from vertico-unobtrusive.el\n\n(defvar vertico-unobtrusive-mode nil \"\\\nNon-nil if Vertico-Unobtrusive mode is enabled.\nSee the `vertico-unobtrusive-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `vertico-unobtrusive-mode'.\")\n\n(custom-autoload 'vertico-unobtrusive-mode \"vertico-unobtrusive\" nil)\n\n(autoload 'vertico-unobtrusive-mode \"vertico-unobtrusive\" \"\\\nUnobtrusive display for Vertico.\n\nThis is a minor mode. If called interactively, toggle the\n`Vertico-Unobtrusive mode' mode. If the prefix argument is\npositive, enable the mode, and if it is zero or negative, disable\nthe mode.\n\nIf called from Lisp, toggle the mode if ARG is `toggle'. Enable\nthe mode if ARG is nil, omitted, or is a positive number.\nDisable the mode if ARG is a negative number.\n\nTo check whether the minor mode is enabled in the current buffer,\nevaluate `(default-value \\\\='vertico-unobtrusive-mode)'.\n\nThe mode's hook is called both when the mode is enabled and when\nit is disabled.\n\n\\(fn &optional ARG)\" t nil)\n\n(register-definition-prefixes \"vertico-unobtrusive\" '(\"vertico-unobtrusive--orig-count\"))\n\n;;;***\n\f\n;;;### (autoloads nil nil (\"vertico-pkg.el\") (0 0 0 0))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; vertico-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-buffer.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2368416,"end":2368457},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2368457},"to":{"change":7,"start":2361501,"end":2361501},"introduced_by":7}],"inode":{"change":7,"pos":2361501}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2361501},"to":{"change":7,"start":2361502,"end":2368415},"introduced_by":7}],"inode":{"change":7,"pos":2361501}},"content":[{"Del":";;; vertico-buffer.el --- Display Vertico in a buffer instead of the minibuffer -*- lexical-binding: t -*-\n\n;; Copyright (C) 2021, 2022 Free Software Foundation, Inc.\n\n;; Author: Daniel Mendler \n;; Maintainer: Daniel Mendler \n;; Created: 2021\n;; Version: 0.1\n;; Package-Requires: ((emacs \"27.1\") (vertico \"0.28\"))\n;; Homepage: https://github.com/minad/vertico\n\n;; This file is part of GNU Emacs.\n\n;; This program is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; This package is a Vertico extension, which displays Vertico in a\n;; buffer instead of the minibuffer. The buffer display can be enabled\n;; by the `vertico-buffer-mode'.\n\n;;; Code:\n\n(require 'vertico)\n\n(defcustom vertico-buffer-hide-prompt t\n \"Hide prompt in the minibuffer.\"\n :group 'vertico\n :type 'boolean)\n\n(defcustom vertico-buffer-display-action\n '(display-buffer-reuse-window)\n \"Display action for the Vertico buffer.\"\n :group 'vertico\n :type `(choice\n (const :tag \"Reuse some window\"\n (display-buffer-reuse-window))\n (const :tag \"Below target buffer\"\n (display-buffer-below-selected\n (window-height . ,(+ 3 vertico-count))))\n (const :tag \"Bottom of frame\"\n (display-buffer-at-bottom\n (window-height . ,(+ 3 vertico-count))))\n (const :tag \"Side window on the right\"\n (display-buffer-in-side-window\n (side . right)\n (window-width . 0.3)))\n (const :tag \"Side window on the left\"\n (display-buffer-in-side-window\n (side . left)\n (window-width . 0.3)))\n (const :tag \"Side window at the top\"\n (display-buffer-in-side-window\n (window-height . ,(+ 3 vertico-count))\n (side . top)))\n (const :tag \"Side window at the bottom\"\n (display-buffer-in-side-window\n (window-height . ,(+ 3 vertico-count))\n (side . bottom)))\n (sexp :tag \"Other\")))\n\n(defun vertico-buffer--redisplay (win)\n \"Redisplay window WIN.\"\n (when-let (mbwin (active-minibuffer-window))\n (when (eq (window-buffer mbwin) (current-buffer))\n (let ((old cursor-in-non-selected-windows)\n (new (and (eq (selected-window) mbwin) 'box)))\n (unless (eq new old)\n (setq-local cursor-in-non-selected-windows new)\n (force-mode-line-update t)))\n (unless (eq win mbwin)\n (setq-local truncate-lines (< (window-point win)\n (* 0.8 (window-width win))))\n (set-window-point win (point)))\n (when vertico-buffer-hide-prompt\n (window-resize mbwin (- (window-pixel-height mbwin)) nil nil 'pixelwise)\n (set-window-vscroll mbwin 100)))))\n\n(defun vertico-buffer--setup ()\n \"Setup buffer display.\"\n (add-hook 'pre-redisplay-functions 'vertico-buffer--redisplay nil 'local)\n (let* ((action vertico-buffer-display-action) tmp win\n (_ (unwind-protect\n (progn\n (setf tmp (generate-new-buffer \"*vertico-buffer*\")\n ;; Set a fake major mode such that `display-buffer-reuse-mode-window'\n ;; does not take over!\n (buffer-local-value 'major-mode tmp) 'vertico-buffer-mode\n ;; Temporarily select the original window such\n ;; that `display-buffer-same-window' works.\n win (with-minibuffer-selected-window (display-buffer tmp action)))\n (set-window-buffer win (current-buffer)))\n (kill-buffer tmp)))\n (sym (make-symbol \"vertico-buffer--destroy\"))\n (depth (recursion-depth))\n (now (window-parameter win 'no-other-window))\n (ndow (window-parameter win 'no-delete-other-windows)))\n (fset sym (lambda ()\n (when (= depth (recursion-depth))\n (with-selected-window (active-minibuffer-window)\n (when (window-live-p win)\n (set-window-parameter win 'no-other-window now)\n (set-window-parameter win 'no-delete-other-windows ndow))\n (when vertico-buffer-hide-prompt\n (set-window-vscroll nil 0))\n (remove-hook 'minibuffer-exit-hook sym)))))\n ;; NOTE: We cannot use a buffer-local minibuffer-exit-hook here.\n ;; The hook will not be called when abnormally exiting the minibuffer\n ;; from another buffer via `keyboard-escape-quit'.\n (add-hook 'minibuffer-exit-hook sym)\n (set-window-parameter win 'no-other-window t)\n (set-window-parameter win 'no-delete-other-windows t)\n (overlay-put vertico--candidates-ov 'window win)\n (when (and vertico-buffer-hide-prompt vertico--count-ov)\n (overlay-put vertico--count-ov 'window win))\n (setq-local show-trailing-whitespace nil\n truncate-lines t\n face-remapping-alist\n (copy-tree `((mode-line-inactive mode-line)\n ,@face-remapping-alist))\n mode-line-format\n (list (format \" %s \"\n (propertize\n (format (if (< depth 2) \"*%s*\" \"*%s [%s]*\")\n (replace-regexp-in-string\n \":? *\\\\'\" \"\"\n (minibuffer-prompt))\n depth)\n 'face 'mode-line-buffer-id)))\n cursor-in-non-selected-windows 'box\n vertico-count (- (/ (window-pixel-height win)\n (default-line-height)) 2))))\n\n;;;###autoload\n(define-minor-mode vertico-buffer-mode\n \"Display Vertico in a buffer instead of the minibuffer.\"\n :global t :group 'vertico\n (cond\n (vertico-buffer-mode\n (advice-add #'vertico--setup :after #'vertico-buffer--setup)\n (advice-add #'vertico--resize-window :override #'ignore))\n (t\n (advice-remove #'vertico--setup #'vertico-buffer--setup)\n (advice-remove #'vertico--resize-window #'ignore))))\n\n(provide 'vertico-buffer)\n;;; vertico-buffer.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-directory.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2361455,"end":2361499},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2361499},"to":{"change":7,"start":2357233,"end":2357233},"introduced_by":7}],"inode":{"change":7,"pos":2357233}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2357233},"to":{"change":7,"start":2357234,"end":2361454},"introduced_by":7}],"inode":{"change":7,"pos":2357233}},"content":[{"Del":";;; vertico-directory.el --- Ido-like direction navigation for Vertico -*- lexical-binding: t -*-\n\n;; Copyright (C) 2021, 2022 Free Software Foundation, Inc.\n\n;; Author: Daniel Mendler \n;; Maintainer: Daniel Mendler \n;; Created: 2021\n;; Version: 0.1\n;; Package-Requires: ((emacs \"27.1\") (vertico \"0.28\"))\n;; Homepage: https://github.com/minad/vertico\n\n;; This file is part of GNU Emacs.\n\n;; This program is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; This package is a Vertico extension, which provides Ido-like\n;; directory navigation commands. The commands can be bound in the\n;; `vertico-map'. Furthermore a cleanup function for shadowed file paths\n;; is provided.\n;;\n;; (define-key vertico-map \"\\r\" #'vertico-directory-enter)\n;; (define-key vertico-map \"\\d\" #'vertico-directory-delete-char)\n;; (define-key vertico-map \"\\M-\\d\" #'vertico-directory-delete-word)\n;; (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy)\n\n;;; Code:\n\n(require 'vertico)\n\n;;;###autoload\n(defun vertico-directory-enter ()\n \"Enter directory or exit completion with current candidate.\"\n (interactive)\n (if (and (>= vertico--index 0)\n (let ((cand (vertico--candidate)))\n (or (string-suffix-p \"/\" cand)\n (and (vertico--remote-p cand)\n (string-suffix-p \":\" cand))))\n ;; Check vertico--base for stepwise file path completion\n (not (equal vertico--base \"\"))\n (eq 'file (vertico--metadata-get 'category)))\n (vertico-insert)\n (vertico-exit)))\n\n;;;###autoload\n(defun vertico-directory-up (&optional n)\n \"Delete N directories before point.\"\n (interactive \"p\")\n (when (and (> (point) (minibuffer-prompt-end))\n (eq (char-before) ?/)\n (eq 'file (vertico--metadata-get 'category)))\n (let ((path (buffer-substring (minibuffer-prompt-end) (point))) found)\n (when (string-match-p \"\\\\`~[^/]*/\\\\'\" path)\n (delete-minibuffer-contents)\n (insert (expand-file-name path)))\n (dotimes (_ n found)\n (save-excursion\n (let ((end (point)))\n (goto-char (1- end))\n (when (search-backward \"/\" (minibuffer-prompt-end) t)\n (delete-region (1+ (point)) end)\n (setq found t))))))))\n\n;;;###autoload\n(defun vertico-directory-delete-char (&optional n)\n \"Delete N directories or chars before point.\"\n (interactive \"p\")\n (unless (vertico-directory-up n)\n (backward-delete-char n)))\n\n;;;###autoload\n(defun vertico-directory-delete-word (&optional n)\n \"Delete N directories or words before point.\"\n (interactive \"p\")\n (unless (vertico-directory-up n)\n (let ((pt (point)))\n (backward-word n)\n (delete-region pt (point)))))\n\n;;;###autoload\n(defun vertico-directory-tidy ()\n \"Tidy shadowed file name, see `rfn-eshadow-overlay'.\"\n (when (eq this-command #'self-insert-command)\n (dolist (ov '(tramp-rfn-eshadow-overlay rfn-eshadow-overlay))\n (when (and (boundp ov)\n (setq ov (symbol-value ov))\n (overlay-buffer ov)\n (= (point) (point-max))\n (or (>= (- (point) (overlay-end ov)) 2)\n (eq ?/ (char-before (- (point) 2)))))\n (delete-region (overlay-start ov) (overlay-end ov))))))\n\n;; Emacs 28: Do not show Vertico commands in M-X\n(dolist (sym '(vertico-directory-up vertico-directory-enter\n vertico-directory-delete-char vertico-directory-delete-word))\n (put sym 'completion-predicate #'vertico--command-p))\n\n(provide 'vertico-directory)\n;;; vertico-directory.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-flat.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2357192,"end":2357231},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2357231},"to":{"change":7,"start":2350980,"end":2350980},"introduced_by":7}],"inode":{"change":7,"pos":2350980}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2350980},"to":{"change":7,"start":2350981,"end":2357191},"introduced_by":7}],"inode":{"change":7,"pos":2350980}},"content":[{"Del":";;; vertico-flat.el --- Flat, horizontal display for Vertico -*- lexical-binding: t -*-\n\n;; Copyright (C) 2021, 2022 Free Software Foundation, Inc.\n\n;; Author: Daniel Mendler \n;; Maintainer: Daniel Mendler \n;; Created: 2021\n;; Version: 0.1\n;; Package-Requires: ((emacs \"27.1\") (vertico \"0.28\"))\n;; Homepage: https://github.com/minad/vertico\n\n;; This file is part of GNU Emacs.\n\n;; This program is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; This package is a Vertico extension providing a horizontal display.\n;;\n;; The mode can be enabled globally or via `vertico-multiform-mode' per\n;; command or completion category. Alternatively the flat display can be\n;; toggled temporarily if `vertico-multiform-mode' is enabled:\n;;\n;; (define-key vertico-map \"\\M-F\" #'vertico-multiform-flat)\n;;\n;; The flat display can be made to look like `ido-mode' by setting\n;; `vertico-cycle' to t. See also the `vertico-flat-format'\n;; configuration variable for further tweaks.\n\n;;; Code:\n\n(require 'vertico)\n\n(defcustom vertico-flat-max-lines 1\n \"Maximal number of lines to use.\"\n :type 'integer\n :group 'vertico)\n\n(defcustom vertico-flat-format\n '(:multiple #(\"{%s}\" 0 1 (face minibuffer-prompt)\n 3 4 (face minibuffer-prompt))\n :single #(\"[%s]\" 0 1 (face minibuffer-prompt)\n 1 3 (face success) 3 4 (face minibuffer-prompt))\n :prompt #(\"(%s)\" 0 1 (face minibuffer-prompt)\n 3 4 (face minibuffer-prompt))\n :separator #(\" | \" 0 3 (face minibuffer-prompt))\n :ellipsis #(\"…\" 0 1 (face minibuffer-prompt))\n :no-match \"[No match]\")\n \"Formatting strings.\"\n :type 'plist\n :group 'vertico)\n\n(defvar vertico-flat-map\n (let ((map (make-sparse-keymap)))\n (define-key map [remap left-char] #'vertico-previous)\n (define-key map [remap right-char] #'vertico-next)\n map)\n \"Additional keymap activated in flat mode.\")\n\n(defun vertico-flat--display-candidates (candidates)\n \"Display CANDIDATES horizontally.\"\n (setq-local truncate-lines nil\n resize-mini-windows t)\n (move-overlay vertico--candidates-ov (point-max) (point-max))\n (overlay-put\n vertico--candidates-ov 'after-string\n (concat #(\" \" 0 1 (cursor t))\n (cond\n ((and (not candidates) (plist-get vertico-flat-format :no-match)))\n ((and (= vertico--total 1) (= vertico--index 0)\n (when-let (fmt (plist-get vertico-flat-format :single))\n (format fmt (substring-no-properties (car candidates))))))\n (t (format (plist-get vertico-flat-format (if (< vertico--index 0) :prompt :multiple))\n (string-join candidates (plist-get vertico-flat-format :separator))))))))\n\n(defun vertico-flat--arrange-candidates ()\n \"Arrange candidates.\"\n (let* ((index (max 0 vertico--index)) (count vertico-count)\n (candidates (nthcdr vertico--index vertico--candidates))\n (width (- (* vertico-flat-max-lines (- (vertico--window-width) 4))\n (length (plist-get vertico-flat-format :left))\n (length (plist-get vertico-flat-format :separator))\n (length (plist-get vertico-flat-format :right))\n (length (plist-get vertico-flat-format :ellipsis))\n (car (posn-col-row (posn-at-point (1- (point-max)))))))\n (result) (wrapped))\n (while (and candidates (not (eq wrapped (car candidates)))\n (> width 0) (> count 0))\n (let ((cand (car candidates)))\n (setq cand (car (funcall vertico--highlight (list cand))))\n (when (string-match-p \"\\n\" cand)\n (setq cand (vertico--truncate-multiline cand width)))\n (setq cand (string-trim\n (replace-regexp-in-string\n \"[ \\t]+\"\n (lambda (x) (apply #'propertize \" \" (text-properties-at 0 x)))\n (vertico--format-candidate cand \"\" \"\" index vertico--index))))\n (setq index (1+ index)\n count (1- count)\n width (- width (string-width cand) (length (plist-get vertico-flat-format :separator))))\n (when (or (not result) (> width 0))\n (push cand result))\n (pop candidates)\n (when (and vertico-cycle (not candidates))\n (setq candidates vertico--candidates index 0\n wrapped (nth vertico--index vertico--candidates)))))\n (when (if wrapped\n (> vertico--total (- vertico-count count))\n (and (/= vertico--total 0) (/= index vertico--total)))\n (push (plist-get vertico-flat-format :ellipsis) result))\n (nreverse result)))\n\n;;;###autoload\n(define-minor-mode vertico-flat-mode\n \"Flat, horizontal display for Vertico.\"\n :global t :group 'vertico\n ;; Shrink current minibuffer window\n (when-let (win (active-minibuffer-window))\n (unless (frame-root-window-p win)\n (window-resize win (- (window-pixel-height win)) nil nil 'pixelwise)))\n (cond\n (vertico-flat-mode\n (add-to-list 'minor-mode-map-alist `(vertico--input . ,vertico-flat-map))\n (advice-add #'vertico--arrange-candidates :override #'vertico-flat--arrange-candidates)\n (advice-add #'vertico--display-candidates :override #'vertico-flat--display-candidates))\n (t\n (setq minor-mode-map-alist (delete `(vertico--input . ,vertico-flat-map) minor-mode-map-alist))\n (advice-remove #'vertico--arrange-candidates #'vertico-flat--arrange-candidates)\n (advice-remove #'vertico--display-candidates #'vertico-flat--display-candidates))))\n\n(provide 'vertico-flat)\n;;; vertico-flat.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-grid.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2350939,"end":2350978},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2350978},"to":{"change":7,"start":2343544,"end":2343544},"introduced_by":7}],"inode":{"change":7,"pos":2343544}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2343544},"to":{"change":7,"start":2343545,"end":2350938},"introduced_by":7}],"inode":{"change":7,"pos":2343544}},"content":[{"Del":";;; vertico-grid.el --- Grid display for Vertico -*- lexical-binding: t -*-\n\n;; Copyright (C) 2021, 2022 Free Software Foundation, Inc.\n\n;; Author: Daniel Mendler \n;; Maintainer: Daniel Mendler \n;; Created: 2021\n;; Version: 0.1\n;; Package-Requires: ((emacs \"27.1\") (vertico \"0.28\"))\n;; Homepage: https://github.com/minad/vertico\n\n;; This file is part of GNU Emacs.\n\n;; This program is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; This package is a Vertico extension providing a grid display.\n;;\n;; The mode can be enabled globally or via `vertico-multiform-mode' per\n;; command or completion category. Alternatively the grid display can be\n;; toggled temporarily if `vertico-multiform-mode' is enabled:\n;;\n;; (define-key vertico-map \"\\M-G\" #'vertico-multiform-grid)\n\n;;; Code:\n\n(require 'vertico)\n(eval-when-compile (require 'cl-lib))\n\n(defcustom vertico-grid-min-columns 2\n \"Minimal number of grid columns.\"\n :type 'integer\n :group 'vertico)\n\n(defcustom vertico-grid-max-columns 8\n \"Maximal number of grid columns.\"\n :type 'integer\n :group 'vertico)\n\n(defcustom vertico-grid-separator\n #(\" | \" 3 4 (display (space :width (1)) face (:inherit shadow :inverse-video t)))\n \"Separator between columns.\"\n :type 'string\n :group 'vertico)\n\n(defcustom vertico-grid-rows 6\n \"Number of grid rows.\"\n :type 'integer\n :group 'vertico)\n\n(defcustom vertico-grid-lookahead 100\n \"Number of candidates to lookahead for column number computation.\nWhen scrolling beyond this limit, candidates may be truncated.\"\n :type 'integer\n :group 'vertico)\n\n(defvar vertico-grid-map\n (let ((map (make-sparse-keymap)))\n (define-key map [remap left-char] #'vertico-grid-left)\n (define-key map [remap right-char] #'vertico-grid-right)\n (define-key map [remap scroll-down-command] #'vertico-grid-scroll-down)\n (define-key map [remap scroll-up-command] #'vertico-grid-scroll-up)\n map)\n \"Additional keymap activated in grid mode.\")\n\n(defvar-local vertico-grid--columns vertico-grid-min-columns\n \"Current number of grid columns.\")\n\n(defun vertico-grid--arrange-candidates ()\n \"Arrange candidates.\"\n (when (<= vertico--index 0)\n (let ((cand vertico--candidates) (w 1) (n 0))\n (while (and cand (< n vertico-grid-lookahead))\n (setq w (max w (length (car cand))) n (1+ n))\n (pop cand))\n (setq vertico-grid--columns\n (max vertico-grid-min-columns\n (min vertico-grid-max-columns\n (floor (vertico--window-width) (+ w (length vertico-grid-separator))))))))\n (let* ((sep (length vertico-grid-separator))\n (count (* vertico-count vertico-grid--columns))\n (start (* count (floor (max 0 vertico--index) count)))\n (width (- (/ (vertico--window-width) vertico-grid--columns) sep))\n (cands\n (seq-map-indexed (lambda (cand index)\n (cl-incf index start)\n (when (string-match-p \"\\n\" cand)\n (setq cand (vertico--truncate-multiline cand width)))\n (truncate-string-to-width\n (string-trim\n (replace-regexp-in-string\n \"[ \\t]+\"\n (lambda (x) (apply #'propertize \" \" (text-properties-at 0 x)))\n (vertico--format-candidate cand \"\" \"\" index start)))\n width))\n (funcall vertico--highlight\n (seq-subseq vertico--candidates start\n (min (+ start count)\n vertico--total)))))\n (width (make-vector vertico-grid--columns 0)))\n (dotimes (col vertico-grid--columns)\n (dotimes (row vertico-count)\n (aset width col (max\n (aref width col)\n (string-width (or (nth (+ row (* col vertico-count)) cands) \"\"))))))\n (dotimes (col (1- vertico-grid--columns))\n (cl-incf (aref width (1+ col)) (+ (aref width col) sep)))\n (cl-loop for row from 0 to (1- (min vertico-count vertico--total)) collect\n (let ((line (list \"\\n\")))\n (cl-loop for col from (1- vertico-grid--columns) downto 0 do\n (when-let (cand (nth (+ row (* col vertico-count)) cands))\n (push cand line)\n (when (> col 0)\n (push vertico-grid-separator line)\n (push (propertize \" \" 'display\n `(space :align-to (+ left ,(aref width (1- col))))) line))))\n (string-join line)))))\n\n(defun vertico-grid-left (&optional n)\n \"Move N columns to the left in the grid.\"\n (interactive \"p\")\n (vertico-grid-right (- (or n 1))))\n\n(defun vertico-grid-right (&optional n)\n \"Move N columns to the right in the grid.\"\n (interactive \"p\")\n (let* ((page (* vertico-count vertico-grid--columns))\n (x1 (/ (% vertico--index page) vertico-count))\n (cols (min (1- vertico-grid--columns)\n (+ x1 (/ (- vertico--total vertico--index 1) vertico-count))))\n (x2 (if vertico-cycle\n (mod (+ x1 (or n 1)) (1+ cols))\n (min cols (max 0 (+ x1 (or n 1)))))))\n (vertico--goto (+ vertico--index (* vertico-count (- x2 x1))))))\n\n(defun vertico-grid-scroll-down (&optional n)\n \"Go back by N pages.\"\n (interactive \"p\")\n (vertico--goto (max 0 (- vertico--index (* (or n 1) vertico-grid--columns vertico-count)))))\n\n(defun vertico-grid-scroll-up (&optional n)\n \"Go forward by N pages.\"\n (interactive \"p\")\n (vertico-grid-scroll-down (- (or n 1))))\n\n;;;###autoload\n(define-minor-mode vertico-grid-mode\n \"Grid display for Vertico.\"\n :global t :group 'vertico\n ;; Shrink current minibuffer window\n (when-let (win (active-minibuffer-window))\n (unless (frame-root-window-p win)\n (window-resize win (- (window-pixel-height win)) nil nil 'pixelwise)))\n (cond\n (vertico-grid-mode\n (add-to-list 'minor-mode-map-alist `(vertico--input . ,vertico-grid-map))\n (advice-add #'vertico--arrange-candidates :override #'vertico-grid--arrange-candidates))\n (t\n (setq minor-mode-map-alist (delete `(vertico--input . ,vertico-grid-map) minor-mode-map-alist))\n (advice-remove #'vertico--arrange-candidates #'vertico-grid--arrange-candidates))))\n\n;; Emacs 28: Do not show Vertico commands in M-X\n(dolist (sym '(vertico-grid-left vertico-grid-right\n vertico-grid-scroll-up vertico-grid-scroll-down))\n (put sym 'completion-predicate #'vertico--command-p))\n\n(provide 'vertico-grid)\n;;; vertico-grid.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-indexed.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2343500,"end":2343542},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2343542},"to":{"change":7,"start":2339846,"end":2339846},"introduced_by":7}],"inode":{"change":7,"pos":2339846}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2339846},"to":{"change":7,"start":2339847,"end":2343499},"introduced_by":7}],"inode":{"change":7,"pos":2339846}},"content":[{"Del":";;; vertico-indexed.el --- Select indexed candidates -*- lexical-binding: t -*-\n\n;; Copyright (C) 2021, 2022 Free Software Foundation, Inc.\n\n;; Author: Daniel Mendler \n;; Maintainer: Daniel Mendler \n;; Created: 2021\n;; Version: 0.1\n;; Package-Requires: ((emacs \"27.1\") (vertico \"0.28\"))\n;; Homepage: https://github.com/minad/vertico\n\n;; This file is part of GNU Emacs.\n\n;; This program is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; This package is a Vertico extension, which prefixes candidates with indices\n;; if enabled via `vertico-indexed-mode'. It allows you to select candidates\n;; with prefix arguments. This is designed to be a faster alternative to\n;; selecting a candidate with `vertico-next' and `vertico-previous'.\n\n;;; Code:\n\n(require 'vertico)\n\n(defface vertico-indexed\n '((t :height 0.75 :inherit font-lock-comment-face))\n \"Face used for the candidate index prefix.\"\n :group 'vertico-faces)\n\n(defcustom vertico-indexed-start 0\n \"Start of the indexing.\"\n :group 'vertico\n :type 'integer)\n\n(defvar vertico-indexed--commands\n '(vertico-insert vertico-exit vertico-directory-enter))\n(defvar-local vertico-indexed--min 0)\n(defvar-local vertico-indexed--max 0)\n\n(defun vertico-indexed--format-candidate (orig cand prefix suffix index start)\n \"Format candidate, see `vertico--format-candidate' for arguments.\"\n (setq vertico-indexed--min start vertico-indexed--max index)\n (funcall orig cand\n (concat (propertize (format\n (if (> (+ vertico-indexed-start vertico-count) 10)\n \"%2d \" \"%1d \")\n (+ (- index start) vertico-indexed-start))\n 'face 'vertico-indexed)\n prefix)\n suffix index start))\n\n(defun vertico-indexed--handle-prefix (orig &rest args)\n \"Handle prefix argument before calling ORIG function with ARGS.\"\n (if (and current-prefix-arg (called-interactively-p t))\n (let ((vertico--index (+ vertico-indexed--min\n (- (prefix-numeric-value current-prefix-arg)\n vertico-indexed-start))))\n (if (or (< vertico--index vertico-indexed--min)\n (> vertico--index vertico-indexed--max)\n (= vertico--total 0))\n (minibuffer-message \"Out of range\")\n (funcall orig)))\n (apply orig args)))\n\n;;;###autoload\n(define-minor-mode vertico-indexed-mode\n \"Prefix candidates with indices.\"\n :global t :group 'vertico\n (cond\n (vertico-indexed-mode\n (advice-add #'vertico--format-candidate :around #'vertico-indexed--format-candidate)\n (dolist (cmd vertico-indexed--commands)\n (advice-add cmd :around #'vertico-indexed--handle-prefix)))\n (t\n (advice-remove #'vertico--format-candidate #'vertico-indexed--format-candidate)\n (dolist (cmd vertico-indexed--commands)\n (advice-remove cmd #'vertico-indexed--handle-prefix)))))\n\n(provide 'vertico-indexed)\n;;; vertico-indexed.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-mouse.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2339804,"end":2339844},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2339844},"to":{"change":7,"start":2336211,"end":2336211},"introduced_by":7}],"inode":{"change":7,"pos":2336211}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2336211},"to":{"change":7,"start":2336212,"end":2339803},"introduced_by":7}],"inode":{"change":7,"pos":2336211}},"content":[{"Del":";;; vertico-mouse.el --- Mouse support for Vertico -*- lexical-binding: t -*-\n\n;; Copyright (C) 2021, 2022 Free Software Foundation, Inc.\n\n;; Author: Daniel Mendler \n;; Maintainer: Daniel Mendler \n;; Created: 2021\n;; Version: 0.1\n;; Package-Requires: ((emacs \"27.1\") (vertico \"0.28\"))\n;; Homepage: https://github.com/minad/vertico\n\n;; This file is part of GNU Emacs.\n\n;; This program is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; This package is a Vertico extension, which adds mouse support.\n\n;;; Code:\n\n(require 'vertico)\n\n(defface vertico-mouse\n '((t :inherit highlight))\n \"Face used for mouse highlighting.\"\n :group 'vertico-faces)\n\n(defun vertico-mouse--candidate-map (index)\n \"Return keymap for candidate with INDEX.\"\n (let ((map (make-sparse-keymap)))\n (define-key map [mouse-1] (lambda ()\n (interactive)\n (with-selected-window (active-minibuffer-window)\n (let ((vertico--index index))\n (vertico-exit)))))\n (define-key map [mouse-3] (lambda ()\n (interactive)\n (with-selected-window (active-minibuffer-window)\n (let ((vertico--index index))\n (vertico-insert)))))\n map))\n\n(defun vertico-mouse--format-candidate (orig cand prefix suffix index start)\n \"Format candidate, see `vertico--format-candidate' for arguments.\"\n (setq cand (funcall orig cand prefix suffix index start))\n (when (equal suffix \"\")\n (setq cand (concat (substring cand 0 -1)\n (propertize \" \" 'display '(space :align-to right))\n \"\\n\"))\n (when (= index vertico--index)\n (add-face-text-property 0 (length cand) 'vertico-current 'append cand)))\n (add-text-properties 0 (1- (length cand))\n `(mouse-face vertico-mouse keymap ,(vertico-mouse--candidate-map index))\n cand)\n cand)\n\n(defun vertico-mouse--scroll-up (n)\n \"Scroll up by N lines.\"\n (vertico--goto (max 0 (+ vertico--index n))))\n\n(defun vertico-mouse--scroll-down (n)\n \"Scroll down by N lines.\"\n (vertico-mouse--scroll-up (- n)))\n\n(defun vertico-mouse--setup ()\n \"Setup mouse scrolling.\"\n (setq-local mwheel-scroll-up-function #'vertico-mouse--scroll-up\n mwheel-scroll-down-function #'vertico-mouse--scroll-down))\n\n;;;###autoload\n(define-minor-mode vertico-mouse-mode\n \"Mouse support for Vertico.\"\n :global t :group 'vertico\n (cond\n (vertico-mouse-mode\n (advice-add #'vertico--format-candidate :around #'vertico-mouse--format-candidate)\n (advice-add #'vertico--setup :after #'vertico-mouse--setup))\n (t\n (advice-remove #'vertico--format-candidate #'vertico-mouse--format-candidate)\n (advice-remove #'vertico--setup #'vertico-mouse--setup))))\n\n(provide 'vertico-mouse)\n;;; vertico-mouse.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-multiform.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2336165,"end":2336209},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2336209},"to":{"change":7,"start":2327232,"end":2327232},"introduced_by":7}],"inode":{"change":7,"pos":2327232}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2327232},"to":{"change":7,"start":2327233,"end":2336164},"introduced_by":7}],"inode":{"change":7,"pos":2327232}},"content":[{"Del":";;; vertico-multiform.el --- Configure Vertico in different forms per command -*- lexical-binding: t -*-\n\n;; Copyright (C) 2021, 2022 Free Software Foundation, Inc.\n\n;; Author: Daniel Mendler \n;; Maintainer: Daniel Mendler \n;; Created: 2021\n;; Version: 0.1\n;; Package-Requires: ((emacs \"27.1\") (vertico \"0.28\"))\n;; Homepage: https://github.com/minad/vertico\n\n;; This file is part of GNU Emacs.\n\n;; This program is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; This package is a Vertico extension for fine tuning the Vertico\n;; display and other minibuffer modes per command or completion\n;; category. For some commands you may want to use the `vertico-buffer'\n;; display and for completion categories like file you prefer the\n;; `vertico-grid-mode'.\n;;\n;; Example:\n;;\n;; (setq vertico-multiform-commands\n;; '((consult-line buffer)\n;; (consult-imenu reverse buffer)\n;; (execute-extended-command flat)))\n;;\n;; (setq vertico-multiform-categories\n;; '((file buffer grid)\n;; (imenu (:not indexed mouse))\n;; (symbol (vertico-sort-function . vertico-sort-alpha))))\n;;\n;; (vertico-multiform-mode)\n;;\n;; Temporary toggling between the different display modes is\n;; possible. Bind the following commands:\n;;\n;; (define-key vertico-map \"\\M-V\" #'vertico-multiform-vertical)\n;; (define-key vertico-map \"\\M-G\" #'vertico-multiform-grid)\n;; (define-key vertico-map \"\\M-F\" #'vertico-multiform-flat)\n;; (define-key vertico-map \"\\M-R\" #'vertico-multiform-reverse)\n;; (define-key vertico-map \"\\M-U\" #'vertico-multiform-unobtrusive)\n;;\n;;; Code:\n\n(require 'vertico)\n(eval-when-compile (require 'cl-lib))\n\n(defcustom vertico-multiform-commands nil\n \"Alist of commands/regexps and list of settings to turn on per command.\nTakes precedence over `vertico-multiform-categories'. A setting can\neither be a mode symbol, a function, an inverted mode symbol or\nfunction, or a cons cell of variable name and value. The key t can be\nused to specify catch all/default settings.\"\n :group 'vertico\n :type '(alist :key-type (choice symbol regexp (const t)) :value-type (repeat sexp)))\n\n(defcustom vertico-multiform-categories nil\n \"Alist of categories/regexps and list of settings to turn on per category.\nSee `vertico-multiform-commands' on details about the settings. The\ncategory settings have lower precedence than\n`vertico-multiform-commands'.\"\n :group 'vertico\n :type '(alist :key-type (choice symbol regexp (const t)) :value-type (repeat sexp)))\n\n(defvar vertico-multiform--stack nil)\n\n(defun vertico-multiform--toggle (arg)\n \"Toggle modes from stack depending on ARG.\"\n (when-let ((win (active-minibuffer-window))\n (modes (car vertico-multiform--stack)))\n (when (> arg 0) (setq modes (reverse modes)))\n (with-selected-window win\n (dolist (m modes)\n (if (eq (car-safe m) :not)\n (funcall (cdr m) (- arg))\n (funcall m arg))))))\n\n(defun vertico-multiform--lookup (key list)\n \"Lookup symbolic KEY in LIST.\nThe keys in LIST can be symbols or regexps.\"\n (and (symbolp key)\n (seq-find (lambda (x)\n (cond\n ((eq (car x) t))\n ((symbolp (car x)) (eq key (car x)))\n ((string-match-p (car x) (symbol-name key)))))\n list)))\n\n(defun vertico-multiform--setup ()\n \"Enable modes at minibuffer setup.\"\n (let ((cat (completion-metadata-get\n (completion-metadata\n (buffer-substring (minibuffer-prompt-end)\n (max (minibuffer-prompt-end) (point)))\n minibuffer-completion-table\n minibuffer-completion-predicate)\n 'category))\n (exit (make-symbol \"vertico-multiform--exit\"))\n (depth (recursion-depth))\n (modes nil))\n (fset exit (lambda ()\n (when (= depth (recursion-depth))\n (remove-hook 'minibuffer-exit-hook exit)\n (vertico-multiform--toggle -1)\n (pop vertico-multiform--stack))))\n (add-hook 'minibuffer-exit-hook exit)\n (dolist (x (cdr (or (vertico-multiform--lookup this-command vertico-multiform-commands)\n (vertico-multiform--lookup cat vertico-multiform-categories))))\n (pcase x\n (`(:not . ,fs)\n (dolist (f fs)\n (let ((sym (and (symbolp f) (intern-soft (format \"vertico-%s-mode\" f)))))\n (push (cons :not (if (and sym (fboundp sym)) sym f)) modes))))\n ((or (pred functionp) (pred symbolp))\n (let ((sym (and (symbolp x) (intern-soft (format \"vertico-%s-mode\" x)))))\n (push (if (and sym (fboundp sym)) sym x) modes)))\n (`(,k . ,v) (set (make-local-variable k) v))\n (_ (error \"Invalid multiform setting %S\" x))))\n (push modes vertico-multiform--stack)\n (vertico-multiform--toggle 1)\n (vertico--setup)))\n\n(defun vertico-multiform--advice (&rest app)\n \"Override advice for `vertico--advice' switching modes on and off.\nAPP is the original function call.\"\n (unwind-protect\n (progn\n (vertico-multiform--toggle -1)\n (minibuffer-with-setup-hook #'vertico-multiform--setup\n (apply app)))\n (vertico-multiform--toggle 1)))\n\n;;;###autoload\n(define-minor-mode vertico-multiform-mode\n \"Configure Vertico in various forms per command.\"\n :global t :group 'vertico\n (when (/= (recursion-depth) 0)\n (warn \"vertico-multiform must not be toggled from recursive minibuffers\"))\n (when vertico-multiform--stack\n (warn \"vertico-multiform state is inconsistent\")\n (setq vertico-multiform--stack nil))\n (if vertico-multiform-mode\n (advice-add #'vertico--advice :override #'vertico-multiform--advice)\n (advice-remove #'vertico--advice #'vertico-multiform--advice)))\n\n(defun vertico-multiform--ensure ()\n \"Ensure that multiform mode is enabled.\"\n (unless (minibufferp)\n (user-error \"`%s' must be called inside the minibuffer\" this-command))\n (unless vertico-multiform-mode\n (user-error \"`vertico-multiform-mode' is not enabled\")))\n\n(defun vertico-multiform--temporary-mode (mode arg)\n \"Enable or disable MODE temporarily in minibuffer given ARG.\nARG can be nil, t, -1, 1 or toggle.\"\n (unless (minibufferp)\n (user-error \"`%s' must be called inside the minibuffer\" this-command))\n (unless vertico-multiform-mode\n (user-error \"`vertico-multiform-mode' is not enabled\"))\n (setq arg (pcase arg\n ('toggle (not (and (boundp mode) (symbol-value mode))))\n ((or 'nil 't) arg)\n (_ (> arg 0))))\n (unless (eq arg (and (boundp mode) (symbol-value mode)))\n (funcall mode (if arg 1 -1))\n (let ((modes (car vertico-multiform--stack))\n (not-mode (cons :not mode)))\n (when arg\n (cl-rotatef not-mode mode))\n (if (member mode modes)\n (setcar vertico-multiform--stack (remove mode modes))\n (push not-mode (car vertico-multiform--stack))))))\n\n(defvar-local vertico-multiform--display-last nil)\n\n(defun vertico-multiform-vertical (&optional mode)\n \"Toggle to display MODE temporarily in minibuffer.\nMODE defaults to the vertical display.\"\n (interactive)\n (let (last)\n (dolist (m '(vertico-unobtrusive-mode vertico-flat-mode\n vertico-grid-mode vertico-reverse-mode))\n (when (and (boundp m) (symbol-value m))\n (setq last m)\n (vertico-multiform--temporary-mode m -1)))\n (when (eq last mode)\n (setq mode vertico-multiform--display-last))\n (when mode\n (vertico-multiform--temporary-mode mode 1))\n (setq vertico-multiform--display-last last)))\n\n(defmacro vertico-multiform--define-display-toggle (name)\n \"Define toggle for display mode NAME.\"\n (let ((sym (intern (format \"vertico-multiform-%s\" name))))\n `(progn\n (defun ,sym ()\n ,(format \"Toggle the %s display.\" name)\n (interactive)\n (vertico-multiform-vertical ',(intern (format \"vertico-%s-mode\" name))))\n (put ',sym 'completion-predicate #'vertico--command-p))))\n\n(vertico-multiform--define-display-toggle grid)\n(vertico-multiform--define-display-toggle flat)\n(vertico-multiform--define-display-toggle reverse)\n(vertico-multiform--define-display-toggle unobtrusive)\n\n(provide 'vertico-multiform)\n;;; vertico-multiform.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2327192,"end":2327230},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2327230},"to":{"change":7,"start":2326819,"end":2326819},"introduced_by":7}],"inode":{"change":7,"pos":2326819}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2326819},"to":{"change":7,"start":2326820,"end":2327191},"introduced_by":7}],"inode":{"change":7,"pos":2326819}},"content":[{"Del":";; Generated package description from vertico.el -*- no-byte-compile: t -*-\n(define-package \"vertico\" \"0.28\" \"VERTical Interactive COmpletion\" '((emacs \"27.1\")) :commit \"31060942d65ccd3c1b488d8db497af5eda9ac7fc\" :authors '((\"Daniel Mendler\" . \"mail@daniel-mendler.de\")) :maintainer '(\"Daniel Mendler\" . \"mail@daniel-mendler.de\") :url \"https://github.com/minad/vertico\")\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-quick.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2326777,"end":2326817},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2326817},"to":{"change":7,"start":2321220,"end":2321220},"introduced_by":7}],"inode":{"change":7,"pos":2321220}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2321220},"to":{"change":7,"start":2321221,"end":2326776},"introduced_by":7}],"inode":{"change":7,"pos":2321220}},"content":[{"Del":";;; vertico-quick.el --- Quick keys for Vertico -*- lexical-binding: t -*-\n\n;; Copyright (C) 2021, 2022 Free Software Foundation, Inc.\n\n;; Author: Daniel Mendler \n;; Maintainer: Daniel Mendler \n;; Created: 2021\n;; Version: 0.1\n;; Package-Requires: ((emacs \"27.1\") (vertico \"0.28\"))\n;; Homepage: https://github.com/minad/vertico\n\n;; This file is part of GNU Emacs.\n\n;; This program is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; This package is a Vertico extension, which prefixes candidates with\n;; quick keys. Typing these quick keys allows you to select the\n;; candidate in front of them. This is designed to be a faster\n;; alternative to selecting a candidate with `vertico-next' and\n;; `vertico-previous'.\n;; (define-key vertico-map \"\\M-q\" #'vertico-quick-insert)\n;; (define-key vertico-map \"\\C-q\" #'vertico-quick-exit)\n\n;;; Code:\n\n(require 'vertico)\n(eval-when-compile\n (require 'cl-lib)\n (require 'subr-x))\n\n(defface vertico-quick1\n '((((class color) (min-colors 88) (background dark))\n :background \"#0050af\" :foreground \"white\" :inherit bold)\n (((class color) (min-colors 88) (background light))\n :background \"#7feaff\" :foreground \"black\" :inherit bold)\n (t :background \"blue\" :foreground \"white\" :inherit bold))\n \"Face used for the first quick key.\"\n :group 'vertico-faces)\n\n(defface vertico-quick2\n '((((class color) (min-colors 88) (background dark))\n :background \"#7f1f7f\" :foreground \"white\" :inherit bold)\n (((class color) (min-colors 88) (background light))\n :background \"#ffaaff\" :foreground \"black\" :inherit bold)\n (t :background \"magenta\" :foreground \"white\" :inherit bold))\n \"Face used for the second quick key.\"\n :group 'vertico-faces)\n\n(defcustom vertico-quick1 \"asdfgh\"\n \"Single level quick keys.\"\n :type 'string\n :group 'vertico)\n\n(defcustom vertico-quick2 \"jkl\"\n \"Two level quick keys.\"\n :type 'string\n :group 'vertico)\n\n(defun vertico-quick--keys (two index start)\n \"Format quick keys prefix.\nINDEX is the current candidate index.\nSTART is the index of the first displayed candidate.\nTWO is non-nil if two keys should be displayed.\"\n (let* ((fst (length vertico-quick1))\n (snd (length vertico-quick2))\n (idx (- index start))\n (len (+ fst snd)))\n (if (>= idx fst)\n (let ((first (elt vertico-quick2 (mod (/ (- idx fst) len) snd)))\n (second (elt (concat vertico-quick1 vertico-quick2) (mod (- idx fst) len))))\n (cond\n ((eq first two)\n (list\n (concat \" \" (propertize (char-to-string second) 'face 'vertico-quick1))\n (cons second index)))\n (two\n (list \" \"))\n (t\n (list\n (concat (propertize (char-to-string first) 'face 'vertico-quick1)\n (propertize (char-to-string second) 'face 'vertico-quick2))\n (cons first (list first))))))\n (let ((first (elt vertico-quick1 (mod idx fst))))\n (if two\n (list \" \")\n (list\n (concat (propertize (char-to-string first) 'face 'vertico-quick1) \" \")\n (cons first index)))))))\n\n(defun vertico-quick--read (&optional first)\n \"Read quick key given FIRST pressed key.\"\n (cl-letf* ((list nil)\n (orig (symbol-function #'vertico--format-candidate))\n ((symbol-function #'vertico--format-candidate)\n (lambda (cand prefix suffix index start)\n (pcase-let ((`(,keys . ,events) (vertico-quick--keys first index start)))\n (setq list (nconc events list))\n (if (bound-and-true-p vertico-flat-mode)\n (setq keys (replace-regexp-in-string \" \" \"\" keys)\n cand (string-trim cand)\n cand (substring cand (min (length cand) (length keys))))\n (setq keys (concat keys (make-string (max 1 (- (length prefix) 2)) ?\\s))))\n (funcall orig cand keys suffix index start)))))\n (vertico--exhibit)\n (alist-get (read-key) list)))\n\n;;;###autoload\n(defun vertico-quick-jump ()\n \"Jump to candidate using quick keys.\"\n (interactive)\n (if (= vertico--total 0)\n (and (minibuffer-message \"No match\") nil)\n (let ((idx (vertico-quick--read)))\n (when (consp idx) (setq idx (vertico-quick--read (car idx))))\n (when idx (setq vertico--index idx)))))\n\n;;;###autoload\n(defun vertico-quick-exit ()\n \"Exit with candidate using quick keys.\"\n (interactive)\n (when (vertico-quick-jump)\n (vertico-exit)))\n\n;;;###autoload\n(defun vertico-quick-insert ()\n \"Insert candidate using quick keys.\"\n (interactive)\n (when (vertico-quick-jump)\n (vertico-insert)))\n\n;; Emacs 28: Do not show Vertico commands in M-X\n(dolist (sym '(vertico-quick-jump vertico-quick-exit vertico-quick-insert))\n (put sym 'completion-predicate #'vertico--command-p))\n\n(provide 'vertico-quick)\n;;; vertico-quick.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-repeat.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2321177,"end":2321218},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2321218},"to":{"change":7,"start":2313024,"end":2313024},"introduced_by":7}],"inode":{"change":7,"pos":2313024}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2313024},"to":{"change":7,"start":2313025,"end":2321176},"introduced_by":7}],"inode":{"change":7,"pos":2313024}},"content":[{"Del":";;; vertico-repeat.el --- Repeat Vertico sessions -*- lexical-binding: t -*-\n\n;; Copyright (C) 2021, 2022 Free Software Foundation, Inc.\n\n;; Author: Daniel Mendler \n;; Maintainer: Daniel Mendler \n;; Created: 2021\n;; Version: 0.1\n;; Package-Requires: ((emacs \"27.1\") (vertico \"0.28\"))\n;; Homepage: https://github.com/minad/vertico\n\n;; This file is part of GNU Emacs.\n\n;; This program is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; This package is a Vertico extension, which enables repetition of\n;; Vertico sessions via the `vertico-repeat', `vertico-repeat-last' and\n;; `vertico-repeat-select' commands. If the repeat commands are called\n;; from an existing Vertico minibuffer session, only sessions\n;; corresponding to the current minibuffer command are offered via\n;; completion. It is necessary to register a minibuffer setup hook,\n;; which saves the Vertico state for repetition. In order to save the\n;; history across Emacs sessions, enable `savehist-mode' and add\n;; `vertico-repeat-history' to `savehist-additional-variables'.\n;;\n;; (global-set-key \"\\M-R\" #'vertico-repeat)\n;; (add-hook 'minibuffer-setup-hook #'vertico-repeat-save)\n\n;;; Code:\n\n(require 'vertico)\n(eval-when-compile (require 'cl-lib))\n\n(defcustom vertico-repeat-filter\n '(vertico-repeat\n vertico-repeat-select\n execute-extended-command\n execute-extended-command-for-buffer)\n \"List of commands to filter out from the history.\"\n :type '(repeat symbol)\n :group 'vertico)\n\n(defcustom vertico-repeat-transformers\n (list #'vertico-repeat--filter-empty\n #'vertico-repeat--filter-commands)\n \"List of functions to apply to history element before saving.\"\n :type '(repeat function)\n :group 'vertico)\n\n(defvar vertico-repeat-history nil)\n(defvar-local vertico-repeat--command nil)\n(defvar-local vertico-repeat--input nil)\n\n(defun vertico-repeat--filter-commands (session)\n \"Filter SESSION if command is listed in `vertico-repeat-filter'.\"\n (and (not (memq (car session) vertico-repeat-filter)) session))\n\n(defun vertico-repeat--filter-empty (session)\n \"Filter SESSION if input is empty.\"\n (and (cadr session) (not (equal (cadr session) \"\")) session))\n\n(defun vertico-repeat--save-input ()\n \"Save current minibuffer input.\"\n (setq vertico-repeat--input (minibuffer-contents-no-properties)))\n\n(defun vertico-repeat--save-exit ()\n \"Save command session in `vertico-repeat-history'.\"\n (let ((session `(,vertico-repeat--command\n ,vertico-repeat--input\n ,@(and vertico--lock-candidate\n (>= vertico--index 0)\n (list (substring-no-properties\n (nth vertico--index vertico--candidates))))))\n (transform vertico-repeat-transformers))\n (while (and transform (setq session (funcall (pop transform) session))))\n (when session\n (add-to-history 'vertico-repeat-history session))))\n\n(defun vertico-repeat--restore (session)\n \"Restore Vertico SESSION for `vertico-repeat'.\"\n (delete-minibuffer-contents)\n (insert (cadr session))\n (when (caddr session)\n (vertico--update)\n (when-let (idx (seq-position vertico--candidates (caddr session)))\n (setq vertico--index idx\n vertico--lock-candidate t)))\n (vertico--exhibit))\n\n;;;###autoload\n(defun vertico-repeat-save ()\n \"Save Vertico session for `vertico-repeat'.\nThis function must be registered as `minibuffer-setup-hook'.\"\n (when (and vertico--input (symbolp this-command))\n (setq vertico-repeat--command this-command)\n (add-hook 'post-command-hook #'vertico-repeat--save-input nil 'local)\n (add-hook 'minibuffer-exit-hook #'vertico-repeat--save-exit nil 'local)))\n\n;;;###autoload\n(defun vertico-repeat-last (&optional session)\n \"Repeat last Vertico completion SESSION.\nIf called interactively from an existing Vertico session,\n`vertico-repeat-last' will restore the last input and\nlast selected candidate for the current command.\"\n (interactive\n (list (or (if vertico-repeat--command\n (seq-find (lambda (x) (eq (car x) vertico-repeat--command))\n vertico-repeat-history)\n (car vertico-repeat-history))\n (user-error \"No repeatable Vertico session\"))))\n (if (and vertico-repeat--command (eq vertico-repeat--command (car session)))\n (vertico-repeat--restore session)\n (minibuffer-with-setup-hook\n (apply-partially #'vertico-repeat--restore session)\n (command-execute (setq this-command (car session))))))\n\n;;;###autoload\n(defun vertico-repeat-select ()\n \"Select a Vertico session from the session history and repeat it.\nIf called from an existing Vertico session, you can select among\nprevious sessions for the current command.\"\n (interactive)\n (let* ((current-cmd vertico-repeat--command)\n (trimmed\n (delete-dups\n (or\n (cl-loop\n for session in vertico-repeat-history\n if (or (not current-cmd) (eq (car session) current-cmd))\n collect\n (list\n (symbol-name (car session))\n (replace-regexp-in-string\n \"\\\\s-+\" \" \"\n (string-trim (cadr session)))\n (if (caddr session)\n (replace-regexp-in-string\n \"\\\\s-+\" \" \"\n (string-trim (caddr session)))\n \"\")\n session))\n (user-error \"No repeatable Vertico session\"))))\n (max-cmd (cl-loop for (cmd . _) in trimmed\n maximize (string-width cmd)))\n (max-input (cl-loop for (_cmd input . _) in trimmed\n maximize (string-width input)))\n (formatted (cl-loop\n for (cmd input cand session) in trimmed collect\n (cons\n (concat\n (and (not current-cmd)\n (propertize cmd 'face 'font-lock-function-name-face))\n (and (not current-cmd)\n (make-string (- max-cmd (string-width cmd) -4) ?\\s))\n input\n (make-string (- max-input (string-width input) -4) ?\\s)\n (and cand (propertize cand 'face 'font-lock-comment-face)))\n session)))\n (enable-recursive-minibuffers t)\n (selected (or (cdr (assoc (completing-read\n (if current-cmd\n (format \"History of %s: \" current-cmd)\n \"Completion history: \")\n (lambda (str pred action)\n (if (eq action 'metadata)\n '(metadata (display-sort-function . identity)\n (cycle-sort-function . identity))\n (complete-with-action action formatted str pred)))\n nil t nil t)\n formatted))\n (user-error \"No session selected\"))))\n (vertico-repeat-last selected)))\n\n;;;###autoload\n(defun vertico-repeat (&optional arg)\n \"Repeat last Vertico session.\nIf prefix ARG is non-nil, offer completion menu to select from session history.\"\n (interactive \"P\")\n (call-interactively\n (if arg #'vertico-repeat-select #'vertico-repeat-last)))\n\n(provide 'vertico-repeat)\n;;; vertico-repeat.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-reverse.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2312980,"end":2313022},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2313022},"to":{"change":7,"start":2309307,"end":2309307},"introduced_by":7}],"inode":{"change":7,"pos":2309307}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2309307},"to":{"change":7,"start":2309308,"end":2312979},"introduced_by":7}],"inode":{"change":7,"pos":2309307}},"content":[{"Del":";;; vertico-reverse.el --- Reverse the Vertico display -*- lexical-binding: t -*-\n\n;; Copyright (C) 2021, 2022 Free Software Foundation, Inc.\n\n;; Author: Daniel Mendler \n;; Maintainer: Daniel Mendler \n;; Created: 2021\n;; Version: 0.1\n;; Package-Requires: ((emacs \"27.1\") (vertico \"0.28\"))\n;; Homepage: https://github.com/minad/vertico\n\n;; This file is part of GNU Emacs.\n\n;; This program is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; This package is a Vertico extension, which reverses the list of candidates.\n;;\n;; The mode can be enabled globally or via `vertico-multiform-mode' per\n;; command or completion category. Alternatively the reverse display can be\n;; toggled temporarily if `vertico-multiform-mode' is enabled:\n;;\n;; (define-key vertico-map \"\\M-R\" #'vertico-multiform-reverse)\n\n;;; Code:\n\n(require 'vertico)\n\n(defvar vertico-reverse-map\n (let ((map (make-sparse-keymap)))\n (define-key map [remap beginning-of-buffer] #'vertico-last)\n (define-key map [remap minibuffer-beginning-of-buffer] #'vertico-last)\n (define-key map [remap end-of-buffer] #'vertico-first)\n (define-key map [remap scroll-down-command] #'vertico-scroll-up)\n (define-key map [remap scroll-up-command] #'vertico-scroll-down)\n (define-key map [remap next-line] #'vertico-previous)\n (define-key map [remap previous-line] #'vertico-next)\n (define-key map [remap next-line-or-history-element] #'vertico-previous)\n (define-key map [remap previous-line-or-history-element] #'vertico-next)\n (define-key map [remap backward-paragraph] #'vertico-next-group)\n (define-key map [remap forward-paragraph] #'vertico-previous-group)\n map)\n \"Additional keymap activated in reverse mode.\")\n\n(defun vertico-reverse--display-candidates (lines)\n \"Display LINES in reverse.\"\n (move-overlay vertico--candidates-ov (point-min) (point-min))\n (setq lines (nreverse lines))\n (unless (eq vertico-resize t)\n (setq lines (nconc (make-list (max 0 (- vertico-count (length lines))) \"\\n\") lines)))\n (let ((string (apply #'concat lines)))\n (add-face-text-property 0 (length string) 'default 'append string)\n (overlay-put vertico--candidates-ov 'before-string string)\n (overlay-put vertico--candidates-ov 'after-string nil))\n (vertico--resize-window (length lines)))\n\n;;;###autoload\n(define-minor-mode vertico-reverse-mode\n \"Reverse the Vertico display.\"\n :global t :group 'vertico\n ;; Reset overlays\n (dolist (buf (buffer-list))\n (when-let (ov (buffer-local-value 'vertico--candidates-ov buf))\n (overlay-put ov 'before-string nil)))\n (cond\n (vertico-reverse-mode\n (add-to-list 'minor-mode-map-alist `(vertico--input . ,vertico-reverse-map))\n (advice-add #'vertico--display-candidates :override #'vertico-reverse--display-candidates))\n (t\n (setq minor-mode-map-alist (delete `(vertico--input . ,vertico-reverse-map) minor-mode-map-alist))\n (advice-remove #'vertico--display-candidates #'vertico-reverse--display-candidates))))\n\n(provide 'vertico-reverse)\n;;; vertico-reverse.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico-unobtrusive.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2309259,"end":2309305},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2309305},"to":{"change":7,"start":2306256,"end":2306256},"introduced_by":7}],"inode":{"change":7,"pos":2306256}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2306256},"to":{"change":7,"start":2306257,"end":2309258},"introduced_by":7}],"inode":{"change":7,"pos":2306256}},"content":[{"Del":";;; vertico-unobtrusive.el --- Unobtrusive display for Vertico -*- lexical-binding: t -*-\n\n;; Copyright (C) 2021, 2022 Free Software Foundation, Inc.\n\n;; Author: Daniel Mendler \n;; Maintainer: Daniel Mendler \n;; Created: 2021\n;; Version: 0.1\n;; Package-Requires: ((emacs \"27.1\") (vertico \"0.28\"))\n;; Homepage: https://github.com/minad/vertico\n\n;; This file is part of GNU Emacs.\n\n;; This program is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; This package is a Vertico extension providing a unobtrusive display.\n;; The unobtrusive display only shows the topmost candidate and nothing\n;; else, it is a simple derivative of `vertico-flat-mode'.\n;;\n;; The mode can be enabled globally or via `vertico-multiform-mode' per\n;; command or completion category. Alternatively the unobtrusive display\n;; can be toggled temporarily if `vertico-multiform-mode' is enabled:\n;;\n;; (define-key vertico-map \"\\M-U\" #'vertico-multiform-unobtrusive)\n\n;;; Code:\n\n(require 'vertico-flat)\n\n(defvar vertico-unobtrusive--orig-count nil)\n(defvar vertico-unobtrusive--orig-count-format nil)\n\n;;;###autoload\n(define-minor-mode vertico-unobtrusive-mode\n \"Unobtrusive display for Vertico.\"\n :global t :group 'vertico\n (cond\n (vertico-unobtrusive-mode\n (unless vertico-unobtrusive--orig-count\n (push '(vertico-current . default) (default-value 'face-remapping-alist))\n (setq vertico-unobtrusive--orig-count vertico-count\n vertico-unobtrusive--orig-count-format vertico-count-format\n vertico-count 1\n vertico-count-format nil\n vertico-flat-format `(:separator nil :ellipsis nil ,@vertico-flat-format)))\n (advice-add #'vertico--setup :before #'redisplay)\n (vertico-flat-mode 1))\n (t\n (when vertico-unobtrusive--orig-count\n (setq-default face-remapping-alist\n (remove '(vertico-current . default)\n (default-value 'face-remapping-alist)))\n (setq vertico-count vertico-unobtrusive--orig-count\n vertico-count-format vertico-unobtrusive--orig-count-format\n vertico-flat-format (nthcdr 4 vertico-flat-format)\n vertico-unobtrusive--orig-count nil))\n (advice-remove #'vertico--setup #'redisplay)\n (vertico-flat-mode -1)))\n (setq vertico-flat-mode nil))\n\n(provide 'vertico-unobtrusive)\n;;; vertico-unobtrusive.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2306220,"end":2306254},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2306254},"to":{"change":7,"start":2270998,"end":2270998},"introduced_by":7}],"inode":{"change":7,"pos":2270998}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2270998},"to":{"change":7,"start":2270999,"end":2306219},"introduced_by":7}],"inode":{"change":7,"pos":2270998}},"content":[{"Del":";;; vertico.el --- VERTical Interactive COmpletion -*- lexical-binding: t -*-\n\n;; Copyright (C) 2021, 2022 Free Software Foundation, Inc.\n\n;; Author: Daniel Mendler \n;; Maintainer: Daniel Mendler \n;; Created: 2021\n;; Version: 0.28\n;; Package-Requires: ((emacs \"27.1\"))\n;; Homepage: https://github.com/minad/vertico\n\n;; This file is part of GNU Emacs.\n\n;; This program is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program. If not, see .\n\n;;; Commentary:\n\n;; Vertico provides a performant and minimalistic vertical completion UI\n;; based on the default completion system. By reusing the built-in\n;; facilities, Vertico achieves full compatibility with built-in Emacs\n;; completion commands and completion tables.\n\n;;; Code:\n\n(require 'seq)\n(eval-when-compile\n (require 'cl-lib)\n (require 'subr-x))\n\n(defgroup vertico nil\n \"VERTical Interactive COmpletion.\"\n :group 'convenience\n :group 'minibuffer\n :prefix \"vertico-\")\n\n(defcustom vertico-count-format (cons \"%-6s \" \"%s/%s\")\n \"Format string used for the candidate count.\"\n :type '(choice (const :tag \"No candidate count\" nil) (cons string string)))\n\n(defcustom vertico-group-format\n (concat #(\" \" 0 4 (face vertico-group-separator))\n #(\" %s \" 0 4 (face vertico-group-title))\n #(\" \" 0 1 (face vertico-group-separator display (space :align-to right))))\n \"Format string used for the group title.\"\n :type '(choice (const :tag \"No group titles\" nil) string))\n\n(defcustom vertico-count 10\n \"Maximal number of candidates to show.\"\n :type 'integer)\n\n(defcustom vertico-scroll-margin 2\n \"Number of lines at the top and bottom when scrolling.\nThe value should lie between 0 and vertico-count/2.\"\n :type 'integer)\n\n(defcustom vertico-resize resize-mini-windows\n \"How to resize the Vertico minibuffer window, see `resize-mini-windows'.\"\n :type '(choice (const :tag \"Fixed\" nil)\n (const :tag \"Shrink and grow\" t)\n (const :tag \"Grow-only\" grow-only)))\n\n(defcustom vertico-cycle nil\n \"Enable cycling for `vertico-next' and `vertico-previous'.\"\n :type 'boolean)\n\n(defcustom vertico-multiline\n (cons #(\"⤶\" 0 1 (face vertico-multiline)) #(\"…\" 0 1 (face vertico-multiline)))\n \"Replacements for multiline strings.\"\n :type '(cons (string :tag \"Newline\") (string :tag \"Truncation\")))\n\n(defcustom vertico-sort-function #'vertico-sort-history-length-alpha\n \"Default sorting function, used if no `display-sort-function' is specified.\"\n :type `(choice\n (const :tag \"No sorting\" nil)\n (const :tag \"By history, length and alpha\" ,#'vertico-sort-history-length-alpha)\n (const :tag \"By history and alpha\" ,#'vertico-sort-history-alpha)\n (const :tag \"By length and alpha\" ,#'vertico-sort-length-alpha)\n (const :tag \"Alphabetically\" ,#'vertico-sort-alpha)\n (function :tag \"Custom function\")))\n\n(defcustom vertico-sort-override-function nil\n \"Override sort function which overrides the `display-sort-function'.\"\n :type '(choice (const nil) function))\n\n(defgroup vertico-faces nil\n \"Faces used by Vertico.\"\n :group 'vertico\n :group 'faces)\n\n(defface vertico-multiline '((t :inherit shadow))\n \"Face used to highlight multiline replacement characters.\")\n\n(defface vertico-group-title '((t :inherit shadow :slant italic))\n \"Face used for the title text of the candidate group headlines.\")\n\n(defface vertico-group-separator '((t :inherit shadow :strike-through t))\n \"Face used for the separator lines of the candidate groups.\")\n\n(defface vertico-current '((t :inherit highlight :extend t))\n \"Face used to highlight the currently selected candidate.\")\n\n(defvar vertico-map\n (let ((map (make-composed-keymap nil minibuffer-local-map)))\n (define-key map [remap beginning-of-buffer] #'vertico-first)\n (define-key map [remap minibuffer-beginning-of-buffer] #'vertico-first)\n (define-key map [remap end-of-buffer] #'vertico-last)\n (define-key map [remap scroll-down-command] #'vertico-scroll-down)\n (define-key map [remap scroll-up-command] #'vertico-scroll-up)\n (define-key map [remap next-line] #'vertico-next)\n (define-key map [remap previous-line] #'vertico-previous)\n (define-key map [remap next-line-or-history-element] #'vertico-next)\n (define-key map [remap previous-line-or-history-element] #'vertico-previous)\n (define-key map [remap backward-paragraph] #'vertico-previous-group)\n (define-key map [remap forward-paragraph] #'vertico-next-group)\n (define-key map [remap exit-minibuffer] #'vertico-exit)\n (define-key map [remap kill-ring-save] #'vertico-save)\n (define-key map \"\\M-\\r\" #'vertico-exit-input)\n (define-key map \"\\t\" #'vertico-insert)\n map)\n \"Vertico minibuffer keymap derived from `minibuffer-local-map'.\")\n\n(defvar-local vertico--highlight #'identity\n \"Deferred candidate highlighting function.\")\n\n(defvar-local vertico--history-hash nil\n \"History hash table and corresponding base string.\")\n\n(defvar-local vertico--candidates-ov nil\n \"Overlay showing the candidates.\")\n\n(defvar-local vertico--count-ov nil\n \"Overlay showing the number of candidates.\")\n\n(defvar-local vertico--index -1\n \"Index of current candidate or negative for prompt selection.\")\n\n(defvar-local vertico--scroll 0\n \"Scroll position.\")\n\n(defvar-local vertico--input nil\n \"Cons of last minibuffer contents and point or t.\")\n\n(defvar-local vertico--candidates nil\n \"List of candidates.\")\n\n(defvar-local vertico--metadata nil\n \"Completion metadata.\")\n\n(defvar-local vertico--base \"\"\n \"Base string, which is concatenated with the candidate.\")\n\n(defvar-local vertico--total 0\n \"Length of the candidate list `vertico--candidates'.\")\n\n(defvar-local vertico--lock-candidate nil\n \"Lock-in current candidate.\")\n\n(defvar-local vertico--lock-groups nil\n \"Lock-in current group order.\")\n\n(defvar-local vertico--all-groups nil\n \"List of all group titles.\")\n\n(defvar-local vertico--groups nil\n \"List of current group titles.\")\n\n(defvar-local vertico--default-missing nil\n \"Default candidate is missing from candidates list.\")\n\n(defun vertico--history-hash ()\n \"Recompute history hash table and return it.\"\n (or (and (equal (car vertico--history-hash) vertico--base) (cdr vertico--history-hash))\n (let* ((base vertico--base)\n (base-size (length base))\n (hist (and (not (eq minibuffer-history-variable t)) ;; Disabled for `t'.\n (symbol-value minibuffer-history-variable)))\n (hash (make-hash-table :test #'equal :size (length hist))))\n (cl-loop for elem in hist for index from 0 do\n (when (or (= base-size 0)\n (and (>= (length elem) base-size)\n (eq t (compare-strings base 0 base-size elem 0 base-size))))\n (let ((file-sep (and (eq minibuffer-history-variable 'file-name-history)\n (string-match-p \"/\" elem base-size))))\n ;; Drop base string from history elements & special file handling.\n (when (or (> base-size 0) file-sep)\n (setq elem (substring elem base-size (and file-sep (1+ file-sep)))))\n (unless (gethash elem hash) (puthash elem index hash)))))\n (cdr (setq vertico--history-hash (cons base hash))))))\n\n(defun vertico--length-string< (x y)\n \"Sorting predicate which compares X and Y first by length then by `string<'.\"\n (or (< (length x) (length y)) (and (= (length x) (length y)) (string< x y))))\n\n(defun vertico--sort-decorated (list)\n \"Sort decorated LIST and remove decorations.\"\n (setq list (sort list #'car-less-than-car))\n (cl-loop for item on list do (setcar item (cdar item)))\n list)\n\n(defmacro vertico--define-sort (by bsize bindex bpred pred)\n \"Generate optimized sorting function.\nThe function is configured by BY, BSIZE, BINDEX, BPRED and PRED.\"\n `(defun ,(intern (mapconcat #'symbol-name `(vertico sort ,@by) \"-\")) (candidates)\n ,(concat \"Sort candidates by \" (mapconcat #'symbol-name by \", \") \".\")\n (let* ((buckets (make-vector ,bsize nil))\n ,@(and (eq (car by) 'history) '((hhash (vertico--history-hash)) (hcands))))\n (dolist (% candidates)\n ,(if (eq (car by) 'history)\n ;; Find recent candidates or fill buckets\n `(if-let (idx (gethash % hhash))\n (push (cons idx %) hcands)\n (let ((idx (min ,(1- bsize) ,bindex)))\n (aset buckets idx (cons % (aref buckets idx)))))\n ;; Fill buckets\n `(let ((idx (min ,(1- bsize) ,bindex)))\n (aset buckets idx (cons % (aref buckets idx))))))\n (nconc ,@(and (eq (car by) 'history) '((vertico--sort-decorated hcands)))\n (mapcan (lambda (bucket) (sort bucket #',bpred))\n (nbutlast (append buckets nil)))\n ;; Last bucket needs special treatment\n (sort (aref buckets ,(1- bsize)) #',pred)))))\n\n(vertico--define-sort (history length alpha) 32 (length %) string< vertico--length-string<)\n(vertico--define-sort (history alpha) 32 (if (eq % \"\") 0 (/ (aref % 0) 4)) string< string<)\n(vertico--define-sort (length alpha) 32 (length %) string< vertico--length-string<)\n(vertico--define-sort (alpha) 32 (if (eq % \"\") 0 (/ (aref % 0) 4)) string< string<)\n\n(defun vertico--affixate (cands)\n \"Annotate CANDS with annotation function.\"\n (if-let (aff (or (vertico--metadata-get 'affixation-function)\n (plist-get completion-extra-properties :affixation-function)))\n (funcall aff cands)\n (if-let (ann (or (vertico--metadata-get 'annotation-function)\n (plist-get completion-extra-properties :annotation-function)))\n (cl-loop for cand in cands collect\n (let ((suffix (or (funcall ann cand) \"\")))\n ;; The default completion UI adds the `completions-annotations' face\n ;; if no other faces are present.\n (unless (text-property-not-all 0 (length suffix) 'face nil suffix)\n (setq suffix (propertize suffix 'face 'completions-annotations)))\n (list cand \"\" suffix)))\n (cl-loop for cand in cands collect (list cand \"\" \"\")))))\n\n(defun vertico--move-to-front (elem list)\n \"Move ELEM to front of LIST.\"\n (if-let (found (member elem list))\n (let ((head (list (car found))))\n (nconc head (delq (setcar found nil) list)))\n list))\n\n;; bug#47711: Deferred highlighting for `completion-all-completions'\n;; XXX There is one complication: `completion--twq-all' already adds `completions-common-part'.\n;; See below `vertico--candidate'.\n(defun vertico--all-completions (&rest args)\n \"Compute all completions for ARGS with deferred highlighting.\"\n (cl-letf* ((orig-pcm (symbol-function #'completion-pcm--hilit-commonality))\n (orig-flex (symbol-function #'completion-flex-all-completions))\n ((symbol-function #'completion-flex-all-completions)\n (lambda (&rest args)\n ;; Unfortunately for flex we have to undo the deferred highlighting, since flex uses\n ;; the completion-score for sorting, which is applied during highlighting.\n (cl-letf (((symbol-function #'completion-pcm--hilit-commonality) orig-pcm))\n (apply orig-flex args))))\n ;; Defer the following highlighting functions\n (hl #'identity)\n ((symbol-function #'completion-hilit-commonality)\n (lambda (cands prefix &optional base)\n (setq hl (lambda (x) (nconc (completion-hilit-commonality x prefix base) nil)))\n (and cands (nconc cands base))))\n ((symbol-function #'completion-pcm--hilit-commonality)\n (lambda (pattern cands)\n (setq hl (lambda (x)\n ;; `completion-pcm--hilit-commonality' sometimes throws an internal error\n ;; for example when entering \"/sudo:://u\".\n (condition-case nil\n (completion-pcm--hilit-commonality pattern x)\n (t x))))\n cands)))\n ;; Only advise orderless after it has been loaded to avoid load order issues\n (if (and (fboundp 'orderless-highlight-matches) (fboundp 'orderless-pattern-compiler))\n (cl-letf (((symbol-function 'orderless-highlight-matches)\n (lambda (pattern cands)\n (let ((regexps (orderless-pattern-compiler pattern)))\n (setq hl (lambda (x) (orderless-highlight-matches regexps x))))\n cands)))\n (cons (apply #'completion-all-completions args) hl))\n (cons (apply #'completion-all-completions args) hl))))\n\n(defun vertico--metadata-get (prop)\n \"Return PROP from completion metadata.\"\n (completion-metadata-get vertico--metadata prop))\n\n(defun vertico--sort-function ()\n \"Return the sorting function.\"\n (or vertico-sort-override-function\n (vertico--metadata-get 'display-sort-function)\n vertico-sort-function))\n\n(defun vertico--filter-files (files)\n \"Filter FILES by `completion-ignored-extensions'.\"\n (let ((re (concat \"\\\$?:\\\\(?:\\\\`\\\\|/\\\$\\\\.\\\\.?/\\\\|\"\n (regexp-opt completion-ignored-extensions)\n \"\\\\)\\\\'\")))\n (or (seq-remove (lambda (x) (string-match-p re x)) files) files)))\n\n(defun vertico--recompute (pt content)\n \"Recompute state given PT and CONTENT.\"\n (pcase-let* ((before (substring content 0 pt))\n (after (substring content pt))\n ;; bug#47678: `completion-boundaries` fails for `partial-completion`\n ;; if the cursor is moved between the slashes of \"~//\".\n ;; See also marginalia.el which has the same issue.\n (bounds (or (condition-case nil\n (completion-boundaries\n before minibuffer-completion-table\n minibuffer-completion-predicate after)\n (t (cons 0 (length after))))))\n (field (substring content (car bounds) (+ pt (cdr bounds))))\n ;; `minibuffer-completing-file-name' has been obsoleted by the completion category\n (completing-file (eq 'file (vertico--metadata-get 'category)))\n (`(,all . ,hl) (vertico--all-completions\n content minibuffer-completion-table\n minibuffer-completion-predicate pt vertico--metadata))\n (base (or (when-let (z (last all)) (prog1 (cdr z) (setcdr z nil))) 0))\n (vertico--base (substring content 0 base))\n (def (or (car-safe minibuffer-default) minibuffer-default))\n (groups) (def-missing) (lock))\n ;; Filter the ignored file extensions. We cannot use modified predicate for this filtering,\n ;; since this breaks the special casing in the `completion-file-name-table' for `file-exists-p'\n ;; and `file-directory-p'.\n (when completing-file (setq all (vertico--filter-files all)))\n ;; Sort using the `display-sort-function' or the Vertico sort functions\n (setq all (delete-consecutive-dups (funcall (or (vertico--sort-function) #'identity) all)))\n ;; Move special candidates: \"field\" appears at the top, before \"field/\", before default value\n (when (stringp def)\n (setq all (vertico--move-to-front def all)))\n (when (and completing-file (not (string-suffix-p \"/\" field)))\n (setq all (vertico--move-to-front (concat field \"/\") all)))\n (setq all (vertico--move-to-front field all))\n (when-let (group-fun (and all (vertico--metadata-get 'group-function)))\n (setq groups (vertico--group-by group-fun all) all (car groups)))\n (setq def-missing (and def (equal content \"\") (not (member def all)))\n lock (and vertico--lock-candidate ;; Locked position of old candidate.\n (if (< vertico--index 0) -1\n (seq-position all (nth vertico--index vertico--candidates)))))\n `((vertico--base . ,vertico--base)\n (vertico--metadata . ,vertico--metadata)\n (vertico--candidates . ,all)\n (vertico--total . ,(length all))\n (vertico--highlight . ,hl)\n (vertico--default-missing . ,def-missing)\n (vertico--lock-candidate . ,lock)\n (vertico--groups . ,(cadr groups))\n (vertico--all-groups . ,(or (caddr groups) vertico--all-groups))\n ;; Compute new index. Select the prompt under these conditions:\n ;; * If there are no candidates\n ;; * If the default is missing from the candidate list.\n ;; * For matching content, as long as the full content\n ;; after the boundary is empty, including content after point.\n (vertico--index . ,(or lock\n (if (or def-missing (not all)\n (and (= (length vertico--base) (length content))\n (test-completion content minibuffer-completion-table\n minibuffer-completion-predicate)))\n -1 0))))))\n\n(defun vertico--cycle (list n)\n \"Rotate LIST to position N.\"\n (nconc (copy-sequence (nthcdr n list)) (seq-take list n)))\n\n(defun vertico--group-by (fun elems)\n \"Group ELEMS by FUN.\"\n (let ((ht (make-hash-table :test #'equal)) titles groups)\n ;; Build hash table of groups\n (while elems\n (let* ((title (funcall fun (car elems) nil))\n (group (gethash title ht)))\n (if group\n (setcdr group (setcdr (cdr group) elems)) ;; Append to tail of group\n (puthash title (cons elems elems) ht) ;; New group element (head . tail)\n (push title titles))\n (pop elems)))\n (setq titles (nreverse titles))\n ;; Cycle groups if `vertico--lock-groups' is set\n (when-let (group (and vertico--lock-groups\n (seq-find (lambda (group) (gethash group ht))\n vertico--all-groups)))\n (setq titles (vertico--cycle titles (seq-position titles group))))\n ;; Build group list\n (dolist (title titles)\n (push (gethash title ht) groups))\n ;; Unlink last tail\n (setcdr (cdar groups) nil)\n (setq groups (nreverse groups))\n ;; Link groups\n (let ((link groups))\n (while (cdr link)\n (setcdr (cdar link) (caadr link))\n (pop link)))\n ;; Check if new groups are found\n (dolist (group vertico--all-groups)\n (remhash group ht))\n (list (caar groups) titles\n (if (hash-table-empty-p ht) vertico--all-groups titles))))\n\n(defun vertico--remote-p (path)\n \"Return t if PATH is a remote path.\"\n (string-match-p \"\\\\`/[^/|:]+:\" (substitute-in-file-name path)))\n\n(defun vertico--prepare ()\n \"Ensure that the state is prepared before running the next command.\"\n (when (and (symbolp this-command) (string-prefix-p \"vertico-\" (symbol-name this-command)))\n (vertico--update)))\n\n(defun vertico--update (&optional interruptible)\n \"Update state, optionally INTERRUPTIBLE.\"\n (let* ((pt (max 0 (- (point) (minibuffer-prompt-end))))\n (content (minibuffer-contents-no-properties))\n (input (cons content pt)))\n (unless (or (and interruptible (input-pending-p)) (equal vertico--input input))\n ;; Redisplay the minibuffer such that the input becomes immediately\n ;; visible before the expensive candidate recomputation (Issue #89).\n ;; Do not redisplay during initialization, since this leads to flicker.\n (when (and interruptible (consp vertico--input)) (redisplay))\n (pcase (let ((vertico--metadata (completion-metadata (substring content 0 pt)\n minibuffer-completion-table\n minibuffer-completion-predicate)))\n ;; If Tramp is used, do not compute the candidates in an interruptible fashion,\n ;; since this will break the Tramp password and user name prompts (See #23).\n (if (or (not interruptible)\n (and (eq 'file (vertico--metadata-get 'category))\n (or (vertico--remote-p content) (vertico--remote-p default-directory))))\n (vertico--recompute pt content)\n (let ((non-essential t))\n (while-no-input (vertico--recompute pt content)))))\n ('nil (abort-recursive-edit))\n ((and state (pred consp))\n (setq vertico--input input)\n (dolist (s state) (set (car s) (cdr s))))))))\n\n(defun vertico--display-string (str)\n \"Return display STR without display and invisible properties.\"\n (let ((end (length str)) (pos 0) chunks)\n (while (< pos end)\n (let ((nextd (next-single-property-change pos 'display str end))\n (display (get-text-property pos 'display str)))\n (if (stringp display)\n (progn (push display chunks) (setq pos nextd))\n (while (< pos nextd)\n (let ((nexti (next-single-property-change pos 'invisible str nextd)))\n (unless (get-text-property pos 'invisible str)\n (unless (and (= pos 0) (= nexti end)) ;; full string -> avoid allocation\n (push (substring str pos nexti) chunks)))\n (setq pos nexti))))))\n (if chunks (apply #'concat (nreverse chunks)) str)))\n\n(defun vertico--window-width ()\n \"Return minimum width of windows, which display the minibuffer.\"\n (cl-loop for win in (get-buffer-window-list) minimize (window-width win)))\n\n(defun vertico--truncate-multiline (cand max-width)\n \"Truncate multiline CAND to MAX-WIDTH.\"\n (truncate-string-to-width\n (thread-last cand\n (replace-regexp-in-string \"[\\t ]+\" \" \")\n (replace-regexp-in-string \"[\\t\\n ]*\\n[\\t\\n ]*\" (car vertico-multiline))\n (replace-regexp-in-string \"\\\\`[\\t\\n ]+\\\\|[\\t\\n ]+\\\\'\" \"\"))\n max-width 0 nil (cdr vertico-multiline)))\n\n(defun vertico--format-candidate (cand prefix suffix index _start)\n \"Format CAND given PREFIX, SUFFIX and INDEX.\"\n (setq cand (vertico--display-string (concat prefix cand suffix \"\\n\")))\n (when (= index vertico--index)\n (add-face-text-property 0 (length cand) 'vertico-current 'append cand))\n cand)\n\n(defun vertico--compute-scroll ()\n \"Compute new scroll position.\"\n (let ((off (max (min vertico-scroll-margin (/ vertico-count 2)) 0))\n (corr (if (= vertico-scroll-margin (/ vertico-count 2)) (1- (mod vertico-count 2)) 0)))\n (setq vertico--scroll (min (max 0 (- vertico--total vertico-count))\n (max 0 (+ vertico--index off 1 (- vertico-count))\n (min (- vertico--index off corr) vertico--scroll))))))\n\n(defun vertico--format-group-title (title cand)\n \"Format group TITLE given the current CAND.\"\n (when (string-prefix-p title cand)\n ;; Highlight title if title is a prefix of the candidate\n (setq title (substring (car (funcall vertico--highlight\n (list (propertize cand 'face 'vertico-group-title))))\n 0 (length title)))\n (vertico--remove-face 0 (length title) 'completions-first-difference title))\n (format (concat vertico-group-format \"\\n\") title))\n\n(defun vertico--arrange-candidates ()\n \"Arrange candidates.\"\n (vertico--compute-scroll)\n (let ((curr-line 0) lines)\n ;; Compute group titles\n (let* (title (index vertico--scroll)\n (group-fun (and vertico-group-format (vertico--metadata-get 'group-function)))\n (candidates\n (thread-last (seq-subseq vertico--candidates index\n (min (+ index vertico-count) vertico--total))\n (funcall vertico--highlight)\n (vertico--affixate))))\n (pcase-dolist ((and cand `(,str . ,_)) candidates)\n (when-let (new-title (and group-fun (funcall group-fun str nil)))\n (unless (equal title new-title)\n (setq title new-title)\n (push (vertico--format-group-title title str) lines))\n (setcar cand (funcall group-fun str 'transform)))\n (when (= index vertico--index)\n (setq curr-line (length lines)))\n (push (cons index cand) lines)\n (setq index (1+ index))))\n ;; Drop excess lines\n (setq lines (nreverse lines))\n (cl-loop for count from (length lines) above vertico-count do\n (if (< curr-line (/ count 2))\n (nbutlast lines)\n (setq curr-line (1- curr-line) lines (cdr lines))))\n ;; Format candidates\n (let ((max-width (- (vertico--window-width) 4)) start)\n (cl-loop for line on lines do\n (pcase (car line)\n (`(,index ,cand ,prefix ,suffix)\n (setq start (or start index))\n (when (string-match-p \"\\n\" cand)\n (setq cand (vertico--truncate-multiline cand max-width)))\n (setcar line (vertico--format-candidate cand prefix suffix index start))))))\n lines))\n\n(defun vertico--display-candidates (lines)\n \"Update candidates overlay `vertico--candidates-ov' with LINES.\"\n (move-overlay vertico--candidates-ov (point-max) (point-max))\n (overlay-put vertico--candidates-ov 'after-string\n (apply #'concat #(\" \" 0 1 (cursor t)) (and lines \"\\n\") lines))\n (vertico--resize-window (length lines)))\n\n(defun vertico--resize-window (height)\n \"Resize active minibuffer window to HEIGHT.\"\n (setq-local truncate-lines (< (point) (* 0.8 (vertico--window-width)))\n resize-mini-windows 'grow-only\n max-mini-window-height 1.0)\n (unless (frame-root-window-p (active-minibuffer-window))\n (unless vertico-resize\n (setq height (max height vertico-count)))\n (let* ((window-resize-pixelwise t)\n (dp (- (max (cdr (window-text-pixel-size))\n (* (default-line-height) (1+ height)))\n (window-pixel-height))))\n (when (or (and (> dp 0) (/= height 0))\n (and (< dp 0) (eq vertico-resize t)))\n (window-resize nil dp nil nil 'pixelwise)))))\n\n(defun vertico--format-count ()\n \"Format the count string.\"\n (format (car vertico-count-format)\n (format (cdr vertico-count-format)\n (cond ((>= vertico--index 0) (1+ vertico--index))\n ((vertico--allow-prompt-p) \"*\")\n (t \"!\"))\n vertico--total)))\n\n(defun vertico--display-count ()\n \"Update count overlay `vertico--count-ov'.\"\n (move-overlay vertico--count-ov (point-min) (point-min))\n (overlay-put vertico--count-ov 'before-string\n (if vertico-count-format (vertico--format-count) \"\")))\n\n(defun vertico--prompt-selection ()\n \"Highlight the prompt if selected.\"\n (let ((inhibit-modification-hooks t))\n (if (and (< vertico--index 0) (vertico--allow-prompt-p))\n (add-face-text-property (minibuffer-prompt-end) (point-max) 'vertico-current 'append)\n (vertico--remove-face (minibuffer-prompt-end) (point-max) 'vertico-current))))\n\n(defun vertico--remove-face (beg end face &optional obj)\n \"Remove FACE between BEG and END from OBJ.\"\n (while (< beg end)\n (let ((next (next-single-property-change beg 'face obj end)))\n (when-let (val (get-text-property beg 'face obj))\n (put-text-property beg next 'face (remq face (if (listp val) val (list val))) obj))\n (setq beg next))))\n\n(defun vertico--exhibit ()\n \"Exhibit completion UI.\"\n (let ((buffer-undo-list t)) ;; Overlays affect point position and undo list!\n (vertico--update 'interruptible)\n (vertico--prompt-selection)\n (vertico--display-count)\n (vertico--display-candidates (vertico--arrange-candidates))))\n\n(defun vertico--allow-prompt-p ()\n \"Return t if prompt can be selected.\"\n (or vertico--default-missing (memq minibuffer--require-match\n '(nil confirm confirm-after-completion))))\n\n(defun vertico--goto (index)\n \"Go to candidate with INDEX.\"\n (let ((prompt (vertico--allow-prompt-p)))\n (setq vertico--index\n (max (if (or prompt (= 0 vertico--total)) -1 0)\n (min index (1- vertico--total)))\n vertico--lock-candidate (or (>= vertico--index 0) prompt))))\n\n(defun vertico-first ()\n \"Go to first candidate, or to the prompt when the first candidate is selected.\"\n (interactive)\n (vertico--goto (if (> vertico--index 0) 0 -1)))\n\n(defun vertico-last ()\n \"Go to last candidate.\"\n (interactive)\n (vertico--goto (1- vertico--total)))\n\n(defun vertico-scroll-down (&optional n)\n \"Go back by N pages.\"\n (interactive \"p\")\n (vertico--goto (max 0 (- vertico--index (* (or n 1) vertico-count)))))\n\n(defun vertico-scroll-up (&optional n)\n \"Go forward by N pages.\"\n (interactive \"p\")\n (vertico-scroll-down (- (or n 1))))\n\n(defun vertico-next (&optional n)\n \"Go forward N candidates.\"\n (interactive \"p\")\n (let ((index (+ vertico--index (or n 1))))\n (vertico--goto\n (cond\n ((not vertico-cycle) index)\n ((= vertico--total 0) -1)\n ((vertico--allow-prompt-p) (1- (mod (1+ index) (1+ vertico--total))))\n (t (mod index vertico--total))))))\n\n(defun vertico-previous (&optional n)\n \"Go backward N candidates.\"\n (interactive \"p\")\n (vertico-next (- (or n 1))))\n\n(defun vertico--match-p (input)\n \"Return t if INPUT is a valid match.\"\n (or (memq minibuffer--require-match '(nil confirm-after-completion))\n (equal \"\" input) ;; Null completion, returns default value\n (test-completion input minibuffer-completion-table minibuffer-completion-predicate)\n (if (eq minibuffer--require-match 'confirm)\n (eq (ignore-errors (read-char \"Confirm\")) 13)\n (and (minibuffer-message \"Match required\") nil))))\n\n(defun vertico-exit (&optional arg)\n \"Exit minibuffer with current candidate or input if prefix ARG is given.\"\n (interactive \"P\")\n (when (and (not arg) (>= vertico--index 0))\n (vertico-insert))\n (when (vertico--match-p (minibuffer-contents-no-properties))\n (exit-minibuffer)))\n\n(defun vertico-next-group (&optional n)\n \"Cycle N groups forward.\nWhen the prefix argument is 0, the group order is reset.\"\n (interactive \"p\")\n (when (cdr vertico--groups)\n (if (setq vertico--lock-groups (not (eq n 0)))\n (setq vertico--groups (vertico--cycle vertico--groups\n (let ((len (length vertico--groups)))\n (- len (mod (- (or n 1)) len))))\n vertico--all-groups (vertico--cycle vertico--all-groups\n (seq-position vertico--all-groups\n (car vertico--groups))))\n (setq vertico--groups nil\n vertico--all-groups nil))\n (setq vertico--lock-candidate nil\n vertico--input nil)))\n\n(defun vertico-previous-group (&optional n)\n \"Cycle N groups backward.\nWhen the prefix argument is 0, the group order is reset.\"\n (interactive \"p\")\n (vertico-next-group (- (or n 1))))\n\n(defun vertico-exit-input ()\n \"Exit minibuffer with input.\"\n (interactive)\n (vertico-exit t))\n\n(defun vertico-save ()\n \"Save current candidate to kill ring.\"\n (interactive)\n (if (or (use-region-p) (not transient-mark-mode))\n (call-interactively #'kill-ring-save)\n (kill-new (vertico--candidate))))\n\n(defun vertico-insert ()\n \"Insert current candidate in minibuffer.\"\n (interactive)\n ;; XXX There is a small bug here, depending on interpretation. When completing\n ;; \"~/emacs/master/li|/calc\" where \"|\" is the cursor, then the returned\n ;; candidate only includes the prefix \"~/emacs/master/lisp/\", but not the\n ;; suffix \"/calc\". Default completion has the same problem when selecting in\n ;; the *Completions* buffer. See bug#48356.\n (when (> vertico--total 0)\n (let ((vertico--index (max 0 vertico--index)))\n (insert (prog1 (vertico--candidate) (delete-minibuffer-contents))))))\n\n(defun vertico--candidate (&optional hl)\n \"Return current candidate string with optional highlighting if HL is non-nil.\"\n (let ((content (substring (or (car-safe vertico--input) (minibuffer-contents-no-properties)))))\n (cond\n ((>= vertico--index 0)\n (let ((cand (substring (nth vertico--index vertico--candidates))))\n ;; XXX Drop the completions-common-part face which is added by `completion--twq-all'.\n ;; This is a hack in Emacs and should better be fixed in Emacs itself, the corresponding\n ;; code is already marked with a FIXME. Should this be reported as a bug?\n (vertico--remove-face 0 (length cand) 'completions-common-part cand)\n (concat vertico--base\n (if hl (car (funcall vertico--highlight (list cand))) cand))))\n ((and (equal content \"\") (or (car-safe minibuffer-default) minibuffer-default)))\n (t content))))\n\n(defun vertico--setup ()\n \"Setup completion UI.\"\n (setq vertico--input t\n vertico--candidates-ov (make-overlay (point-max) (point-max) nil t t)\n vertico--count-ov (make-overlay (point-min) (point-min) nil t t))\n ;; Set priority for compatibility with `minibuffer-depth-indicate-mode'\n (overlay-put vertico--count-ov 'priority 1)\n (setq-local completion-auto-help nil\n completion-show-inline-help nil)\n (use-local-map vertico-map)\n (add-hook 'pre-command-hook #'vertico--prepare nil 'local)\n (add-hook 'post-command-hook #'vertico--exhibit nil 'local))\n\n(defun vertico--advice (&rest args)\n \"Advice for completion function, receiving ARGS.\"\n (minibuffer-with-setup-hook #'vertico--setup (apply args)))\n\n;;;###autoload\n(define-minor-mode vertico-mode\n \"VERTical Interactive COmpletion.\"\n :global t :group 'vertico\n (if vertico-mode\n (progn\n (advice-add #'completing-read-default :around #'vertico--advice)\n (advice-add #'completing-read-multiple :around #'vertico--advice))\n (advice-remove #'completing-read-default #'vertico--advice)\n (advice-remove #'completing-read-multiple #'vertico--advice)))\n\n;; Emacs 28: Do not show Vertico commands in M-X\n(dolist (sym '(vertico-next vertico-next-group vertico-previous vertico-previous-group\n vertico-scroll-down vertico-scroll-up vertico-exit vertico-insert\n vertico-exit-input vertico-save vertico-first vertico-last))\n (put sym 'completion-predicate #'vertico--command-p))\n\n(defun vertico--command-p (_sym buffer)\n \"Return non-nil if Vertico is active in BUFFER.\"\n (buffer-local-value 'vertico--input buffer))\n\n(provide 'vertico)\n;;; vertico.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vertico.info","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2233211},"to":{"change":7,"start":2270960,"end":2270996},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2270996},"to":{"change":7,"start":2233237,"end":2233237},"introduced_by":7}],"inode":{"change":7,"pos":2233237}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2233237},"to":{"change":7,"start":2233238,"end":2270959},"introduced_by":7}],"inode":{"change":7,"pos":2233237}},"content":[{"Del":"This is docwCTKeZ.info, produced by makeinfo version 6.7 from\nvertico.texi.\n\nINFO-DIR-SECTION Emacs misc features\nSTART-INFO-DIR-ENTRY\n* Vertico: (vertico). VERTical Interactive COmpletion.\nEND-INFO-DIR-ENTRY\n\n\u001f\nFile: docwCTKeZ.info, Node: Top, Next: Features, Up: (dir)\n\nvertico.el - VERTical Interactive COmpletion\n********************************************\n\nVertico provides a performant and minimalistic vertical completion UI\nbased on the default completion system. The main focus of Vertico is to\nprovide a UI which behaves _correctly_ under all circumstances. By\nreusing the built-in facilities system, Vertico achieves _full\ncompatibility_ with built-in Emacs completion commands and completion\ntables. Vertico only provides the completion UI but aims to be highly\nflexible, extensible and modular. Additional enhancements are available\nas *note extensions: Extensions. or *note complementary packages:\nComplementary packages. The code base is small and maintainable. The\nmain ‘vertico.el’ package is only about 600 lines of code without white\nspace and comments.\n\n* Menu:\n\n* Features::\n* Key bindings::\n* Configuration::\n* Extensions::\n* Complementary packages::\n* Child frames and Popups::\n* Alternatives::\n* Resources::\n* Contributions::\n* Problematic completion commands::\n\n— The Detailed Node Listing —\n\nConfiguration\n\n* Completion styles and TAB completion::\n* Completion-at-point and completion-in-region::\n\nExtensions\n\n* Configure Vertico per command or completion category::\n\nProblematic completion commands\n\n* org-refile::\n* org-agenda-filter::\n* tmm-menubar::\n* ffap-menu::\n* completion-table-dynamic::\n* Submitting the empty string::\n* Tramp hostname completion::\n\n\n\u001f\nFile: docwCTKeZ.info, Node: Features, Next: Key bindings, Prev: Top, Up: Top\n\n1 Features\n**********\n\n • Vertical display with arrow key navigation. See the *note\n extensions: Extensions. for additional display modes.\n • Prompt shows the current candidate index and the total number of\n candidates.\n • The current candidate is inserted with ‘TAB’ and selected with\n ‘RET’.\n • Non-existing candidates can be submitted with ‘M-RET’ or by moving\n the point to the prompt.\n • Configurable sorting by history position, length and\n alphabetically.\n • Long candidates with newlines are formatted to take up less space.\n • Deferred completion style highlighting for performance.\n • Annotations are displayed next to the candidates (‘annotation-’ and\n ‘affixation-function’).\n • Support for candidate grouping and group cycling commands\n (‘group-function’).\n\n \n\n\u001f\nFile: docwCTKeZ.info, Node: Key bindings, Next: Configuration, Prev: Features, Up: Top\n\n2 Key bindings\n**************\n\nVertico defines its own local keymap in the minibuffer which is derived\nfrom ‘minibuffer-local-map’. The keymap keeps most of the\n‘fundamental-mode’ keybindings intact and remaps and binds only a\nhandful of commands. Note in particular the binding of ‘TAB’ to\n‘vertico-insert’ and the bindings of ‘vertico-exit/exit-input’.\n\n • ‘beginning-of-buffer’, ‘minibuffer-beginning-of-buffer’ ->\n ‘vertico-first’\n • ‘end-of-buffer’ -> ‘vertico-last’\n • ‘scroll-down-command’ -> ‘vertico-scroll-down’\n • ‘scroll-up-command’ -> ‘vertico-scroll-up’\n • ‘next-line’, ‘next-line-or-history-element’ -> ‘vertico-next’\n • ‘previous-line’, ‘previous-line-or-history-element’ ->\n ‘vertico-previous’\n • ‘forward-paragraph’ -> ‘vertico-next-group’\n • ‘backward-paragraph’ -> ‘vertico-previous-group’\n • ‘exit-minibuffer’ -> ‘vertico-exit’\n • ‘kill-ring-save’ -> ‘vertico-save’\n • ‘M-RET’ -> ‘vertico-exit-input’\n • ‘TAB’ -> ‘vertico-insert’\n\n\u001f\nFile: docwCTKeZ.info, Node: Configuration, Next: Extensions, Prev: Key bindings, Up: Top\n\n3 Configuration\n***************\n\nVertico is available from GNU ELPA\n(https://elpa.gnu.org/packages/vertico.html). You can install it\ndirectly via ‘package-install’. After installation, you can activate\nthe global minor mode with ‘M-x vertico-mode’. In order to configure\nVertico and other packages in your init.el, you may want to take\nadvantage of ‘use-package’. Here is an example configuration:\n\n ;; Enable vertico\n (use-package vertico\n :init\n (vertico-mode)\n\n ;; Different scroll margin\n ;; (setq vertico-scroll-margin 0)\n\n ;; Show more candidates\n ;; (setq vertico-count 20)\n\n ;; Grow and shrink the Vertico minibuffer\n ;; (setq vertico-resize t)\n\n ;; Optionally enable cycling for `vertico-next' and `vertico-previous'.\n ;; (setq vertico-cycle t)\n )\n\n ;; Persist history over Emacs restarts. Vertico sorts by history position.\n (use-package savehist\n :init\n (savehist-mode))\n\n ;; A few more useful configurations...\n (use-package emacs\n :init\n ;; Add prompt indicator to `completing-read-multiple'.\n ;; We display [CRM], e.g., [CRM,] if the separator is a comma.\n (defun crm-indicator (args)\n (cons (format \"[CRM%s] %s\"\n (replace-regexp-in-string\n \"\\\\`\\\\[.*?]\\\\*\\\\|\\\\[.*?]\\\\*\\\\'\" \"\"\n crm-separator)\n (car args))\n (cdr args)))\n (advice-add #'completing-read-multiple :filter-args #'crm-indicator)\n\n ;; Do not allow the cursor in the minibuffer prompt\n (setq minibuffer-prompt-properties\n '(read-only t cursor-intangible t face minibuffer-prompt))\n (add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)\n\n ;; Emacs 28: Hide commands in M-x which do not work in the current mode.\n ;; Vertico commands are hidden in normal buffers.\n ;; (setq read-extended-command-predicate\n ;; #'command-completion-default-include-p)\n\n ;; Enable recursive minibuffers\n (setq enable-recursive-minibuffers t))\n\n I recommend to give Orderless completion a try, which is different\nfrom the prefix TAB completion used by the basic default completion\nsystem or in shells.\n\n ;; Optionally use the `orderless' completion style.\n (use-package orderless\n :init\n ;; Configure a custom style dispatcher (see the Consult wiki)\n ;; (setq orderless-style-dispatchers '(+orderless-dispatch)\n ;; orderless-component-separator #'orderless-escapable-split-on-space)\n (setq completion-styles '(orderless basic)\n completion-category-defaults nil\n completion-category-overrides '((file (styles partial-completion)))))\n\n The ‘basic’ completion style is specified as fallback in addition to\n‘orderless’ in order to ensure that completion commands which rely on\ndynamic completion tables, e.g., ‘completion-table-dynamic’ or\n‘completion-table-in-turn’, work correctly. See ‘+orderless-dispatch’\nin the Consult wiki (https://github.com/minad/consult/wiki) for an\nadvanced Orderless style dispatcher. Additionally enable\n‘partial-completion’ for file path expansion. ‘partial-completion’ is\nimportant for file wildcard support. Multiple files can be opened at\nonce with ‘find-file’ if you enter a wildcard. You may also give the\n‘initials’ completion style a try.\n\n See also the Vertico Wiki (https://github.com/minad/vertico/wiki) for\nadditional configuration tips. For more general documentation read the\nchapter about completion in the Emacs manual\n(https://www.gnu.org/software/emacs/manual/html_node/emacs/Completion.html).\nIf you want to create your own completion commands, you can find\ndocumentation about completion in the Elisp manual\n(https://www.gnu.org/software/emacs/manual/html_node/elisp/Completion.html).\n\n* Menu:\n\n* Completion styles and TAB completion::\n* Completion-at-point and completion-in-region::\n\n\u001f\nFile: docwCTKeZ.info, Node: Completion styles and TAB completion, Next: Completion-at-point and completion-in-region, Up: Configuration\n\n3.1 Completion styles and TAB completion\n========================================\n\nThe bindings of the ‘minibuffer-local-completion-map’ are not available\nin Vertico by default. This means that TAB works differently from what\nyou may expect from the default Emacs completion system.\n\n If you prefer to have the default completion commands a key press\naway you can add new bindings or even replace the Vertico bindings.\nThen the default completion commands behave as usual. For example you\ncan use ‘M-TAB’ to cycle between candidates if you have set\n‘completion-cycle-threshold’.\n\n (define-key vertico-map \"?\" #'minibuffer-completion-help)\n (define-key vertico-map (kbd \"M-RET\") #'minibuffer-force-complete-and-exit)\n (define-key vertico-map (kbd \"M-TAB\") #'minibuffer-complete)\n\n The ‘orderless’ completion style does not support completion of a\ncommon prefix substring, as you may be familiar with from shells or the\nbasic default completion system. The reason is that the Orderless input\nstring is usually not a prefix. In order to support completing prefixes\nyou may want to combine ‘orderless’ with ‘substring’ in your\n‘completion-styles’ configuration.\n\n (setq completion-styles '(substring orderless basic))\n\n Alternatively you can experiment with the built-in completion-styles,\ne.g., adding ‘partial-completion’ or ‘flex’. The ‘partial-completion’\nstyle is important to add if you want to open multiple files at once\nwith ‘find-file’ using wildcards. In order to open multiple files at\nonce, you have to move to the prompt and then press ‘RET’.\n\n (setq completion-styles '(basic substring partial-completion flex))\n\n Because Vertico is fully compatible with Emacs default completion\nsystem, further customization of completion behavior can be achieved by\nsetting the designated Emacs variables. For example, one may wish to\ndisable case-sensitivity for file and buffer matching when built-in\ncompletion styles are used instead of ‘orderless’:\n\n (setq read-file-name-completion-ignore-case t\n read-buffer-completion-ignore-case t\n completion-ignore-case t)\n\n\u001f\nFile: docwCTKeZ.info, Node: Completion-at-point and completion-in-region, Prev: Completion styles and TAB completion, Up: Configuration\n\n3.2 Completion-at-point and completion-in-region\n================================================\n\nThe ‘completion-at-point’ command is usually bound to ‘M-TAB’ or ‘TAB’.\nIn case you want to use Vertico for\ncompletion-at-point/completion-in-region, you can use the function\n‘consult-completion-in-region’ provided by the Consult package.\n\n ;; Use `consult-completion-in-region' if Vertico is enabled.\n ;; Otherwise use the default `completion--in-region' function.\n (setq completion-in-region-function\n (lambda (&rest args)\n (apply (if vertico-mode\n #'consult-completion-in-region\n #'completion--in-region)\n args)))\n\n The ‘completion-in-region-function’ setting also affects TAB\ncompletion in the minibuffer when ‘M-:’ (‘eval-expression’) is used.\n\n You may also want to look into my Corfu\n(https://github.com/minad/corfu) package, which provides a minimal\ncompletion system for ‘completion-in-region’ in a child frame popup.\nCorfu is also a narrowly focused package and developed in the same\nspirit as Vertico.\n\n\u001f\nFile: docwCTKeZ.info, Node: Extensions, Next: Complementary packages, Prev: Configuration, Up: Top\n\n4 Extensions\n************\n\nWe maintain small extension packages to Vertico in this repository in\nthe subdirectory extensions/\n(https://github.com/minad/vertico/tree/main/extensions). The extensions\nare installed together with Vertico if you pull the package from ELPA.\nThe extensions are inactive by default and can be enabled manually if\ndesired. Furthermore it is possible to install all of the files\nseparately, both ‘vertico.el’ and the ‘vertico-*.el’ extensions.\nCurrently the following extensions come with the Vertico ELPA package:\n\n • vertico-buffer\n (https://github.com/minad/vertico/blob/main/extensions/vertico-buffer.el):\n ‘vertico-buffer-mode’ to display Vertico in a separate buffer.\n • vertico-directory\n (https://github.com/minad/vertico/blob/main/extensions/vertico-directory.el):\n Commands for Ido-like directory navigation.\n • vertico-flat\n (https://github.com/minad/vertico/blob/main/extensions/vertico-flat.el):\n ‘vertico-flat-mode’ to enable a flat, horizontal display.\n • vertico-grid\n (https://github.com/minad/vertico/blob/main/extensions/vertico-grid.el):\n ‘vertico-grid-mode’ to enable a grid display.\n • vertico-indexed\n (https://github.com/minad/vertico/blob/main/extensions/vertico-indexed.el):\n ‘vertico-indexed-mode’ to select indexed candidates with prefix\n arguments.\n • vertico-mouse\n (https://github.com/minad/vertico/blob/main/extensions/vertico-mouse.el):\n ‘vertico-mouse-mode’ to support for scrolling and candidate\n selection.\n • vertico-multiform\n (https://github.com/minad/vertico/blob/main/extensions/vertico-multiform.el):\n Configure Vertico modes per command or completion category.\n • vertico-quick\n (https://github.com/minad/vertico/blob/main/extensions/vertico-quick.el):\n Commands to select using Avy-style quick keys.\n • vertico-repeat\n (https://github.com/minad/vertico/blob/main/extensions/vertico-repeat.el):\n The command ‘vertico-repeat’ repeats the last completion session.\n • vertico-reverse\n (https://github.com/minad/vertico/blob/main/extensions/vertico-reverse.el):\n ‘vertico-reverse-mode’ to reverse the display.\n • vertico-unobtrusive\n (https://github.com/minad/vertico/blob/main/extensions/vertico-unobtrusive.el):\n ‘vertico-unobtrusive-mode’ displays only the topmost candidate.\n\n See the Commentary of those files for configuration details. With\nthese extensions it is possible to adapt Vertico such that it matches\nyour preference or behaves similar to other familiar UIs. For example,\nthe combination ‘vertico-flat’ plus ‘vertico-directory’ resembles Ido in\nlook and feel. For an interface similar to Helm, the extension\n‘vertico-buffer’ allows you to configure freely where the completion\nbuffer opens, instead of growing the minibuffer. Furthermore\n‘vertico-buffer’ will adjust the number of displayed candidates\naccording to the buffer height.\n\n Configuration example for ‘vertico-directory’:\n\n ;; Configure directory extension.\n (use-package vertico-directory\n :after vertico\n :ensure nil\n ;; More convenient directory navigation commands\n :bind (:map vertico-map\n (\"RET\" . vertico-directory-enter)\n (\"DEL\" . vertico-directory-delete-char)\n (\"M-DEL\" . vertico-directory-delete-word))\n ;; Tidy shadowed file names\n :hook (rfn-eshadow-update-overlay . vertico-directory-tidy))\n\n* Menu:\n\n* Configure Vertico per command or completion category::\n\n\u001f\nFile: docwCTKeZ.info, Node: Configure Vertico per command or completion category, Up: Extensions\n\n4.1 Configure Vertico per command or completion category\n========================================================\n\n\n\n Vertico offers the ‘vertico-multiform-mode’ which allows you to\nconfigure Vertico per command or per completion category. The\n‘vertico-buffer-mode’ enables a Helm-like buffer display, which takes\nmore space but also displays more candidates. This verbose display mode\nis useful for commands like ‘consult-imenu’ or ‘consult-outline’ since\nthe buffer display allows you to get a better overview over the entire\ncurrent buffer. But for other commands you want to keep using the\ndefault Vertico display. ‘vertico-multiform-mode’ solves this\nconfiguration problem!\n\n ;; Enable vertico-multiform\n (vertico-multiform-mode)\n\n ;; Configure the display per command.\n ;; Use a buffer with indices for imenu\n ;; and a flat (Ido-like) menu for M-x.\n (setq vertico-multiform-commands\n '((consult-imenu buffer indexed)\n (execute-extended-command unobtrusive)))\n\n ;; Configure the display per completion category.\n ;; Use the grid display for files and a buffer\n ;; for the consult-grep commands.\n (setq vertico-multiform-categories\n '((file grid)\n (consult-grep buffer)))\n\n Temporary toggling between the different display modes is possible.\nBind the following commands:\n\n (define-key vertico-map \"\\M-V\" #'vertico-multiform-vertical)\n (define-key vertico-map \"\\M-G\" #'vertico-multiform-grid)\n (define-key vertico-map \"\\M-F\" #'vertico-multiform-flat)\n (define-key vertico-map \"\\M-R\" #'vertico-multiform-reverse)\n (define-key vertico-map \"\\M-U\" #'vertico-multiform-unobtrusive)\n\n You can use your own functions or even lambdas to configure the\ncompletion behavior per command or per completion category. The\nfunction must have the calling convention of a mode, i.e., it takes a\nsingle argument, which is either 1 to turn on the mode and -1 to turn\noff the mode.\n\n ;; Configure `consult-outline' as a scaled down TOC in a separate buffer\n (setq vertico-multiform-commands\n `((consult-outline buffer ,(lambda (_) (text-scale-set -1)))))\n\n Furthermore you can tune buffer-local settings per command or\ncategory.\n\n ;; Change the default sorting function.\n ;; See `vertico-sort-function' and `vertico-sort-override-function'.\n (setq vertico-multiform-commands\n '((describe-symbol (vertico-sort-function . vertico-sort-alpha))))\n\n (setq vertico-multiform-categories\n '((symbol (vertico-sort-function . vertico-sort-alpha))\n (file (vertico-sort-function . sort-directories-first))))\n\n ;; Sort directories before files\n (defun sort-directories-first (files)\n (setq files (vertico-sort-history-length-alpha files))\n (nconc (seq-filter (lambda (x) (string-suffix-p \"/\" x)) files)\n (seq-remove (lambda (x) (string-suffix-p \"/\" x)) files)))\n\n Combining these features allows us to fine-tune the completion\ndisplay even more by adjusting the ‘vertico-buffer-display-action’. We\ncan for example reuse the current window for commands of the\n‘consult-grep’ category (‘consult-grep’, ‘consult-git-grep’ and\n‘consult-ripgrep’). Note that this configuration is incompatible with\nConsult preview, since the previewed buffer is usually shown in exactly\nthis window. Nevertheless this snippet demonstrates the flexibility of\nthe configuration system.\n\n ;; Configure the buffer display and the buffer display action\n (setq vertico-multiform-categories\n '((consult-grep\n buffer\n (vertico-buffer-display-action . (display-buffer-same-window)))))\n\n ;; Disable preview for consult-grep commands\n (consult-customize consult-ripgrep consult-git-grep consult-grep :preview-key nil)\n\n As another example, the following code uses ‘vertico-flat’ and\n‘vertico-cycle’ to emulate ‘(ido-mode 'buffer)’, i.e., Ido when it is\nenabled only for completion of buffer names. ‘vertico-cycle’ set to ‘t’\nis necessary here to prevent completion candidates from disappearing\nwhen they scroll off-screen to the left.\n\n (setq vertico-multiform-categories\n '((buffer flat (vertico-cycle . t))))\n\n\u001f\nFile: docwCTKeZ.info, Node: Complementary packages, Next: Child frames and Popups, Prev: Extensions, Up: Top\n\n5 Complementary packages\n************************\n\nVertico integrates well with complementary packages, which enrich the\ncompletion UI. These packages are fully supported:\n\n • Marginalia (https://github.com/minad/marginalia): Rich annotations\n in the minibuffer\n • Consult (https://github.com/minad/consult): Useful search and\n navigation commands\n • Embark (https://github.com/oantolin/embark): Minibuffer actions and\n context menu\n • Orderless (https://github.com/oantolin/orderless): Advanced\n completion style\n\n In order to get accustomed with the package ecosystem, I recommend\nthe following quick start approach:\n\n 1. Start with plain Emacs (‘emacs -Q’).\n 2. Install and enable Vertico to get incremental minibuffer\n completion.\n 3. Install Orderless and/or configure the built-in completion styles\n for more flexible minibuffer filtering.\n 4. Install Marginalia if you like rich minibuffer annotations.\n 5. Install Embark and add two keybindings for ‘embark-dwim’ and\n ‘embark-act’. I am using the mnemonic keybindings ‘M-.’ and ‘C-.’\n since these commands allow you to act on the object at point or in\n the minibuffer.\n 6. Install Consult if you want additional featureful completion\n commands, e.g., the buffer switcher ‘consult-buffer’ with preview\n or the line-based search ‘consult-line’.\n 7. Install Embark-Consult and Wgrep for export from ‘consult-line’ to\n ‘occur-mode’ buffers and from ‘consult-grep’ to editable\n ‘grep-mode’ buffers.\n 8. Fine tune Vertico with *note extensions: Extensions.\n\n The ecosystem is modular. You don’t have to use all of these\ncomponents. Use only the ones you like and the ones which fit well into\nyour setup. The steps 1. to 4. introduce no new commands over plain\nEmacs. Step 5. introduces the new commands ‘embark-act’ and\n‘embark-dwim’. In step 6. you get the Consult commands, some offer new\nfunctionality not present in Emacs already (e.g., ‘consult-line’) and\nsome are substitutes (e.g., ‘consult-buffer’ for ‘switch-to-buffer’).\n\n\u001f\nFile: docwCTKeZ.info, Node: Child frames and Popups, Next: Alternatives, Prev: Complementary packages, Up: Top\n\n6 Child frames and Popups\n*************************\n\nAn often requested feature is the ability to display the completions in\na child frame popup. Personally I am critical of using child frames for\nminibuffer completion. From my experience it introduces more problems\nthan it solves. Most importantly child frames hide the content of the\nunderlying buffer. Furthermore child frames do not play well together\nwith changing windows and entering recursive minibuffer sessions. On\ntop, child frames can feel slow and sometimes flicker. A better\nalternative is the ‘vertico-buffer’ display which can even be configured\nindividually per command using ‘vertico-multiform’. On the plus side of\nchild frames, the completion display appears at the center of the\nscreen, where your eyes are focused. Please give the following packages\na try and judge for yourself.\n\n • mini-frame (https://github.com/muffinmad/emacs-mini-frame): Display\n the entire minibuffer in a child frame.\n • mini-popup (https://github.com/minad/mini-popup): Slightly simpler\n alternative to mini-frame.\n • vertico-posframe (https://github.com/tumashu/vertico-posframe):\n Display only the Vertico minibuffer in a child frame using the\n posframe library.\n\n\u001f\nFile: docwCTKeZ.info, Node: Alternatives, Next: Resources, Prev: Child frames and Popups, Up: Top\n\n7 Alternatives\n**************\n\nThere are many alternative completion UIs, each UI with its own\nadvantages and disadvantages.\n\n Vertico aims to be 100% compliant with all Emacs commands and\nachieves that with a minimal code base, relying purely on\n‘completing-read’ while avoiding to invent its own APIs. Inventing a\ncustom API as Helm or Ivy is explicitly avoided in order to increase\nflexibility and package reuse. Due to its small code base and reuse of\nthe Emacs built-in facilities, bugs and compatibility issues are less\nlikely to occur in comparison to completion UIs or monolithic completion\nsystems.\n\n Since Vertico only provides the UI, you may want to combine it with\nsome of the complementary packages, to give a full-featured completion\nexperience similar to Helm or Ivy. The idea is to have smaller\nindependent components, which one can add and understand step by step.\nEach component focuses on its niche and tries to be as non-intrusive as\npossible. Vertico targets users interested in crafting their Emacs\nprecisely to their liking - completion plays an integral part in how the\nusers interacts with Emacs.\n\n There are other interactive completion UIs, which follow a similar\nphilosophy:\n\n • Mct (https://git.sr.ht/~protesilaos/mct): Minibuffer and\n Completions in Tandem. Mct reuses the default ‘*Completions*’\n buffer and enhances it with automatic updates and additional\n keybindings, to select a candidate and move between minibuffer and\n completions buffer. Since Mct uses a fully functional buffer you\n can use familiar buffer commands inside the completions buffer.\n The main distinction to Vertico’s approach is that ‘*Completions*’\n buffer displays all matching candidates. This has the advantage\n that you can interact freely with the candidates and jump around\n with Isearch or Avy. On the other hand it necessarily causes a\n slowdown. Mct supports completion in region via its\n ‘mct-region-mode’. Note that Mct development is currently\n discontinued\n (https://protesilaos.com/codelog/2022-04-14-emacs-discontinue-mct/)\n due to recent changes of the default completion UI on the Emacs\n master branch.\n • Selectrum (https://github.com/radian-software/selectrum): Selectrum\n is the predecessor of Vertico, since it directly inspired Vertico.\n Vertico was designed specifically to address the technical\n shortcomings of Selectrum. Selectrum is not fully compatible with\n every Emacs completion command and dynamic completion tables\n (selectrum#481\n (https://github.com/radian-software/selectrum/issues/481)), since\n it uses its own filtering infrastructure, which deviates from the\n standard Emacs completion facilities. Therefore Selectrum is\n getting deprecated in favor of Vertico (vertico#237\n (https://github.com/minad/vertico/issues/237), selectrum#598)\n (https://github.com/radian-software/selectrum/issues/598).\n Furthermore, Vertico was designed with flexibility in mind via its\n *note extensions: Extensions. See the migration guide\n (https://github.com/minad/vertico/wiki/Migrating-from-Selectrum-to-Vertico)\n if you plan to migrate from Selectrum to Vertico.\n • Icomplete: Emacs 28 comes with a builtin ‘icomplete-vertical-mode’,\n which is a more bare-bone than Vertico. Vertico offers more\n flexibility thanks to its *note extensions: Extensions.\n\n\u001f\nFile: docwCTKeZ.info, Node: Resources, Next: Contributions, Prev: Alternatives, Up: Top\n\n8 Resources\n***********\n\nIf you want to learn more about Vertico and minibuffer completion, check\nout the following resources:\n\n • Doom Emacs Vertico Module\n (https://github.com/doomemacs/doomemacs/tree/master/modules/completion/vertico):\n Vertico is Doom’s default completion system.\n • Crafted Emacs Completion Module\n (https://github.com/SystemCrafters/crafted-emacs/blob/master/modules/crafted-completion.el):\n Vertico and Corfu are used for completion.\n • Prot’s Emacs configuration\n (https://git.sr.ht/~protesilaos/dotfiles/tree/master/item/emacs/.emacs.d/):\n Vertico and Corfu are used for completion.\n • Emacs Completion Explained\n (https://www.youtube.com/watch?v=fnE0lXoe7Y0) (2022-07-19) by\n Andrew Tropin.\n • Emacs Minibuffer Completions\n (https://www.youtube.com/watch?v=w9hHMDyF9V4) (2022-02-12) by Greg\n Yut.\n • Vertico Extensions for Emacs\n (https://www.youtube.com/watch?v=hPwDbx--Waw) (2022-01-08) by\n Karthik Chikmagalur.\n • Marginalia, Consult and Embark (2021-10-26) by Mike Zamansky.\n • System Crafters Live! - Replacing Ivy and Counsel with Vertico and\n Consult (https://www.youtube.com/watch?v=UtqE-lR2HCA) (2021-05-21)\n by David Wilson.\n • Streamline Your Emacs Completions with Vertico\n (https://www.youtube.com/watch?v=J0OaRy85MOo) (2021-05-17) by David\n Wilson.\n\n\u001f\nFile: docwCTKeZ.info, Node: Contributions, Next: Problematic completion commands, Prev: Resources, Up: Top\n\n9 Contributions\n***************\n\nSince this package is part of GNU ELPA\n(https://elpa.gnu.org/packages/vertico.html) contributions require a\ncopyright assignment to the FSF.\n\n\u001f\nFile: docwCTKeZ.info, Node: Problematic completion commands, Prev: Contributions, Up: Top\n\n10 Problematic completion commands\n**********************************\n\nVertico is robust in most scenarios. However some completion commands\nmake certain assumptions about the completion styles and the completion\nUI. Some of these assumptions may not hold in Vertico or other UIs and\nrequire minor workarounds.\n\n* Menu:\n\n* org-refile::\n* org-agenda-filter::\n* tmm-menubar::\n* ffap-menu::\n* completion-table-dynamic::\n* Submitting the empty string::\n* Tramp hostname completion::\n\n\u001f\nFile: docwCTKeZ.info, Node: org-refile, Next: org-agenda-filter, Up: Problematic completion commands\n\n10.1 ‘org-refile’\n=================\n\n‘org-refile’ uses ‘org-olpath-completing-read’ to complete the outline\npath in steps, when ‘org-refile-use-outline-path’ is non-nil.\n\n Unfortunately the implementation of this Org completion table assumes\nthat the ‘basic’ completion style is used. The table is incompatible\nwith completion styles like ‘substring’, ‘flex’ or ‘orderless’. In\norder to fix the issue at the root, the completion table should make use\nof completion boundaries similar to the built-in file completion table.\nIn your user configuration you can prioritize ‘basic’ before\n‘orderless’.\n\n ;; Alternative 1: Use the basic completion style\n (setq org-refile-use-outline-path 'file\n org-outline-path-complete-in-steps t)\n (advice-add #'org-olpath-completing-read :around\n (lambda (&rest args)\n (minibuffer-with-setup-hook\n (lambda () (setq-local completion-styles '(basic)))\n (apply args))))\n\n Alternatively you may want to disable the outline path completion in\nsteps. The completion on the full path can be quicker since the input\nstring matches directly against substrings of the full path, which is\nuseful with Orderless. However the list of possible completions becomes\nmuch more cluttered.\n\n ;; Alternative 2: Complete full paths\n (setq org-refile-use-outline-path 'file\n org-outline-path-complete-in-steps nil)\n\n\u001f\nFile: docwCTKeZ.info, Node: org-agenda-filter, Next: tmm-menubar, Prev: org-refile, Up: Problematic completion commands\n\n10.2 ‘org-agenda-filter’\n========================\n\nSimilar to ‘org-refile’, the ‘org-agenda-filter’ completion function\n(‘org-agenda-filter-completion-function’) does not make use of\ncompletion boundaries. Unfortunately ‘TAB’ completion\n(‘minibuffer-complete’) does not work for this reason. This affects\nVertico and also the Emacs default completion system. For example if\nyou enter ‘+tag<0 TAB’ the input is replaced with ‘0:10’ which is not\ncorrect. With preserved completion boundaries, the expected result\nwould be ‘+tag<0:10’.\n\n\u001f\nFile: docwCTKeZ.info, Node: tmm-menubar, Next: ffap-menu, Prev: org-agenda-filter, Up: Problematic completion commands\n\n10.3 ‘tmm-menubar’\n==================\n\nThe text menu bar works well with Vertico but always shows a\n‘*Completions*’ buffer, which is unwanted if you use the Vertico UI.\nThis completion buffer can be disabled with an advice. If you disabled\nthe standard GUI menu bar and prefer the Vertico interface you may also\noverwrite the default F10 keybinding.\n\n (global-set-key [f10] #'tmm-menubar)\n (advice-add #'tmm-add-prompt :after #'minibuffer-hide-completions)\n\n\u001f\nFile: docwCTKeZ.info, Node: ffap-menu, Next: completion-table-dynamic, Prev: tmm-menubar, Up: Problematic completion commands\n\n10.4 ‘ffap-menu’\n================\n\nThe command ‘ffap-menu’ shows the ‘*Completions*’ buffer by default like\n‘tmm-menubar’, which is unnecessary with Vertico. This completion\nbuffer can be disabled as follows.\n\n (advice-add #'ffap-menu-ask :around (lambda (&rest args)\n (cl-letf (((symbol-function #'minibuffer-completion-help)\n #'ignore))\n (apply args))))\n\n\u001f\nFile: docwCTKeZ.info, Node: completion-table-dynamic, Next: Submitting the empty string, Prev: ffap-menu, Up: Problematic completion commands\n\n10.5 ‘completion-table-dynamic’\n===============================\n\nDynamic completion tables (‘completion-table-dynamic’,\n‘completion-table-in-turn’, etc.) should work well with Vertico.\nHowever the requirement is that the ‘basic’ completion style is enabled.\nThe ‘basic’ style performs prefix filtering by passing the input to the\ncompletion table (or the dynamic completion table function). The\n‘basic’ completion style must not necessarily be configured with highest\npriority, it can also come after other completion styles like\n‘orderless’, ‘substring’ or ‘flex’.\n\n (setq completion-styles '(basic))\n ;; (setq completion-styles '(orderless basic))\n (completing-read \"Dynamic: \"\n (completion-table-dynamic\n (lambda (str)\n (list (concat str \"1\")\n (concat str \"2\")\n (concat str \"3\")))))\n\n\u001f\nFile: docwCTKeZ.info, Node: Submitting the empty string, Next: Tramp hostname completion, Prev: completion-table-dynamic, Up: Problematic completion commands\n\n10.6 Submitting the empty string\n================================\n\nThe commands ‘multi-occur’, ‘auto-insert’, ‘bbdb-create’ read multiple\narguments from the minibuffer with ‘completing-read’, one at a time,\nuntil you submit an empty string. You should type ‘M-RET’\n(‘vertico-exit-input’) to finish the loop. Directly pressing ‘RET’\n(‘vertico-exit’) does not work since the first candidate is preselected.\n\n The underlying issue is that ‘completing-read’ always allows you to\nexit with the empty string, which is called the _null completion_, even\nif the ‘REQUIRE-MATCH’ argument is non-nil. Try the following two calls\nto ‘completing-read’ with ‘C-x C-e’:\n\n (completing-read \"Select: \" '(\"first\" \"second\" \"third\") nil 'require-match)\n (completing-read \"Select: \" '(\"first\" \"second\" \"third\") nil 'require-match nil nil \"\")\n\n In both cases the empty string can be submitted. In the first case\nno explicit default value is specified and Vertico preselects the\n*first* candidate. In order to exit with the empty string, press\n‘M-RET’. In the second case the explicit default value \"\" is specified\nand Vertico preselects the prompt, such that exiting with the empty\nstring is possible by pressing ‘RET’ only.\n\n\u001f\nFile: docwCTKeZ.info, Node: Tramp hostname completion, Prev: Submitting the empty string, Up: Problematic completion commands\n\n10.7 Tramp hostname completion\n==============================\n\nIn combination with Orderless, hostnames are not made available for\ncompletion after entering ‘/ssh:’. In order to avoid this problem, the\n‘basic’ completion style should be specified for the file completion\ncategory, such that ‘basic’ is tried before ‘orderless’.\n\n (setq completion-styles '(orderless basic)\n completion-category-overrides '((file (styles basic partial-completion))))\n\n For users who are familiar with the ‘completion-style’ machinery: You\nmay also define a custom completion style which sets in only for remote\nfiles!\n\n (defun basic-remote-try-completion (string table pred point)\n (and (vertico--remote-p string)\n (completion-basic-try-completion string table pred point)))\n (defun basic-remote-all-completions (string table pred point)\n (and (vertico--remote-p string)\n (completion-basic-all-completions string table pred point)))\n (add-to-list\n 'completion-styles-alist\n '(basic-remote basic-remote-try-completion basic-remote-all-completions nil))\n (setq completion-styles '(orderless basic)\n completion-category-overrides '((file (styles basic-remote partial-completion))))\n\n\n\u001f\nTag Table:\nNode: Top212\nNode: Features1707\nNode: Key bindings2731\nNode: Configuration3963\nNode: Completion styles and TAB completion8105\nNode: Completion-at-point and completion-in-region10423\nNode: Extensions11711\nNode: Configure Vertico per command or completion category15438\nNode: Complementary packages19918\nNode: Child frames and Popups22175\nNode: Alternatives23552\nNode: Resources27124\nNode: Contributions28615\nNode: Problematic completion commands28904\nNode: org-refile29482\nNode: org-agenda-filter31079\nNode: tmm-menubar31780\nNode: ffap-menu32381\nNode: completion-table-dynamic33016\nNode: Submitting the empty string34129\nNode: Tramp hostname completion35573\n\u001f\nEnd Tag Table\n\n\u001f\nLocal Variables:\ncoding: utf-8\nEnd:\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vc-fossil-20220707","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":2515166,"end":2515195},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2515195},"to":{"change":7,"start":2515165,"end":2515165},"introduced_by":7}],"inode":{"change":7,"pos":2515165}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"README.md","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2515165},"to":{"change":7,"start":2540698,"end":2540731},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2540731},"to":{"change":7,"start":2540485,"end":2540485},"introduced_by":7}],"inode":{"change":7,"pos":2540485}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2540485},"to":{"change":7,"start":2540486,"end":2540697},"introduced_by":7}],"inode":{"change":7,"pos":2540485}},"content":[{"Del":"# vc-fossil\nVC Mode for Emacs to work with the Fossil SCM\n\nThis is mirrored from https://tumbleweed.nu/r/vc-fossil/ -- please\nfile all bug reports there, the Github mirror is only sporadically for\nnon-GNU ELPA.\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vc-fossil-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2515165},"to":{"change":7,"start":2540437,"end":2540483},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2540483},"to":{"change":7,"start":2539533,"end":2539533},"introduced_by":7}],"inode":{"change":7,"pos":2539533}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2539533},"to":{"change":7,"start":2539534,"end":2540436},"introduced_by":7}],"inode":{"change":7,"pos":2539533}},"content":[{"Del":";;; vc-fossil-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"vc-fossil\" \"vc-fossil.el\" (0 0 0 0))\n;;; Generated autoloads from vc-fossil.el\n (defun vc-fossil-registered (file)\n \"Return non-nil if FILE is registered with Fossil.\"\n (if (vc-find-root file \".fslckout\") ; Short cut.\n (progn\n (load \"vc-fossil\" nil t)\n (vc-fossil-registered file))))\n\n(add-to-list 'vc-handled-backends 'Fossil t)\n\n(register-definition-prefixes \"vc-fossil\" '(\"vc-fossil-\"))\n\n;;;***\n\f\n;;;### (autoloads nil nil (\"vc-fossil-pkg.el\") (0 0 0 0))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; vc-fossil-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vc-fossil-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2515165},"to":{"change":7,"start":2539491,"end":2539531},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2539531},"to":{"change":7,"start":2539094,"end":2539094},"introduced_by":7}],"inode":{"change":7,"pos":2539094}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2539094},"to":{"change":7,"start":2539095,"end":2539490},"introduced_by":7}],"inode":{"change":7,"pos":2539094}},"content":[{"Del":";; Generated package description from vc-fossil.el -*- no-byte-compile: t -*-\n(define-package \"vc-fossil\" \"20220707\" \"VC backend for the fossil sofware configuraiton management system\" 'nil :commit \"8ce6113aa272583130e5f929fefd67115c8f572a\" :url \"https://elpa.nongnu.org/nongnu/vc-fossil.html\" :authors '((\"Venkat Iyer\" . \"venkat@comit.com\")) :maintainer '(\"Alfred M. Szmidt\" . \"ams@gnu.org\"))\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vc-fossil.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2515165},"to":{"change":7,"start":2539056,"end":2539092},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2539092},"to":{"change":7,"start":2515197,"end":2515197},"introduced_by":7}],"inode":{"change":7,"pos":2515197}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2515197},"to":{"change":7,"start":2515198,"end":2539055},"introduced_by":7}],"inode":{"change":7,"pos":2515197}},"content":[{"Del":";;; vc-fossil.el --- VC backend for the fossil sofware configuraiton management system -*- lexical-binding: t; -*-\n\n;; Author: Venkat Iyer \n;; Maintainer: Alfred M. Szmidt \n;; Version: 20220707\n\n;; vc-fossil.el free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published\n;; by the Free Software Foundation, either version 3 of the License,\n;; or (at your option) any later version.\n\n;; vc-fossil.el is distributed in the hope that it will be useful, but\n;; WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n;; General Public License for more details.\n\n;; For a copy of the license, please see .\n\n;;; Commentary:\n\n;; This file contains a VC backend for the fossil version control\n;; system.\n\n;;; Todo:\n\n;; 1) Implement the rest of the vc interface. See the comment at the\n;; beginning of vc.el. The current status is:\n\n;; FUNCTION NAME\t\t\t\tSTATUS\n;; BACKEND PROPERTIES\n;; * revision-granularity\t\t\tOK\n;; - update-on-retrieve-tag\t\t\tOK\n;; STATE-QUERYING FUNCTIONS\n;; * registered (file)\t\t\t\tOK\n;; * state (file)\t\t\t\tOK\n;; - dir-status-files (dir files update-function) OK\n;; - dir-extra-headers (dir)\t\t\tOK\n;; - dir-printer (fileinfo)\t\t\t??\n;; - status-fileinfo-extra (file)\t\t??\n;; * working-revision (file)\t\t\tOK\n;; * checkout-model (files)\t\t\tOK\n;; - mode-line-string (file)\t\t\t??\n;; STATE-CHANGING FUNCTIONS\n;; * create-repo ()\t\t\t\tOK\n;; * register (files &optional comment)\t\tOK\n;; - responsible-p (file)\t\t\tOK\n;; - receive-file (file rev)\t\t\t??\n;; - unregister (file)\t\t\t\tOK\n;; * checkin (files comment &optional rev)\tOK\n;; * find-revision (file rev buffer)\t\tOK\n;; * checkout (file &optional rev)\t\tOK\n;; * revert (file &optional contents-done)\tOK\n;; - merge-file (file &optional rev1 rev2)\t??\n;; - merge-branch ()\t\t\t\tOK\n;; - merge-news (file)\t\t\t\t??\n;; - pull (prompt)\t\t\t\tOK\n;; ? push (prompt)\t\t\t\tOK\n;; - steal-lock (file &optional revision)\t??\n;; - modify-change-comment (files rev comment)\tBROKEN\n;; This requires a different version of LOG-VIEW-EXTRACT-COMMENT\n;; and LOG-VIEW-CURRENT-FILE to work.\n;;\n;; For LOG-VIEW-CURRENT-FILE there has been a bug report filed\n;; with a fix for GNU Emacs\n;; (https://lists.gnu.org/archive/html/emacs-devel/2022-05/msg00759.html).\n;;\n;; LOG-VIEW-EXTRACT-COMMENT needs to be fixed as well somehow to\n;; extract the actual log message around point.\n;;\n;; - mark-resolved (files)\t\t\t??\n;; - find-admin-dir (file)\t\t\t??\n;; HISTORY FUNCTIONS\n;; * print-log (files buffer &optional shortlog start-revision limit) OK\n;; * log-outgoing (buffer remote-location)\t??\n;; * log-incoming (buffer remote-location)\t??\n;; - log-search (buffer pattern)\t\t??\n;; - log-view-mode ()\t\t\t\tOK\n;; - show-log-entry (revision)\t\t\t??\n;; - comment-history (file)\t\t\t??\n;; - update-changelog (files)\t\t\t??\n;; * diff (files &optional rev1 rev2 buffer async) OK\n;; - revision-completion-table (files)\t\t??\n;; - annotate-command (file buf &optional rev)\tOK\n;; - annotate-time ()\t\t\t\tOK\n;; - annotate-current-time ()\t\t\t??\n;; - annotate-extract-revision-at-line ()\tOK\n;; - region-history (file buffer lfrom lto)\t??\n;; - region-history-mode ()\t\t\t??\n;; - mergebase (rev1 &optional rev2)\t\t??\n;; TAG SYSTEM\n;; - create-tag (dir name branchp)\t\tOK\n;; - retrieve-tag (dir name update)\t\tOK\n;; MISCELLANEOUS\n;; - make-version-backups-p (file)\t\t??\n;; - root (file)\t\t\t\tOK\n;; - ignore (file &optional directory remove)\t??\n;; - ignore-completion-table (directory)\t??\n;; - find-ignore-file file\t\t\tOK\n;; - previous-revision (file rev)\t\tOK\n;; - next-revision (file rev)\t\t\tOK\n;; - log-edit-mode ()\t\t\t\t??\n;; - check-headers ()\t\t\t\t??\n;; - delete-file (file)\t\t\t\tOK\n;; - rename-file (old new)\t\t\tOK\n;; - find-file-hook ()\t\t\t\t??\n;; - extra-menu ()\t\t\t\t??\n;; - extra-dir-menu ()\t\t\t\t??\n;; - conflicted-files (dir)\t\t\t??\n;; - repository-url (file-or-dir &optional remote-name) OK\n\n;;; Code:\n\n(eval-when-compile (require 'vc))\n(eval-when-compile (require 'url-parse)) ;For url-user/passwd setters\n\n(autoload 'vc-switches \"vc\")\n\n(declare-function log-edit-extract-headers \"log-edit\" (headers string))\n\n(autoload 'vc-setup-buffer \"vc-dispatcher\")\n(declare-function vc-compilation-mode \"vc-dispatcher\" (backend))\n(declare-function vc-exec-after \"vc-dispatcher\" (code))\n(declare-function vc-set-async-update \"vc-dispatcher\" (process-buffer))\n\n(declare-function vc-annotate-convert-time \"vc-annotate\" (time))\n\n;; Internal Functions\n\n(defun vc-fossil--call (buffer &rest args)\n (apply #'process-file \"fossil\" nil buffer nil args))\n\n(defun vc-fossil--out-ok (&rest args)\n (zerop (apply #'vc-fossil--call '(t nil) args)))\n\n(defun vc-fossil--run (&rest args)\n (catch 'bail\n (with-output-to-string\n (with-current-buffer standard-output\n\t(unless (apply #'vc-fossil--out-ok args)\n\t (throw 'bail nil))))))\n\n(defun vc-fossil--command (buffer okstatus file-or-list &rest flags)\n (apply #'vc-do-command (or buffer \"*vc*\") okstatus \"fossil\" file-or-list flags)\n (when (eql major-mode 'vc-dir-mode)\t; Update header info.\n (revert-buffer (current-buffer))))\n\n(defvar vc-fossil--history nil)\n\n(defun vc-fossil--do-async-prompted-command (command &optional prompt hist-var)\n (let* ((root (vc-fossil-root default-directory))\n\t (buffer (format \"*vc-fossil : %s*\" (expand-file-name root)))\n\t (fossil-program \"fossil\")\n\t (args '()))\n (when prompt\n (setq args (split-string\n\t\t (read-shell-command \"Run Fossil (like this): \"\n\t\t\t\t (concat fossil-program \" \" command)\n\t\t\t\t (or hist-var 'vc-fossil--history))\n\t\t \" \" t))\n (setq fossil-program (car args)\n\t command (cadr args)\n\t args (cddr args)))\n (apply #'vc-do-async-command buffer root fossil-program command args)\n (with-current-buffer buffer\n (vc-run-delayed (vc-compilation-mode 'Fossil)))\n (vc-set-async-update buffer)))\n\n(defun vc-fossil--get-id (dir)\n (let* ((default-directory dir)\n\t (info (vc-fossil--run \"info\"))\n\t (_pos (string-match \"checkout: *\\\$[0-9a-fA-F]+\\\$\" info))\n\t (uid (match-string 1 info)))\n (substring uid 0 10)))\n\n(defun vc-fossil--state-code (code)\n (cond ((not code) 'unregistered)\n\t((string= code \"UNKNOWN\") 'unregistered)\n\t((string= code \"UNCHANGED\") 'up-to-date)\n\t((string= code \"CONFLICT\") 'conflict)\n\t((string= code \"ADDED\") 'added)\n\t((string= code \"ADD\") 'needs-update)\n\t((string= code \"EDITED\") 'edited)\n\t((string= code \"REMOVE\") 'removed)\n\t((string= code \"UPDATE\") 'needs-update)\n\t((string= code \"UPDATED_BY_MERGE\") 'needs-merge)\n\t((string= code \"EXTRA\") 'unregistered)\n\t((string= code \"MISSING\") 'missing)\n\t((string= code \"RENAMED\") 'added)\n\t(t nil)))\n\n(defvar vc-fossil--file-classifications nil\n \"An alist of (filename . classification) pairs.\")\n\n(defun vc-fossil--classify-all-files (dir)\n (setq vc-fossil--file-classifications nil)\n (let* ((default-directory dir)\n\t (lines (split-string (vc-fossil--run \"changes\" \"--classify\" \"--all\" \".\") \"[\\n\\r]+\" t)))\n (dolist (line lines)\n (let* ((state-and-file (split-string-and-unquote line))\n\t (state (car state-and-file))\n\t (file (cadr state-and-file))\n\t (pair (cons file state)))\n\t(push pair vc-fossil--file-classifications)))))\n\n(defun vc-fossil--propertize-header-line (name value)\n (concat (propertize name 'face 'font-lock-type-face)\n\t (propertize value 'face 'font-lock-variable-name-face)))\n\n(defun vc-fossil--remotes ()\n (let ((remotes '()))\n (dolist (l (split-string (vc-fossil--run \"remote\" \"list\") \"\\n\" t))\n (push (split-string l) remotes))\n remotes))\n\n(defun vc-fossil--branches ()\n \"Return the existing branches, as a list of strings.\nThe car of the list is the current branch.\"\n (with-temp-buffer\n ;;;---!!! This requires that fossil is compiled with JSON support.\n (vc-fossil--call t \"json\" \"branch\" \"list\")\n (goto-char (point-min))\n (let* ((payload (gethash \"payload\" (json-parse-buffer)))\n\t (current-branch (gethash \"current\" payload))\n\t (branches (append (gethash \"branches\" payload) nil)))\n (cons current-branch (remove current-branch branches)))))\n\f\n;; Customization\n\n(defgroup vc-fossil nil\n \"VC Fossil backend.\"\n :group 'vc)\n\n(defcustom vc-fossil-diff-switches t\n \"String or list of strings specifying switches for Fossil diff under VC.\nIf nil, use the value of `vc-diff-switches'. If t, use no switches.\"\n :type '(choice (const :tag \"Unspecified\" nil)\n\t\t (const :tag \"None\" t)\n\t\t (string :tag \"Argument String\")\n\t\t (repeat :tag \"Argument List\" :value (\"\") string)))\n\n(defcustom vc-fossil-extra-header-fields (list :repository :remote-url :checkout :tags)\n \"A list of keywords denoting extra header fields to show in the vc-dir buffer.\"\n :type '(set (const :repository) (const :remote-url) (const :synchro)\n\t (const :checkout) (const :comment) (const :tags)))\n\n;; BACKEND PROPERTIES\n\n(defun vc-fossil-revision-granularity () 'repository)\n\n(defun vc-fossil-update-on-retrieve-tag () nil)\n\n;; STATE-QUERYING FUNCTIONS\n\n\n;;;###autoload (defun vc-fossil-registered (file)\n;;;###autoload \"Return non-nil if FILE is registered with Fossil.\"\n;;;###autoload (if (vc-find-root file \".fslckout\") ; Short cut.\n;;;###autoload (progn\n;;;###autoload (load \"vc-fossil\" nil t)\n;;;###autoload (vc-fossil-registered file))))\n(defun vc-fossil-registered (file)\n (with-temp-buffer\n (let* ((str (ignore-errors\n\t\t (vc-fossil--out-ok \"finfo\" \"-s\" (file-truename file))\n\t\t (buffer-string))))\n (and str\n\t (> (length str) 7)\n\t (not (string= (substring str 0 7) \"unknown\"))))))\n\n(defun vc-fossil-state (file)\n (let* ((line (vc-fossil--run \"changes\" \"--classify\" \"--all\" (file-truename file)))\n\t (state (vc-fossil--state-code (car (split-string line)))))\n ;; ---!!! Does 'fossil update' and 'fossil changes' have different\n ;; ---!!! semantics here?\n ;;;\n ;; If 'fossil update' says file is UNCHANGED check to see if it\n ;; has been RENAMED.\n (when (or (not state) (eql state 'up-to-date))\n (let ((line (vc-fossil--run \"changes\" \"--classify\" \"--unchanged\" \"--renamed\"\n\t\t\t\t (file-truename file))))\n\t(setq state (and line (vc-fossil--state-code (car (split-string line)))))))\n state))\n\n(defun vc-fossil-dir-status-files (dir files update-function)\n (vc-fossil--classify-all-files dir)\n (insert (apply #'vc-fossil--run \"changes\" \"--classify\" \"--all\"\n\t\t (or files (list dir))))\n (let ((result '()))\n (goto-char (point-min))\n (while (not (eobp))\n (let* ((line (buffer-substring-no-properties (point) (line-end-position)))\n\t (status-word (car (split-string line))))\n\t(if (string-match \"-----\" status-word)\n\t (goto-char (point-max))\n\t (let ((file (cadr (split-string line)))\n\t\t(state (vc-fossil--state-code status-word)))\n\t ;; If 'fossil update' says file is UNCHANGED check to see\n\t ;; if it has been RENAMED.\n\t (when (or (not state) (eql state 'up-to-date))\n\t (setq state (vc-fossil--state-code\n\t\t\t (cdr (assoc file vc-fossil--file-classifications)))))\n\t (when (not (eq state 'up-to-date))\n\t (push (list file state) result))))\n\t(forward-line)))\n ;; Now collect untracked files.\n (delete-region (point-min) (point-max))\n (insert (apply #'vc-fossil--run \"extras\" \"--dotfiles\" (list dir)))\n (goto-char (point-min))\n (while (not (eobp))\n (let ((file (buffer-substring-no-properties (point) (line-end-position))))\n\t(push (list file (vc-fossil--state-code nil)) result)\n\t(forward-line)))\n (funcall update-function result nil)))\n\n(defun vc-fossil-dir-extra-headers (_dir)\n (let ((info (vc-fossil--run \"info\"))\n\t(settings (vc-fossil--run \"settings\"))\n\t(lines nil))\n (dolist (field vc-fossil-extra-header-fields)\n (unless (null lines)\n\t(push \"\\n\" lines))\n (cond ((eql field :repository)\n\t (string-match \"repository: *\\\$.*\\\$$\" info)\n\t (let ((repo (match-string 1 info)))\n\t (push (vc-fossil--propertize-header-line \"Repository : \" repo) lines)))\n\t ((eql field :remote-url)\n\t (let ((remote-url (car (split-string (vc-fossil--run \"remote-url\")))))\n\t (unless (string= \"off\" remote-url)\n\t\t (push (vc-fossil--propertize-header-line \"Remote : \" remote-url) lines))))\n\t ((eql field :synchro)\n\t (let* ((as-match (string-match \"^autosync +.+ +\\\$[[:graph:]]+\\\$$\" settings))\n\t\t (autosync (and as-match (match-string 1 settings)))\n\t\t (dp-match (string-match \"^dont-push +.+ +\\\$[[:graph:]]+\\\$$\" settings))\n\t\t (dontpush (and dp-match (match-string 1 settings))))\n\t (push (vc-fossil--propertize-header-line\n\t\t \"Synchro : \"\n\t\t (concat (and autosync \"autosync=\") autosync\n\t\t\t (and dontpush \" dont-push=\") dontpush))\n\t\t lines)))\n\t ((eql field :checkout)\n\t (let* ((_posco (string-match \"checkout: *\\\$[0-9a-fA-F]+\\\$ \\\$[-0-9: ]+ UTC\\\$\" info))\n\t\t (coid (substring (match-string 1 info) 0 10))\n\t\t (cots (format-time-string \"%Y-%m-%d %H:%M:%S %Z\"\n\t\t\t\t\t (safe-date-to-time (match-string 2 info))))\n\t\t (child-match (string-match \"child: *\\\$.*\\\$$\" info))\n\t\t (leaf (if child-match \"non-leaf\" \"leaf\")))\n\t (push (vc-fossil--propertize-header-line \"Checkout : \"\n\t\t\t\t\t\t\t(concat coid \" \" cots\n\t\t\t\t\t\t\t\t(concat \" (\" leaf \")\")))\n\t\t lines)))\n\t ((eql field :comment)\n\t (string-match \"comment: *\\\$.*\\\$$\" info)\n\t (let ((msg (match-string 1 info)))\n\t (push (vc-fossil--propertize-header-line \"Comment : \" msg) lines)))\n\t ((eql field :tags)\n\t (string-match \"tags: *\\\$.*\\\$\" info)\n\t (let ((tags (match-string 1 info)))\n\t (push (vc-fossil--propertize-header-line \"Tags : \" tags) lines)))))\n (apply #'concat (nreverse lines))))\n\n;; - dir-printer (fileinfo)\n\n;; - status-fileinfo-extra (file)\n\n(defun vc-fossil-working-revision (file)\n (let ((line (vc-fossil--run \"finfo\" \"-s\" (file-truename file))))\n (and line\n\t (cadr (split-string line)))))\n\n(defun vc-fossil-checkout-model (_files) 'implicit)\n\n;; - mode-line-string (file)\n\n;; STATE-CHANGING FUNCTIONS\n\n(defun vc-fossil-create-repo ()\n (vc-fossil--command nil 0 nil \"new\"))\n\n(defun vc-fossil-register (files &optional _rev _comment)\n ;; We ignore the comment. There's no comment on add.\n (vc-fossil--command nil 0 files \"add\"))\n\n(defun vc-fossil-responsible-p (file)\n (vc-fossil-root file))\n\n;; - receive-file (file rev)\n\n(defun vc-fossil-unregister (file)\n (vc-fossil--command nil 0 file \"rm\"))\n\n(defun vc-fossil-checkin (files comment &optional _rev)\n (apply #'vc-fossil--command nil 0 files\n\t (nconc (list \"commit\" \"-m\")\n\t\t(log-edit-extract-headers\n\t\t `((\"Author\" . \"--user-override\")\n\t\t (\"Date\" . \"--date-override\"))\n\t\t comment)\n\t\t(vc-switches 'Fossil 'checkin))))\n\n(defun vc-fossil-find-revision (file rev buffer)\n (apply #'vc-fossil--command buffer 0 file\n\t \"cat\"\n\t (nconc\n\t (unless (zerop (length rev)) (list \"-r\" rev))\n\t (vc-switches 'Fossil 'checkout))))\n\n(defun vc-fossil-checkout (file &optional _editable rev)\n (apply #'vc-fossil--command nil 0 file\n\t \"update\"\n\t (nconc\n\t (cond\n\t ((eq rev t) (list \"current\"))\n\t ((equal rev \"\") (list \"trunk\"))\n\t ((stringp rev) (list rev)))\n\t (vc-switches 'Fossil 'checkout))))\n\n(defun vc-fossil-revert (file &optional contents-done)\n (if contents-done\n t\n (vc-fossil--command nil 0 file \"revert\")))\n\n;; - merge-file (file &optional rev1 rev2)\n\n(defun vc-fossil-merge-branch ()\n \"Merge changes into the current branch.\nThis prompts for a branch to merge from.\"\n (let* ((root (vc-fossil-root default-directory))\n\t (buffer (format \"*vc-fossil : %s*\" (expand-file-name root)))\n\t (branches (cdr (vc-fossil--branches)))\n\t (merge-source (completing-read \"Merge from branch: \" branches nil t)))\n (apply #'vc-do-async-command buffer root \"fossil\" \"merge\" (list merge-source))\n (with-current-buffer buffer (vc-run-delayed (vc-compilation-mode 'Fossil)))\n (vc-set-async-update buffer)))\n\n;; - merge-news (file)\n\n(defvar vc-fossil--pull-history nil)\n(defvar vc-fossil--push-history nil)\n\n(defun vc-fossil-pull (prompt)\n (interactive \"P\")\n (vc-fossil--do-async-prompted-command \"update\" prompt 'vc-fossil--pull-history))\n\n(defun vc-fossil-push (prompt)\n (interactive \"P\")\n (vc-fossil--do-async-prompted-command \"push\" prompt 'vc-fossil-push-history))\n\n;; - steal-lock (file &optional revision)\n\n(defun vc-fossil-modify-change-comment (_files rev comment)\n (vc-fossil--call t \"amend\" rev \"-m\" comment))\n\n;; - mark-resolved (files)\n\n;; - find-admin-dir (file)\n\n;; HISTORY FUNCTIONS\n\n(defun vc-fossil-print-log (files buffer &optional _shortlog start-revision limit)\n ;; TODO: We actually already have short, start and limit, need to\n ;; add it into the code.\n (vc-setup-buffer buffer)\n (let ((inhibit-read-only t))\n (with-current-buffer buffer\n (dolist (file files)\n\t(apply #'vc-fossil--command buffer 0 nil \"timeline\"\n\t (nconc\n\t\t(when start-revision (list \"before\" start-revision))\n\t\t(when limit (list \"-n\" (number-to-string limit)))\n\t\t(list \"-p\" (file-relative-name (expand-file-name file))))))\n (goto-char (point-min)))))\n\n;; * log-outgoing (buffer remote-location)\n\n;; * log-incoming (buffer remote-location)\n\n;; - log-search (buffer pattern)\n\n(defvar log-view-message-re)\n(defvar log-view-file-re)\n(defvar log-view-font-lock-keywords)\n(defvar log-view-per-file-logs)\n\n(define-derived-mode vc-fossil-log-view-mode log-view-mode \"Fossil-Log-View\"\n (setq word-wrap t)\n (setq-local wrap-prefix \" \")\n (setq-local log-view-file-re \"\\\\`a\\\\`\")\n (setq-local log-view-per-file-logs nil)\n (setq-local log-view-message-re\n\t \"^[0-9:]+ \\\\[\\\$[0-9a-fA-F]*\\\$\\\\] \\\$?:\\\\*[^*]*\\\\*\\\$? ?\\\$.*\\\$\")\n (setq-local log-view-font-lock-keywords\n\t (append\n\t '(\n\t\t (\"^\\\$[0-9:]*\\\$ \\\$\\\\[[[:alnum:]]*\\\\]\\\$ \\\$\\\\(?:\\\\*[[:word:]]*\\\\*\\\$?\\\\) ?\\\$.*?\\\$ (user: \\\$[[:word:]]*\\\$ tags: \\\$.*\\\$)\"\n\t\t (1 'change-log-date)\n\t\t (2 'change-log-name)\n\t\t (3 'highlight)\n\t\t (4 'log-view-message)\n\t\t (5 'change-log-name)\n\t\t (6 'highlight))\n\t\t (\"^=== \\\$.*\\\$ ===\"\n\t\t (1 'change-log-date))))))\n\n;; - show-log-entry (revision)\n\n;; - comment-history (file)\n\n;; - update-changelog (files)\n\n(defun vc-fossil-diff (files &optional rev1 rev2 buffer _async)\n ;; TODO: Implement diff for directories.\n (let ((buf (or buffer \"*vc-diff*\"))\n\t(root (and files (expand-file-name (vc-fossil-root (car files))))))\n ;; If we diff the root directory, do not specify a file.\n (if (or (null files)\n\t (and (null (cdr files))\n\t\t (equal root (expand-file-name (car files)))))\n\t(setq files nil))\n (apply #'vc-fossil--command\n\t buf 0 files \"diff\" \"-i\"\n\t (nconc\n\t (cond\n\t (rev2 (list \"--from\" (or rev1 \"current\") \"--to\" rev2))\n\t (rev1 (list \"--from\" rev1)))\n\t (vc-switches 'Fossil 'diff)))))\n\n;; - revision-completion-table (files)\n\n(defconst vc-fossil-annotate-re\n \"\\\$[[:word:]]+\\\$\\\\s-+\\\$[-0-9]+\\\$\\\\s-+[0-9]+: \")\n\n(defun vc-fossil-annotate-command (file buffer &optional rev)\n (vc-fossil--command buffer 0 file \"annotate\" \"-r\" (or rev \"trunk\")))\n\n(defun vc-fossil-annotate-time ()\n ;; TODO: Currently only the date is used, not the time.\n (when (looking-at vc-fossil-annotate-re)\n (goto-char (match-end 0))\n (vc-annotate-convert-time\n (date-to-time (format \"%s 00:00:00\" (match-string-no-properties 2))))))\n\n;; - annotate-current-time ()\n\n(defun vc-fossil-annotate-extract-revision-at-line ()\n (save-excursion\n (beginning-of-line)\n (when (looking-at vc-fossil-annotate-re)\n (goto-char (match-end 0))\n (match-string-no-properties 1))))\n\n;; - region-history (file buffer lfrom lto)\n\n;; - region-history-mode ()\n\n;; - mergebase (rev1 &optional rev2)\n\n;; TAG SYSTEM\n\n(defun vc-fossil-create-tag (file name branchp)\n (let* ((dir (if (file-directory-p file) file (file-name-directory file)))\n\t (default-directory dir))\n (apply #'vc-fossil--command nil 0 nil `(,@(if branchp\n\t\t\t\t\t\t '(\"branch\" \"new\")\n\t\t\t\t\t\t'(\"tag\" \"add\"))\n\t\t\t\t\t ,name ,(vc-fossil--get-id dir)))))\n\n(defun vc-fossil-retrieve-tag (dir name _update)\n (let ((default-directory dir))\n (vc-fossil--command nil 0 nil \"checkout\" name)))\n\n;; MISCELLANEOUS\n\n;; - make-version-backups-p (file)\n\n(defun vc-fossil-root (file)\n (or (vc-find-root file \".fslckout\")\n (vc-find-root file \"_FOSSIL_\")))\n\n;; - ignore (file &optional directory)\n\n;; - ignore-completion-table\n\n(defun vc-fossil-find-ignore-file (file)\n (expand-file-name \".fossil-settings/ignore-glob\"\n\t\t (vc-fossil-root file)))\n\n(defun vc-fossil-previous-revision (file rev)\n (with-temp-buffer\n (cond\n (file\n (vc-fossil--command t 0 (file-truename file) \"finfo\" \"-l\" \"-b\")\n (goto-char (point-min))\n (and (re-search-forward (concat \"^\" (regexp-quote rev)) nil t)\n\t (zerop (forward-line))\n\t (looking-at \"^\\\$[0-9a-zA-Z]+\\\$\")\n\t (match-string 1)))\n (t\n (vc-fossil--command t 0 nil \"info\" rev)\n (goto-char (point-min))\n (and (re-search-forward \"parent: *\\\$[0-9a-fA-F]+\\\$\" nil t)\n\t (match-string 1))))))\n\n(defun vc-fossil-next-revision (file rev)\n (with-temp-buffer\n (cond\n (file\n (vc-fossil--command t 0 (file-truename file) \"finfo\" \"-l\" \"-b\")\n (goto-char (point-min))\n (and (re-search-forward (concat \"^\" (regexp-quote rev)) nil t)\n\t (zerop (forward-line -1))\n\t (looking-at \"^\\\$[0-9a-zA-Z]+\\\$\")\n\t (match-string 1)))\n (t\n (vc-fossil--command t 0 nil \"info\" rev)\n (goto-char (point-min))\n (and (re-search-forward \"child: *\\\$[0-9a-fA-F]+\\\$\" nil t)\n\t (match-string 1))))))\n\n;; - log-edit-mode ()\n\n;; - check-headers ()\n\n(defun vc-fossil-delete-file (file)\n (vc-fossil--command nil 0 (file-truename file) \"rm\" \"--hard\"))\n\n(defun vc-fossil-rename-file (old new)\n (vc-fossil--command nil 0 (list (file-truename old) (file-truename new)) \"mv\" \"--hard\"))\n\n;; - find-file-hook ()\n\n;; - extra-menu ()\n\n;; - extra-dir-menu ()\n\n;; - conflicted-files (dir)\n\n(defun vc-fossil-repository-url (file-or-dir &optional remote-name)\n (let ((default-directory (vc-fossil-root file-or-dir)))\n (cadr (assoc (or remote-name \"default\") (vc-fossil--remotes)))))\n\f\n;; Useful functions for interacting with Fossil\n\n(defun vc-fossil--url-without-authinfo (url)\n (let ((parsed (url-generic-parse-url url)))\n (setf (url-user parsed) nil)\n (setf (url-password parsed) nil)\n (url-recreate-url parsed)))\n\n(defun vc-fossil--relative-file-name (file)\n (let ((l0 (car (split-string (vc-fossil--run \"finfo\" file) \"\\n\" t))))\n (save-match-data\n (and (string-match \"^History for \\\$.*\\\$$\" l0)\n\t (setq file (match-string 1 l0)))\n file)))\n\n(defun vc-fossil-link (_start _end)\n \"Put the current URL to a file in the kill ring.\"\n (interactive \"r\")\n (let ((default-directory (file-name-directory (buffer-file-name (current-buffer)))))\n (unless (vc-fossil-registered (buffer-file-name))\n (error \"%s: file is not registerd in vc\" (buffer-file-name)))\n (let* ((repository-url (vc-fossil--url-without-authinfo\n\t\t\t (vc-fossil-repository-url (buffer-file-name))))\n\t (file (vc-fossil--relative-file-name (buffer-file-name)))\n\t (tag (vc-fossil-working-revision (buffer-file-name (current-buffer))))\n \t (start (line-number-at-pos (region-beginning)))\n \t (end (line-number-at-pos (region-end)))\n (link\n (if (= start end)\n (format \"%s/file?ci=%s&name=%s&ln=%s\"\n \t\t\trepository-url tag file start)\n (format \"%s/file?ci=%s&name=%s&ln=%s-%s\"\n \t\t repository-url tag file start end))))\n (kill-new link)\n (message \"%s\" link))))\n\f\n;; This snippet enables the Fossil VC backend so it will work once\n;; this file is loaded. By also marking it for inclusion in the\n;; autoloads file, installing packaged versions of this should work\n;; without users having to monkey with their init files.\n\n;;;###autoload\n(add-to-list 'vc-handled-backends 'Fossil t)\n\n(provide 'vc-fossil)\n\n;;; vc-fossil.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vc-fossil-20210928.737","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":2540734,"end":2540767},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2540767},"to":{"change":7,"start":2540733,"end":2540733},"introduced_by":7}],"inode":{"change":7,"pos":2540733}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"vc-fossil-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2540733},"to":{"change":7,"start":2563969,"end":2564015},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2564015},"to":{"change":7,"start":2563277,"end":2563277},"introduced_by":7}],"inode":{"change":7,"pos":2563277}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2563277},"to":{"change":7,"start":2563278,"end":2563968},"introduced_by":7}],"inode":{"change":7,"pos":2563277}},"content":[{"Del":";;; vc-fossil-autoloads.el --- automatically extracted autoloads\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"vc-fossil\" \"vc-fossil.el\" (0 0 0 0))\n;;; Generated autoloads from vc-fossil.el\n\n(autoload 'vc-fossil-registered \"vc-fossil\" \"\\\n\n\n\\(fn FILE)\" nil nil)\n\n(add-to-list 'vc-handled-backends 'Fossil t)\n\n(if (fboundp 'register-definition-prefixes) (register-definition-prefixes \"vc-fossil\" '(\"vc-fossil-\")))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; vc-fossil-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vc-fossil-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2540733},"to":{"change":7,"start":2563235,"end":2563275},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2563275},"to":{"change":7,"start":2562863,"end":2562863},"introduced_by":7}],"inode":{"change":7,"pos":2562863}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2562863},"to":{"change":7,"start":2562864,"end":2563234},"introduced_by":7}],"inode":{"change":7,"pos":2562863}},"content":[{"Del":";;; Generated package description from vc-fossil-20210928.737/vc-fossil.el -*- no-byte-compile: t -*-\n(define-package \"vc-fossil\" \"20210928.737\" \"VC backend for the fossil sofware configuraiton management system\" 'nil :commit \"7815c30d739a01e1100961abb3f2b93e0ea9920f\" :authors '((\"Venkat Iyer\" . \"venkat@comit.com\")) :maintainer '(\"Alfred M. Szmidt\" . \"ams@gnu.org\"))\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vc-fossil.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2540733},"to":{"change":7,"start":2562825,"end":2562861},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2562861},"to":{"change":7,"start":2540769,"end":2540769},"introduced_by":7}],"inode":{"change":7,"pos":2540769}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2540769},"to":{"change":7,"start":2540770,"end":2562824},"introduced_by":7}],"inode":{"change":7,"pos":2540769}},"content":[{"Del":";;; vc-fossil.el --- VC backend for the fossil sofware configuraiton management system\n\n;; Author: Venkat Iyer \n;; Maintainer: Alfred M. Szmidt \n;; Version: 20210928\n;; Package-Version: 20210928.737\n;; Package-Commit: 7815c30d739a01e1100961abb3f2b93e0ea9920f\n\n;; vc-fossil.el free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published\n;; by the Free Software Foundation, either version 3 of the License,\n;; or (at your option) any later version.\n\n;; vc-fossil.el is distributed in the hope that it will be useful, but\n;; WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n;; General Public License for more details.\n\n;; For a copy of the license, please see .\n\n;;; Commentary:\n\n;; This file contains a VC backend for the fossil version control\n;; system.\n\n;;; Todo:\n\n;; 1) Implement the rest of the vc interface. See the comment at the\n;; beginning of vc.el. The current status is:\n\n;; FUNCTION NAME\t\t\t\tSTATUS\n;; BACKEND PROPERTIES\n;; * revision-granularity\t\t\tOK\n;; - update-on-retrieve-tag\t\t\tOK\n;; STATE-QUERYING FUNCTIONS\n;; * registered (file)\t\t\t\tOK\n;; * state (file)\t\t\t\tOK\n;; - dir-status-files (dir files update-function) OK\n;; - dir-extra-headers (dir)\t\t\tOK\n;; - dir-printer (fileinfo)\t\t\t??\n;; - status-fileinfo-extra (file)\t\t??\n;; * working-revision (file)\t\t\tOK\n;; * checkout-model (files)\t\t\tOK\n;; - mode-line-string (file)\t\t\t??\n;; STATE-CHANGING FUNCTIONS\n;; * create-repo ()\t\t\t\tOK\n;; * register (files &optional comment)\t\tOK\n;; - responsible-p (file)\t\t\tOK\n;; - receive-file (file rev)\t\t\t??\n;; - unregister (file)\t\t\t\tOK\n;; * checkin (files comment &optional rev)\tOK\n;; * find-revision (file rev buffer)\t\tOK\n;; * checkout (file &optional rev)\t\tOK\n;; * revert (file &optional contents-done)\tOK\n;; - merge-file (file &optional rev1 rev2)\t??\n;; - merge-branch ()\t\t\t\t??\n;; - merge-news (file)\t\t\t\t??\n;; - pull (prompt)\t\t\t\tOK\n;; ? push (prompt)\t\t\t\tOK\n;; - steal-lock (file &optional revision)\t??\n;; - modify-change-comment (files rev comment)\t??\n;; - mark-resolved (files)\t\t\t??\n;; - find-admin-dir (file)\t\t\t??\n;; HISTORY FUNCTIONS\n;; * print-log (files buffer &optional shortlog start-revision limit) OK\n;; * log-outgoing (buffer remote-location)\t??\n;; * log-incoming (buffer remote-location)\t??\n;; - log-search (buffer pattern)\t\t??\n;; - log-view-mode ()\t\t\t\tOK\n;; - show-log-entry (revision)\t\t\t??\n;; - comment-history (file)\t\t\t??\n;; - update-changelog (files)\t\t\t??\n;; * diff (files &optional rev1 rev2 buffer async) OK\n;; - revision-completion-table (files)\t\t??\n;; - annotate-command (file buf &optional rev)\tOK\n;; - annotate-time ()\t\t\t\tOK\n;; - annotate-current-time ()\t\t\t??\n;; - annotate-extract-revision-at-line ()\tOK\n;; - region-history (file buffer lfrom lto)\t??\n;; - region-history-mode ()\t\t\t??\n;; - mergebase (rev1 &optional rev2)\t\t??\n;; TAG SYSTEM\n;; - create-tag (dir name branchp)\t\tOK\n;; - retrieve-tag (dir name update)\t\tOK\n;; MISCELLANEOUS\n;; - make-version-backups-p (file)\t\t??\n;; - root (file)\t\t\t\tOK\n;; - ignore (file &optional directory remove)\t??\n;; - ignore-completion-table (directory)\t??\n;; - find-ignore-file file\t\t\tOK\n;; - previous-revision (file rev)\t\tOK\n;; - next-revision (file rev)\t\t\tOK\n;; - log-edit-mode ()\t\t\t\t??\n;; - check-headers ()\t\t\t\t??\n;; - delete-file (file)\t\t\t\tOK\n;; - rename-file (old new)\t\t\tOK\n;; - find-file-hook ()\t\t\t\t??\n;; - extra-menu ()\t\t\t\t??\n;; - extra-dir-menu ()\t\t\t\t??\n;; - conflicted-files (dir)\t\t\t??\n;; - repository-url (file-or-dir &optional remote-name) OK\n\n;;; Code:\n\n(eval-when-compile\n (require 'vc))\n\n(autoload 'vc-switches \"vc\")\n\n(declare-function log-edit-extract-headers \"log-edit\" (headers string))\n\n(autoload 'vc-setup-buffer \"vc-dispatcher\")\n(declare-function vc-compilation-mode \"vc-dispatcher\" (backend))\n(declare-function vc-exec-after \"vc-dispatcher\" (code))\n(declare-function vc-set-async-update \"vc-dispatcher\" (process-buffer))\n\n(declare-function vc-annotate-convert-time \"vc-annotate\" (time))\n\n;; Internal Functions\n\n(defun vc-fossil--call (buffer &rest args)\n (apply #'process-file \"fossil\" nil buffer nil args))\n\n(defun vc-fossil--out-ok (&rest args)\n (zerop (apply #'vc-fossil--call '(t nil) args)))\n\n(defun vc-fossil--run (&rest args)\n (catch 'bail\n (with-output-to-string\n (with-current-buffer standard-output\n\t(unless (apply #'vc-fossil--out-ok args)\n\t (throw 'bail nil))))))\n\n(defun vc-fossil--command (buffer okstatus file-or-list &rest flags)\n (apply #'vc-do-command (or buffer \"*vc*\") okstatus \"fossil\" file-or-list flags)\n (when (eql major-mode 'vc-dir-mode)\t; Update header info.\n (revert-buffer (current-buffer))))\n\n(defvar vc-fossil--history nil)\n\n(defun vc-fossil--do-async-prompted-command (command &optional prompt hist-var)\n (let* ((root (vc-fossil-root default-directory))\n\t (buffer (format \"*vc-fossil : %s*\" (expand-file-name root)))\n\t (fossil-program \"fossil\")\n\t (args '()))\n (when prompt\n (setq args (split-string\n\t\t (read-shell-command \"Run Fossil (like this): \"\n\t\t\t\t (concat fossil-program \" \" command)\n\t\t\t\t (or hist-var 'vc-fossil--history))\n\t\t \" \" t))\n (setq fossil-program (car args)\n\t command (cadr args)\n\t args (cddr args)))\n (apply 'vc-do-async-command buffer root fossil-program command args)\n (with-current-buffer buffer\n (vc-run-delayed (vc-compilation-mode 'Fossil)))\n (vc-set-async-update buffer)))\n\n(defun vc-fossil--get-id (dir)\n (let* ((default-directory dir)\n\t (info (vc-fossil--run \"info\"))\n\t (pos (string-match \"checkout: *\\\$[0-9a-fA-F]+\\\$\" info))\n\t (uid (match-string 1 info)))\n (substring uid 0 10)))\n\n(defun vc-fossil--state-code (code)\n (cond ((not code) 'unregistered)\n\t((string= code \"UNKNOWN\") 'unregistered)\n\t((string= code \"UNCHANGED\") 'up-to-date)\n\t((string= code \"CONFLICT\") 'conflict)\n\t((string= code \"ADDED\") 'added)\n\t((string= code \"ADD\") 'needs-update)\n\t((string= code \"EDITED\") 'edited)\n\t((string= code \"REMOVE\") 'removed)\n\t((string= code \"UPDATE\") 'needs-update)\n\t((string= code \"UPDATED_BY_MERGE\") 'needs-merge)\n\t((string= code \"EXTRA\") 'unregistered)\n\t((string= code \"MISSING\") 'missing)\n\t((string= code \"RENAMED\") 'added)\n\t(t nil)))\n\n(defvar vc-fossil--file-classifications nil\n \"An alist of (filename . classification) pairs.\")\n\n(defun vc-fossil--classify-all-files (dir)\n (setq vc-fossil--file-classifications nil)\n (let* ((default-directory dir)\n\t (lines (split-string (vc-fossil--run \"changes\" \"--classify\" \"--all\" \".\") \"[\\n\\r]+\" t)))\n (dolist (line lines)\n (let* ((state-and-file (split-string-and-unquote line))\n\t (state (car state-and-file))\n\t (file (cadr state-and-file))\n\t (pair (cons file state)))\n\t(push pair vc-fossil--file-classifications)))))\n\n(defun vc-fossil--propertize-header-line (name value)\n (concat (propertize name 'face 'font-lock-type-face)\n\t (propertize value 'face 'font-lock-variable-name-face)))\n\n(defun vc-fossil--remotes ()\n (let ((remotes '()))\n (dolist (l (split-string (vc-fossil--run \"remote\" \"list\") \"\\n\" t))\n (push (split-string l) remotes))\n remotes))\n\f\n;; Customization\n\n(defgroup vc-fossil nil\n \"VC Fossil backend.\"\n :group 'vc)\n\n(defcustom vc-fossil-diff-switches t\n \"String or list of strings specifying switches for Fossil diff under VC.\nIf nil, use the value of `vc-diff-switches'. If t, use no switches.\"\n :type '(choice (const :tag \"Unspecified\" nil)\n\t\t (const :tag \"None\" t)\n\t\t (string :tag \"Argument String\")\n\t\t (repeat :tag \"Argument List\" :value (\"\") string))\n :group 'vc-fossil)\n\n(defcustom vc-fossil-extra-header-fields (list :repository :remote-url :checkout :tags)\n \"A list of keywords denoting extra header fields to show in the vc-dir buffer.\"\n :type '(set (const :repository) (const :remote-url) (const :synchro)\n\t (const :checkout) (const :comment) (const :tags))\n :group 'vc-fossil)\n\n;; BACKEND PROPERTIES\n\n(defun vc-fossil-revision-granularity () 'repository)\n\n(defun vc-fossil-update-on-retrieve-tag () nil)\n\n;; STATE-QUERYING FUNCTIONS\n\n;;;###autoload\n(defun vc-fossil-registered (file)\n (with-temp-buffer\n (let* ((str (ignore-errors\n\t\t (vc-fossil--out-ok \"finfo\" \"-s\" (file-truename file))\n\t\t (buffer-string))))\n (and str\n\t (> (length str) 7)\n\t (not (string= (substring str 0 7) \"unknown\"))))))\n\n(defun vc-fossil-state (file)\n (let* ((line (vc-fossil--run \"changes\" \"--classify\" \"--all\" (file-truename file)))\n\t (state (vc-fossil--state-code (car (split-string line)))))\n ;; ---!!! Does 'fossil update' and 'fossil changes' have different\n ;; ---!!! semantics here?\n ;;;\n ;; If 'fossil update' says file is UNCHANGED check to see if it\n ;; has been RENAMED.\n (when (or (not state) (eql state 'up-to-date))\n (let ((line (vc-fossil--run \"changes\" \"--classify\" \"--unchanged\" \"--renamed\"\n\t\t\t\t (file-truename file))))\n\t(setq state (and line (vc-fossil--state-code (car (split-string line)))))))\n state))\n\n(defun vc-fossil-dir-status-files (dir files update-function)\n (vc-fossil--classify-all-files dir)\n (insert (apply 'vc-fossil--run \"changes\" \"--classify\" \"--all\"\n\t\t (or files (list dir))))\n (let ((result '())\n\t(root (vc-fossil-root dir)))\n (goto-char (point-min))\n (while (not (eobp))\n (let* ((line (buffer-substring-no-properties (point) (line-end-position)))\n\t (status-word (car (split-string line))))\n\t(if (string-match \"-----\" status-word)\n\t (goto-char (point-max))\n\t (let ((file (cadr (split-string line)))\n\t\t(state (vc-fossil--state-code status-word)))\n\t ;; If 'fossil update' says file is UNCHANGED check to see\n\t ;; if it has been RENAMED.\n\t (when (or (not state) (eql state 'up-to-date))\n\t (setq state (vc-fossil--state-code (cdr (assoc file vc-fossil--file-classifications)))))\n\t (when (not (eq state 'up-to-date))\n\t (push (list file state) result))))\n\t(forward-line)))\n ;; Now collect untracked files.\n (delete-region (point-min) (point-max))\n (insert (apply 'vc-fossil--run \"extras\" \"--dotfiles\" (list dir)))\n (goto-char (point-min))\n (while (not (eobp))\n (let ((file (buffer-substring-no-properties (point) (line-end-position))))\n\t(push (list file (vc-fossil--state-code nil)) result)\n\t(forward-line)))\n (funcall update-function result nil)))\n\n(defun vc-fossil-dir-extra-headers (dir)\n (let ((info (vc-fossil--run \"info\"))\n\t(settings (vc-fossil--run \"settings\"))\n\t(lines nil))\n (dolist (field vc-fossil-extra-header-fields)\n (unless (null lines)\n\t(push \"\\n\" lines))\n (cond ((eql field :repository)\n\t (string-match \"repository: *\\\$.*\\\$$\" info)\n\t (let ((repo (match-string 1 info)))\n\t (push (vc-fossil--propertize-header-line \"Repository : \" repo) lines)))\n\t ((eql field :remote-url)\n\t (let ((remote-url (car (split-string (vc-fossil--run \"remote-url\")))))\n\t (unless (string= \"off\" remote-url)\n\t\t (push (vc-fossil--propertize-header-line \"Remote : \" remote-url) lines))))\n\t ((eql field :synchro)\n\t (let* ((as-match (string-match \"^autosync +.+ +\\\$[[:graph:]]+\\\$$\" settings))\n\t\t (autosync (and as-match (match-string 1 settings)))\n\t\t (dp-match (string-match \"^dont-push +.+ +\\\$[[:graph:]]+\\\$$\" settings))\n\t\t (dontpush (and dp-match (match-string 1 settings))))\n\t (push (vc-fossil--propertize-header-line \"Synchro : \"\n\t\t\t\t\t\t\t(concat (and autosync \"autosync=\") autosync\n\t\t\t\t\t\t\t\t(and dontpush \" dont-push=\") dontpush))\n\t\t lines)))\n\t ((eql field :checkout)\n\t (let* ((posco (string-match \"checkout: *\\\$[0-9a-fA-F]+\\\$ \\\$[-0-9: ]+ UTC\\\$\" info))\n\t\t (coid (substring (match-string 1 info) 0 10))\n\t\t (cots (format-time-string \"%Y-%m-%d %H:%M:%S %Z\"\n\t\t\t\t\t (safe-date-to-time (match-string 2 info))))\n\t\t (child-match (string-match \"child: *\\\$.*\\\$$\" info))\n\t\t (leaf (if child-match \"non-leaf\" \"leaf\")))\n\t (push (vc-fossil--propertize-header-line \"Checkout : \"\n\t\t\t\t\t\t\t(concat coid \" \" cots\n\t\t\t\t\t\t\t\t(concat \" (\" leaf \")\")))\n\t\t lines)))\n\t ((eql field :comment)\n\t (string-match \"comment: *\\\$.*\\\$$\" info)\n\t (let ((msg (match-string 1 info)))\n\t (push (vc-fossil--propertize-header-line \"Comment : \" msg) lines)))\n\t ((eql field :tags)\n\t (string-match \"tags: *\\\$.*\\\$\" info)\n\t (let ((tags (match-string 1 info)))\n\t (push (vc-fossil--propertize-header-line \"Tags : \" tags) lines)))))\n (apply #'concat (nreverse lines))))\n\n;; - dir-printer (fileinfo)\n\n;; - status-fileinfo-extra (file)\n\n(defun vc-fossil-working-revision (file)\n (let ((line (vc-fossil--run \"finfo\" \"-s\" (file-truename file))))\n (and line\n\t (cadr (split-string line)))))\n\n(defun vc-fossil-checkout-model (files) 'implicit)\n\n;; - mode-line-string (file)\n\n;; STATE-CHANGING FUNCTIONS\n\n(defun vc-fossil-create-repo ()\n (vc-fossil--command nil 0 nil \"new\"))\n\n(defun vc-fossil-register (files &optional rev comment)\n ;; We ignore the comment. There's no comment on add.\n (vc-fossil--command nil 0 files \"add\"))\n\n(defun vc-fossil-responsible-p (file)\n (vc-fossil-root file))\n\n;; - receive-file (file rev)\n\n(defun vc-fossil-unregister (file)\n (vc-fossil--command nil 0 file \"rm\"))\n\n(defun vc-fossil-checkin (files comment &optional rev)\n (apply 'vc-fossil--command nil 0 files\n\t (nconc (list \"commit\" \"-m\")\n\t\t(log-edit-extract-headers\n\t\t `((\"Author\" . \"--user-override\")\n\t\t (\"Date\" . \"--date-override\"))\n\t\t comment)\n\t\t(vc-switches 'Fossil 'checkin))))\n\n(defun vc-fossil-find-revision (file rev buffer)\n (apply #'vc-fossil--command buffer 0 file\n\t \"cat\"\n\t (nconc\n\t (unless (zerop (length rev)) (list \"-r\" rev))\n\t (vc-switches 'Fossil 'checkout))))\n\n(defun vc-fossil-checkout (file &optional editable rev)\n (apply #'vc-fossil--command nil 0 file\n\t \"update\"\n\t (nconc\n\t (cond\n\t ((eq rev t) (list \"current\"))\n\t ((equal rev \"\") (list \"trunk\"))\n\t ((stringp rev) (list rev)))\n\t (vc-switches 'Fossil 'checkout))))\n\n(defun vc-fossil-revert (file &optional contents-done)\n (if contents-done\n t\n (vc-fossil--command nil 0 file \"revert\")))\n\n;; - merge-file (file &optional rev1 rev2)\n\n;; - merge-branch ()\n\n;; - merge-news (file)\n\n(defvar vc-fossil--pull-history nil)\n(defvar vc-fossil--push-history nil)\n\n(defun vc-fossil-pull (prompt)\n (interactive \"P\")\n (vc-fossil--do-async-prompted-command \"update\" prompt 'vc-fossil--pull-history))\n\n(defun vc-fossil-push (prompt)\n (interactive \"P\")\n (vc-fossil--do-async-prompted-command \"push\" prompt 'vc-fossil-push-history))\n\n;; - steal-lock (file &optional revision)\n\n;; - modify-change-comment (files rev comment)\n\n;; - mark-resolved (files)\n\n;; - find-admin-dir (file)\n\n;; HISTORY FUNCTIONS\n\n(defun vc-fossil-print-log (files buffer &optional shortlog start-revision limit)\n ;; TODO: We actually already have short, start and limit, need to\n ;; add it into the code.\n (vc-setup-buffer buffer)\n (let ((inhibit-read-only t))\n (with-current-buffer buffer\n (dolist (file files)\n\t(apply #'vc-fossil--command buffer 0 nil \"timeline\"\n\t (nconc\n\t\t(when start-revision (list \"before\" start-revision))\n\t\t(when limit (list \"-n\" (number-to-string limit)))\n\t\t(list \"-p\" (file-relative-name (expand-file-name file)))))))))\n\n;; * log-outgoing (buffer remote-location)\n\n;; * log-incoming (buffer remote-location)\n\n;; - log-search (buffer pattern)\n\n(defvar log-view-message-re)\n(defvar log-view-file-re)\n(defvar log-view-font-lock-keywords)\n(defvar log-view-per-file-logs)\n\n(define-derived-mode vc-fossil-log-view-mode log-view-mode \"Fossil-Log-View\"\n (setq word-wrap t)\n (set (make-local-variable 'wrap-prefix) \" \")\n (set (make-local-variable 'log-view-file-re) \"\\\\`a\\\\`\")\n (set (make-local-variable 'log-view-per-file-logs) nil)\n (set (make-local-variable 'log-view-message-re)\n \"^[0-9:]+ \\\\[\\\$[0-9a-fA-F]*\\\$\\\\] \\\$?:\\\\*[^*]*\\\\*\\\$? ?\\\$.*\\\$\")\n (set (make-local-variable 'log-view-font-lock-keywords)\n (append\n\t'(\n\t (\"^\\\$[0-9:]*\\\$ \\\$\\\\[[[:alnum:]]*\\\\]\\\$ \\\$\\\\(?:\\\\*[[:word:]]*\\\\*\\\$?\\\\) ?\\\$.*?\\\$ (user: \\\$[[:word:]]*\\\$ tags: \\\$.*\\\$)\"\n\t (1 'change-log-date)\n\t (2 'change-log-name)\n\t (3 'highlight)\n\t (4 'log-view-message)\n\t (5 'change-log-name)\n\t (6 'highlight))\n\t (\"^=== \\\$.*\\\$ ===\"\n\t (1 'change-log-date))))))\n\n;; - show-log-entry (revision)\n\n;; - comment-history (file)\n\n;; - update-changelog (files)\n\n(defun vc-fossil-diff (files &optional rev1 rev2 buffer async)\n ;; TODO: Implement diff for directories.\n (let ((buf (or buffer \"*vc-diff*\"))\n\t(root (and files (expand-file-name (vc-fossil-root (car files))))))\n ;; If we diff the root directory, do not specify a file.\n (if (or (null files)\n\t (and (null (cdr files))\n\t\t (equal root (expand-file-name (car files)))))\n\t(setq files nil))\n (apply #'vc-fossil--command\n\t buf 0 files \"diff\" \"-i\"\n\t (nconc\n\t (cond\n\t (rev2 (list \"--from\" (or rev1 \"current\") \"--to\" rev2))\n\t (rev1 (list \"--from\" rev1)))\n\t (vc-switches 'Fossil 'diff)))))\n\n;; - revision-completion-table (files)\n\n(defconst vc-fossil-annotate-re\n \"\\\$[[:word:]]+\\\$\\\\s-+\\\$[-0-9]+\\\$\\\\s-+[0-9]+: \")\n\n(defun vc-fossil-annotate-command (file buffer &optional rev)\n (vc-fossil--command buffer 0 file \"annotate\"))\n\n(defun vc-fossil-annotate-time ()\n ;; TODO: Currently only the date is used, not the time.\n (when (looking-at vc-fossil-annotate-re)\n (goto-char (match-end 0))\n (vc-annotate-convert-time\n (date-to-time (format \"%s 00:00:00\" (match-string-no-properties 2))))))\n\n;; - annotate-current-time ()\n\n(defun vc-fossil-annotate-extract-revision-at-line ()\n (save-excursion\n (beginning-of-line)\n (when (looking-at vc-fossil-annotate-re)\n (goto-char (match-end 0))\n (match-string-no-properties 1))))\n\n;; - region-history (file buffer lfrom lto)\n\n;; - region-history-mode ()\n\n;; - mergebase (rev1 &optional rev2)\n\n;; TAG SYSTEM\n\n(defun vc-fossil-create-tag (file name branchp)\n (let* ((dir (if (file-directory-p file) file (file-name-directory file)))\n\t (default-directory dir))\n (apply #'vc-fossil--command nil 0 nil `(,@(if branchp\n\t\t\t\t\t\t '(\"branch\" \"new\")\n\t\t\t\t\t\t'(\"tag\" \"add\"))\n\t\t\t\t\t ,name ,(vc-fossil--get-id dir)))))\n\n(defun vc-fossil-retrieve-tag (dir name update)\n (let ((default-directory dir))\n (vc-fossil--command nil 0 nil \"checkout\" name)))\n\n;; MISCELLANEOUS\n\n;; - make-version-backups-p (file)\n\n(defun vc-fossil-root (file)\n (or (vc-find-root file \".fslckout\")\n (vc-find-root file \"_FOSSIL_\")))\n\n;; - ignore (file &optional directory)\n\n;; - ignore-completion-table\n\n(defun vc-fossil-find-ignore-file (file)\n (expand-file-name \".fossil-settings/ignore-glob\"\n\t\t (vc-fossil-root file)))\n\n(defun vc-fossil-previous-revision (file rev)\n (with-temp-buffer\n (cond\n (file\n (vc-fossil--command t 0 (file-truename file) \"finfo\" \"-l\" \"-b\")\n (goto-char (point-min))\n (and (re-search-forward (concat \"^\" (regexp-quote rev)) nil t)\n\t (zerop (forward-line))\n\t (looking-at \"^\\\$[0-9a-zA-Z]+\\\$\")\n\t (match-string 1)))\n (t\n (vc-fossil--command t 0 nil \"info\" rev)\n (goto-char (point-min))\n (and (re-search-forward \"parent: *\\\$[0-9a-fA-F]+\\\$\" nil t)\n\t (match-string 1))))))\n\n(defun vc-fossil-next-revision (file rev)\n (with-temp-buffer\n (cond\n (file\n (vc-fossil--command t 0 (file-truename file) \"finfo\" \"-l\" \"-b\")\n (goto-char (point-min))\n (and (re-search-forward (concat \"^\" (regexp-quote rev)) nil t)\n\t (zerop (forward-line -1))\n\t (looking-at \"^\\\$[0-9a-zA-Z]+\\\$\")\n\t (match-string 1)))\n (t\n (vc-fossil--command t 0 nil \"info\" rev)\n (goto-char (point-min))\n (and (re-search-forward \"child: *\\\$[0-9a-fA-F]+\\\$\" nil t)\n\t (match-string 1))))))\n\n;; - log-edit-mode ()\n\n;; - check-headers ()\n\n(defun vc-fossil-delete-file (file)\n (vc-fossil--command nil 0 (file-truename file) \"rm\" \"--hard\"))\n\n(defun vc-fossil-rename-file (old new)\n (vc-fossil--command nil 0 (list (file-truename old) (file-truename new)) \"mv\" \"--hard\"))\n\n;; - find-file-hook ()\n\n;; - extra-menu ()\n\n;; - extra-dir-menu ()\n\n;; - conflicted-files (dir)\n\n(defun vc-fossil-repository-url (file-or-dir &optional remote-name)\n (let ((default-directory (vc-fossil-root file-or-dir)))\n (cadr (assoc (or remote-name \"default\") (vc-fossil--remotes)))))\n\f\n;; Useful functions for interacting with Fossil\n\n(defun vc-fossil--url-without-authinfo (url)\n (let ((parsed (url-generic-parse-url url)))\n (setf (url-user parsed) nil)\n (setf (url-password parsed) nil)\n (url-recreate-url parsed)))\n\n(defun vc-fossil--relative-file-name (file)\n (let ((l0 (car (split-string (vc-fossil--run \"finfo\" file) \"\\n\" t))))\n (save-match-data\n (and (string-match \"^History for \\\$.*\\\$$\" l0)\n\t (setq file (match-string 1 l0)))\n file)))\n\n(defun vc-fossil-link (start end)\n \"Puts the current URL to a file in the kill ring.\"\n (interactive \"r\")\n (let ((default-directory (file-name-directory (buffer-file-name (current-buffer)))))\n (unless (vc-fossil-registered (buffer-file-name))\n (error \"%s: file is not registerd in vc\" (buffer-file-name)))\n (let* ((repository-url (vc-fossil--url-without-authinfo\n\t\t\t (vc-fossil-repository-url (buffer-file-name))))\n \t (file (vc-fossil--relative-file-name (buffer-file-name)))\n\t (tag (vc-fossil-working-revision (buffer-file-name (current-buffer))))\n \t (start (line-number-at-pos (region-beginning)))\n \t (end (line-number-at-pos (region-end))))\n (if (= start end)\n\t (setq link (format \"%s/file?ci=%s&name=%s&ln=%s\"\n \t\t\t repository-url tag file start))\n\t(setq link (format \"%s/file?ci=%s&name=%s&ln=%s-%s\"\n \t\t\t repository-url tag file start end)))\n (kill-new link)\n (message \"%s\" link))))\n\f\n;;; This snippet enables the Fossil VC backend so it will work once\n;;; this file is loaded. By also marking it for inclusion in the\n;;; autoloads file, installing packaged versions of this should work\n;;; without users having to monkey with their init files.\n\n;;;###autoload\n(add-to-list 'vc-handled-backends 'Fossil t)\n\n(provide 'vc-fossil)\n\n;;; vc-fossil.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vc-fossil-20180215.835","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":2564018,"end":2564051},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2564051},"to":{"change":7,"start":2564017,"end":2564017},"introduced_by":7}],"inode":{"change":7,"pos":2564017}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"index.wiki","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2564017},"to":{"change":7,"start":2588940,"end":2588974},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2588974},"to":{"change":7,"start":2586612,"end":2586612},"introduced_by":7}],"inode":{"change":7,"pos":2586612}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2586612},"to":{"change":7,"start":2586613,"end":2588939},"introduced_by":7}],"inode":{"change":7,"pos":2586612}},"content":[{"Del":"Emacs Integration for Fossil\n\nThis project is for integrating fossil (http://fossil-scm.org/) into\nemacs (https://www.gnu.org/software/emacs/) vc-mode.\n\nYou need emacs version 24.1 or better. 23.* is not supported anymore.\n\n

How Do I load Fossil support into emacs?

\n\nShort answer:\n\nInstall the vc-fossil package from the MELPA package repository then\ncustomize the vc-handled-backend variable by adding \"Fossil\" to its\nlist of names.\n\nAlternative, slightly longer, answer:\n\nInstead of installing from MELPA you may clone this source repository\ndirectly then add it manually to your Emacs setup as follows.\n\nAdd this to your .emacs file, or cut and paste this into the *scratch*\nbuffer and do\nC-x C-e to execute it.\n\n

\n(add-to-list 'vc-handled-backends 'Fossil t)\n(load-file \"/path/to/this/project/vc/el/vc-fossil.el\")\n

\nor if you would rather load the file lazily, compile the file (see\nbelow) and use this instead.\n

\n(add-to-list 'vc-handled-backends 'Fossil t)\n(autoload 'vc-fossil-registered \"/path/to/this/project/vc/el/vc-fossil.elc\")\n

\n\nTo compile the file (with warnings) do the following\n

\nemacs -batch -q -no-site-file -eval '(byte-compile-file \"vc-fossil.el\")'\n

\nthen you can load vc-fossil.elc, which should be nominally faster.\n\n

What emacs keys do I need?

\n\nThis integrates fossil into emacs vc builtin mode. The same keys will\nwork for fossil inside a fossil tree as for other scms outside.\n\nA few are:\n\n\n\n\n\n

`C-x v d`	Run Fossil dired - like cvs-examine
`C-x v l`	When in a file, show log
`v`	In VC, do next action: merge/update/checkin

\n\n\n\n

Credits

\n\nOver the years many folks have helped me (Venkat Iyer,\nvenkat@comit.com) with building and improving emacs-fossil. Notable\nare:\n\n

Barak A. Pearlmutter, barak pearlmutter net :\n Major cleanup of my initial versions
Frank Fisher, frank-fischer shadow-soft de :\n colorized logs, annotate, a few fixes for the diff
Paul Onions, ponions37 gmail com :\n emacs 25 support

\n \n

Mirrors

How Do I load Fossil support into emacs?

\n(add-to-list 'vc-handled-backends 'Fossil t)\n(load-file \"/path/to/this/project/vc/el/vc-fossil.el\")\n

\nor if you would rather load the file lazily, compile the file (see\nbelow) and use this instead.\n

\n(add-to-list 'vc-handled-backends 'Fossil t)\n(autoload 'vc-fossil-registered \"/path/to/this/project/vc/el/vc-fossil.elc\")\n

\n\nTo compile the file (with warnings) do the following\n

\nemacs -batch -q -no-site-file -eval '(byte-compile-file \"vc-fossil.el\")'\n

\nthen you can load vc-fossil.elc, which should be nominally faster.\n\n

What emacs keys do I need?

\n\nThis integrates fossil into emacs vc builtin mode. The same keys will\nwork for fossil inside a fossil tree as for other scms outside.\n\nA few are:\n\n\n\n\n\n

`C-x v d`	Run Fossil dired - like cvs-examine
`C-x v l`	When in a file, show log
`v`	In VC, do next action: merge/update/checkin

\n\n\n\n

Credits

\n\nOver the years many folks have helped me (Venkat Iyer,\nvenkat@comit.com) with building and improving emacs-fossil. Notable\nare:\n\n

Barak A. Pearlmutter, barak pearlmutter net :\n Major cleanup of my initial versions
Frank Fisher, frank-fischer shadow-soft de :\n colorized logs, annotate, a few fixes for the diff
Paul Onions, ponions37 gmail com :\n emacs 25 support

\n \n

Mirrors

\n\nThis project is also mirrored into github at\nhttps://github.com/venks1/emacs-fossil , primarily for MELPA.\n\n\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vc-fossil-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2588976},"to":{"change":7,"start":2611765,"end":2611811},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2611811},"to":{"change":7,"start":2610960,"end":2610960},"introduced_by":7}],"inode":{"change":7,"pos":2610960}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2610960},"to":{"change":7,"start":2610961,"end":2611764},"introduced_by":7}],"inode":{"change":7,"pos":2610960}},"content":[{"Del":";;; vc-fossil-autoloads.el --- automatically extracted autoloads\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"vc-fossil\" \"vc-fossil.el\" (0 0 0 0))\n;;; Generated autoloads from vc-fossil.el\n\n(autoload 'vc-fossil-registered \"vc-fossil\" \"\\\nCheck whether FILE is registered with fossil.\n\n\\(fn FILE)\" nil nil)\n\n(add-to-list 'vc-handled-backends 'Fossil t)\n\n(if (fboundp 'register-definition-prefixes) (register-definition-prefixes \"vc-fossil\" '(\"vc-fossil-\")))\n\n;;;***\n\f\n;;;### (autoloads nil nil (\"vc-fossil-pkg.el\") (0 0 0 0))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; vc-fossil-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vc-fossil-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2588976},"to":{"change":7,"start":2610918,"end":2610958},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2610958},"to":{"change":7,"start":2610643,"end":2610643},"introduced_by":7}],"inode":{"change":7,"pos":2610643}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2610643},"to":{"change":7,"start":2610644,"end":2610917},"introduced_by":7}],"inode":{"change":7,"pos":2610643}},"content":[{"Del":"(define-package \"vc-fossil\" \"20180215.1635\" \"VC backend for the fossil sofware configuraiton management system\" 'nil :authors\n '((\"Venkat Iyer\" . \"venkat@comit.com\"))\n :maintainer\n '(\"Venkat Iyer\" . \"venkat@comit.com\"))\n;; Local Variables:\n;; no-byte-compile: t\n;; End:\n"}]}},{"FileDel":{"deleted_names":[{"basename":"vc-fossil.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2588976},"to":{"change":7,"start":2610605,"end":2610641},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":2610641},"to":{"change":7,"start":2589013,"end":2589013},"introduced_by":7}],"inode":{"change":7,"pos":2589013}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":2589013},"to":{"change":7,"start":2589014,"end":2610604},"introduced_by":7}],"inode":{"change":7,"pos":2589013}},"content":[{"Del":";;; vc-fossil.el --- VC backend for the fossil sofware configuraiton management system\n\n;; Author: Venkat Iyer \n\n;; vc-fossil.el free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; vc-fossil.el is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; For a copy of the license, please see .\n\n\n;;; Commentary:\n\n;; This file contains a VC backend for the fossil version control\n;; system.\n\n;;; Installation:\n\n;; 1. Install this vc-fossil package.\n;; 2. Add \"Fossil\" to the list of VC backends using\n;; M-x customize-variable vc-handled-backends\n\n;; Alternative manual installation\n;; 1. Put this file somewhere in the Emacs load-path.\n;; 2. Tell Emacs to load it when needed:\n;; (autoload 'vc-fossil-registered \"vc-fossil\")\n;; 3. Add Fossil to the list of supported backends:\n;; (add-to-list 'vc-handled-backends 'Fossil t)\n\n;;; Implemented Functions\n;; BACKEND PROPERTIES\n;; * revision-granularity\n;; STATE-QUERYING FUNCTIONS\n;; * registered (file)\n;; * state (file) - 'up-to-date 'edited 'needs-patch 'needs-merge\n;; * dir-status-files (dir files uf)\n;; * workfile-version (file)\n;; * checkout-model (file)\n;; - workfile-unchanged-p (file)\n;; - root (file)\n;; STATE-CHANGING FUNCTIONS\n;; * register (file &optional rev comment)\n;; * checkin (file comment &optional rev)\n;; * find-version (file rev buffer)\n;; * checkout (file &optional editable rev)\n;; * revert (file &optional contents-done)\n;; * pull (prompt)\n;; - push (prompt)\n;; - responsible-p (file)\n;; HISTORY FUNCTIONS\n;; * print-log (file &optional buffer)\n;; * diff (file &optional rev1 rev2 buffer async)\n;; MISCELLANEOUS\n;; - delete-file (file)\n;; - rename-file (old new)\n\n;;; Code:\n\n(eval-when-compile (require 'vc))\n\n(autoload 'vc-switches \"vc\")\n\n;;; Customization\n\n(defgroup vc-fossil nil\n \"VC Fossil backend.\"\n :group 'vc)\n\n(defcustom vc-fossil-diff-switches t ; Fossil doesn't support common args like -u\n \"String or list of strings specifying switches for Fossil diff under VC.\nIf nil, use the value of `vc-diff-switches'. If t, use no switches.\"\n :type '(choice (const :tag \"Unspecified\" nil)\n (const :tag \"None\" t)\n (string :tag \"Argument String\")\n (repeat :tag \"Argument List\" :value (\"\") string))\n :group 'vc-fossil)\n\n(defcustom vc-fossil-extra-header-fields (list :checkout :tags)\n \"A list of keywords denoting extra header fields to show in the vc-dir buffer.\"\n :type '(set (const :repository) (const :remote-url) (const :synchro)\n (const :checkout) (const :comment) (const :tags))\n :group 'vc-fossil)\n\n\n;;; BACKEND PROPERTIES\n\n(defvar vc-fossil-history nil)\n\n(defvar vc-fossil-pull-history nil)\n(defvar vc-fossil-push-history nil)\n\n(defun vc-fossil-revision-granularity () 'repository)\n\n\n;; Internal Commands\n\n(defun vc-fossil--call (buffer &rest args)\n (apply #'process-file \"fossil\" nil buffer nil args))\n\n(defun vc-fossil--out-ok (&rest args)\n (zerop (apply #'vc-fossil--call '(t nil) args)))\n\n(defun vc-fossil--run (&rest args)\n \"Run a fossil command and return its output as a string\"\n (catch 'bail\n (with-output-to-string\n (with-current-buffer standard-output\n (unless (apply #'vc-fossil--out-ok args)\n (throw 'bail nil))))))\n\n(defun vc-fossil--command (buffer okstatus file-or-list &rest flags)\n \"A wrapper around `vc-do-command' for use in vc-fossil.el.\n The difference to vc-do-command is that this function always invokes `fossil'.\"\n (apply #'vc-do-command (or buffer \"*vc*\") okstatus \"fossil\" file-or-list flags)\n (when (eql major-mode 'vc-dir-mode) ; update header info\n (revert-buffer (current-buffer))))\n\n(defun vc-fossil--get-id (dir)\n (let* ((default-directory dir)\n (info (vc-fossil--run \"info\"))\n (pos (string-match \"checkout: *\\\$[0-9a-fA-F]+\\\$\" info))\n (uid (match-string 1 info))\n )\n (substring uid 0 10)))\n\n(defun vc-fossil--get-repository (dir)\n (let* ((default-directory dir)\n (info (vc-fossil--run \"info\")))\n (string-match \"repository: *\\\$.*\\\$$\" info)\n (match-string 1 info)))\n\n(defun vc-fossil--do-async-prompted-command (command &optional prompt hist-var)\n \"Run a fossil command asynchronously.\nAllow user to edit command in minibuffer if PROMPT is non-nil.\"\n (let* ((root (vc-fossil-root default-directory))\n (buffer (format \"*vc-fossil : %s*\" (expand-file-name root)))\n (fossil-program \"fossil\")\n (args '()))\n (when prompt\n (setq args (split-string\n (read-shell-command \"Run Fossil (like this): \"\n (concat fossil-program \" \" command)\n (or hist-var 'vc-fossil-history))\n \" \" t))\n (setq fossil-program (car args)\n command (cadr args)\n args (cddr args)))\n (apply 'vc-do-async-command buffer root fossil-program command args)\n (with-current-buffer buffer\n (vc-run-delayed (vc-compilation-mode 'Fossil)))\n (vc-set-async-update buffer)))\n\n;;; STATE-QUERYING FUNCTIONS\n\n;;;###autoload\n(defun vc-fossil-registered (file)\n \"Check whether FILE is registered with fossil.\"\n (with-temp-buffer\n (let* ((str (ignore-errors\n (vc-fossil--out-ok \"finfo\" \"-s\" (file-truename file))\n (buffer-string))))\n (and str\n (> (length str) 7)\n (not (string= (substring str 0 7) \"unknown\"))))))\n\n(defun vc-fossil-state-code (code)\n (cond ((not code) 'unregistered)\n ((string= code \"UNKNOWN\") 'unregistered)\n ((string= code \"UNCHANGED\") 'up-to-date)\n ((string= code \"CONFLICT\") 'edited)\n ((string= code \"ADDED\") 'added)\n ((string= code \"ADD\") 'needs-update)\n ((string= code \"EDITED\") 'edited)\n ((string= code \"REMOVE\") 'removed)\n ((string= code \"UPDATE\") 'needs-update)\n ((string= code \"MERGE\") 'needs-merge)\n ((string= code \"EXTRA\") 'unregistered)\n ((string= code \"MISSING\") 'missing)\n ((string= code \"RENAMED\") 'added)\n (t nil)))\n\n(defun vc-fossil-state (file)\n \"Fossil specific version of `vc-state'.\"\n (let* ((line (vc-fossil--run \"update\" \"-n\" \"-v\" \"current\" (file-truename file)))\n (state (vc-fossil-state-code (car (split-string line)))))\n ;; if 'fossil update' says file is UNCHANGED check to see if it has been RENAMED\n (when (or (not state) (eql state 'up-to-date))\n (let ((line (vc-fossil--run \"changes\" \"--classify\" \"--unchanged\" \"--renamed\"\n (file-truename file))))\n (setq state (and line (vc-fossil-state-code (car (split-string line)))))))\n state))\n\n(defun vc-fossil-working-revision (file)\n \"Fossil Specific version of `vc-working-revision'.\"\n (let ((line (vc-fossil--run \"finfo\" \"-s\" (file-truename file))))\n (and line\n (cadr (split-string line)))))\n\n(defun vc-fossil-workfile-unchanged-p (file)\n (eq 'up-to-date (vc-fossil-state file)))\n\n(defun vc-fossil-root (file)\n (or (vc-find-root file \".fslckout\")\n (vc-find-root file \"_FOSSIL_\")))\n\n;; TODO: mode-line-string\n;; TODO: dir-printer\n\n(defun vc-fossil-dir-status (dir update-function)\n \"Get fossil status for all files in a directory\"\n (vc-fossil--dir-status-files dir nil update-function))\n\n(defvar vc-fossil--file-classifications nil\n \"An alist of (filename . classification) pairs.\")\n\n(defun vc-fossil--classify-all-files (dir)\n (setq vc-fossil--file-classifications nil)\n (let* ((default-directory dir)\n (lines (split-string (vc-fossil--run \"changes\" \"--classify\" \"--all\") \"[\\n\\r]+\" t)))\n (dolist (line lines)\n (string-match \"^\\\$\\\\w+\\\$\\\\s-+\\\$.+\\\$$\" line)\n (let ((pair (cons (match-string 2 line) (match-string 1 line))))\n (push pair vc-fossil--file-classifications)))))\n\n(defun vc-fossil--dir-status-files (dir files update-function)\n \"Get fossil status for all specified files in a directory.\nIf `files` is nil return the status for all files.\"\n (vc-fossil--classify-all-files dir)\n (insert (apply 'vc-fossil--run \"update\" \"-n\" \"-v\" \"current\"\n (or files (list dir))))\n (let ((result '())\n (root (vc-fossil-root dir)))\n (goto-char (point-min))\n (while (not (eobp))\n (let* ((line (buffer-substring-no-properties (point) (line-end-position)))\n (status-word (car (split-string line))))\n (if (string-match \"-----\" status-word)\n (goto-char (point-max))\n (let ((file (substring line (+ (length status-word) 1)))\n (state (vc-fossil-state-code status-word)))\n (setq file (expand-file-name file root))\n (setq file (file-relative-name file dir))\n ;; if 'fossil update' says file is UNCHANGED check to see if it has been RENAMED\n (when (or (not state) (eql state 'up-to-date))\n (setq state (vc-fossil-state-code (cdr (assoc file vc-fossil--file-classifications)))))\n (push (list file state) result)))\n (forward-line)))\n ;; now collect untracked files\n (delete-region (point-min) (point-max))\n (insert (apply 'vc-fossil--run \"extras\" \"--dotfiles\" (or files (list dir))))\n (goto-char (point-min))\n (while (not (eobp))\n (let ((file (buffer-substring-no-properties (point) (line-end-position))))\n (setq file (expand-file-name file dir))\n (setq file (file-relative-name file dir))\n (push (list file (vc-fossil-state-code nil)) result)\n (forward-line)))\n (funcall update-function result nil)))\n\n(if (>= emacs-major-version 25)\n (defun vc-fossil-dir-status-files (dir files update-function)\n (vc-fossil--dir-status-files dir files update-function))\n (defun vc-fossil-dir-status-files (dir files default-state update-function)\n (vc-fossil--dir-status-files dir files update-function)))\n\n(defun vc-fossil-checkout-model (files) 'implicit)\n\n(defun vc-fossil--propertize-header-line (name value)\n (concat (propertize name 'face 'font-lock-type-face)\n (propertize value 'face 'font-lock-variable-name-face)))\n\n(defun vc-fossil-dir-extra-headers (dir)\n (let ((info (vc-fossil--run \"info\"))\n (settings (vc-fossil--run \"settings\"))\n (lines nil))\n (dolist (field vc-fossil-extra-header-fields)\n (unless (null lines)\n (push \"\\n\" lines))\n (cond ((eql field :repository)\n (string-match \"repository: *\\\$.*\\\$$\" info)\n (let ((repo (match-string 1 info)))\n (push (vc-fossil--propertize-header-line \"Repository : \" repo) lines)))\n ((eql field :remote-url)\n (let ((remote-url (car (split-string (vc-fossil--run \"remote-url\")))))\n (push (vc-fossil--propertize-header-line \"Remote URL : \" remote-url) lines)))\n ((eql field :synchro)\n (let* ((as-match (string-match \"^autosync +.+ +\\\$[[:graph:]]+\\\$$\" settings))\n (autosync (and as-match (match-string 1 settings)))\n (dp-match (string-match \"^dont-push +.+ +\\\$[[:graph:]]+\\\$$\" settings))\n (dontpush (and dp-match (match-string 1 settings))))\n (push (vc-fossil--propertize-header-line \"Synchro : \"\n (concat (and autosync \"autosync=\") autosync\n (and dontpush \" dont-push=\") dontpush))\n lines)))\n ((eql field :checkout)\n (let* ((posco (string-match \"checkout: *\\\$[0-9a-fA-F]+\\\$ \\\$[-0-9: ]+ UTC\\\$\" info))\n (coid (substring (match-string 1 info) 0 10))\n (cots (format-time-string \"%Y-%m-%d %H:%M:%S %Z\"\n (safe-date-to-time (match-string 2 info))))\n (child-match (string-match \"child: *\\\$.*\\\$$\" info))\n (leaf (if child-match \"non-leaf\" \"leaf\")))\n (push (vc-fossil--propertize-header-line \"Checkout : \"\n (concat coid \" \" cots\n (concat \" (\" leaf \")\")))\n lines)))\n ((eql field :comment)\n (string-match \"comment: *\\\$.*\\\$$\" info)\n (let ((msg (match-string 1 info)))\n (push (vc-fossil--propertize-header-line \"Comment : \" msg) lines)))\n ((eql field :tags)\n (string-match \"tags: *\\\$.*\\\$\" info)\n (let ((tags (match-string 1 info)))\n (push (vc-fossil--propertize-header-line \"Tags : \" tags) lines)))))\n (apply #'concat (nreverse lines))))\n\n;;; STATE-CHANGING FUNCTIONS\n\n(defun vc-fossil-create-repo ()\n \"Create a new Fossil Repository.\"\n (vc-fossil--command nil 0 nil \"new\"))\n\n;; We ignore the comment. There's no comment on add.\n(defun vc-fossil-register (files &optional rev comment)\n \"Register FILE into the fossil version-control system.\"\n (vc-fossil--command nil 0 files \"add\"))\n\n(defun vc-fossil-responsible-p (file)\n (vc-fossil-root file))\n\n(defun vc-fossil-unregister (file)\n (vc-fossil--command nil 0 file \"rm\"))\n\n(declare-function log-edit-extract-headers \"log-edit\" (headers string))\n\n(defun vc-fossil--checkin (files comment &optional rev)\n (apply 'vc-fossil--command nil 0 files\n (nconc (list \"commit\" \"-m\")\n (log-edit-extract-headers\n `((\"Author\" . \"--user-override\")\n (\"Date\" . \"--date-override\"))\n comment)\n (vc-switches 'Fossil 'checkin))))\n\n(if (>= emacs-major-version 25)\n (defun vc-fossil-checkin (files comment &optional rev)\n (vc-fossil--checkin files comment rev))\n (defun vc-fossil-checkin (files rev comment)\n (vc-fossil--checkin files comment rev)))\n\n(defun vc-fossil-find-revision (file rev buffer)\n (apply #'vc-fossil--command buffer 0 file\n \"cat\"\n (nconc\n (unless (zerop (length rev)) (list \"-r\" rev))\n (vc-switches 'Fossil 'checkout))))\n\n(defun vc-fossil-checkout (file &optional editable rev)\n (apply #'vc-fossil--command nil 0 file\n \"update\"\n (nconc\n (cond\n ((eq rev t) (list \"current\"))\n ((equal rev \"\") (list \"trunk\"))\n ((stringp rev) (list rev)))\n (vc-switches 'Fossil 'checkout))))\n\n(defun vc-fossil-revert (file &optional contents-done)\n \"Revert FILE to the version stored in the fossil repository.\"\n (if contents-done t\n (vc-fossil--command nil 0 file \"revert\")))\n\n(defun vc-fossil-pull (prompt)\n \"Pull upstream changes into the current branch.\n\nWith a prefix argument, or if PROMPT is non-nil, prompt for a specific\nFossil pull command. The default is \\\"fossil update\\\".\"\n (interactive \"P\")\n (vc-fossil--do-async-prompted-command \"update\" prompt 'vc-fossil-pull-history))\n\n(defun vc-fossil-push (prompt)\n \"Push changes to upstream repository.\n\nWith a prefix argument or if PROMPT is non-nil, prompt for a specific\nFossil push command. The default is \\\"fossil push\\\".\"\n (interactive \"P\")\n (vc-fossil--do-async-prompted-command \"push\" prompt 'vc-fossil-push-history))\n\n;; HISTORY FUNCTIONS\n\n;; FIXME, we actually already have short, start and limit, need to\n;; add it into the code\n\n(autoload 'vc-setup-buffer \"vc-dispatcher\")\n\n(defun vc-fossil-print-log (files buffer &optional shortlog start-revision limit)\n \"Print full log for a file\"\n (vc-setup-buffer buffer)\n (let ((inhibit-read-only t))\n (with-current-buffer buffer\n (dolist (file files)\n (apply #'vc-fossil--command buffer 0 nil \"timeline\"\n (nconc\n (when start-revision (list \"before\" start-revision))\n (when limit (list \"-n\" (number-to-string limit)))\n (list \"-p\" (file-relative-name (expand-file-name file)))))))))\n\n(defvar log-view-message-re)\n(defvar log-view-file-re)\n(defvar log-view-font-lock-keywords)\n(defvar log-view-per-file-logs)\n\n(define-derived-mode vc-fossil-log-view-mode log-view-mode \"Fossil-Log-View\"\n (require 'add-log) ;; we need the add-log faces\n (setq word-wrap t)\n (set (make-local-variable 'wrap-prefix) \" \")\n (set (make-local-variable 'log-view-file-re) \"\\\\`a\\\\`\")\n (set (make-local-variable 'log-view-per-file-logs) nil)\n (set (make-local-variable 'log-view-message-re)\n \"^[0-9:]+ \\\\[\\\$[0-9a-fA-F]*\\\$\\\\] \\\$?:\\\\*[^*]*\\\\*\\\$? ?\\\$.*\\\$\")\n (set (make-local-variable 'log-view-font-lock-keywords)\n (append\n '(\n (\"^\\\$[0-9:]*\\\$ \\\$\\\\[[[:alnum:]]*\\\\]\\\$ \\\$\\\\(?:\\\\*[[:word:]]*\\\\*\\\$?\\\\) ?\\\$.*?\\\$ (user: \\\$[[:word:]]*\\\$ tags: \\\$.*\\\$)\"\n (1 'change-log-date)\n (2 'change-log-name)\n (3 'highlight)\n (4 'log-view-message)\n (5 'change-log-name)\n (6 'highlight))\n (\"^=== \\\$.*\\\$ ===\"\n (1 'change-log-date))))))\n\n;; TODO: implement diff for directories\n(defun vc-fossil-diff (files &optional rev1 rev2 buffer async)\n \"Get Differences for a file\"\n (let ((buf (or buffer \"*vc-diff*\"))\n (root (and files (expand-file-name (vc-fossil-root (car files))))))\n ;; if we diff the root directory, do not specify a file\n (if (or (null files)\n (and (null (cdr files))\n (equal root (expand-file-name (car files)))))\n (setq files nil))\n (apply #'vc-fossil--command\n buf 0 files \"diff\" \"-i\"\n (nconc\n (cond\n (rev2 (list \"--from\" (or rev1 \"current\") \"--to\" rev2))\n (rev1 (list \"--from\" rev1)))\n (vc-switches 'Fossil 'diff)))))\n\n(declare-function vc-annotate-convert-time \"vc-annotate\" (time))\n\n(defun vc-fossil-annotate-command (file buffer &optional rev)\n \"Execute \\\"fossil annotate\\\" on FILE, inserting the contents in BUFFER.\nIf REV is specified, annotate that revision.\"\n ;;(assert (not rev) nil \"Annotating a revision not supported\")\n (vc-fossil--command buffer 0 file \"annotate\"))\n\n(defconst vc-fossil-annotate-re\n \"\\\$[[:word:]]+\\\$\\\\s-+\\\$[-0-9]+\\\$\\\\s-+[0-9]+: \")\n\n;; TODO: currently only the date is used, not the time\n(defun vc-fossil-annotate-time ()\n (when (looking-at vc-fossil-annotate-re)\n (goto-char (match-end 0))\n (vc-annotate-convert-time\n (date-to-time (format \"%s 00:00:00\" (match-string-no-properties 2))))))\n\n(defun vc-fossil-annotate-extract-revision-at-line ()\n (save-excursion\n (beginning-of-line)\n (when (looking-at vc-fossil-annotate-re)\n (goto-char (match-end 0))\n (match-string-no-properties 1))))\n\n;;; TAG SYSTEM\n\n;; FIXME: we need a convenience function to check that there's nothing checked\n;; out in the tree, since we tag or branch the whole repository\n\n(defun vc-fossil-create-tag (file name branchp)\n (let* ((dir (if (file-directory-p file) file (file-name-directory file)))\n (default-directory dir))\n (apply #'vc-fossil--command nil 0 nil `(,@(if branchp\n '(\"branch\" \"new\")\n '(\"tag\" \"add\"))\n ,name ,(vc-fossil--get-id dir)))))\n\n;; FIXME: we should update buffers if update is non-nill\n\n(defun vc-fossil-retrieve-tag (dir name update)\n (let ((default-directory dir))\n (vc-fossil--command nil 0 nil \"checkout\" name)))\n\n;;; MISCELLANEOUS\n\n(defun vc-fossil-previous-revision (file rev)\n \"Fossil specific version of the `vc-previous-revision'.\"\n (with-temp-buffer\n (cond\n (file\n (vc-fossil--command t 0 (file-truename file) \"finfo\" \"-l\" \"-b\")\n (goto-char (point-min))\n (and (re-search-forward (concat \"^\" (regexp-quote rev)) nil t)\n (zerop (forward-line))\n (looking-at \"^\\\$[0-9a-zA-Z]+\\\$\")\n (match-string 1)))\n (t\n (vc-fossil--command t 0 nil \"info\" rev)\n (goto-char (point-min))\n (and (re-search-forward \"parent: *\\\$[0-9a-fA-F]+\\\$\" nil t)\n (match-string 1))))))\n\n(defun vc-fossil-next-revision (file rev)\n \"Fossil specific version of the `vc-previous-revision'.\"\n (with-temp-buffer\n (cond\n (file\n (vc-fossil--command t 0 (file-truename file) \"finfo\" \"-l\" \"-b\")\n (goto-char (point-min))\n (and (re-search-forward (concat \"^\" (regexp-quote rev)) nil t)\n (zerop (forward-line -1))\n (looking-at \"^\\\$[0-9a-zA-Z]+\\\$\")\n (match-string 1)))\n (t\n (vc-fossil--command t 0 nil \"info\" rev)\n (goto-char (point-min))\n (and (re-search-forward \"child: *\\\$[0-9a-fA-F]+\\\$\" nil t)\n (match-string 1))))))\n\n(defun vc-fossil-delete-file (file)\n (vc-fossil--command nil 0 (file-truename file) \"rm\" \"--hard\"))\n\n(defun vc-fossil-rename-file (old new)\n (vc-fossil--command nil 0 (list (file-truename old) (file-truename new)) \"mv\" \"--hard\"))\n\n;;; This snippet enables the Fossil VC backend so it will work once\n;;; this file is loaded. By also marking it for inclusion in the\n;;; autoloads file, installing packaged versions of this should work\n;;; without users having to monkey with their init files.\n\n;;;###autoload\n(add-to-list 'vc-handled-backends 'Fossil t)\n\n(provide 'vc-fossil)\n\n;;; vc-fossil.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"unicode-fonts-20200803.1335","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":3011321,"end":3011359},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":3011359},"to":{"change":7,"start":3011320,"end":3011320},"introduced_by":7}],"inode":{"change":7,"pos":3011320}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"unicode-fonts-autoloads.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":3011320},"to":{"change":7,"start":3379392,"end":3379442},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":3379442},"to":{"change":7,"start":3376980,"end":3376980},"introduced_by":7}],"inode":{"change":7,"pos":3376980}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":3376980},"to":{"change":7,"start":3376981,"end":3379391},"introduced_by":7}],"inode":{"change":7,"pos":3376980}},"content":[{"Del":";;; unicode-fonts-autoloads.el --- automatically extracted autoloads\n;;\n;;; Code:\n\n(add-to-list 'load-path (directory-file-name\n (or (file-name-directory #$) (car load-path))))\n\n\f\n;;;### (autoloads nil \"unicode-fonts\" \"unicode-fonts.el\" (0 0 0 0))\n;;; Generated autoloads from unicode-fonts.el\n\n(let ((loads (get 'unicode-fonts 'custom-loads))) (if (member '\"unicode-fonts\" loads) nil (put 'unicode-fonts 'custom-loads (cons '\"unicode-fonts\" loads))))\n\n(let ((loads (get 'unicode-fonts-tweaks 'custom-loads))) (if (member '\"unicode-fonts\" loads) nil (put 'unicode-fonts-tweaks 'custom-loads (cons '\"unicode-fonts\" loads))))\n\n(let ((loads (get 'unicode-fonts-debug 'custom-loads))) (if (member '\"unicode-fonts\" loads) nil (put 'unicode-fonts-debug 'custom-loads (cons '\"unicode-fonts\" loads))))\n\n(autoload 'unicode-fonts-first-existing-font \"unicode-fonts\" \"\\\nReturn the (normalized) first existing font name from FONT-NAMES.\n\nFONT-NAMES is a list, with each element typically in Fontconfig\nfont-name format.\n\nThe font existence-check is lazy; fonts after the first hit are\nnot checked.\n\n\\(fn FONT-NAMES)\" nil nil)\n\n(autoload 'unicode-fonts-font-exists-p \"unicode-fonts\" \"\\\nRun `font-utils-exists-p' with a limited scope.\n\nThe scope is defined by `unicode-fonts-restrict-to-fonts'.\n\nFONT-NAME, POINT-SIZE, and STRICT are as documented at\n`font-utils-exists-p'.\n\n\\(fn FONT-NAME &optional POINT-SIZE STRICT)\" nil nil)\n\n(autoload 'unicode-fonts-read-block-name \"unicode-fonts\" \"\\\nRead a Unicode block name using `completing-read'.\n\nSpaces are replaced with underscores in completion values, but\nare removed from the return value.\n\nUse `ido-completing-read' if IDO is set.\n\n\\(fn &optional IDO)\" nil nil)\n\n(autoload 'unicode-fonts-setup \"unicode-fonts\" \"\\\nSet up Unicode fonts for FONTSET-NAMES.\n\nOptional FONTSET-NAMES must be a list of strings. Fontset names\nwhich do not currently exist will be ignored. The default value\nis `unicode-fonts-fontset-names'.\n\nOptional REGENERATE requests that the disk cache be invalidated\nand regenerated.\n\n\\(fn &optional FONTSET-NAMES REGENERATE)\" t nil)\n\n(if (fboundp 'register-definition-prefixes) (register-definition-prefixes \"unicode-fonts\" '(\"persistent-softest-\" \"unicode-\")))\n\n;;;***\n\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; coding: utf-8\n;; End:\n;;; unicode-fonts-autoloads.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"unicode-fonts-pkg.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":3011320},"to":{"change":7,"start":3376934,"end":3376978},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":3376978},"to":{"change":7,"start":3376376,"end":3376376},"introduced_by":7}],"inode":{"change":7,"pos":3376376}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":3376376},"to":{"change":7,"start":3376377,"end":3376933},"introduced_by":7}],"inode":{"change":7,"pos":3376376}},"content":[{"Del":";;; Generated package description from unicode-fonts-20200803.1335/unicode-fonts.el -*- no-byte-compile: t -*-\n(define-package \"unicode-fonts\" \"20200803.1335\" \"Configure Unicode fonts\" '((font-utils \"0.7.8\") (ucs-utils \"0.8.2\") (list-utils \"0.4.2\") (persistent-soft \"0.8.10\") (pcache \"0.3.1\")) :commit \"47f2397ade28eba621baa865fd69e4efb71407a5\" :authors '((\"Roland Walker\" . \"walker@pobox.com\")) :maintainer '(\"Roland Walker\" . \"walker@pobox.com\") :keywords '(\"i18n\" \"faces\" \"frames\" \"wp\" \"interface\") :url \"http://github.com/rolandwalker/unicode-fonts\")\n"}]}},{"FileDel":{"deleted_names":[{"basename":"unicode-fonts.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":3011320},"to":{"change":7,"start":3376334,"end":3376374},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":3376374},"to":{"change":7,"start":3011361,"end":3011361},"introduced_by":7}],"inode":{"change":7,"pos":3011361}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":3011361},"to":{"change":7,"start":3011362,"end":3376333},"introduced_by":7}],"inode":{"change":7,"pos":3011361}},"content":[{"Del":";;; unicode-fonts.el --- Configure Unicode fonts\n;;\n;; Copyright (c) 2012-2015 Roland Walker\n;;\n;; Author: Roland Walker \n;; Homepage: http://github.com/rolandwalker/unicode-fonts\n;; URL: http://raw.githubusercontent.com/rolandwalker/unicode-fonts/master/unicode-fonts.el\n;; Package-Version: 20200803.1335\n;; Package-Commit: 47f2397ade28eba621baa865fd69e4efb71407a5\n;; Version: 0.4.10\n;; Last-Updated: 1 Oct 2018\n;; EmacsWiki: UnicodeFonts\n;; Keywords: i18n, faces, frames, wp, interface\n;; Package-Requires: ((font-utils \"0.7.8\") (ucs-utils \"0.8.2\") (list-utils \"0.4.2\") (persistent-soft \"0.8.10\") (pcache \"0.3.1\"))\n;;\n;; Simplified BSD License\n;;\n;;; Commentary:\n;;\n;; Quickstart:\n;;\n;; Configure an extended Latin font for your default face, such\n;; as Monaco, Consolas, or DejaVu Sans Mono.\n;;\n;; Install these fonts\n;;\n;; https://dn-works.com/wp-content/uploads/2020/UFAS-Fonts/Symbola.zip\n;; http://www.quivira-font.com/files/Quivira.ttf ; or Quivira.otf\n;; http://sourceforge.net/projects/dejavu/files/dejavu/2.37/dejavu-fonts-ttf-2.37.tar.bz2\n;; https://github.com/googlei18n/noto-fonts/raw/master/hinted/NotoSans-Regular.ttf\n;; https://github.com/googlei18n/noto-fonts/raw/master/unhinted/NotoSansSymbols-Regular.ttf\n;;\n;; Remove Unifont from your system.\n;;\n;; (require 'unicode-fonts)\n;;\n;; (unicode-fonts-setup)\n;;\n;; Testing:\n;;\n;; C-h h ; M-x view-hello-file\n;; M-x list-charset-chars RET unicode-bmp RET ; search for 210x\n;; M-x list-charset-chars RET unicode-smp RET ; if your backend supports astral chars\n;; M-x unicode-fonts-debug-insert-block RET Mathematical_Operators RET\n;;\n;; Explanation:\n;;\n;; Emacs maintains font mappings on a per-glyph basis, meaning\n;; that multiple fonts are used at the same time (transparently) to\n;; display any character for which you have a font. Furthermore,\n;; Emacs does this out of the box.\n;;\n;; However, font mappings via fontsets are a bit difficult to\n;; configure. In addition, the default setup does not always pick\n;; the most legible fonts. As the manual warns, the choice of font\n;; actually displayed for a non-ASCII character is \"somewhat random\".\n;;\n;; The Unicode standard provides a way to organize font mappings: it\n;; divides character ranges into logical groups called \"blocks\". This\n;; library configures Emacs in a Unicode-friendly way by providing\n;; mappings from\n;;\n;; each Unicode block ---to---> a font with good coverage\n;;\n;; and makes the settings available via the customization interface.\n;;\n;; This library provides font mappings for 233 of the 255 blocks in\n;; the Unicode 8.0 standard which are public and have displayable\n;; characters. It assumes that 6 Latin blocks are covered by the\n;; default font. 16/255 blocks are not mapped to any known font.\n;;\n;; To use unicode-fonts, place the unicode-fonts.el file somewhere\n;; Emacs can find it, and add the following to your ~/.emacs file:\n;;\n;; (require 'unicode-fonts)\n;; (unicode-fonts-setup)\n;;\n;; See important notes about startup speed below.\n;;\n;; To gain any benefit from the library, you must have fonts with good\n;; Unicode support installed on your system. If you are running a\n;; recent version of OS X or Microsoft Windows, you already own some\n;; good multi-lingual fonts, though you would do very well to download\n;; and install the four items below:\n;;\n;; From https://dejavu-fonts.github.io/\n;;\n;; DejaVu Sans, DejaVu Sans Mono\n;;\n;; From http://www.quivira-font.com/downloads.php\n;;\n;; Quivira\n;;\n;; From https://dn-works.com/wp-content/uploads/2020/UFAS-Fonts/Symbola.zip\n;;\n;; Symbola\n;;\n;; Many non-free fonts are referenced by the default settings.\n;; However, free alternatives are also given wherever possible, and\n;; patches are of course accepted to improve every case.\n;;\n;; On the assumption that an extended Latin font such as Monaco,\n;; Consolas, or DejaVu Sans Mono is already being used for the default\n;; face, no separate mappings are provided for the following Unicode\n;; blocks:\n;;\n;; Basic Latin\n;; Latin Extended Additional\n;; Latin Extended-A\n;; Latin Extended-B\n;; Latin-1 Supplement\n;; Spacing Modifier Letters\n;;\n;; though some of these remain configurable via `customize'.\n;;\n;; It is also recommended to remove GNU Unifont from your system.\n;; Unifont is very useful for debugging, but not useful for reading.\n;;\n;; The default options favor correctness and completeness over speed,\n;; and can add many seconds to initial startup time in GUI mode.\n;; However, when possible a font cache is kept between sessions. If\n;; you have persistent-soft.el installed, when you start Emacs the\n;; second time, the startup cost should be negligible.\n;;\n;; The disk cache will be rebuilt during Emacs startup whenever a font\n;; is added or removed, or any relevant configuration variables are\n;; changed. To increase the speed of occasionally building the disk\n;; cache, you may use the customization interface to remove fonts from\n;; `unicode-fonts-block-font-mapping' which are not present on your\n;; system.\n;;\n;; If you are using a language written in Chinese or Arabic script,\n;; try customizing `unicode-fonts-skip-font-groups' to control which\n;; script you see, and send a friendly bug report.\n;;\n;; Color Emoji are enabled by default when using the Native Mac port\n;; on OS X. This can be disabled by customizing each relevant mapping,\n;; or by turning off all multicolor glyphs here:\n;;\n;; M-x customize-variable RET unicode-fonts-skip-font-groups RET\n;;\n;; See Also\n;;\n;; M-x customize-group RET unicode-fonts RET\n;; M-x customize-variable RET unicode-fonts-block-font-mapping RET\n;;\n;; Notes\n;;\n;; Free fonts recognized by this package may be downloaded from the\n;; following locations. For any language, it is increasingly likely\n;; that Noto Sans provides coverage:\n;;\n;; From http://www.google.com/get/noto/\n;;\n;; Noto Sans and friends ; 181 Unicode blocks and counting; sole\n;; ; source for these blocks:\n;; ;\n;; ; Bamum / Bamum Supplement / Kaithi\n;; ; Mandaic / Meetei Mayek Extensions\n;; ; Sundanese Supplement\n;; ;\n;; ; Also a good source for recently-added\n;; ; glyphs such as \"Turkish Lira Sign\".\n;;\n;; From http://scripts.sil.org/cms/scripts/page.php?item_id=CharisSIL_download\n;; or http://scripts.sil.org/cms/scripts/page.php?item_id=DoulosSIL_download\n;;\n;; Charis SIL or Doulos SIL ; Extended European and diacritics\n;;\n;; From http://scripts.sil.org/cms/scripts/page.php?item_id=Gentium_download\n;;\n;; Gentium Plus ; Greek\n;;\n;; From http://users.teilar.gr/~g1951d/\n;;\n;; Aegean, Aegyptus, Akkadian ; Ancient languages\n;; Analecta ; Ancient languages, Deseret\n;; Anatolian ; Ancient languages\n;; Musica ; Musical Symbols\n;; Nilus ; Ancient languages\n;;\n;; From http://www.wazu.jp/gallery/views/View_MPH2BDamase.html\n;;\n;; MPH 2B Damase ; Arabic, Armenian, Buginese, Cherokee, Georgian,\n;; ; Glagolitic, Hanunoo, Kharoshthi, Limbu, Osmanya,\n;; ; Shavian, Syloti Nagri, Tai Le, Thaana\n;;\n;; From http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&id=NamdhinggoSIL\n;;\n;; Namdhinggo SIL ; Limbu\n;;\n;; From http://wenq.org/wqy2/index.cgi?FontGuide\n;;\n;; WenQuanYi Zen Hei ; CJK (Simplified Chinese)\n;;\n;; From http://babelstone.co.uk/Fonts/\n;;\n;; BabelStone Han ; CJK (Simplified Chinese)\n;; BabelStone Phags-pa Book ; Phags-pa\n;; BabelStone Modern ; Tags / Specials / Selectors\n;;\n;; From http://vietunicode.sourceforge.net/fonts/fonts_hannom.html\n;;\n;; HAN NOM A, HAN NOM B ; CJK (Nôm Chinese)\n;;\n;; From http://kldp.net/projects/unfonts/\n;;\n;; Un Batang ; CJK (Hangul)\n;;\n;; From http://sourceforge.jp/projects/hanazono-font/releases/\n;;\n;; Hana Min A, Hana Min B ; CJK (Japanese)\n;;\n;; From http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&id=SILYi_home\n;;\n;; Nuosu SIL ; CJK (Yi)\n;;\n;; From http://www.daicing.com/manchu/index.php?page=fonts-downloads\n;;\n;; Daicing Xiaokai ; Mongolian\n;;\n;; From http://www.library.gov.bt/IT/fonts.html\n;;\n;; Jomolhari ; Tibetan\n;;\n;; From http://www.thlib.org/tools/scripts/wiki/tibetan%20machine%20uni.html\n;;\n;; Tibetan Machine Uni ; Tibetan\n;;\n;; From http://scripts.sil.org/cms/scripts/page.php?item_id=Padauk\n;;\n;; Padauk ; Myanmar\n;;\n;; From https://code.google.com/p/myanmar3source/downloads/list\n;;\n;; Myanmar3 ; Myanmar\n;;\n;; From http://www.yunghkio.com/unicode/\n;;\n;; Yunghkio ; Myanmar\n;;\n;; From https://code.google.com/p/tharlon-font/downloads/list\n;;\n;; TharLon ; Myanmar\n;;\n;; From http://sourceforge.net/projects/prahita/files/Myanmar%20Unicode%20Fonts/MasterpieceUniSans/\n;;\n;; Masterpiece Uni Sans ; Myanmar\n;;\n;; From http://sarovar.org/projects/samyak/\n;;\n;; Samyak ; Gujarati, Malayalam, Oriya, Tamil\n;;\n;; From http://software.sil.org/annapurna/download/\n;;\n;; Annapurna SIL ; Devanagari\n;;\n;; From http://guca.sourceforge.net/typography/fonts/anmoluni/\n;;\n;; AnmolUni ; Gurmukhi\n;;\n;; From http://brahmi.sourceforge.net/downloads2.html\n;;\n;; Kedage ; Kannada\n;;\n;; From http://www.omicronlab.com/bangla-fonts.html\n;;\n;; Mukti Narrow ; Bengali\n;;\n;; From http://www.kamban.com.au/downloads.html\n;;\n;; Akshar Unicode ; Sinhala\n;;\n;; From http://tabish.freeshell.org/eeyek/download.html\n;;\n;; Eeyek Unicode ; Meetei Mayek\n;;\n;; From http://scripts.sil.org/CMS/scripts/page.php?&item_id=Mondulkiri\n;;\n;; Khmer Mondulkiri ; Khmer\n;;\n;; From http://www.laoscript.net/downloads/\n;;\n;; Saysettha MX ; Lao\n;;\n;; From http://www.geocities.jp/simsheart_alif/taithamunicode.html\n;;\n;; Lanna Alif ; Tai Tham\n;;\n;; From http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&id=DaiBannaSIL\n;;\n;; Dai Banna SIL ; New Tai Lue\n;;\n;; From http://scripts.sil.org/cms/scripts/page.php?item_id=TaiHeritage\n;;\n;; Tai Heritage Pro ; Tai Viet\n;;\n;; From http://sabilulungan.org/aksara/\n;;\n;; Sundanese Unicode ; Sundanese\n;;\n;; From http://www.amirifont.org/\n;;\n;; Amiri ; Arabic (Naskh)\n;;\n;; From http://scripts.sil.org/cms/scripts/page.php?item_id=Scheherazade\n;;\n;; Scheherazade ; Arabic (Naskh)\n;;\n;; From http://www.farsiweb.ir/wiki/Persian_fonts\n;;\n;; Koodak ; Arabic (Farsi)\n;;\n;; From http://openfontlibrary.org/font/ahuramazda/\n;;\n;; Ahuramzda ; Avestan\n;;\n;; From http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&id=AbyssinicaSIL\n;;\n;; Abyssinica SIL ; Ethiopic\n;;\n;; From http://www.bethmardutho.org/index.php/resources/fonts.html\n;;\n;; Estrangelo Nisibin ; Syriac\n;;\n;; From http://www.evertype.com/fonts/nko/\n;;\n;; Conakry ; N'ko\n;;\n;; From http://uni.hilledu.com/download-ribenguni\n;;\n;; Ribeng ; Chakma\n;;\n;; From http://www.virtualvinodh.com/downloads\n;;\n;; Adinatha Tamil Brahmi ; Brahmi\n;;\n;; From http://ftp.gnu.org/gnu/freefont/\n;;\n;; FreeMono, etc (FreeFont) ; Kayah Li (and others)\n;;\n;; From http://ulikozok.com/aksara-batak/batak-font/\n;;\n;; Batak-Unicode ; Batak\n;;\n;; From http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&id=Mingzat\n;;\n;; Mingzat ; Lepcha\n;;\n;; From http://phjamr.github.io/lisu.html#install\n;; http://phjamr.github.io/miao.html#install\n;; http://phjamr.github.io/mro.html#install\n;;\n;; Miao Unicode ; Miao\n;; Lisu Unicode ; Lisu\n;; Mro Unicode ; Mro\n;;\n;; From http://scholarsfonts.net/cardofnt.html\n;;\n;; Cardo ; Historical Languages\n;;\n;; From http://sourceforge.net/projects/junicode/files/junicode/\n;;\n;; Junicode ; Historical Languages\n;;\n;; From http://www.evertype.com/fonts/vai/\n;;\n;; Dukor ; Vai\n;;\n;; From http://sourceforge.net/projects/zhmono/\n;;\n;; ZH Mono ; Inscriptional Pahlavi / Parthian\n;;\n;; From http://culmus.sourceforge.net/ancient/index.html\n;;\n;; Aramaic Imperial Yeb ; Imperial Aramaic\n;;\n;; From http://www.languagegeek.com/font/fontdownload.html\n;;\n;; Aboriginal Sans ; Aboriginal Languages\n;; Aboriginal Serif\n;;\n;; From http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&id=EzraSIL_Home\n;;\n;; Ezra SIL ; Hebrew\n;;\n;; From http://www.evertype.com/fonts/coptic/\n;;\n;; Antinoou ; Coptic / General Punctuation\n;;\n;; From http://apagreekkeys.org/NAUdownload.html\n;;\n;; New Athena Unicode ; Ancient Languages / Symbols\n;;\n;; From http://markmail.org/thread/g57mk4sbdycblxds\n;;\n;; KhojkiUnicodeOT ; Khojki\n;;\n;; From https://github.com/andjc/ahom-unicode/tree/master/font\n;;\n;; AhomUnicode ; Ahom\n;;\n;; From https://github.com/MihailJP/oldsindhi/releases\n;;\n;; OldSindhi ; Khudawadi\n;;\n;; From https://github.com/MihailJP/Muktamsiddham/releases\n;;\n;; MuktamsiddhamG ; Siddham (note trailing \"G\" on font name)\n;;\n;; From https://github.com/MihailJP/MarathiCursive/releases\n;;\n;; MarathiCursiveG ; Modi (note trailing \"G\" on font name)\n;;\n;; From https://github.com/OldHungarian/old-hungarian-font/releases\n;;\n;; OldHungarian ; Old Hungarian\n;;\n;; From http://tutohtml.perso.sfr.fr/unicode.html\n;;\n;; Albanian ; Elbasan / Takri / Sharada\n;;\n;; From https://github.com/enabling-languages/cham-unicode/tree/master/fonts/ttf\n;;\n;; Cham OI_Tangin ; Cham\n;;\n;; From https://ctan.org/tex-archive/fonts/Asana-Math?lang=en\n;;\n;; Asana Math ; Mathematical Symbols\n;;\n;; Compatibility and Requirements\n;;\n;; GNU Emacs version 23.3 and higher : yes\n;; GNU Emacs version 22.3 and lower : no\n;;\n;; Requires font-utils.el, ucs-utils.el\n;;\n;; Bugs\n;;\n;; The default choice of font for each code block balances coverage\n;; versus appearance. This is necessarily subjective.\n;;\n;; Unicode also defines the notion of a \"script\" as a higher-level\n;; abstraction which is independent of \"blocks\". Modern fonts can\n;; report their script coverage, and Emacs may also access that\n;; information. However, this library ignores scripts in favor\n;; of blocks and glyphs.\n;;\n;; Checking for font availability is slow. This library can\n;; add anywhere between 0.1 - 10 secs to startup time. It is\n;; slowest under X11. Some per-architecture limitations are\n;; documented in font-utils.el\n;;\n;; Calling `set-fontset-font' can easily crash Emacs. There is a\n;; workaround, but it may not be sufficient on all platforms.\n;; Tested on Cocoa Emacs, Native Mac Emacs, X11/XQuartz,\n;; MS Windows XP.\n;;\n;; Glyph-by-glyph fallthrough happens differently depending on the\n;; font backend. On Cocoa Emacs, glyph-by-glyph fallthrough does not\n;; occur, and manual per-glyph overrides are required to maximize\n;; coverage. Fallthrough works on MS Windows, but not perfectly.\n;; X11/FreeType behaves most predictably.\n;;\n;; The following ranges cannot be overridden within the\n;; \"fontset-default\" fontset:\n;;\n;; Latin Extended Additional\n;; Latin Extended-B\n;; Spacing Modifier Letters\n;;\n;; `unicode-fonts-overrides-mapping' shows some order-dependence,\n;; which must indicate a bug in this code.\n;;\n;; A number of the entries in `unicode-fonts-overrides-mapping'\n;; are workarounds for the font Monaco, and therefore specific\n;; to OS X.\n;;\n;; Widths of alternate fonts do not act as expected on MS Windows.\n;; For example, DejaVu Sans Mono box-drawing characters may use\n;; a different width than the default font.\n;;\n;; TODO\n;;\n;; provide additional interfaces\n;; - dump set-fontset-font instructions\n;; - immediately set font for character/current-character/range\n;; - recommend font for current character\n;; - alternatives to customize, which can be called before unicode-fonts-setup\n;; - eg \"prefer this font for this block\"\n;; - also character/range ie overrides\n;;\n;; scripts vs blocks\n;; - further doc note\n;; - provide alternative interface via scripts\n;;\n;; reorganize font list by language?\n;; - break down into living/dead/invented\n;;\n;; support MUFI for PUA\n;;\n;; support ConScript for PUA\n;;\n;; Aramaic as a style of Hebrew\n;;\n;; (set-language-environment \"UTF-8\") ?\n;;\n;; Include all Windows 8 fonts\n;;\n;; Include all Windows 10 fonts\n;;\n;; Remove very old Microsoft entries (eg Monotype.com which was\n;; renamed Andale)\n;;\n;; Recognize the default font and make smarter choices when it is\n;; one of the provided mappings. (On Cocoa, the default font is\n;; returned when font-info fails, which is not a good thing\n;; overall.)\n;;\n;; For every font, list font version and unicode blocks which are\n;; complete.\n;;\n;; Note all decorative fonts\n;;\n;; Adobe international fonts which are supplied with Reader\n;;\n;; Apple fonts which could not be mapped\n;; Wawati TC\n;; Weibei TC\n;; Weibei SC\n;; Wawati SC\n;;\n;;; License\n;;\n;; Simplified BSD License:\n;;\n;; Redistribution and use in source and binary forms, with or\n;; without modification, are permitted provided that the following\n;; conditions are met:\n;;\n;; 1. Redistributions of source code must retain the above\n;; copyright notice, this list of conditions and the following\n;; disclaimer.\n;;\n;; 2. Redistributions in binary form must reproduce the above\n;; copyright notice, this list of conditions and the following\n;; disclaimer in the documentation and/or other materials\n;; provided with the distribution.\n;;\n;; This software is provided by Roland Walker \"AS IS\" and any express\n;; or implied warranties, including, but not limited to, the implied\n;; warranties of merchantability and fitness for a particular\n;; purpose are disclaimed. In no event shall Roland Walker or\n;; contributors be liable for any direct, indirect, incidental,\n;; special, exemplary, or consequential damages (including, but not\n;; limited to, procurement of substitute goods or services; loss of\n;; use, data, or profits; or business interruption) however caused\n;; and on any theory of liability, whether in contract, strict\n;; liability, or tort (including negligence or otherwise) arising in\n;; any way out of the use of this software, even if advised of the\n;; possibility of such damage.\n;;\n;; The views and conclusions contained in the software and\n;; documentation are those of the authors and should not be\n;; interpreted as representing official policies, either expressed\n;; or implied, of Roland Walker.\n;;\n;; No rights are claimed over data created by the Unicode\n;; Consortium, which are included here under the terms of\n;; the Unicode Terms of Use.\n;;\n;;; Code:\n;;\n\n;;; requirements\n\n;; for cl-callf, cl-member, cl-incf, cl-remove-if, cl-remove-if-not, cl-assert, cl-loop, cl-copy-list\n(require 'cl-lib)\n\n(autoload 'persistent-soft-store \"persistent-soft\" \"Under SYMBOL, store VALUE in the LOCATION persistent data store.\" )\n(autoload 'persistent-soft-fetch \"persistent-soft\" \"Return the value for SYMBOL in the LOCATION persistent data store.\" )\n(autoload 'persistent-soft-exists-p \"persistent-soft\" \"Return t if SYMBOL exists in the LOCATION persistent data store.\" )\n(autoload 'persistent-soft-flush \"persistent-soft\" \"Flush data for the LOCATION data store to disk.\" )\n(autoload 'persistent-soft-location-readable \"persistent-soft\" \"Return non-nil if LOCATION is a readable persistent-soft data store.\")\n(autoload 'persistent-soft-location-destroy \"persistent-soft\" \"Destroy LOCATION (a persistent-soft data store).\" )\n\n(autoload 'font-utils-exists-p \"font-utils\" \"Test whether FONT-NAME (a string or font object) exists.\")\n(autoload 'font-utils-read-name \"font-utils\" \"Read a font name using `completing-read'.\")\n(autoload 'font-utils-lenient-name-equal \"font-utils\" \"Leniently match two strings, FONT-NAME-A and FONT-NAME-B.\")\n(autoload 'font-utils-first-existing-font \"font-utils\" \"Return the (normalized) first existing font name from FONT-NAMES.\")\n(autoload 'font-utils-name-from-xlfd \"font-utils\" \"Return the font-family name from XLFD, a string.\")\n(autoload 'font-utils-is-qualified-variant \"font-utils\" \"Test whether FONT-NAME-1 and FONT-NAME-2 are qualified variants of the same font.\")\n(autoload 'font-utils-list-names \"font-utils\" \"Return a list of all font names on the current system.\")\n(autoload 'font-utils-client-hostname \"font-utils\" \"Guess the client hostname, respecting $SSH_CONNECTION.\")\n\n(autoload 'ucs-utils-char \"ucs-utils\" \"Return the character corresponding to NAME, a UCS name.\")\n(autoload 'ucs-utils-pretty-name \"ucs-utils\" \"Return a prettified UCS name for CHAR.\")\n\n;;; constants\n\n(defconst unicode-fonts-planes\n '((\"unicode-bmp\" #x0000 #xFFFF) ; plane 0\n (\"unicode-smp\" #x10000 #x1FFFF) ; plane 1\n (\"unicode-sip\" #x20000 #x2FFFF) ; plane 2\n (\"unicode-tip\" #x30000 #x3FFFF) ; planes 3\n (\"unicode-unassigned\" #x40000 #xDFFFF) ; planes 4-13\n (\"unicode-ssp\" #xE0000 #xEFFFF) ; plane 14\n (\"unicode-pua-a\" #xF0000 #xFFFFF) ; plane 15\n (\"unicode-pua-b\" #x100000 #x10FFFF)) ; plane 16\n \"Alist of Unicode 13.0 planes.\")\n\n(defconst unicode-fonts-blocks\n '((\"Adlam\" #x1E900 #x1E95F)\n (\"Aegean Numbers\" #x10100 #x1013F)\n (\"Ahom\" #x11700 #x1173F)\n (\"Alchemical Symbols\" #x1F700 #x1F77F)\n (\"Alphabetic Presentation Forms\" #xFB00 #xFB4F)\n (\"Anatolian Hieroglyphs\" #x14400 #x1467F)\n (\"Ancient Greek Musical Notation\" #x1D200 #x1D24F)\n (\"Ancient Greek Numbers\" #x10140 #x1018F)\n (\"Ancient Symbols\" #x10190 #x101CF)\n (\"Arabic\" #x0600 #x06FF)\n (\"Arabic Extended-A\" #x08A0 #x08FF)\n (\"Arabic Mathematical Alphabetic Symbols\" #x1EE00 #x1EEFF)\n (\"Arabic Presentation Forms-A\" #xFB50 #xFDFF)\n (\"Arabic Presentation Forms-B\" #xFE70 #xFEFF)\n (\"Arabic Supplement\" #x0750 #x077F)\n (\"Armenian\" #x0530 #x058F)\n (\"Arrows\" #x2190 #x21FF)\n (\"Avestan\" #x10B00 #x10B3F)\n (\"Balinese\" #x1B00 #x1B7F)\n (\"Bamum\" #xA6A0 #xA6FF)\n (\"Bamum Supplement\" #x16800 #x16A3F)\n (\"Basic Latin\" #x0000 #x007F)\n (\"Bassa Vah\" #x16AD0 #x16AFF)\n (\"Batak\" #x1BC0 #x1BFF)\n (\"Bengali\" #x0980 #x09FF)\n (\"Bhaiksuki\" #x11C00 #x11C6F)\n (\"Block Elements\" #x2580 #x259F)\n (\"Bopomofo\" #x3100 #x312F)\n (\"Bopomofo Extended\" #x31A0 #x31BF)\n (\"Box Drawing\" #x2500 #x257F)\n (\"Brahmi\" #x11000 #x1107F)\n (\"Braille Patterns\" #x2800 #x28FF)\n (\"Buginese\" #x1A00 #x1A1F)\n (\"Buhid\" #x1740 #x175F)\n (\"Byzantine Musical Symbols\" #x1D000 #x1D0FF)\n (\"CJK Compatibility\" #x3300 #x33FF)\n (\"CJK Compatibility Forms\" #xFE30 #xFE4F)\n (\"CJK Compatibility Ideographs\" #xF900 #xFAFF)\n (\"CJK Compatibility Ideographs Supplement\" #x2F800 #x2FA1F)\n (\"CJK Radicals Supplement\" #x2E80 #x2EFF)\n (\"CJK Strokes\" #x31C0 #x31EF)\n (\"CJK Symbols and Punctuation\" #x3000 #x303F)\n (\"CJK Unified Ideographs\" #x4E00 #x9FFF)\n (\"CJK Unified Ideographs Extension A\" #x3400 #x4DBF)\n (\"CJK Unified Ideographs Extension B\" #x20000 #x2A6DF)\n (\"CJK Unified Ideographs Extension C\" #x2A700 #x2B73F)\n (\"CJK Unified Ideographs Extension D\" #x2B740 #x2B81F)\n (\"CJK Unified Ideographs Extension E\" #x2B820 #x2CEAF)\n (\"CJK Unified Ideographs Extension F\" #x2CEB0 #x2EBEF)\n (\"CJK Unified Ideographs Extension G\" #x30000 #x3134F)\n (\"Carian\" #x102A0 #x102DF)\n (\"Caucasian Albanian\" #x10530 #x1056F)\n (\"Chakma\" #x11100 #x1114F)\n (\"Cham\" #xAA00 #xAA5F)\n (\"Cherokee\" #x13A0 #x13FF)\n (\"Cherokee Supplement\" #xAB70 #xABBF)\n (\"Chess Symbols\" #x1FA00 #x1FA6F)\n (\"Chorasmian\" #x10FB0 #x10FDF)\n (\"Combining Diacritical Marks\" #x0300 #x036F)\n (\"Combining Diacritical Marks Extended\" #x1AB0 #x1AFF)\n (\"Combining Diacritical Marks Supplement\" #x1DC0 #x1DFF)\n (\"Combining Diacritical Marks for Symbols\" #x20D0 #x20FF)\n (\"Combining Half Marks\" #xFE20 #xFE2F)\n (\"Common Indic Number Forms\" #xA830 #xA83F)\n (\"Control Pictures\" #x2400 #x243F)\n (\"Coptic\" #x2C80 #x2CFF)\n (\"Coptic Epact Numbers\" #x102E0 #x102FF)\n (\"Counting Rod Numerals\" #x1D360 #x1D37F)\n (\"Cuneiform\" #x12000 #x123FF)\n (\"Cuneiform Numbers and Punctuation\" #x12400 #x1247F)\n (\"Currency Symbols\" #x20A0 #x20CF)\n (\"Cypriot Syllabary\" #x10800 #x1083F)\n (\"Cyrillic\" #x0400 #x04FF)\n (\"Cyrillic Extended-A\" #x2DE0 #x2DFF)\n (\"Cyrillic Extended-B\" #xA640 #xA69F)\n (\"Cyrillic Extended-C\" #x1C80 #x1C8F)\n (\"Cyrillic Supplement\" #x0500 #x052F)\n (\"Deseret\" #x10400 #x1044F)\n (\"Devanagari\" #x0900 #x097F)\n (\"Devanagari Extended\" #xA8E0 #xA8FF)\n (\"Dingbats\" #x2700 #x27BF)\n (\"Dives Akuru\" #x11900 #x1195F)\n (\"Dogra\" #x11800 #x1184F)\n (\"Domino Tiles\" #x1F030 #x1F09F)\n (\"Duployan\" #x1BC00 #x1BC9F)\n (\"Early Dynastic Cuneiform\" #x12480 #x1254F)\n (\"Egyptian Hieroglyph Format Controls\" #x13430 #x1343F)\n (\"Egyptian Hieroglyphs\" #x13000 #x1342F)\n (\"Elbasan\" #x10500 #x1052F)\n (\"Elymaic\" #x10FE0 #x10FFF)\n (\"Emoticons\" #x1F600 #x1F64F)\n (\"Enclosed Alphanumeric Supplement\" #x1F100 #x1F1FF)\n (\"Enclosed Alphanumerics\" #x2460 #x24FF)\n (\"Enclosed CJK Letters and Months\" #x3200 #x32FF)\n (\"Enclosed Ideographic Supplement\" #x1F200 #x1F2FF)\n (\"Ethiopic\" #x1200 #x137F)\n (\"Ethiopic Extended\" #x2D80 #x2DDF)\n (\"Ethiopic Extended-A\" #xAB00 #xAB2F)\n (\"Ethiopic Supplement\" #x1380 #x139F)\n (\"General Punctuation\" #x2000 #x206F)\n (\"Geometric Shapes\" #x25A0 #x25FF)\n (\"Geometric Shapes Extended\" #x1F780 #x1F7FF)\n (\"Georgian\" #x10A0 #x10FF)\n (\"Georgian Extended\" #x1C90 #x1CBF)\n (\"Georgian Supplement\" #x2D00 #x2D2F)\n (\"Glagolitic\" #x2C00 #x2C5F)\n (\"Glagolitic Supplement\" #x1E000 #x1E02F)\n (\"Gothic\" #x10330 #x1034F)\n (\"Grantha\" #x11300 #x1137F)\n (\"Greek Extended\" #x1F00 #x1FFF)\n (\"Greek and Coptic\" #x0370 #x03FF)\n (\"Gujarati\" #x0A80 #x0AFF)\n (\"Gunjala Gondi\" #x11D60 #x11DAF)\n (\"Gurmukhi\" #x0A00 #x0A7F)\n (\"Halfwidth and Fullwidth Forms\" #xFF00 #xFFEF)\n (\"Hangul Compatibility Jamo\" #x3130 #x318F)\n (\"Hangul Jamo\" #x1100 #x11FF)\n (\"Hangul Jamo Extended-A\" #xA960 #xA97F)\n (\"Hangul Jamo Extended-B\" #xD7B0 #xD7FF)\n (\"Hangul Syllables\" #xAC00 #xD7AF)\n (\"Hanifi Rohingya\" #x10D00 #x10D3F)\n (\"Hanunoo\" #x1720 #x173F)\n (\"Hatran\" #x108E0 #x108FF)\n (\"Hebrew\" #x0590 #x05FF)\n ;; (\"High Private Use Surrogates\" #xDB80 #xDBFF) ; no displayable characters\n ;; (\"High Surrogates\" #xD800 #xDB7F) ; no displayable characters\n (\"Hiragana\" #x3040 #x309F)\n (\"IPA Extensions\" #x0250 #x02AF)\n (\"Ideographic Description Characters\" #x2FF0 #x2FFF)\n (\"Ideographic Symbols and Punctuation\" #x16FE0 #x16FFF)\n (\"Imperial Aramaic\" #x10840 #x1085F)\n (\"Indic Siyaq Numbers\" #x1EC70 #x1ECBF)\n (\"Inscriptional Pahlavi\" #x10B60 #x10B7F)\n (\"Inscriptional Parthian\" #x10B40 #x10B5F)\n (\"Javanese\" #xA980 #xA9DF)\n (\"Kaithi\" #x11080 #x110CF)\n (\"Kana Extended-A\" #x1B100 #x1B12F)\n (\"Kana Supplement\" #x1B000 #x1B0FF)\n (\"Kanbun\" #x3190 #x319F)\n (\"Kangxi Radicals\" #x2F00 #x2FDF)\n (\"Kannada\" #x0C80 #x0CFF)\n (\"Katakana\" #x30A0 #x30FF)\n (\"Katakana Phonetic Extensions\" #x31F0 #x31FF)\n (\"Kayah Li\" #xA900 #xA92F)\n (\"Kharoshthi\" #x10A00 #x10A5F)\n (\"Khitan Small Script\" #x18B00 #x18CFF)\n (\"Khmer\" #x1780 #x17FF)\n (\"Khmer Symbols\" #x19E0 #x19FF)\n (\"Khojki\" #x11200 #x1124F)\n (\"Khudawadi\" #x112B0 #x112FF)\n (\"Lao\" #x0E80 #x0EFF)\n (\"Latin Extended Additional\" #x1E00 #x1EFF)\n (\"Latin Extended-A\" #x0100 #x017F)\n (\"Latin Extended-B\" #x0180 #x024F)\n (\"Latin Extended-C\" #x2C60 #x2C7F)\n (\"Latin Extended-D\" #xA720 #xA7FF)\n (\"Latin Extended-E\" #xAB30 #xAB6F)\n (\"Latin-1 Supplement\" #x0080 #x00FF)\n (\"Lepcha\" #x1C00 #x1C4F)\n (\"Letterlike Symbols\" #x2100 #x214F)\n (\"Limbu\" #x1900 #x194F)\n (\"Linear A\" #x10600 #x1077F)\n (\"Linear B Ideograms\" #x10080 #x100FF)\n (\"Linear B Syllabary\" #x10000 #x1007F)\n (\"Lisu\" #xA4D0 #xA4FF)\n (\"Lisu Supplement\" #x11FB0 #x11FBF)\n ;; (\"Low Surrogates\" #xDC00 #xDFFF) ; no displayable characters\n (\"Lycian\" #x10280 #x1029F)\n (\"Lydian\" #x10920 #x1093F)\n (\"Mahajani\" #x11150 #x1117F)\n (\"Mahjong Tiles\" #x1F000 #x1F02F)\n (\"Makasar\" #x11EE0 #x11EFF)\n (\"Malayalam\" #x0D00 #x0D7F)\n (\"Mandaic\" #x0840 #x085F)\n (\"Manichaean\" #x10AC0 #x10AFF)\n (\"Marchen\" #x11C70 #x11CBF)\n (\"Masaram Gondi\" #x11D00 #x11D5F)\n (\"Mathematical Alphanumeric Symbols\" #x1D400 #x1D7FF)\n (\"Mathematical Operators\" #x2200 #x22FF)\n (\"Mayan Numerals\" #x1D2E0 #x1D2FF)\n (\"Medefaidrin\" #x16E40 #x16E9F)\n (\"Meetei Mayek\" #xABC0 #xABFF)\n (\"Meetei Mayek Extensions\" #xAAE0 #xAAFF)\n (\"Mende Kikakui\" #x1E800 #x1E8DF)\n (\"Meroitic Cursive\" #x109A0 #x109FF)\n (\"Meroitic Hieroglyphs\" #x10980 #x1099F)\n (\"Miao\" #x16F00 #x16F9F)\n (\"Miscellaneous Mathematical Symbols-A\" #x27C0 #x27EF)\n (\"Miscellaneous Mathematical Symbols-B\" #x2980 #x29FF)\n (\"Miscellaneous Symbols\" #x2600 #x26FF)\n (\"Miscellaneous Symbols and Arrows\" #x2B00 #x2BFF)\n (\"Miscellaneous Symbols and Pictographs\" #x1F300 #x1F5FF)\n (\"Miscellaneous Technical\" #x2300 #x23FF)\n (\"Modi\" #x11600 #x1165F)\n (\"Modifier Tone Letters\" #xA700 #xA71F)\n (\"Mongolian\" #x1800 #x18AF)\n (\"Mongolian Supplement\" #x11660 #x1167F)\n (\"Mro\" #x16A40 #x16A6F)\n (\"Multani\" #x11280 #x112AF)\n (\"Musical Symbols\" #x1D100 #x1D1FF)\n (\"Myanmar\" #x1000 #x109F)\n (\"Myanmar Extended-A\" #xAA60 #xAA7F)\n (\"Myanmar Extended-B\" #xA9E0 #xA9FF)\n (\"NKo\" #x07C0 #x07FF)\n (\"Nabataean\" #x10880 #x108AF)\n (\"Nandinagari\" #x119A0 #x119FF)\n (\"New Tai Lue\" #x1980 #x19DF)\n (\"Newa\" #x11400 #x1147F)\n (\"Number Forms\" #x2150 #x218F)\n (\"Nushu\" #x1B170 #x1B2FF)\n (\"Nyiakeng Puachue Hmong\" #x1E100 #x1E14F)\n (\"Ogham\" #x1680 #x169F)\n (\"Ol Chiki\" #x1C50 #x1C7F)\n (\"Old Hungarian\" #x10C80 #x10CFF)\n (\"Old Italic\" #x10300 #x1032F)\n (\"Old North Arabian\" #x10A80 #x10A9F)\n (\"Old Permic\" #x10350 #x1037F)\n (\"Old Persian\" #x103A0 #x103DF)\n (\"Old Sogdian\" #x10F00 #x10F2F)\n (\"Old South Arabian\" #x10A60 #x10A7F)\n (\"Old Turkic\" #x10C00 #x10C4F)\n (\"Optical Character Recognition\" #x2440 #x245F)\n (\"Oriya\" #x0B00 #x0B7F)\n (\"Ornamental Dingbats\" #x1F650 #x1F67F)\n (\"Osage\" #x104B0 #x104FF)\n (\"Osmanya\" #x10480 #x104AF)\n (\"Ottoman Siyaq Numbers\" #x1ED00 #x1ED4F)\n (\"Pahawh Hmong\" #x16B00 #x16B8F)\n (\"Palmyrene\" #x10860 #x1087F)\n (\"Pau Cin Hau\" #x11AC0 #x11AFF)\n (\"Phags-pa\" #xA840 #xA87F)\n (\"Phaistos Disc\" #x101D0 #x101FF)\n (\"Phoenician\" #x10900 #x1091F)\n (\"Phonetic Extensions\" #x1D00 #x1D7F)\n (\"Phonetic Extensions Supplement\" #x1D80 #x1DBF)\n (\"Playing Cards\" #x1F0A0 #x1F0FF)\n (\"Private Use Area\" #xE000 #xF8FF)\n (\"Psalter Pahlavi\" #x10B80 #x10BAF)\n (\"Rejang\" #xA930 #xA95F)\n (\"Rumi Numeral Symbols\" #x10E60 #x10E7F)\n (\"Runic\" #x16A0 #x16FF)\n (\"Samaritan\" #x0800 #x083F)\n (\"Saurashtra\" #xA880 #xA8DF)\n (\"Sharada\" #x11180 #x111DF)\n (\"Shavian\" #x10450 #x1047F)\n ;; (\"Shorthand Format Controls\" #x1BCA0 #x1BCAF) ; no displayable characters\n (\"Siddham\" #x11580 #x115FF)\n (\"Sinhala\" #x0D80 #x0DFF)\n (\"Sinhala Archaic Numbers\" #x111E0 #x111FF)\n (\"Small Form Variants\" #xFE50 #xFE6F)\n (\"Small Kana Extension\" #x1B130 #x1B16F)\n (\"Sogdian\" #x10F30 #x10F6F)\n (\"Sora Sompeng\" #x110D0 #x110FF)\n (\"Soyombo\" #x11A50 #x11AAF)\n (\"Spacing Modifier Letters\" #x02B0 #x02FF)\n (\"Specials\" #xFFF0 #xFFFF)\n (\"Sundanese\" #x1B80 #x1BBF)\n (\"Sundanese Supplement\" #x1CC0 #x1CCF)\n (\"Superscripts and Subscripts\" #x2070 #x209F)\n (\"Supplemental Arrows-A\" #x27F0 #x27FF)\n (\"Supplemental Arrows-B\" #x2900 #x297F)\n (\"Supplemental Arrows-C\" #x1F800 #x1F8FF)\n (\"Supplemental Mathematical Operators\" #x2A00 #x2AFF)\n (\"Supplemental Punctuation\" #x2E00 #x2E7F)\n (\"Supplemental Symbols and Pictographs\" #x1F900 #x1F9FF)\n (\"Supplementary Private Use Area-A\" #xF0000 #xFFFFF)\n (\"Supplementary Private Use Area-B\" #x100000 #x10FFFF)\n (\"Sutton SignWriting\" #x1D800 #x1DAAF)\n (\"Syloti Nagri\" #xA800 #xA82F)\n (\"Symbols and Pictographs Extended-A\" #x1FA70 #x1FAFF)\n (\"Symbols for Legacy Computing\" #x1FB00 #x1FBFF)\n (\"Syriac\" #x0700 #x074F)\n (\"Syriac Supplement\" #x0860 #x086F)\n (\"Tagalog\" #x1700 #x171F)\n (\"Tagbanwa\" #x1760 #x177F)\n (\"Tags\" #xE0000 #xE007F)\n (\"Tai Le\" #x1950 #x197F)\n (\"Tai Tham\" #x1A20 #x1AAF)\n (\"Tai Viet\" #xAA80 #xAADF)\n (\"Tai Xuan Jing Symbols\" #x1D300 #x1D35F)\n (\"Takri\" #x11680 #x116CF)\n (\"Tamil\" #x0B80 #x0BFF)\n (\"Tamil Supplement\" #x11FC0 #x11FFF)\n (\"Tangut\" #x17000 #x187FF)\n (\"Tangut Components\" #x18800 #x18AFF)\n (\"Tangut Supplement\" #x18D00 #x18D8F)\n (\"Telugu\" #x0C00 #x0C7F)\n (\"Thaana\" #x0780 #x07BF)\n (\"Thai\" #x0E00 #x0E7F)\n (\"Tibetan\" #x0F00 #x0FFF)\n (\"Tifinagh\" #x2D30 #x2D7F)\n (\"Tirhuta\" #x11480 #x114DF)\n (\"Transport and Map Symbols\" #x1F680 #x1F6FF)\n (\"Ugaritic\" #x10380 #x1039F)\n (\"Unified Canadian Aboriginal Syllabics\" #x1400 #x167F)\n (\"Unified Canadian Aboriginal Syllabics Extended\" #x18B0 #x18FF)\n (\"Vai\" #xA500 #xA63F)\n (\"Variation Selectors\" #xFE00 #xFE0F)\n (\"Variation Selectors Supplement\" #xE0100 #xE01EF)\n (\"Vedic Extensions\" #x1CD0 #x1CFF)\n (\"Vertical Forms\" #xFE10 #xFE1F)\n (\"Wancho\" #x1E2C0 #x1E2FF)\n (\"Warang Citi\" #x118A0 #x118FF)\n (\"Yezidi\" #x10E80 #x10EBF)\n (\"Yi Radicals\" #xA490 #xA4CF)\n (\"Yi Syllables\" #xA000 #xA48F)\n (\"Yijing Hexagram Symbols\" #x4DC0 #x4DFF)\n (\"Zanabazar Square\" #x11A00 #x11A4F))\n \"Alist of Unicode 13.0 blocks.\")\n\n(defvar unicode-fonts-known-font-characteristics\n '((\"Abadi MT Condensed\" :licenses (microsoft))\n (\"Aboriginal Sans\" :licenses (free))\n (\"Aboriginal Serif\" :licenses (free))\n (\"Abyssinica SIL\" :licenses (free))\n (\"Adinatha Tamil Brahmi\" :licenses (free))\n (\"Adobe Arabic\" :licenses (adobe) :arabic naskh)\n (\"Adobe Hebrew\" :licenses (adobe))\n (\"Adobe Minion Web\" :licenses (microsoft))\n (\"African Sans\" :licenses (free))\n (\"African Serif\" :licenses (free))\n (\"Aldhabi\" :licenses (microsoft) :arabic naskh)\n (\"Albanian\" :licenses (free))\n (\"Aegean\" :licenses (free))\n (\"Aegyptus\" :licenses (free))\n (\"Agency FB\" :licenses (microsoft))\n (\"AhomUnicode\" :licenses (free))\n (\"Aharoni\" :licenses (microsoft))\n (\"Ahuramzda\" :licenses (free))\n (\"Akaash\" :licenses (free))\n (\"Akkadian\" :licenses (free))\n (\"Aksara Bali\" :licenses (free))\n (\"Akshar Unicode\" :licenses (free))\n (\"Al Bayan\" :licenses (apple) :arabic naskh)\n (\"Aleem Urdu Unicode\" :licenses (free) :arabic urdu)\n (\"Algerian\" :licenses (microsoft))\n (\"Almanac MT\" :licenses (microsoft))\n (\"ALPHABETUM Unicode\" :licenses (commercial))\n (\"American Typewriter\" :licenses (apple))\n (\"American Uncial\" :licenses (microsoft))\n (\"Amiri\" :licenses (free) :arabic naskh)\n (\"Analecta\" :licenses (free))\n (\"Anatolian\" :licenses (free))\n (\"Andagii\" :licenses (free))\n (\"Andale Mono\" :spacing mono :licenses (apple microsoft))\n (\"Andalus\" :licenses (microsoft))\n (\"Andy\" :licenses (microsoft))\n (\"Angsana New\" :licenses (microsoft))\n (\"AngsanaUPC\" :licenses (microsoft))\n (\"AnmolUni\" :licenses (free))\n (\"Annapurna SIL\" :licenses (free))\n (\"Antinoou\" :licenses (free))\n (\"Aparajita\" :licenses (microsoft))\n (\"Apple Braille\" :licenses (apple))\n (\"Apple Casual\" :licenses (apple))\n (\"Apple Chancery\" :licenses (apple))\n (\"Apple Color Emoji\" :licenses (apple) :color multi)\n (\"AppleGothic\" :licenses (apple))\n (\"Apple LiGothic\" :licenses (apple) :chinese traditional)\n (\"Apple LiSung\" :licenses (apple) :chinese traditional)\n (\"AppleMyungjo\" :licenses (apple) :glyph-quality low)\n (\"Apple SD Gothic Neo\" :licenses (apple))\n (\"Apple Symbols\" :licenses (apple))\n (\"Arabic Transparent\" :licenses (microsoft) :arabic naskh)\n (\"Arabic Typesetting\" :licenses (microsoft) :arabic naskh)\n (\"Aramaic Imperial Yeb\" :licenses (free))\n (\"Arial Black\" :licenses (apple microsoft))\n (\"Arial Hebrew\" :licenses (apple))\n (\"Arial Narrow Special\" :licenses (microsoft))\n (\"Arial Narrow\" :licenses (apple microsoft))\n (\"Arial Rounded MT Bold\" :licenses (apple microsoft))\n (\"Arial Special\" :licenses (microsoft))\n (\"Arial Unicode MS\" :licenses (apple microsoft) :arabic naskh)\n (\"Arial\" :licenses (apple microsoft))\n (\"Asana Math\" :licenses (free))\n (\"Augsburger Initials\" :licenses (microsoft))\n (\"Avenir Next Condensed\" :licenses (apple))\n (\"Avenir Next\" :licenses (apple))\n (\"Avenir\" :licenses (apple))\n (\"Ayuthaya\" :licenses (apple))\n (\"BabelStone Han\" :chinese simplified :licenses (free))\n (\"BabelStone Modern\" :licenses (free))\n (\"BabelStone Phags-pa Book\" :licenses (free))\n (\"Baghdad\" :licenses (apple) :arabic naskh)\n (\"Bangla MN\" :licenses (apple))\n (\"Bangla Sangam MN\" :licenses (apple))\n (\"Baoli SC\" :licenses (apple) :chinese simplified)\n (\"Baskerville Old Face\" :licenses (microsoft))\n (\"Baskerville\" :licenses (apple))\n (\"Batak-Unicode\" :licenses (free))\n (\"Batang\" :licenses (microsoft))\n (\"Bauhaus 93\" :licenses (microsoft))\n (\"Beesknees ITC\" :licenses (microsoft))\n (\"Bell MT\" :licenses (microsoft))\n (\"Berlin Sans FB\" :licenses (microsoft))\n (\"Bernard MT Condensed\" :licenses (microsoft))\n (\"BiauKai\" :licenses (apple) :chinese traditional)\n (\"Bickley Script\" :licenses (microsoft))\n (\"Big Caslon\" :licenses (apple))\n (\"Blackadder ITC\" :licenses (microsoft))\n (\"Bodoni MT Condensed\" :licenses (microsoft))\n (\"Bodoni MT\" :licenses (microsoft))\n (\"Bon Apetit MT\" :licenses (microsoft))\n (\"Book Antiqua\" :licenses (microsoft))\n (\"Bookman Old Style\" :licenses (microsoft))\n (\"Bookshelf Symbol 7\" :licenses (microsoft))\n (\"Bradley Hand ITC\" :licenses (microsoft))\n (\"Braggadocio\" :licenses (microsoft))\n (\"BriemScript\" :licenses (microsoft))\n (\"Britannic Bold\" :licenses (microsoft))\n (\"Broadway\" :licenses (microsoft))\n (\"Browallia New\" :licenses (microsoft))\n (\"BrowalliaUPC\" :licenses (microsoft))\n (\"Brush Script MT\" :licenses (microsoft))\n (\"Brush Script Std\" :licenses (apple))\n (\"Calibri\" :licenses (microsoft) :cleartype t)\n (\"Californian FB\" :licenses (microsoft))\n (\"Calisto MT\" :licenses (microsoft))\n (\"Cambria Math\" :licenses (microsoft) :cleartype t :buggy-before-vista t)\n (\"Cambria\" :licenses (microsoft))\n (\"Candara\" :licenses (microsoft))\n (\"Cardo\" :licenses (free))\n (\"Cariadings\" :licenses (microsoft))\n (\"Castellar\" :licenses (microsoft))\n (\"Centaur\" :licenses (microsoft))\n (\"Century Gothic\" :licenses (microsoft))\n (\"Century Schoolbook\" :licenses (microsoft))\n (\"Century\" :licenses (microsoft))\n (\"Chalkboard SE\" :licenses (apple))\n (\"Chalkboard\" :licenses (apple))\n (\"Chalkduster\" :licenses (apple))\n (\"Cham OI_Kul\" :licenses (free))\n (\"Cham OI_Kulbleng\" :licenses (free))\n (\"Cham OI_Tangin\" :licenses (free))\n (\"Charcoal CY\" :licenses (apple))\n (\"Charis SIL\" :licenses (free))\n (\"Chiangsaen Alif\" :licenses (free))\n (\"Chiller\" :licenses (microsoft))\n (\"Cochin\" :licenses (apple))\n (\"Code2000\" :licenses (unclear))\n (\"Code2001\" :licenses (free))\n (\"Code2002\" :licenses (free))\n (\"Colonna MT\" :licenses (microsoft))\n (\"Comic Sans MS\" :licenses (apple microsoft))\n (\"Conakry\" :licenses (free))\n (\"Consolas\" :spacing mono :licenses (microsoft) :cleartype t)\n (\"Constantia\" :licenses (microsoft))\n (\"Contemporary Brush\" :licenses (microsoft))\n (\"Cooper Black\" :licenses (microsoft))\n (\"Cooper Std\" :licenses (apple))\n (\"Copperplate Gothic\" :licenses (microsoft))\n (\"Copperplate\" :licenses (apple))\n (\"Corbel\" :licenses (microsoft))\n (\"Cordia New\" :licenses (microsoft))\n (\"CordiaUPC\" :licenses (microsoft))\n (\"Corsiva Hebrew\" :licenses (apple))\n (\"Courier New\" :spacing mono :licenses (apple microsoft))\n (\"Courier\" :licenses (apple))\n (\"Curlz MT\" :licenses (microsoft))\n (\"Dai Banna SIL Book\" :licenses (free))\n (\"Dai Banna SIL Light\" :licenses (free))\n (\"Daicing Xiaokai\" :licenses (free))\n (\"Damascus\" :licenses (apple))\n (\"DaunPenh\" :licenses (microsoft))\n (\"David\" :licenses (microsoft))\n (\"DecoType Naskh\" :licenses (apple) :arabic naskh)\n (\"DejaVu Sans Mono\" :spacing mono :licenses (free) :arabic naskh)\n (\"DejaVu Sans\" :licenses (free) :arabic naskh)\n (\"DejaVu Serif\" :licenses (free) :arabic naskh)\n (\"Desdemona\" :licenses (microsoft))\n (\"Devanagari MT\" :licenses (apple))\n (\"Devanagari Sangam MN\" :licenses (apple))\n (\"DFKai-SB\" :chinese traditional :licenses (microsoft))\n (\"Didot\" :licenses (apple))\n (\"Digohweli\" :licenses (free))\n (\"Digohweli Old DO\" :licenses (free))\n (\"DilleniaUPC\" :licenses (microsoft))\n (\"Directions MT\" :licenses (microsoft))\n (\"Diwani Letter\" :licenses (microsoft) :arabic diwani)\n (\"DokChampa\" :licenses (microsoft))\n (\"Dotum\" :licenses (microsoft))\n (\"Doulos SIL\" :licenses (free))\n (\"Dukor\" :licenses (free))\n (\"Ebrima\" :licenses (microsoft))\n (\"Eckmann\" :licenses (microsoft))\n (\"Edda\" :licenses (microsoft))\n (\"Edwardian Script ITC\" :licenses (microsoft))\n (\"Eeyek Unicode\" :licenses (free))\n (\"Elephant\" :licenses (microsoft))\n (\"Elham\" :licenses (free) :arabic farsi)\n (\"Engravers MT\" :licenses (microsoft))\n (\"Engravers\" :licenses (microsoft))\n (\"Enviro\" :licenses (microsoft))\n (\"Eras ITC\" :licenses (microsoft))\n (\"Estrangelo Edessa\" :licenses (microsoft free))\n (\"Estrangelo Nisibin\" :licenses (free))\n (\"Ethiopia Jiret\" :licenses (free))\n (\"Ethiopic WashRa SemiBold\" :licenses (free))\n (\"Ethiopic Yebse\" :licenses (free))\n (\"EucrosiaUPC\" :licenses (microsoft))\n (\"Euphemia UCAS\" :licenses (apple))\n (\"Euphemia\" :licenses (microsoft))\n (\"Eurostile\" :licenses (microsoft))\n (\"Everson Mono\" :spacing mono :licenses (commercial))\n (\"Ezra SIL\" :licenses (free))\n (\"Ezra SIL SR\" :licenses (free))\n (\"FangSong\" :spacing mono :chinese simplified :licenses (microsoft))\n (\"Farsi Simple Bold\" :licenses (microsoft) :arabic farsi)\n (\"Felix Titling\" :licenses (microsoft))\n (\"Fine Hand\" :licenses (microsoft))\n (\"Fixed Miriam Transparent\" :licenses (microsoft))\n (\"Flexure\" :licenses (microsoft))\n (\"Footlight MT Light\" :licenses (microsoft))\n (\"Footlight MT\" :licenses (microsoft))\n (\"Forte\" :licenses (microsoft))\n (\"FrankRuehl\" :licenses (microsoft))\n (\"Franklin Gothic\" :licenses (microsoft))\n (\"FreeMono\" :licenses (free))\n (\"FreeSans\" :licenses (free))\n (\"FreeSerif\" :licenses (free))\n (\"FreesiaUPC\" :licenses (microsoft))\n (\"Freestyle Script\" :licenses (microsoft))\n (\"French Script MT\" :licenses (microsoft))\n (\"Futura\" :licenses (microsoft apple))\n (\"Gabriola\" :licenses (microsoft))\n (\"Gadugi\" :licenses (microsoft))\n (\"Garamond MT\" :licenses (microsoft))\n (\"Garamond\" :licenses (microsoft))\n (\"Gardiner\" :licenses (free))\n (\"Gautami\" :licenses (microsoft))\n (\"GB18030 Bitmap\" :licenses (apple) :chinese simplified :glyph-quality low)\n (\"Geeza Pro\" :licenses (apple) :arabic naskh)\n (\"Geneva CY\" :licenses (apple))\n (\"Geneva\" :licenses (apple))\n (\"Gentium Plus Compact\" :licenses (free))\n (\"Gentium Plus\" :licenses (free))\n (\"Georgia Ref\" :licenses (microsoft))\n (\"Georgia\" :licenses (apple microsoft))\n (\"Gigi\" :licenses (microsoft))\n (\"Gill Sans MT Condensed\" :licenses (microsoft))\n (\"Gill Sans MT\" :licenses (microsoft))\n (\"Gill Sans\" :licenses (apple))\n (\"Gisha\" :licenses (microsoft))\n (\"Gloucester MT Extra Condensed\" :licenses (microsoft))\n (\"Gloucester\" :licenses (microsoft))\n (\"Goudy Old Style\" :licenses (microsoft))\n (\"Goudy Stout\" :licenses (microsoft))\n (\"Gradl\" :licenses (microsoft))\n (\"Gujarati MT\" :licenses (apple))\n (\"Gujarati Sangam MN\" :licenses (apple))\n (\"Gulim\" :licenses (microsoft))\n (\"GungSeo\" :licenses (apple))\n (\"Gungsuh\" :licenses (microsoft))\n (\"Gurmukhi MN\" :licenses (apple))\n (\"Gurmukhi Sangam MN\" :licenses (apple))\n (\"Hacen Sudan\" :licenses (free))\n (\"Haettenschweiler\" :licenses (microsoft))\n (\"HAN NOM A\" :licenses (free) :chinese nom)\n (\"HAN NOM B\" :licenses (free) :chinese nom)\n (\"HanaMinA\" :licenses (free) :chinese traditional)\n (\"HanaMinB\" :licenses (free) :chinese traditional)\n (\"Harlow Solid\" :licenses (microsoft))\n (\"Harrington\" :licenses (microsoft))\n (\"HeadLineA\" :licenses (apple) decorative t)\n (\"Hei\" :licenses (apple) :chinese simplified)\n (\"Heiti SC\" :licenses (apple) :chinese simplified)\n (\"Heiti TC\" :licenses (apple) :chinese traditional)\n (\"Helvetica CY\" :licenses (apple))\n (\"Helvetica Neue\" :licenses (apple))\n (\"Helvetica\" :licenses (apple))\n (\"Herculanum\" :licenses (apple))\n (\"High Tower Text\" :licenses (microsoft))\n (\"Hiragino Kaku Gothic Pro\" :licenses (apple))\n (\"Hiragino Kaku Gothic ProN\" :licenses (apple))\n (\"Hiragino Kaku Gothic Std\" :licenses (apple))\n (\"Hiragino Kaku Gothic StdN\" :licenses (apple))\n (\"Hiragino Maru Gothic Pro\" :licenses (apple))\n (\"Hiragino Maru Gothic ProN\" :licenses (apple))\n (\"Hiragino Mincho Pro\" :licenses (apple))\n (\"Hiragino Mincho ProN\" :licenses (apple))\n (\"Hiragino Sans\" :licenses (apple))\n (\"Hiragino Sans CNS\" :licenses (apple))\n (\"Hiragino Sans GB\" :licenses (apple))\n (\"Hoefler Text\" :licenses (apple))\n (\"Holidays MT\" :licenses (microsoft))\n (\"Homa\" :licenses (free) :arabic farsi)\n (\"Impact\" :licenses (apple microsoft))\n (\"Imprint MT Shadow\" :licenses (microsoft))\n (\"InaiMathi\" :licenses (apple))\n (\"Informal Roman\" :licenses (microsoft))\n (\"IrisUPC\" :licenses (microsoft))\n (\"Iskoola Pota\" :licenses (microsoft))\n (\"Issa & Giliana Classic\" :licenses (free))\n (\"JasmineUPC\" :licenses (microsoft))\n (\"Jokerman\" :licenses (microsoft))\n (\"Jomolhari\" :licenses (free))\n (\"Juice ITC\" :licenses (microsoft))\n (\"Junicode\" :licenses (free))\n (\"Kai\" :licenses (apple) :chinese simplified)\n (\"KaiTi\" :licenses (microsoft))\n (\"Kailasa\" :licenses (apple))\n (\"Kaiti SC\" :licenses (apple) :chinese simplified)\n (\"Kaiti TC\" :licenses (apple) :chinese traditional)\n (\"Kalinga\" :licenses (microsoft))\n (\"Kannada MN\" :licenses (apple))\n (\"Kannada Sangam MN\" :licenses (apple))\n (\"Kartika\" :licenses (microsoft))\n (\"Kayases\" :licenses (free))\n (\"Kedage\" :licenses (free))\n (\"Kefa\" :licenses (apple))\n (\"Keyboard\" :licenses (apple))\n (\"Keystrokes MT\" :licenses (microsoft))\n (\"Khmer Busra\" :licenses (free))\n (\"Khmer MN\" :licenses (apple))\n (\"Khmer Mondulkiri\" :licenses (free))\n (\"Khmer Sangam MN\" :licenses (apple))\n (\"Khmer UI\" :licenses (microsoft))\n (\"KhojkiUnicodeOT\" :licenses (free))\n (\"Kino MT\" :licenses (microsoft))\n (\"Kisiska\" :licenses (free))\n (\"KodchiangUPC\" :licenses (microsoft))\n (\"Kokila\" :licenses (microsoft))\n (\"Kokonor\" :licenses (apple))\n (\"Koodak\" :licenses (free) :arabic farsi)\n (\"Kristen ITC\" :licenses (microsoft))\n (\"Krungthep\" :licenses (apple))\n (\"Kufi Extended Outline\" :licenses (microsoft) :decorative t :arabic kufic)\n (\"Kufi Outline Shaded\" :licenses (microsoft) :decorative t :arabic kufic)\n (\"KufiStandardGK\" :licenses (apple) :arabic kufic)\n (\"Kunstler Script\" :licenses (microsoft))\n (\"Lanna Alif\" :licenses (free))\n (\"Lanna Unicode UI\" :licenses (free))\n (\"Lantinghei SC\" :licenses (apple) :chinese simplified)\n (\"Lantinghei TC\" :spacing mono :licenses (apple) :chinese traditional)\n (\"Lao MN\" :licenses (apple))\n (\"Lao Sangam MN\" :licenses (apple))\n (\"Lao UI\" :licenses (microsoft))\n (\"Latha\" :licenses (microsoft))\n (\"LCD\" :licenses (microsoft))\n (\"Leelawadee\" :licenses (microsoft))\n (\"Levenim MT\" :licenses (microsoft))\n (\"LiHei Pro\" :licenses (apple) :chinese traditional)\n (\"LiSong Pro\" :licenses (apple) :chinese traditional)\n (\"Libian SC\" :licenses (apple) :chinese simplified)\n (\"LilyUPC\" :licenses (microsoft))\n (\"Lisu Tzimu\" :licenses (free))\n (\"Lisu Unicode\" :licenses (free))\n (\"Lucida Blackletter\" :licenses (microsoft))\n (\"Lucida Bright Math\" :licenses (microsoft))\n (\"Lucida Bright\" :licenses (microsoft))\n (\"Lucida Calligraphy\" :licenses (microsoft) :decorative t)\n (\"Lucida Console\" :spacing mono :licenses (microsoft))\n (\"Lucida Fax\" :licenses (microsoft))\n (\"Lucida Grande\" :licenses (apple))\n (\"Lucida Handwriting\" :licenses (microsoft) :decorative t)\n (\"Lucida Sans Typewriter\" :licenses (microsoft))\n (\"Lucida Sans Unicode\" :licenses (microsoft))\n (\"Lucida Sans\" :licenses (microsoft))\n (\"Maduram\" :licenses (free))\n (\"Magneto\" :licenses (microsoft))\n (\"Maiandra GD\" :licenses (microsoft))\n (\"Malayalam MN\" :licenses (apple))\n (\"Malayalam Sangam MN\" :licenses (apple))\n (\"Malgun Gothic\" :licenses (microsoft))\n (\"Mangal\" :licenses (microsoft))\n (\"Map Symbols\" :licenses (microsoft))\n (\"Marib\" :licenses (commercial))\n (\"Marion\" :licenses (apple))\n (\"MarathiCursiveG\" :licenses (free))\n (\"Marker Felt\" :licenses (apple) :decorative t)\n (\"Marlett\" :licenses (microsoft))\n (\"Masinahikan\" :licenses (free))\n (\"Masinahikan Dene\" :licenses (free))\n (\"Masterpiece Uni Sans\" :licenses (free))\n (\"Matisse ITC\" :licenses (microsoft))\n (\"Matura MT Script Capitals\" :licenses (microsoft))\n (\"McZee\" :licenses (microsoft))\n (\"Mead\" :licenses (microsoft))\n (\"Meetei Mayek\" :licenses (free))\n (\"Meiryo\" :licenses (microsoft))\n (\"Meiryo UI\" :licenses (microsoft))\n (\"Menlo\" :licenses (apple))\n (\"Mercurius Script MT\" :licenses (microsoft))\n (\"Miao Unicode\" :licenses (free))\n (\"Microsoft Himalaya\" :licenses (microsoft))\n (\"Microsoft JhengHei\" :chinese traditional :licenses (microsoft))\n (\"Microsoft JhengHei UI\" :chinese traditional :licenses (microsoft))\n (\"Microsoft New Tai Lue\" :licenses (microsoft))\n (\"Microsoft PhagsPa\" :licenses (microsoft))\n (\"Microsoft Sans Serif\" :licenses (apple microsoft) :arabic naskh)\n (\"Microsoft Tai Le\" :licenses (microsoft))\n (\"Microsoft Uighur\" :licenses (microsoft) :arabic uighur)\n (\"Microsoft YaHei\" :chinese simplified :licenses (microsoft) :cleartype t)\n (\"Microsoft YaHei UI\" :chinese simplified :licenses (microsoft))\n (\"Microsoft Yi Baiti\" :licenses (microsoft))\n (\"MingLiU\" :spacing mono :chinese traditional :licenses (microsoft))\n (\"Mingzat\" :licenses (free))\n (\"Minion Web\" :licenses (microsoft))\n (\"Miriam\" :licenses (microsoft))\n (\"Miriam Fixed\" :spacing mono :licenses (microsoft))\n (\"Mistral\" :licenses (microsoft))\n (\"Modern No. 20\" :licenses (microsoft))\n (\"Monaco\" :spacing mono :licenses (apple))\n (\"Mongolian Baiti\" :licenses (microsoft))\n (\"Monlam Uni Sans Serif\" :licenses (free))\n (\"Monotype Corsiva\" :licenses (microsoft))\n (\"Monotype Sorts\" :licenses (microsoft))\n (\"MoolBoran\" :licenses (microsoft))\n (\"MPH 2B Damase\" :licenses (free) :arabic naskh)\n (\"MS Gothic\" :spacing mono :licenses (microsoft))\n (\"Mro Unicode\" :licenses (free))\n (\"MS LineDraw\" :licenses (microsoft))\n (\"MS Mincho\" :spacing mono :licenses (microsoft))\n (\"MS Outlook\" :licenses (microsoft))\n (\"MS PGothic\" :licenses (microsoft))\n (\"MS PMincho\" :licenses (microsoft))\n (\"MS Reference Sans Serif\" :licenses (microsoft))\n (\"MS Reference Specialty\" :licenses (microsoft))\n (\"MS Reference\" :licenses (microsoft))\n (\"MS UI Gothic\" :licenses (microsoft))\n (\"Mshtakan\" :licenses (apple))\n (\"MuktamsiddhamG\" :licenses (free))\n (\"Mukti Narrow\" :licenses (free))\n (\"Musica\" :licenses (free))\n (\"MT Extra\" :licenses (microsoft))\n (\"MV Boli\" :licenses (microsoft))\n (\"Myanmar MN\" :licenses (apple))\n (\"Myanmar Sangam MN\" :licenses (apple))\n (\"Myanmar Text\" :licenses (microsoft))\n (\"Myanmar3\" :licenses (free))\n (\"Nadeem\" :licenses (apple) :arabic naskh)\n (\"Namdhinggo SIL\" :licenses (free))\n (\"Nanum Brush Script\" :licenses (apple))\n (\"Nanum Gothic\" :licenses (apple))\n (\"Nanum Myeongjo\" :licenses (apple))\n (\"Nanum Pen Script\" :licenses (apple))\n (\"Narkisim\" :licenses (microsoft))\n (\"Nazli\" :licenses (free) :arabic farsi)\n (\"New Athena Unicode\" :licenses (free))\n (\"New Caledonia\" :licenses (microsoft))\n (\"New Peninim MT\" :licenses (apple))\n (\"News Gothic MT\" :licenses (microsoft))\n (\"Niagara\" :licenses (microsoft))\n (\"Niagara Engraved\" :licenses (microsoft))\n (\"Niagara Solid\" :licenses (microsoft))\n (\"Nilus\" :licenses (free))\n (\"Nirmala UI\" :licenses (microsoft))\n (\"Noteworthy\" :licenses (apple))\n (\"Noto Naskh Arabic\" :licenses (free) :arabic kufic)\n (\"Noto Sans\" :licenses (free))\n (\"Noto Sans Armenian\" :licenses (free))\n (\"Noto Sans Avestan\" :licenses (free))\n (\"Noto Sans Balinese\" :licenses (free))\n (\"Noto Sans Bamum\" :licenses (free))\n (\"Noto Sans Batak\" :licenses (free))\n (\"Noto Sans Bengali\" :licenses (free))\n (\"Noto Sans Bengali UI\" :licenses (free))\n (\"Noto Sans Brahmi\" :licenses (free))\n (\"Noto Sans Buginese\" :licenses (free))\n (\"Noto Sans Buhid\" :licenses (free))\n (\"Noto Sans Canadian Aboriginal\" :licenses (free))\n (\"Noto Sans Carian\" :licenses (free))\n (\"Noto Sans Cham\" :licenses (free)) ; note, OS X bug?\n (\"Noto Sans Cherokee\" :licenses (free))\n (\"Noto Sans CJK HK\" :licenses (free) :chinese traditional)\n (\"Noto Sans CJK JP\" :licenses (free) :chinese kanji)\n (\"Noto Sans CJK KR\" :licenses (free) :chinese hanja)\n (\"Noto Sans CJK SC\" :licenses (free) :chinese simplified)\n (\"Noto Sans CJK TC\" :licenses (free) :chinese traditional)\n (\"Noto Sans Coptic\" :licenses (free))\n (\"Noto Sans Cuneiform\" :licenses (free)) ; new name\n (\"Noto Sans Cypriot\" :licenses (free))\n (\"Noto Sans Deseret\" :licenses (free))\n (\"Noto Sans Devanagari\" :licenses (free))\n (\"Noto Sans Egyptian Hieroglyphs\" :licenses (free))\n (\"Noto Sans Ethiopic\" :licenses (free))\n (\"Noto Sans Georgian\" :licenses (free))\n (\"Noto Sans Glagolitic\" :licenses (free))\n (\"Noto Sans Gothic\" :licenses (free))\n (\"Noto Sans Gujarati\" :licenses (free))\n (\"Noto Sans Gujarati UI\" :licenses (free))\n (\"Noto Sans Gurmukhi\" :licenses (free))\n (\"Noto Sans Gurmukhi UI\" :licenses (free))\n (\"Noto Sans Hanunoo\" :licenses (free))\n (\"Noto Sans Hebrew\" :licenses (free))\n (\"Noto Sans HK\" :licenses (free) :chinese traditional)\n (\"Noto Sans Imperial Aramaic\" :licenses (free))\n (\"Noto Sans Inscriptional Pahlavi\" :licenses (free))\n (\"Noto Sans Inscriptional Parthian\" :licenses (free))\n (\"Noto Sans JP\" :chinese kanji :licenses (free))\n (\"Noto Sans Javanese\" :licenses (free))\n (\"Noto Sans Kaithi\" :licenses (free))\n (\"Noto Sans Kannada\" :licenses (free))\n (\"Noto Sans Kannada UI\" :licenses (free))\n (\"Noto Sans Kayah Li\" :licenses (free))\n (\"Noto Sans Kharoshthi\" :licenses (free))\n (\"Noto Sans Khmer\" :licenses (free))\n (\"Noto Sans Khmer UI\" :licenses (free))\n (\"Noto Sans KR\" :chinese hanja :licenses (free))\n (\"Noto Sans Kufi Arabic\" :licenses (free) :arabic kufic) ; old name\n (\"Noto Kufi Arabic\" :licenses (free) :arabic kufic) ; new name\n (\"Noto Sans Lao\" :licenses (free))\n (\"Noto Sans Lao UI\" :licenses (free))\n (\"Noto Sans Lepcha\" :licenses (free))\n (\"Noto Sans Limbu\" :licenses (free))\n (\"Noto Sans Linear B\" :licenses (free))\n (\"Noto Sans Lisu\" :licenses (free))\n (\"Noto Sans Lycian\" :licenses (free))\n (\"Noto Sans Lydian\" :licenses (free))\n (\"Noto Sans Malayalam\" :licenses (free))\n (\"Noto Sans Malayalam UI\" :licenses (free))\n (\"Noto Sans Mandaic\" :licenses (free))\n (\"Noto Sans Meetei Mayek\" :licenses (free))\n (\"Noto Sans Mongolian\" :licenses (free))\n (\"Noto Sans Myanmar\" :licenses (free))\n (\"Noto Sans Myanmar UI\" :licenses (free))\n (\"Noto Sans NKo\" :licenses (free))\n (\"Noto Sans New Tai Lue\" :licenses (free))\n (\"Noto Sans Ogham\" :licenses (free))\n (\"Noto Sans Ol Chiki\" :licenses (free))\n (\"Noto Sans Old Italic\" :licenses (free)) ; note, Emacs bug?\n (\"Noto Sans Old Persian\" :licenses (free))\n (\"Noto Sans Old South Arabian\" :licenses (free))\n (\"Noto Sans Old Turkic\" :licenses (free))\n (\"Noto Sans Oriya\" :licenses (free))\n (\"Noto Sans Osmanya\" :licenses (free))\n (\"Noto Sans Phags-pa\" :licenses (free))\n (\"Noto Sans Phoenician\" :licenses (free))\n (\"Noto Sans Rejang\" :licenses (free))\n (\"Noto Sans Runic\" :licenses (free))\n (\"Noto Sans SC\" :chinese simplified :licenses (free))\n (\"Noto Sans Samaritan\" :licenses (free))\n (\"Noto Sans Saurashtra\" :licenses (free))\n (\"Noto Sans Shavian\" :licenses (free))\n (\"Noto Sans Sinhala\" :licenses (free))\n (\"Noto Sans Sumero-Akkadian Cuneiform\" :licenses (free)) ; old name\n (\"Noto Sans Sundanese\" :licenses (free))\n (\"Noto Sans Syloti Nagri\" :licenses (free))\n (\"Noto Sans Symbols\" :licenses (free))\n (\"Noto Sans Symbols2\" :licenses (free))\n (\"Noto Sans Syriac Eastern\" :licenses (free))\n (\"Noto Sans Syriac Estrangela\" :licenses (free))\n (\"Noto Sans Syriac Western\" :licenses (free))\n (\"Noto Sans TC\" :chinese traditional :licenses (free))\n (\"Noto Sans Tagalog\" :licenses (free))\n (\"Noto Sans Tagbanwa\" :licenses (free))\n (\"Noto Sans Tai Le\" :licenses (free))\n (\"Noto Sans Tai Tham\" :licenses (free))\n (\"Noto Sans Tai Viet\" :licenses (free))\n (\"Noto Sans Tamil\" :licenses (free))\n (\"Noto Sans Tamil UI\" :licenses (free))\n (\"Noto Sans Telugu\" :licenses (free))\n (\"Noto Sans Telugu UI\" :licenses (free))\n (\"Noto Sans Thaana\" :licenses (free))\n (\"Noto Sans Thai\" :licenses (free))\n (\"Noto Sans Thai UI\" :licenses (free))\n (\"Noto Sans Tibetan\" :licenses (free))\n (\"Noto Sans Tifinagh\" :licenses (free))\n (\"Noto Sans Ugaritic\" :licenses (free))\n (\"Noto Sans Vai\" :licenses (free))\n (\"Noto Sans Yi\" :licenses (free))\n (\"Noto Serif Armenian\" :licenses (free))\n (\"Noto Serif Georgian\" :licenses (free))\n (\"Noto Serif Khmer\" :licenses (free))\n (\"Noto Serif Lao\" :licenses (free))\n (\"Noto Serif Thai\" :licenses (free))\n (\"Noto Serif\" :licenses (free))\n (\"Nuosu SIL\" :licenses (free))\n (\"NSimSun\" :licenses (microsoft))\n (\"Nyala\" :licenses (microsoft))\n (\"OCR A Extended\" :licenses (microsoft))\n (\"OCR-B-Digits\" :licenses (microsoft))\n (\"OCRB\" :licenses (microsoft))\n (\"Old Antic Bold\" :licenses (microsoft) :decorative t :arabic naskh)\n (\"Old English Text MT\" :licenses (microsoft))\n (\"OldHungarian\" :licenses (free))\n (\"OldSindhi\" :licenses (free))\n (\"Onyx\" :licenses (microsoft))\n (\"Optima\" :licenses (apple))\n (\"Oriya MN\" :licenses (apple))\n (\"Oriya Sangam MN\" :licenses (apple))\n (\"Osaka\" :spacing mono :licenses (apple))\n (\"OskiBlackfoot\" :licenses (free))\n (\"OskiDakelh\" :licenses (free))\n (\"OskiDeneA\" :licenses (free))\n (\"OskiDeneB\" :licenses (free))\n (\"OskiDeneC\" :licenses (free))\n (\"OskiDeneS\" :licenses (free))\n (\"OskiEast\" :licenses (free))\n (\"OskiWest\" :licenses (free))\n (\"Padauk\" :licenses (free))\n (\"Palace Script MT\" :licenses (microsoft))\n (\"Palatino Linotype\" :licenses (microsoft))\n (\"Palatino\" :licenses (apple))\n (\"Papyrus\" :licenses (apple microsoft))\n (\"Parade\" :licenses (microsoft))\n (\"Parchment\" :licenses (microsoft))\n (\"Parties MT\" :licenses (microsoft))\n (\"PCMyungjo\" :spacing mono :licenses (apple))\n (\"Peignot Medium\" :licenses (microsoft))\n (\"Pepita MT\" :licenses (microsoft))\n (\"Penuturesu\" :licenses (free))\n (\"Perpetua Titling MT\" :licenses (microsoft))\n (\"Perpetua\" :licenses (microsoft))\n (\"PilGi\" :licenses (apple) :glyph-quality low)\n (\"PingFang HK\" :licenses (apple) :chinese traditional)\n (\"PingFang SC\" :licenses (apple) :chinese simplified)\n (\"PingFang TC\" :licenses (apple) :chinese traditional)\n (\"Pitabek\" :licenses (free))\n (\"Placard Condensed\" :licenses (microsoft))\n (\"Plantagenet Cherokee\" :licenses (apple microsoft))\n (\"Playbill\" :licenses (microsoft))\n (\"PMingLiU\" :licenses (microsoft))\n (\"Poor Richard\" :licenses (microsoft))\n (\"Pristina\" :licenses (microsoft))\n (\"PT Sans\" :licenses (apple))\n (\"Qataban\" :licenses (free))\n (\"Quivira\" :licenses (free))\n (\"Raanana\" :licenses (apple))\n (\"Raavi\" :licenses (microsoft))\n (\"Rage\" :licenses (microsoft))\n (\"Ransom\" :licenses (microsoft))\n (\"Ravie\" :licenses (microsoft))\n (\"RefSpecialty\" :licenses (microsoft))\n (\"Ribeng\" :licenses (free))\n (\"Rockwell\" :licenses (microsoft))\n (\"Rockwell Condensed\" :licenses (microsoft))\n (\"Rod\" :licenses (microsoft))\n (\"Rotinonhsonni Sans\" :licenses (free))\n (\"Rotinonhsonni Serif\" :licenses (free))\n (\"Roya\" :licenses (free) :arabic farsi)\n (\"Runic MT Condensed\" :licenses (microsoft))\n (\"Sakkal Majalla\" :licenses (microsoft))\n (\"Sadagolthina\" :licenses (commercial))\n (\"Samyak\" :licenses (free))\n (\"Samyak Devanagari\" :licenses (free))\n (\"Samyak Gujarati\" :licenses (free))\n (\"Samyak Malayalam\" :licenses (free))\n (\"Samyak Oriya\" :licenses (free))\n (\"Samyak Tamil\" :licenses (free))\n (\"Sathu\" :licenses (apple))\n (\"Saysettha MX\" :licenses (free))\n (\"Scheherazade\" :licenses (free))\n (\"Script MT\" :licenses (microsoft))\n (\"Segoe Chess\" :licenses (microsoft))\n (\"Segoe Print\" :licenses (microsoft))\n (\"Segoe Script\" :licenses (microsoft))\n (\"Segoe UI\" :licenses (microsoft) :cleartype t)\n (\"Segoe UI Historic\" :licenses (microsoft) :cleartype t)\n (\"Segoe UI Symbol\" :licenses (microsoft) :cleartype t)\n (\"Shonar Bangla\" :licenses (microsoft))\n (\"Showcard Gothic\" :licenses (microsoft))\n (\"Shruti\" :licenses (microsoft))\n (\"Siddhanta\" :licenses (free))\n (\"Signs MT\" :licenses (microsoft))\n (\"Silom\" :licenses (apple))\n (\"SimHei\" :spacing mono :chinese simplified :licenses (microsoft))\n (\"SimSun\" :spacing mono :chinese simplified :licenses (microsoft apple))\n (\"Simplified Arabic\" :spacing mono :licenses (microsoft) :arabic naskh)\n (\"Simplified Arabic Fixed\" :spacing mono :licenses (microsoft) :arabic naskh)\n (\"Sinhala MN\" :licenses (apple))\n (\"Sinhala Sangam MN\" :licenses (apple))\n (\"Skia\" :licenses (apple))\n (\"Snap ITC\" :licenses (microsoft))\n (\"Songti SC\" :licenses (apple) :chinese simplified)\n (\"Songti TC\" :licenses (apple) :chinese traditional)\n (\"Sourashtra\" :licenses (free))\n (\"Sports MT\" :licenses (microsoft))\n (\"STFangsong\" :licenses (apple) :chinese simplified)\n (\"STHeiti\" :licenses (apple) :chinese simplified)\n (\"STKaiti\" :licenses (apple) :chinese simplified)\n (\"STSong\" :licenses (apple) :chinese simplified)\n (\"Stencil\" :licenses (microsoft))\n (\"STIXGeneral\" :licenses (apple free))\n (\"STIXIntegralsD\" :licenses (apple free))\n (\"STIXIntegralsSm\" :licenses (apple free))\n (\"STIXIntegralsUpD\" :licenses (apple free))\n (\"STIXIntegralsUpSm\" :licenses (apple free))\n (\"STIXIntegralsUp\" :licenses (apple free))\n (\"STIXNonUnicode\" :licenses (apple free))\n (\"STIXSizeFiveSym\" :licenses (apple free))\n (\"STIXSizeFourSym\" :licenses (apple free))\n (\"STIXSizeOneSym\" :licenses (apple free))\n (\"STIXSizeThreeSym\" :licenses (apple free))\n (\"STIXSizeTwoSym\" :licenses (apple free))\n (\"STIXVariants\" :licenses (apple free))\n (\"Stop\" :licenses (microsoft))\n (\"Sundanese Unicode\" :licenses (free))\n (\"Sylfaen\" :licenses (microsoft))\n (\"Symbol\" :licenses (apple microsoft))\n (\"Symbola\" :licenses (free))\n (\"Tahoma\" :licenses (apple microsoft) :arabic naskh)\n (\"Tai Heritage Pro\" :licenses (free))\n (\"Tamil MN\" :licenses (apple))\n (\"Tamil Sangam MN\" :licenses (apple))\n (\"Telugu MN\" :licenses (apple))\n (\"Telugu Sangam MN\" :licenses (apple))\n (\"Tempo Grunge\" :licenses (microsoft))\n (\"Tempus Sans ITC\" :licenses (microsoft))\n (\"Terafik\" :licenses (free) :arabic farsi)\n (\"TharLon\" :licenses (free))\n (\"Thonburi\" :licenses (apple))\n (\"Tibetan Machine Uni\" :licenses (free))\n (\"Times\" :licenses (apple))\n (\"Times New Roman\" :licenses (apple microsoft))\n (\"Times New Roman Special\" :licenses (microsoft))\n (\"Tinos\" :licenses (free))\n (\"Titr\" :licenses (free) :arabic farsi)\n (\"Traditional Arabic\" :licenses (microsoft) :arabic naskh)\n (\"Transport MT\" :licenses (microsoft))\n (\"Trebuchet MS\" :licenses (apple microsoft))\n (\"Tuladha Jejeg\" :licenses (free))\n (\"Tunga\" :licenses (microsoft))\n (\"Tw Cen MT\" :licenses (microsoft))\n (\"Tw Cen MT Condensed\" :licenses (microsoft))\n (\"UnBatang\" :chinese hanja :licenses (free))\n (\"unifont\" :licenses (free) :glyph-quality low)\n (\"Utsaah\" :licenses (microsoft))\n (\"Urdu Typesetting\" :licenses (microsoft) :arabic urdu)\n (\"Vacation MT\" :licenses (microsoft))\n (\"Vani\" :licenses (microsoft))\n (\"Verdana Ref\" :licenses (microsoft))\n (\"Verdana\" :licenses (apple microsoft))\n (\"Vijaya\" :licenses (microsoft))\n (\"Viner Hand ITC\" :licenses (microsoft))\n (\"Vivaldi\" :licenses (microsoft))\n (\"Tai Le Valentinium\" :licenses (free))\n (\"Vixar ASCI\" :licenses (microsoft))\n (\"Vladimir Script\" :licenses (microsoft))\n (\"Vrinda\" :licenses (microsoft))\n (\"Wakor\" :licenses (free))\n (\"Wawati SC\" :chinese simplified :licenses (apple))\n (\"Wawati TC\" :chinese traditional :licenses (apple))\n (\"Webdings\" :licenses (apple microsoft))\n (\"Weibei SC\" :chinese simplified :licenses (apple))\n (\"Weibei TC\" :chinese traditional :licenses (apple))\n (\"WenQuanYi Zen Hei\" :licenses (free) :chinese simplified)\n (\"WenQuanYi Zen Hei Mono\" :spacing mono :licenses (free) :chinese simplified)\n (\"Westminster\" :licenses (microsoft))\n (\"Wide Latin\" :licenses (microsoft))\n (\"Wingdings\" :licenses (apple microsoft))\n (\"Wingdings 2\" :licenses (apple microsoft))\n (\"Wingdings 3\" :licenses (apple microsoft))\n (\"Xingkai SC\" :chinese simplified :licenses (apple) :decorative t)\n (\"Yuanti SC\" :chinese simplified :licenses (apple))\n (\"Yunghkio\" :licenses (free))\n (\"Yuppy SC\" :chinese simplified :licenses (apple))\n (\"Yuppy TC\" :chinese traditional :licenses (apple))\n (\"Zapf Dingbats\" :licenses (apple))\n (\"Zapfino\" :licenses (apple))\n (\"ZH Mono\" :licenses (free))\n ))\n\n;;; customizable variables\n\n;;;###autoload\n(defgroup unicode-fonts nil\n \"Configure Unicode fonts.\"\n :version \"0.4.10\"\n :link '(emacs-commentary-link :tag \"Commentary\" \"unicode-fonts\")\n :link '(url-link :tag \"GitHub\" \"http://github.com/rolandwalker/unicode-fonts\")\n :link '(url-link :tag \"EmacsWiki\" \"http://emacswiki.org/emacs/UnicodeFonts\")\n :prefix \"unicode-fonts-\"\n :group 'i18n\n :group 'faces)\n\n;;;###autoload\n(defgroup unicode-fonts-tweaks nil\n \"Tweaks for `unicode-fonts', especially regarding font availability.\"\n :group 'unicode-fonts)\n\n(defcustom unicode-fonts-use-prepend (not (or (eq window-system 'ns)\n (eq window-system 'mac)))\n \"Whether the 'prepend argument to `set-fontset-font' works.\n\nWhether this argument works is dependent on your operating system\nand the font backend used by your Emacs build.\n\nThis defaults to nil when using the Cocoa or native Mac font\nbackends on OS X, t otherwise.\"\n :type 'boolean\n :group 'unicode-fonts-tweaks)\n\n(defcustom unicode-fonts-existence-checks 'all\n \"How unicode-fonts will dynamically check fonts at startup.\n\nThis option dramatically affects startup time, but is not\nrecommended to change from the default.\n\n\\\"Check All Fonts at Startup\\\" is the slowest, but provides\nfull sanity-checking and the maximum number of gplyhs made\ndisplayable.\n\n\\\"Only First Existing Font\\\" is five to ten times faster than\nchecking all fonts. The drawback is that fewer fallbacks will\nbe provided, meaning that fewer glyphs may be displayable.\n\n\\\"Load All Fonts Without Checking\\\" is fast and provides the\nmaximum number of fallbacks, but Emacs could behave unpredictably\nwhen it is instructed to display using a nonexistent font.\"\n :type '(choice\n (const :tag \"Check All Fonts at Startup\" all)\n (const :tag \"Only First Existing Font for Each Block\" first)\n (const :tag \"Load All Fonts Without Checking\" none))\n :group 'unicode-fonts-tweaks)\n\n(defcustom unicode-fonts-restrict-to-fonts nil\n \"Limit fonts (and font-existence checks) to only those listed here.\n\nThis is a way to speed startup by informing Emacs ahead of\ntime that only certain fonts are present.\n\nEach font name is a string, typically in Fontconfig font-name\nformat.\n\nLeave the list empty for no restriction.\"\n :type '(repeat string)\n :group 'unicode-fonts-tweaks)\n\n(defcustom unicode-fonts-skip-fonts nil\n \"Skip over the fonts listed here. Do not apply them as defaults.\n\nThis can be used to speed startup time, and also to enforce\nchoices of style.\n\nNote, however, that this package merely provides clues to Emacs\nabout which fonts are good. Even if this package skips over a\nfont, Emacs may still choose that font if you don't provide\na better clue.\n\nEach font name is a string, typically in Fontconfig font-name\nformat.\n\nLeave the list empty for no per-font exclusions.\"\n :type '(repeat string)\n :group 'unicode-fonts-tweaks)\n\n(defcustom unicode-fonts-skip-font-groups (cond\n ((eq window-system 'w32)\n '(buggy-before-vista decorative low-quality-glyphs multicolor))\n ((or (eq window-system 'mac)\n (and (> emacs-major-version 26)\n (eq window-system 'ns)))\n '(decorative low-quality-glyphs))\n (t\n '(decorative low-quality-glyphs multicolor)))\n \"Skip over groups of fonts listed here.\n\nThis can be used to speed startup time, and also to enforce\nchoices of style.\n\nNote well: each set is defined from a list of properties kept\nwithin this library. This listing is perforce incomplete,\ntherefore this setting cannot be expected to work very well\nwith regard to enforcing style.\n\nIt may help you get started.\n\nLeave the list empty for no per-group exclusions.\"\n :type '(set (const :tag \"Simplified Chinese Script\" chinese-simplified)\n (const :tag \"Traditional Chinese Script\" chinese-traditional)\n (const :tag \"Hanja Chinese Script\" chinese-hanja)\n (const :tag \"Kanji Chinese Script\" chinese-kanji)\n (const :tag \"Nôm Chinese Script\" chinese-nom)\n (const :tag \"Naskh Arabic Script\" arabic-naskh)\n (const :tag \"Diwani Arabic Script\" arabic-diwani)\n (const :tag \"Farsi Arabic Script (Nastaleeq)\" arabic-farsi)\n (const :tag \"Urdu Arabic Script (Nastaleeq)\" arabic-urdu)\n (const :tag \"Kufic Arabic Script\" arabic-kufic)\n (const :tag \"Available only from Microsoft\" microsoft-only)\n (const :tag \"Available from Microsoft and others\" microsoft)\n (const :tag \"Non-ClearType\" non-cleartype)\n (const :tag \"Available only from Apple\" apple-only)\n (const :tag \"Available from Apple and others\" apple)\n (const :tag \"Multicolor Glyphs\" multicolor)\n (const :tag \"Free\" free)\n (const :tag \"Non-free\" non-free)\n (const :tag \"Decorative\" decorative)\n (const :tag \"Low Quality Glyphs\" low-quality-glyphs)\n (const :tag \"Buggy Display Before Vista\" buggy-before-vista))\n :group 'unicode-fonts-tweaks)\n\n;;;###autoload\n(defgroup unicode-fonts-debug nil\n \"Settings for debugging `unicode-fonts'.\"\n :group 'unicode-fonts)\n\n(defcustom unicode-fonts-debug-availability nil\n \"Debug font availability to the messages buffer.\"\n :type 'boolean\n :group 'unicode-fonts-debug)\n\n;;; toplevel customize group\n\n(defcustom unicode-fonts-use-persistent-storage \"unicode-fonts\"\n \"Use persistent disk storage when available.\n\nThis greatly reduces startup time.\n\nInternally, this value is a string which is used for the filename\nof the persistent data store.\"\n :type '(choice\n (const :tag \"Yes\" \"unicode-fonts\")\n (const :tag \"No\" nil))\n :group 'unicode-fonts)\n\n(defcustom unicode-fonts-less-feedback nil\n \"Give less echo area feedback.\n\nLeaving this off allows you to see the impact of this\nlibrary on startup time.\"\n :type 'boolean\n :group 'unicode-fonts)\n\n(defcustom unicode-fonts-fallback-font-list '(\"Symbola\" \"Quivira\")\n \"Candidates for a general fallback font.\n\nThe fonts from this list will be used, in order, for characters\nwhich have no explicit mapping.\n\nEach font name is a string, typically in Fontconfig font-name\nformat.\n\nSet to nil to disable.\"\n :type '(repeat string)\n :group 'unicode-fonts)\n\n(defcustom unicode-fonts-fontset-names '(\"fontset-default\" \"fontset-startup\" \"fontset-standard\")\n \"Fontsets in which to install mappings via `set-fontset-font'.\"\n :type '(repeat string)\n :group 'unicode-fonts)\n\n(defcustom unicode-fonts-block-font-mapping\n '((\"Aegean Numbers\" (\n \"Noto Sans Symbols\" ; 57/57\n \"Aegean\" ; 57/57\n \"Symbola\" ; 57/57 @8.00 @8\n \"Quivira\" ; 57/57 @4.1 @3.80000305175781\n \"Code2001\" ; 57/57\n \"Everson Mono:weight=bold\" ; 57/57\n \"ALPHABETUM Unicode\" ; 57/57\n ))\n (\"Ahom\" (\n \"AhomUnicode\" ; 57/57\n ))\n (\"Alchemical Symbols\" (\n \"Noto Sans Symbols\" ; 116/116\n \"Symbola\" ; 116/116 @8.00 @8\n \"Quivira\" ; 116/116 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 116/116\n ))\n (\"Alphabetic Presentation Forms\" (\n \"DejaVu Sans:width=condensed\" ; 58/58\n \"Arial Unicode MS\" ; 57/58\n \"Cardo\" ; 58/58\n \"Code2000\"\n \"Quivira\" ; 58/58 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 58/58\n \"FreeMono\" ; 52/58\n \"ALPHABETUM Unicode\" ; 53/58\n ))\n (\"Anatolian Hieroglyphs\" (\n \"Anatolian\" ; 583/583\n ))\n (\"Ancient Greek Musical Notation\" (\n \"Cardo\" ; 70/70\n \"Noto Sans Symbols\" ; 70/70\n \"Aegean\" ; 70/70\n \"New Athena Unicode\" ; 70/70\n \"Musica\" ; 70/70\n \"Symbola\" ; 70/70 @8.00 @8\n \"Quivira\" ; 70/70 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 70/70\n \"ALPHABETUM Unicode\" ; 70/70\n ))\n (\"Ancient Greek Numbers\" (\n \"Noto Sans Symbols\" ; 75/77\n \"Apple Symbols\" ; 66/77\n \"New Athena Unicode\" ; 75/77\n \"Cardo\" ; 75/77\n \"Aegean\" ; 75/77\n \"Quivira\" ; 77/77 @4.1 @3.80000305175781\n \"Symbola\" ; 77/77 @8.00 @8\n \"Everson Mono:weight=bold\" ; 75/77\n \"ALPHABETUM Unicode\" ; 75/77\n ))\n (\"Ancient Symbols\" (\n \"Noto Sans Symbols\" ; 12/13\n \"Analecta\" ; 12/13\n \"New Athena Unicode\" ; 12/13\n \"Cardo\" ; 12/13\n \"Aegean\" ; 13/13\n \"Quivira\" ; 13/13 @4.1 @3.80000305175781\n \"Symbola\" ; 13/13 @8.00 @8\n \"Everson Mono:weight=bold\" ; 12/13\n \"ALPHABETUM Unicode\" ; 12/13\n ))\n (\"Arabic\" (\n \"Courier New\"\n \"Simplified Arabic Fixed\"\n \"Simplified Arabic\"\n \"Amiri\" ; 252/255\n \"Aldhabi\"\n \"Adobe Arabic\" ; 209/255\n \"Urdu Typesetting\"\n \"Geeza Pro\"\n \"Baghdad\" ; 81/255\n \"Damascus\"\n \"Al Bayan\" ; 79/255\n \"Andalus\"\n \"Arabic Typesetting\"\n \"Traditional Arabic\"\n \"Scheherazade\" ; 255/255\n \"DejaVu Sans Mono\" ; 99/255 @2.35 @2.34999084472656\n \"DejaVu Sans:width=condensed\"\n \"Arial Unicode MS\"\n \"Nadeem\"\n \"Microsoft Uighur\"\n \"Tahoma\"\n \"Microsoft Sans Serif\"\n \"MPH 2B Damase\"\n \"KufiStandardGK\"\n \"DecoType Naskh\"\n \"Koodak\"\n \"FreeMono\" ; 212/255\n \"Code2000\"\n ))\n (\"Arabic Extended-A\" (\n \"Scheherazade\" ; 47/50\n \"Amiri\" ; 4/50\n ))\n (\"Arabic Mathematical Alphabetic Symbols\" (\n \"Amiri\" ; 141/143\n ))\n (\"Arabic Presentation Forms-A\" (\n \"Geeza Pro\" ; 595/611\n \"Amiri\" ; 610/611\n \"Arial Unicode MS\" ; 593/611\n \"Microsoft Sans Serif\"\n \"Tahoma\"\n \"KufiStandardGK\"\n \"Andalus\"\n \"Arabic Typesetting\"\n \"Urdu Typesetting\"\n \"Adobe Arabic\" ; 171/611\n \"DecoType Naskh\" ; 57/611\n \"Al Bayan\" ; 62/611\n \"DejaVu Sans Mono\" ; 72/611 @2.35 @2.34999084472656\n \"DejaVu Sans:width=condensed\" ; 98/611\n \"MPH 2B Damase\" ; 24/611\n \"Code2000\" ; 155/611\n ))\n (\"Arabic Presentation Forms-B\" (\n \"DejaVu Sans Mono\" ; 141/141 @2.35 @2.34999084472656\n \"Geeza Pro\" ; 140/141\n \"Amiri\" ; 139/141\n \"Adobe Arabic\" ; 125/141\n \"Traditional Arabic\"\n \"Urdu Typesetting\"\n \"Arial Unicode MS\"\n \"Microsoft Sans Serif\"\n \"KufiStandardGK\"\n \"DejaVu Sans:width=condensed\" ; 140/141\n \"FreeMono\" ; 141/141\n \"DecoType Naskh\" ; 89/141\n \"Code2000\"\n ))\n (\"Arabic Supplement\" (\n \"Courier New\"\n \"Simplified Arabic Fixed\"\n \"Amiri\" ; 48/48\n \"Simplified Arabic\"\n \"Geeza Pro\"\n \"Damascus\"\n \"Andalus\"\n \"Arabic Typesetting\"\n \"Traditional Arabic\"\n \"Scheherazade\" ; 48/48\n \"Adobe Arabic\" ; 30/48\n \"Microsoft Uighur\"\n \"Tahoma\"\n \"Microsoft Sans Serif\"\n \"MPH 2B Damase\"\n ))\n (\"Armenian\" (\n \"DejaVu Sans Mono\" ; 86/89 @2.35 @2.34999084472656\n \"Noto Sans Armenian\" ; 87/89\n \"Mshtakan\"\n \"Sylfaen\"\n \"DejaVu Sans:width=condensed\"\n \"Quivira\" ; 89/89 @4.1 @3.80000305175781\n \"MPH 2B Damase\"\n \"Code2000\"\n \"Arial Unicode MS\"\n \"Everson Mono:weight=bold\" ; 89/89\n \"FreeMono\" ; 87/89\n ))\n (\"Arrows\" (\n \"DejaVu Sans Mono\" ; 112/112 @2.35 @2.34999084472656\n \"Apple Symbols\" ; 112/112\n \"Cambria Math\" ; 112/112\n \"Segoe UI Symbol\" ; 112/112\n \"DejaVu Sans:width=condensed\"\n \"Asana Math\" ; 112/112\n \"Arial Unicode MS\"\n \"BabelStone Modern\" ; 102/112\n \"Symbola\" ; 112/112 @8.00 @8\n \"Quivira\" ; 112/112 @4.1 @3.80000305175781\n \"Code2000\"\n \"Noto Sans Symbols\" ; 112/112\n \"Everson Mono:weight=bold\" ; 112/112\n \"FreeMono\" ; 77/112\n ))\n (\"Avestan\" (\n \"Noto Sans Avestan\" ; 61/61\n \"Ahuramzda:weight=bold\" ; 61/61\n \"ALPHABETUM Unicode\" ; 61/61\n ))\n (\"Balinese\" (\n \"Noto Sans Balinese:weight=bold\" ; 121/121\n \"Aksara Bali\" ; 121/121\n ))\n (\"Bamum\" (\n \"Noto Sans Bamum\" ; 88/88\n ))\n (\"Bamum Supplement\" (\n \"Noto Sans Bamum\" ; 569/569\n ))\n ;; (\"Basic Latin\" (\"\")) ; covered by the default font\n ;; (\"Bassa Vah\" (\"\")) ; todo added in Unicode 7.0\n (\"Batak\" (\n \"Batak-Unicode\" ; 56/56\n \"Noto Sans Batak\" ; 56/56\n ))\n (\"Bengali\" (\n \"Bangla Sangam MN\"\n \"Noto Sans Bengali\" ; 92/93\n \"Noto Sans Bengali UI\" ; 92/93\n \"Nirmala UI\"\n \"Vrinda\"\n \"Mukti Narrow\"\n \"Akaash\"\n \"Arial Unicode MS\"\n \"Code2000\"\n \"ALPHABETUM Unicode\" ; 87/93\n ))\n (\"Block Elements\" (\n \"DejaVu Sans Mono\" ; 32/32 @2.35 @2.34999084472656\n \"Noto Sans Symbols\" ; 32/32\n \"FreeMono\" ; 32/32\n \"DejaVu Sans:width=condensed\"\n \"Apple Symbols\" ; 32/32\n \"Segoe UI Symbol\" ; 32/32\n \"BabelStone Modern\" ; 32/32\n \"Symbola\" ; 32/32 @8.00 @8\n \"Quivira\" ; 32/32 @4.1 @3.80000305175781\n \"Code2000\"\n \"Everson Mono:weight=bold\" ; 32/32\n ))\n (\"Bopomofo\" ( ; prefer traditional\n \"Lantinghei TC\"\n \"MingLiU\"\n \"SimHei\"\n \"LiSong Pro\" ; 37/41\n \"FangSong\"\n \"SimSun\"\n \"DFKai-SB\"\n \"WenQuanYi Zen Hei Mono\" ; 41/41\n \"Microsoft JhengHei\"\n \"Microsoft JhengHei UI\"\n \"Microsoft YaHei\"\n \"Microsoft YaHei UI\"\n \"Lantinghei SC\"\n \"HAN NOM A\" ; 37/41\n \"Arial Unicode MS\"\n \"BabelStone Han\" ; 41/41\n \"Code2000\"\n \"ALPHABETUM Unicode\" ; 41/41\n ))\n (\"Bopomofo Extended\" (\n \"MingLiU\"\n \"SimHei\"\n \"FangSong\"\n \"SimSun\"\n \"DFKai-SB\"\n \"Microsoft JhengHei\"\n \"Microsoft JhengHei UI\"\n \"Microsoft YaHei\" ; 24/27\n \"Microsoft YaHei UI\" ; 24/27\n \"BabelStone Han\" ; 27/27\n \"Code2000\"\n ))\n (\"Box Drawing\" (\n \"DejaVu Sans Mono\" ; 128/128 @2.35 @2.34999084472656\n \"FreeMono\" ; 128/128\n \"DejaVu Sans\"\n \"Everson Mono\" ; 128/128\n \"Quivira\" ; 128/128 @4.1 @3.80000305175781\n \"Code2000\"\n \"Noto Sans Symbols\" ; 128/128\n \"Segoe UI Symbol\" ; 128/128\n \"Symbola\" ; 128/128 @8.00 @8\n ))\n (\"Brahmi\" (\n \"Segoe UI Historic\" ; 109/109 @1.00 @1\n \"Noto Sans Brahmi\" ; 108/109\n \"Adinatha Tamil Brahmi\" ; 45/109\n \"ALPHABETUM Unicode\" ; 85/109\n ))\n (\"Braille Patterns\" (\n \"Quivira\" ; 256/256 @4.1 @3.80000305175781\n \"Apple Braille\" ; 256/256\n \"DejaVu Sans:width=condensed\"\n \"Apple Symbols\" ; 256/256\n \"Segoe UI Symbol\" ; 256/256\n \"Symbola\" ; 256/256 @8.00 @8\n \"Noto Sans Symbols\" ; 256/256\n \"FreeMono\" ; 256/256\n \"Code2000\"\n \"Everson Mono:weight=bold\" ; 256/256\n ))\n (\"Buginese\" (\n \"Noto Sans Buginese\" ; 30/30\n \"MPH 2B Damase\" ; 30/30\n \"Monlam Uni Sans Serif\" ; 30/30 @3.0 2008 @1.42298889160156\n \"Code2000\" ; 30/30\n ))\n (\"Buhid\" (\n \"Noto Sans Buhid\" ; 20/20\n \"Quivira\" ; 20/20 @4.1 @3.80000305175781\n \"Code2000\" ; 20/20\n ))\n (\"Byzantine Musical Symbols\" (\n \"Noto Sans Symbols\" ; 246/246\n \"Musica\"\n \"Symbola\" ; 246/246 @8.00 @8\n \"FreeSerif\" ; 246/246\n ))\n (\"Carian\" (\n \"Segoe UI Historic\" ; 49/49 @1.00 @1\n \"Noto Sans Carian\" ; 49/49\n \"Aegean\" ; 49/49\n \"Quivira\" ; 49/49 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 49/49\n \"ALPHABETUM Unicode\" ; 49/49\n ))\n ;; (\"Caucasian Albanian\" (\"\")) ; todo added in Unicode 7.0\n (\"Chakma\" (\n \"Ribeng\" ; 67/67\n ))\n (\"Cham\" (\n \"Noto Sans Cham\" ; 83/83 @1.00_December_21_2012_initial_release @1 - bug: does not appear under this name on OS X\n \"Cham OI_Tangin\" ; 83/83 @1.00_September_23_2013 @1\n \"Cham OI_Kulbleng\" ; 83/83 @1.00_September_23_2013 @1\n \"Cham OI_Kul\" ; 83/83 @1.00_September_25_2013 @1\n \"Code2000\" ; 83/83\n ))\n (\"Cherokee\" (\n \"Aboriginal Sans\" ; 85/92\n \"Aboriginal Serif\" ; 85/92\n \"Plantagenet Cherokee\"\n \"Noto Sans Cherokee\" ; 85/92\n \"Gadugi\"\n \"MPH 2B Damase\"\n \"Quivira\" ; 85/92 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 85/92\n \"FreeMono\" ; 85/92\n \"Code2000\"\n ))\n (\"Cherokee Supplement\" ( ; todo free alternative\n \"Everson Mono:weight=bold\" ; 80/80\n ))\n (\"CJK Compatibility\" (\n \"SimHei\"\n \"FangSong\"\n \"SimSun\"\n \"MingLiU\"\n \"Meiryo\" ; 249/256\n \"Microsoft JhengHei\"\n \"Microsoft JhengHei UI\"\n \"Lantinghei SC\"\n \"Lantinghei TC\"\n \"HAN NOM A\" ; 249/256\n \"Arial Unicode MS\"\n \"WenQuanYi Zen Hei Mono\" ; 154/256\n \"HanaMinA\" ; 256/256\n \"BabelStone Han\" ; 73/256\n \"Code2000\"\n ))\n (\"CJK Compatibility Forms\" (\n \"WenQuanYi Zen Hei Mono\" ; 32/32\n \"Lantinghei SC\"\n \"SimHei\"\n \"FangSong\"\n \"SimSun\"\n \"LiSong Pro\" ; 26/32\n \"Baoli SC\" ; 19/32\n \"Microsoft YaHei\"\n \"Microsoft YaHei UI\"\n \"Lantinghei TC\"\n \"BabelStone Han\" ; 32/32\n \"MingLiU\"\n \"Microsoft JhengHei\"\n \"Microsoft JhengHei UI\"\n \"HAN NOM A\" ; 32/32\n \"Symbola\" ; 32/32 @8.00 @8\n \"Xingkai SC\" ; 19/32\n \"DFKai-SB\"\n \"Code2000\"\n ))\n (\"CJK Compatibility Ideographs\" (\n \"SimHei\"\n \"FangSong\"\n \"SimSun\"\n \"Microsoft YaHei\"\n \"Microsoft YaHei UI\"\n \"WenQuanYi Zen Hei Mono\" ; 455/472\n \"BabelStone Han\" ; 472/472\n \"UnBatang\" ; 268/472\n \"MingLiU\"\n \"Microsoft JhengHei\"\n \"Microsoft JhengHei UI\"\n \"HAN NOM A\" ; 394/472\n \"Arial Unicode MS\"\n \"Lantinghei SC\"\n \"HanaMinA\" ; 472/472\n ))\n (\"CJK Compatibility Ideographs Supplement\" (\n \"WenQuanYi Zen Hei Mono\" ; 542/542\n \"SimHei\"\n \"FangSong\"\n \"SimSun\"\n \"MingLiU\"\n \"HanaMinA\" ; 542/542\n \"Hiragino Kaku Gothic Pro\"\n \"Hiragino Maru Gothic Pro\"\n \"Hiragino Mincho Pro\"\n \"Microsoft JhengHei\"\n \"Microsoft JhengHei UI\"\n \"HAN NOM B\" ; 542/542\n \"LiSong Pro\" ; 11/542\n ))\n (\"CJK Radicals Supplement\" (\n \"WenQuanYi Zen Hei Mono\" ; 115/115\n \"SimHei\"\n \"FangSong\"\n \"SimSun\"\n \"Microsoft YaHei\"\n \"Microsoft YaHei UI\"\n \"HanaMinA\" ; 115/115\n \"BabelStone Han\" ; 115/115\n \"MingLiU\"\n \"Microsoft JhengHei\"\n \"Microsoft JhengHei UI\"\n \"HAN NOM A\" ; 115/115\n \"DFKai-SB\"\n \"Apple Symbols\" ; 115/115\n \"Code2000\"\n ))\n (\"CJK Strokes\" (\n \"WenQuanYi Zen Hei Mono\" ; 36/36\n \"HanaMinA\" ; 36/36\n \"BabelStone Han\" ; 36/36\n \"Code2000\"\n ))\n (\"CJK Symbols and Punctuation\" (\n \"Lantinghei SC\"\n \"SimHei\"\n \"FangSong\"\n \"SimSun\"\n \"HanaMinA\" ; 58/64\n \"WenQuanYi Zen Hei Mono\" ; 38/64\n \"LiSong Pro\" ; 33/64\n \"STFangsong\" ; 35/64\n \"Microsoft YaHei\"\n \"Microsoft YaHei UI\"\n \"Lantinghei TC\"\n \"MingLiU\"\n \"HAN NOM A\" ; 60/64\n \"Arial Unicode MS\"\n \"PCMyungjo\" ; 30/64\n \"BabelStone Han\" ; 55/64\n \"Osaka:spacing=m\"\n \"Code2000\"\n ))\n (\"CJK Unified Ideographs\" (\n \"WenQuanYi Zen Hei Mono\" ; 20,940/20,950\n \"Lantinghei SC\"\n \"Songti SC\" ; 20,921/20,950\n \"SimHei\"\n \"FangSong\"\n \"STFangsong\" ; 20,910/20,950\n \"SimSun\"\n \"LiSong Pro\" ; 17,595/20,950\n \"Baoli SC\" ; 7,103/20,950\n \"HanaMinA\" ; 20,945/20,950\n \"BabelStone Han\" ; 20,950/20,950\n \"Apple LiGothic\" ; 13,060/20,950\n \"Lantinghei TC\"\n \"MingLiU\"\n \"Microsoft JhengHei\"\n \"Microsoft JhengHei UI\"\n \"HAN NOM A\" ; 20,902/20,950\n \"DFKai-SB\"\n \"Arial Unicode MS\"\n \"Xingkai SC\" ; 7,103/20,950\n \"GB18030 Bitmap\" ; 20,902/20,950\n \"UnBatang\" ; 4,260/20,950\n ))\n (\"CJK Unified Ideographs Extension A\" (\n \"SimHei\"\n \"FangSong\"\n \"STFangsong\" ; 6,582/6,582\n \"SimSun\"\n \"Songti SC\" ; 6,582/6,582\n \"Microsoft YaHei\"\n \"Microsoft YaHei UI\"\n \"MingLiU\"\n \"Microsoft JhengHei\"\n \"Microsoft JhengHei UI\"\n \"HanaMinA\" ; 6,582/6,582\n \"HAN NOM A\" ; 6,582/6,582\n \"Code2000\"\n \"DFKai-SB\"\n \"BabelStone Han\" ; 1,639/6,582\n \"GB18030 Bitmap\" ; 6,578/6,582\n ))\n (\"CJK Unified Ideographs Extension B\" (\n \"SimHei\"\n \"FangSong\"\n \"SimSun\"\n \"LiSong Pro\" ; 1,640/42,711\n \"Microsoft YaHei\"\n \"Microsoft YaHei UI\"\n \"HanaMinB\" ; 42,711/42,711\n \"HAN NOM B\" ; 42,711/42,711\n \"Code2002\" ; 20,158/42,711\n \"MingLiU\"\n \"Microsoft JhengHei\"\n \"Microsoft JhengHei UI\"\n \"BabelStone Han\" ; 2,616/42,711\n \"DFKai-SB\"\n ))\n (\"CJK Unified Ideographs Extension C\" (\n \"HanaMinB\" ; 4,149/4,149\n \"BabelStone Han\" ; 1,542/4,149\n \"HAN NOM B\" ; 106/4,149\n ))\n (\"CJK Unified Ideographs Extension D\" (\n \"HanaMinB\" ; 222/222\n \"BabelStone Han\" ; 222/222\n ))\n (\"CJK Unified Ideographs Extension E\" (\n \"HanaMinB\" ; 5,762/5,762\n \"BabelStone Han\" ; 1,125/5,762\n ))\n (\"Combining Diacritical Marks\" (\n \"Monaco\" ; 112/112\n \"Consolas\"\n \"Noto Sans\" ; 112/112\n \"Cambria Math\" ; 110/112\n \"Charis SIL\" ; 104/112\n \"Doulos SIL\" ; 104/112\n \"Courier New\"\n \"DejaVu Sans:width=condensed\"\n \"DejaVu Sans Mono\" ; 67/112 @2.35 @2.34999084472656\n \"Cardo\" ; 112/112\n \"Code2000\" ; 112/112\n \"Gentium Plus\" ; 108/112\n \"Junicode\" ; 109/112\n \"Tahoma\"\n \"Microsoft Sans Serif\"\n \"Arial\"\n \"Quivira\" ; 112/112 @4.1 @3.80000305175781\n \"Symbola\" ; 112/112 @8.00 @8\n \"Everson Mono\" ; 112/112\n \"FreeMono\" ; 112/112\n \"Arial Unicode MS\" ; 72/112\n \"ALPHABETUM Unicode\" ; 112/112\n ))\n (\"Combining Diacritical Marks Extended\" (\n \"Monlam Uni Sans Serif\" ; 15/15\n ))\n (\"Combining Diacritical Marks Supplement\" (\n \"Cardo\" ; 28/58\n \"FreeSerif\" ; 33/58\n \"Junicode\" ; 26/58\n \"Doulos SIL\" ; 14/58\n \"DejaVu Sans:width=condensed\" ; 6/58\n \"Noto Sans\" ; 13/58\n \"Segoe UI\" ; 13/58\n \"Code2000\" ; 13/58\n \"Everson Mono\" ; 43/58\n \"ALPHABETUM Unicode\" ; 43/58\n ))\n (\"Combining Diacritical Marks for Symbols\" (\n \"Cambria Math\" ; 22/33\n \"Segoe UI Symbol\" ; 33/33\n \"Noto Sans Symbols\" ; 33/33\n \"Symbola\" ; 33/33 @8.00 @8\n \"Code2000\" ; 28/33\n \"Everson Mono\" ; 33/33\n \"Arial Unicode MS\" ; 18/33\n ))\n (\"Combining Half Marks\" (\n \"Consolas\" ; 4/16\n \"DejaVu Sans:width=condensed\" ; 4/16\n \"Everson Mono:weight=bold\" ; 7/16\n \"Symbola\" ; 16/16 @8.00 @8\n ))\n (\"Common Indic Number Forms\" (\n \"Noto Sans Kaithi\" ; 10/10\n \"Nirmala UI\"\n \"Siddhanta\"\n ))\n (\"Control Pictures\" (\n \"Apple Symbols\" ; 39/39\n \"BabelStone Modern\" ; 39/39\n \"Noto Sans Symbols\" ; 39/39\n \"Segoe UI Symbol\" ; 39/39\n \"Arial Unicode MS\"\n \"Symbola\" ; 39/39 @8.00 @8\n \"Quivira\" ; 39/39 @4.1 @3.80000305175781\n \"FreeMono\" ; 39/39\n \"Code2000\"\n \"Everson Mono:weight=bold\" ; 39/39\n ))\n (\"Coptic\" (\n \"Noto Sans Coptic\" ; 123/123\n \"Antinoou\" ; 123/123\n \"New Athena Unicode\" ; 121/123\n \"Segoe UI Historic\" ; 123/123 @1.00 @1\n \"Segoe UI Symbol\" ; 123/123\n \"Quivira\" ; 123/123 @4.1 @3.80000305175781\n \"Analecta\" ; 123/123\n \"Nilus\" ; 123/123\n \"Code2000\" ; 114/123\n \"Everson Mono:weight=bold\" ; 123/123\n \"ALPHABETUM Unicode\" ; 123/123\n ))\n (\"Coptic Epact Numbers\" (\n \"Nilus\" ; 28/28\n \"Symbola\" ; 28/28 @8.00 @8\n ))\n (\"Counting Rod Numerals\" (\n \"WenQuanYi Zen Hei Mono\" ; 18/18\n \"Noto Sans Symbols\" ; 18/18\n \"BabelStone Modern\" ; 18/18\n \"Symbola\" ; 18/18 @8.00 @8\n \"Quivira\" ; 18/18 @4.1 @3.80000305175781\n \"Apple Symbols\" ; 18/18\n \"Code2001\" ; 18/18\n ))\n (\"Cuneiform\" (\n \"Segoe UI Historic\" ; 921/922 @1.00 @1\n \"Noto Sans Cuneiform\" ; 879/922\n \"Noto Sans Sumero-Akkadian Cuneiform\" ; 879/922 - old name\n \"Akkadian\"\n ))\n (\"Cuneiform Numbers and Punctuation\" (\n \"Akkadian\"\n \"Segoe UI Historic\" ; 116/116 @1.00 @1\n \"Noto Sans Cuneiform\" ; 103/116\n \"Noto Sans Sumero-Akkadian Cuneiform\" ; 103/116 - old name\n ))\n (\"Currency Symbols\" (\n \"Monaco\" ; 19/31\n \"DejaVu Sans Mono\" ; 24/31 @2.35 @2.34999084472656\n \"DejaVu Sans:width=condensed\" ; 24/31\n \"Consolas\" ; 25/31\n \"Noto Sans Symbols\" ; 29/31\n \"Noto Sans\" ; 23/31\n \"Segoe UI\" ; 27/31\n \"Apple Symbols\" ; 22/31\n \"Symbola\" ; 31/31 @8.00 @8\n \"Quivira\" ; 30/31 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 27/31\n \"FreeMono\" ; 23/31\n ))\n (\"Cypriot Syllabary\" (\n \"Segoe UI Historic\" ; 55/55 @1.00 @1\n \"Noto Sans Cypriot\" ; 55/55\n \"Aegean\" ; 55/55\n \"Code2001\" ; 55/55\n \"Everson Mono:weight=bold\" ; 55/55\n \"ALPHABETUM Unicode\" ; 55/55\n ))\n (\"Cyrillic\" (\n \"Consolas\" ; 255/256\n \"Monaco\" ; 191/256\n \"DejaVu Sans Mono\" ; 180/256 @2.35 @2.34999084472656\n \"DejaVu Sans:width=condensed\" ; 256/256\n \"Noto Sans\" ; 256/256\n \"Courier New\" ; 118/256\n \"Calibri\" ; 255/256\n \"Microsoft Sans Serif\" ; 246/256\n \"Code2000\" ; 256/256\n \"Arial Unicode MS\" ; 226/256\n \"Charis SIL\" ; 220/256\n \"Doulos SIL\" ; 220/256\n \"Symbola\" ; 256/256 @8.00 @8\n \"Quivira\" ; 256/256 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 256/256\n \"FreeMono\" ; 251/256\n \"Charcoal CY\" ; 94/256\n \"Geneva CY\" ; 94/256\n \"ALPHABETUM Unicode\" ; 256/256\n ))\n (\"Cyrillic Extended-A\" (\n \"Quivira\" ; 32/32 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 32/32\n \"FreeSerif\" ; 32/32\n \"ALPHABETUM Unicode\" ; 32/32\n ))\n (\"Cyrillic Extended-B\" (\n \"Quivira\" ; 95/96 @4.1 @3.80000305175781\n \"Code2000\" ; 78/96\n \"Everson Mono:weight=bold\" ; 95/96\n ))\n (\"Cyrillic Supplement\" (\n \"Consolas\" ; 20/48\n \"Courier New\"\n \"Calibri\"\n \"Noto Sans\" ; 40/48\n \"DejaVu Sans:width=condensed\"\n \"Charis SIL\" ; 40/48\n \"Doulos SIL\" ; 40/48\n \"Symbola\" ; 48/48 @8.00 @8\n \"Quivira\" ; 48/48 @4.1 @3.80000305175781\n \"Code2000\" ; 36/48\n \"Everson Mono:weight=bold\" ; 48/48\n ))\n (\"Deseret\" (\n \"Noto Sans Deseret\" ; 80/80\n \"Apple Symbols\" ; 80/80\n \"Segoe UI Symbol\" ; 80/80\n \"Analecta\"\n \"Code2001\" ; 80/80\n \"Everson Mono:weight=bold\" ; 80/80\n ))\n (\"Devanagari\" (\n \"Annapurna SIL\" ; 128/128 @1.200 @1.19999694824219\n \"Noto Sans Devanagari\" ; 112/128\n \"Devanagari Sangam MN\"\n \"Devanagari MT\"\n \"Nirmala UI\" ; 113/128\n \"Mangal\" ; 112/128\n \"Samyak Devanagari\" ; 112/128\n \"Samyak\" ; 115/128\n \"Siddhanta\" ; 127/128\n \"Aparajita\" ; 127/128\n \"Code2000\" ; 112/128\n \"Arial Unicode MS\" ; 104/128\n \"ALPHABETUM Unicode\" ; 117/128\n ))\n (\"Devanagari Extended\" (\n \"Annapurna SIL\" ; 28/30 @1.200 @1.19999694824219\n \"Siddhanta\" ; 28/30\n \"FreeSerif\" ; 28/30\n ))\n (\"Dingbats\" (\n \"Apple Color Emoji\"\n \"DejaVu Sans Mono\" ; 144/192 @2.35 @2.34999084472656\n \"Segoe UI Symbol\" ; 191/192\n \"Zapf Dingbats\" ; 174/192\n \"DejaVu Sans:width=condensed\" ; 174/192\n \"Arial Unicode MS\" ; 160/192\n \"Code2000\" ; 174/192\n \"Noto Sans Symbols\" ; 191/192\n \"Symbola\" ; 192/192 @8.00 @8\n \"Quivira\" ; 160/192 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 192/192\n ))\n (\"Domino Tiles\" (\n \"DejaVu Sans:width=condensed\"\n \"Symbola\" ; 100/100 @8.00 @8\n \"Quivira\" ; 100/100 @4.1 @3.80000305175781\n \"Segoe UI Symbol\" ; 100/100\n \"Noto Sans Symbols\" ; 100/100\n \"Code2001\" ; 100/100\n \"Everson Mono:weight=bold\" ; 100/100\n ))\n ;; (\"Duployan\" (\"\")) ; todo added in Unicode 7.0\n (\"Early Dynastic Cuneiform\" (\n \"Akkadian\" ; 196/196\n ))\n (\"Egyptian Hieroglyphs\" (\n \"Segoe UI Historic:weight=bold\" ; 1,071/1,071 @1.00 @1\n \"Noto Sans Egyptian Hieroglyphs:weight=bold\" ; 1,071/1,071\n \"Aegyptus:weight=bold\" ; 1,071/1,071\n \"Gardiner\" ; 1,071/1,071\n ))\n (\"Elbasan\" (\n \"Albanian\" ; 40/40\n \"Everson Mono:weight=bold\" ; 40/40\n ))\n (\"Emoticons\" (\n \"Apple Color Emoji\"\n \"Segoe UI Symbol\" ; 76/80\n \"Symbola\" ; 80/80 @8.00 @8\n \"Quivira\" ; 78/80 @4.1 @3.80000305175781\n ))\n (\"Enclosed Alphanumeric Supplement\" (\n \"Segoe UI Symbol\" ; 169/173\n \"Noto Sans Symbols\" ; 171/173\n \"Symbola\" ; 173/173 @8.00 @8\n \"Quivira\" ; 173/173 @4.1 @3.80000305175781\n \"BabelStone Han\" ; 173/173\n \"BabelStone Modern\" ; 169/173\n ))\n (\"Enclosed Alphanumerics\" (\n ;; \"Aqua Kana\"\n \"Noto Sans Symbols\" ; 160/160\n \"Segoe UI Symbol\" ; 160/160\n \"Junicode\" ; 160/160\n \"Arial Unicode MS\" ; 139/160\n \"Symbola\" ; 160/160 @8.00 @8\n \"Quivira\" ; 160/160 @4.1 @3.80000305175781\n \"Code2000\" ; 160/160\n \"BabelStone Han\" ; 160/160\n \"WenQuanYi Zen Hei Mono\" ; 160/160\n \"BabelStone Modern\" ; 160/160\n \"HAN NOM A\" ; 139/160\n \"Everson Mono:weight=bold\" ; 160/160\n ))\n (\"Enclosed CJK Letters and Months\" (\n \"WenQuanYi Zen Hei Mono\" ; 202/254\n \"SimHei\"\n \"FangSong\"\n \"MingLiU\"\n ;; \"Aqua Kana\"\n \"Arial Unicode MS\"\n \"HanaMinA\" ; 254/254\n \"Meiryo\" ; 174/254\n \"BabelStone Han\" ; 191/254\n \"Quivira\" ; 39/254 @4.1 @3.80000305175781\n \"Code2000\"\n \"UnBatang\" ; 58/254\n \"HAN NOM A\" ; 232/254\n ))\n (\"Enclosed Ideographic Supplement\" (\n \"Segoe UI Symbol\" ; 57/57\n \"Noto Sans Symbols\" ; 57/57\n \"HanaMinA\" ; 57/57\n \"BabelStone Han\" ; 57/57\n \"Symbola\" ; 57/57 @8.00 @8\n ))\n (\"Ethiopic\" (\n \"Kefa\"\n \"Noto Sans Ethiopic\" ; 358/358\n \"Nyala\"\n \"Abyssinica SIL\" ; 358/358\n \"Ethiopia Jiret\" ; 345/358\n \"Ethiopic WashRa SemiBold\" ; 345/358\n \"Ethiopic Yebse\" ; 342/358\n \"Code2000\" ; 356/358\n ))\n (\"Ethiopic Extended\" (\n \"Kefa\"\n \"Noto Sans Ethiopic\" ; 79/79\n \"Nyala\"\n \"Abyssinica SIL\" ; 79/79\n \"Code2000\" ; 79/79\n ))\n (\"Ethiopic Extended-A\" (\n \"Kefa\"\n \"Noto Sans Ethiopic\" ; 32/32\n \"Abyssinica SIL\" ; 32/32\n ))\n (\"Ethiopic Supplement\" (\n \"Kefa\"\n \"Noto Sans Ethiopic\" ; 26/26\n \"Nyala\"\n \"Abyssinica SIL\" ; 26/26\n \"Code2000\" ; 26/26\n ))\n (\"General Punctuation\" (\n \"Monaco\" ; 106/111\n \"Apple Symbols\" ; 106/111\n \"Segoe UI Symbol\" ; 107/111\n \"Cambria Math\" ; 36/111\n \"DejaVu Sans Mono\" ; 54/111 @2.35 @2.34999084472656\n \"DejaVu Sans:width=condensed\" ; 107/111\n \"Charis SIL\" ; 74/111\n \"Doulos SIL\" ; 74/111\n \"Antinoou\" ; 106/111\n \"Symbola\" ; 111/111 @8.00 @8\n \"Code2000\" ; 106/111\n \"Quivira\" ; 105/111 @4.1 @3.80000305175781\n \"Noto Sans\" ; 56/111\n \"Everson Mono:weight=bold\" ; 107/111\n \"FreeMono\" ; 101/111\n \"BabelStone Modern\" ; 96/111\n ))\n (\"Geometric Shapes\" (\n \"DejaVu Sans Mono\" ; 96/96 @2.35 @2.34999084472656\n \"DejaVu Sans:width=condensed\" ; 96/96\n \"Segoe UI Symbol\" ; 96/96\n \"Arial Unicode MS\" ; 80/96\n \"Symbola\" ; 96/96 @8.00 @8\n \"Noto Sans Symbols\" ; 96/96\n \"Quivira\" ; 96/96 @4.1 @3.80000305175781\n \"BabelStone Modern\" ; 96/96\n \"Everson Mono\" ; 96/96\n \"FreeMono\" ; 96/96\n \"Code2000\"\n ))\n (\"Geometric Shapes Extended\" (\n \"Symbola\" ; 85/85 @8.00 @8\n \"Quivira\" ; 64/85 @4.1 @3.80000305175781\n ))\n (\"Georgian\" (\n \"DejaVu Sans Mono\" ; 45/88 @2.35 @2.34999084472656\n \"Noto Sans Georgian\" ; 83/88\n \"Noto Serif Georgian\" ; 83/88\n \"DejaVu Sans:width=condensed\" ; 83/88\n \"Arial Unicode MS\" ; 78/88\n \"Code2000\" ; 83/88\n \"Quivira\" ; 88/88 @4.1 @3.80000305175781\n \"Sylfaen\" ; 40/88\n \"MPH 2B Damase\" ; 39/88\n \"Everson Mono:weight=bold\" ; 88/88\n ))\n (\"Georgian Supplement\" (\n \"Noto Sans Georgian\" ; 38/40\n \"Noto Serif Georgian\" ; 38/40\n \"DejaVu Serif:width=condensed\" ; 38/40\n \"MPH 2B Damase\" ; 38/40\n \"Quivira\" ; 40/40 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 40/40\n ))\n (\"Glagolitic\" (\n \"Noto Sans Glagolitic\" ; 94/94\n \"Segoe UI Historic\" ; 94/94 @1.00 @1\n \"Segoe UI Symbol\" ; 94/94\n \"MPH 2B Damase\"\n \"Quivira\" ; 94/94 @4.1 @3.80000305175781\n \"FreeSerif\" ; 86/94\n \"ALPHABETUM Unicode\" ; 94/94\n ))\n (\"Gothic\" (\n \"Noto Sans Gothic\" ; 27/27\n \"Segoe UI Historic\" ; 27/27 @1.00 @1\n \"Segoe UI Symbol\" ; 27/27\n \"Analecta\" ; 27/27\n \"Junicode\" ; 27/27\n \"Sadagolthina\" ; 27/27\n \"MPH 2B Damase\" ; 27/27\n \"FreeSerif\" ; 27/27\n \"Code2001\" ; 27/27\n \"Quivira\" ; 27/27 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 27/27\n \"ALPHABETUM Unicode\" ; 27/27\n ))\n ;; (\"Grantha\" (\"\")) ; todo added in Unicode 7.0\n (\"Greek Extended\" (\n \"Consolas\" ; 232/233\n \"DejaVu Sans Mono\" ; 233/233 @2.35 @2.34999084472656\n \"Courier New\"\n \"Antinoou\" ; 233/233\n \"Noto Sans\" ; 233/233\n \"DejaVu Sans:width=condensed\"\n \"Cardo\" ; 233/233\n \"Junicode\" ; 233/233\n \"New Athena Unicode\" ; 233/233\n \"Microsoft Sans Serif\"\n \"Gentium Plus Compact\"\n \"Gentium Plus\"\n \"Arial Unicode MS\"\n \"Arial\"\n \"Tahoma\"\n \"Aegean\" ; 233/233\n \"Code2000\"\n \"Quivira\" ; 233/233 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 233/233\n \"FreeMono\" ; 233/233\n \"ALPHABETUM Unicode\" ; 233/233\n ))\n (\"Greek and Coptic\" (\n \"Consolas\" ; 75/135\n \"DejaVu Sans Mono\" ; 110/135 @2.35 @2.34999084472656\n \"DejaVu Sans:width=condensed\" ; 134/135\n \"Antinoou\" ; 135/135\n \"Noto Sans\" ; 127/135\n \"Segoe UI Historic\" ; 83/135 @1.00 @1\n \"Segoe UI Symbol\" ; 134/135\n \"New Athena Unicode\" ; 134/135\n \"Calibri\" ; 127/135\n \"Microsoft Sans Serif\" ; 112/135\n \"Gentium Plus Compact\"\n \"Gentium Plus\"\n \"Lucida Console\" ; 73/135\n \"Arial Unicode MS\" ; 105/135\n \"Cardo\" ; 134/135\n \"Aegean\" ; 134/135\n \"Code2000\"\n \"Symbola\" ; 135/135 @8.00 @8\n \"Quivira\" ; 135/135 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 135/135\n \"ALPHABETUM Unicode\" ; 134/135\n \"Noto Sans Coptic\" ; 14/135\n ))\n (\"Gujarati\" (\n \"Nirmala UI\" ; 83/85\n \"Noto Sans Gujarati\" ; 84/85\n \"Noto Sans Gujarati UI\" ; 84/85\n \"Gujarati MT\"\n \"Shruti\" ; 83/85\n \"Samyak Gujarati\"\n \"Samyak\" ; 84/85\n \"Gujarati Sangam MN\"\n \"Code2000\" ; 83/85\n \"Arial Unicode MS\" ; 78/85\n ))\n (\"Gurmukhi\" (\n \"Gurmukhi Sangam MN\"\n \"Gurmukhi MN\"\n \"Nirmala UI\" ; 79/79\n \"Noto Sans Gurmukhi\" ; 79/79\n \"Noto Sans Gurmukhi UI\" ; 79/79\n \"Raavi\" ; 79/79\n \"Code2000\" ; 79/79\n \"Arial Unicode MS\" ; 75/79\n \"AnmolUni\" ; 77/79\n ))\n (\"Halfwidth and Fullwidth Forms\" (\n \"Meiryo\" ; 166/225\n \"Arial Unicode MS\" ; 223/225\n \"Microsoft JhengHei\" ; 225/225\n \"Microsoft JhengHei UI\" ; 225/225\n \"Microsoft YaHei\" ; 224/225\n \"Microsoft YaHei UI\" ; 224/225\n \"BabelStone Han\" ; 173/225\n \"Apple Symbols\" ; 55/225\n \"Quivira\" ; 110/225 @4.1 @3.80000305175781\n \"Code2000\" ; 186/225\n \"HAN NOM A\" ; 170/225\n ))\n (\"Hangul Compatibility Jamo\" (\n \"PCMyungjo\" ; 94/94\n \"Malgun Gothic\"\n \"Gulim\"\n \"Dotum\"\n \"Batang\"\n \"Gungsuh\"\n \"AppleMyungjo\" ; 94/94\n \"UnBatang\" ; 94/94\n \"WenQuanYi Zen Hei Mono\" ; 94/94\n \"HAN NOM A\" ; 93/94\n \"Arial Unicode MS\"\n \"Code2000\"\n \"HeadLineA\" ; 94/94\n ))\n (\"Hangul Jamo\" (\n \"UnBatang\" ; 256/256\n \"WenQuanYi Zen Hei Mono\" ; 146/256\n \"PCMyungjo\" ; 67/256\n \"Malgun Gothic\"\n \"Gulim\"\n \"Dotum\"\n \"Batang\"\n \"Gungsuh\"\n \"Arial Unicode MS\"\n \"Code2000\"\n ))\n (\"Hangul Jamo Extended-A\" (\n \"Malgun Gothic\" ; 29/29\n \"HanaMinA\" ; 29/29\n \"UnBatang\" ; 29/29\n ))\n (\"Hangul Jamo Extended-B\" (\n \"Malgun Gothic\" ; 72/72\n \"HanaMinA\" ; 72/72\n \"UnBatang\" ; 72/72\n ))\n (\"Hangul Syllables\" (\n \"AppleGothic\" ; 11,172/11,172\n \"Malgun Gothic\"\n \"Gulim\"\n \"Dotum\"\n \"Batang\"\n \"Gungsuh\"\n \"UnBatang\" ; 11,172/11,172\n \"WenQuanYi Zen Hei Mono\" ; 11,172/11,172\n \"Arial Unicode MS\"\n \"Code2000\"\n ))\n (\"Hanunoo\" (\n \"Noto Sans Hanunoo\" ; 23/23\n \"MPH 2B Damase\"\n \"Quivira\" ; 23/23 @4.1 @3.80000305175781\n \"FreeSerif\" ; 23/23\n ))\n ;; (\"Hatran\" (\"\")) ; todo added in Unicode 8.0\n (\"Hebrew\" (\n \"Miriam Fixed\"\n \"Ezra SIL\" ; 87/87\n \"Ezra SIL SR\" ; 87/87\n \"Arial Hebrew\"\n \"Raanana\"\n \"New Peninim MT\"\n \"Aharoni\"\n \"David\"\n \"FrankRuehl\"\n \"Gisha\"\n \"Levenim MT\"\n \"Narkisim\"\n \"Rod\"\n \"Cardo\" ; 87/87\n \"Courier New\"\n \"Adobe Hebrew\" ; 54/87\n \"Code2000\"\n \"Aramaic Imperial Yeb\" ; 28/87, uncommon characters\n \"Microsoft Sans Serif\"\n \"Tahoma\"\n \"Lucida Sans Unicode\"\n \"Arial Unicode MS\"\n \"Arial\"\n \"Quivira\" ; 87/87 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 87/87\n \"ALPHABETUM Unicode\" ; 87/87\n ))\n ;; (\"High Private Use Surrogates\" (\"\")) ; no displayable characters\n ;; (\"High Surrogates\" (\"\")) ; no displayable characters\n (\"Hiragana\" (\n \"Osaka:spacing=m\"\n \"MS Gothic\"\n \"MS Mincho\"\n \"MingLiU\"\n \"Hiragino Kaku Gothic Pro\"\n ;; \"Aqua Kana\"\n \"Meiryo\"\n \"Arial Unicode MS\"\n \"HanaMinA\" ; 93/93\n \"BabelStone Han\" ; 93/93\n \"Microsoft JhengHei\" ; 93/93\n \"Microsoft YaHei\" ; 93/93\n \"Microsoft YaHei UI\" ; 93/93\n \"HAN NOM A\" ; 88/93\n \"Code2000\"\n \"ALPHABETUM Unicode\" ; 92/93\n ))\n (\"Ideographic Description Characters\" (\n \"SimHei\"\n \"FangSong\"\n \"SimSun\"\n \"Microsoft YaHei\"\n \"Microsoft YaHei UI\"\n \"BabelStone Han\" ; 12/12\n \"MingLiU\"\n \"Microsoft JhengHei\"\n \"Microsoft JhengHei UI\"\n \"AppleMyungjo\"\n \"HanaMinA\" ; 12/12\n \"HAN NOM A\" ; 12/12\n \"Quivira\" ; 12/12 @4.1 @3.80000305175781\n \"DFKai-SB\"\n \"Code2000\"\n ))\n (\"Imperial Aramaic\" (\n \"Aramaic Imperial Yeb\" ; 31/31\n \"Quivira\" ; 31/31 @4.1 @3.80000305175781\n \"Segoe UI Historic\" ; 31/31 @1.00 @1\n \"Noto Sans Imperial Aramaic\" ; 31/31\n \"Everson Mono:weight=bold\" ; 31/31\n \"ALPHABETUM Unicode\" ; 31/31\n ))\n (\"IPA Extensions\" (\n \"Monaco\" ; 78/96\n \"Consolas\" ; 96/96\n \"DejaVu Sans Mono\" ; 96/96 @2.35 @2.34999084472656\n \"Courier New\"\n \"Noto Sans\" ; 96/96\n \"Arial Unicode MS\"\n \"Arial\"\n \"Tahoma\"\n \"Microsoft Sans Serif\"\n \"Aboriginal Sans\" ; 91/96\n \"Cardo\" ; 96/96\n \"Symbola\" ; 96/96 @8.00 @8\n \"Quivira\" ; 96/96 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 96/96\n \"FreeMono\" ; 96/96\n \"Code2000\"\n \"ALPHABETUM Unicode\" ; 96/96\n ))\n (\"Inscriptional Pahlavi\" (\n \"ZH Mono\" ; 27/27\n \"Segoe UI Historic\" ; 27/27 @1.00 @1\n \"Noto Sans Inscriptional Pahlavi\" ; 27/27\n \"ALPHABETUM Unicode\" ; 27/27\n \"Ahuramzda:weight=bold\" ; 8/27\n ))\n (\"Inscriptional Parthian\" (\n \"ZH Mono\" ; 30/30\n \"Segoe UI Historic\" ; 30/30 @1.00 @1\n \"Noto Sans Inscriptional Parthian\" ; 30/30\n \"ALPHABETUM Unicode\" ; 30/30\n ))\n (\"Javanese\" (\n \"Noto Sans Javanese\" ; 91/91\n \"Tuladha Jejeg\"\n ))\n (\"Kaithi\" (\n \"Noto Sans Kaithi\" ; 66/66\n ))\n (\"Kana Supplement\" (\n \"Meiryo UI\" ; 2/2\n \"HanaMinA\" ; 2/2\n \"BabelStone Han\" ; 2/2\n ))\n (\"Kanbun\" (\n \"SimHei\"\n \"FangSong\"\n \"SimSun\"\n \"Meiryo\"\n ;; \"Aqua Kana\"\n \"Arial Unicode MS\"\n \"WenQuanYi Zen Hei Mono\" ; 14/16\n \"HanaMinA\" ; 16/16\n \"BabelStone Han\" ; 16/16\n \"MingLiU\"\n \"Microsoft JhengHei\" ; 16/16\n \"Microsoft YaHei\" ; 16/16\n \"Microsoft YaHei UI\" ; 16/16\n \"HAN NOM A\" ; 14/16\n \"Code2000\"\n ))\n (\"Kangxi Radicals\" (\n \"WenQuanYi Zen Hei Mono\" ; 214/214\n \"SimHei\"\n \"FangSong\"\n \"Meiryo\" ; 214/214\n \"SimSun\"\n \"Microsoft YaHei\"\n \"Microsoft YaHei UI\"\n \"BabelStone Han\" ; 214/214\n \"HanaMinA\" ; 214/214\n \"MingLiU\"\n \"Microsoft JhengHei\"\n \"Microsoft JhengHei UI\"\n \"HAN NOM A\" ; 214/214\n \"DFKai-SB\"\n \"AppleMyungjo\"\n \"Apple Symbols\" ; 214/214\n \"Code2000\"\n ;; \"Aqua Kana\"\n ))\n (\"Kannada\" (\n \"Kannada Sangam MN\"\n \"Noto Sans Kannada\" ; 86/87\n \"Noto Sans Kannada UI\" ; 86/87\n \"Tunga\" ; 86/87\n \"Akshar Unicode\" ; 82/87\n \"Kedage\" ; 78/87\n \"Nirmala UI\" ; 86/87\n \"Kannada MN\"\n \"Arial Unicode MS\" ; 80/87\n \"Code2000\" ; 86/87\n ))\n (\"Katakana\" (\n \"Osaka:spacing=m\"\n ;; \"Aqua Kana\"\n \"MS Gothic\"\n \"MingLiU\"\n \"Meiryo\"\n \"HanaMinA\" ; 96/96\n \"Arial Unicode MS\"\n \"BabelStone Han\" ; 96/96\n \"Microsoft JhengHei\" ; 96/96\n \"Microsoft YaHei\" ; 96/96\n \"Microsoft YaHei UI\" ; 96/96\n \"HAN NOM A\" ; 94/96\n \"Code2000\"\n \"ALPHABETUM Unicode\" ; 96/96\n ))\n (\"Katakana Phonetic Extensions\" (\n \"MS Gothic\"\n \"MingLiU\"\n ;; \"Aqua Kana\"\n \"Meiryo\"\n \"HanaMinA\" ; 16/16\n \"Microsoft YaHei\" ; 16/16\n \"Microsoft YaHei UI\" ; 16/16\n \"BabelStone Han\" ; 16/16\n \"HAN NOM A\" ; 16/16\n \"Code2000\"\n ))\n (\"Kayah Li\" (\n \"Noto Sans Kayah Li\" ; 48/48\n \"Code2000\"\n \"FreeMono\" ; 48/48\n ))\n (\"Kharoshthi\" (\n \"Segoe UI Historic\" ; 65/65 @1.00 @1\n \"Noto Sans Kharoshthi\" ; 65/65\n \"MPH 2B Damase\"\n \"ALPHABETUM Unicode\" ; 65/65\n ))\n (\"Khmer\" (\n \"Noto Sans Khmer\" ; 114/114\n \"Noto Sans Khmer UI\" ; 114/114\n \"Noto Serif Khmer\" ; 114/114\n \"Khmer Sangam MN\"\n \"DaunPenh\" ; 114/114\n \"Code2000\" ; 114/114\n \"MoolBoran\" ; 114/114\n \"Khmer Mondulkiri\" ; 114/114\n \"Khmer Busra\" ; 114/114\n ))\n (\"Khmer Symbols\" (\n \"Noto Sans Khmer\" ; 32/32\n \"Noto Sans Khmer UI\" ; 32/32\n \"Noto Serif Khmer\" ; 32/32\n \"Khmer Sangam MN\"\n \"MoolBoran\" ; 32/32\n \"Khmer Mondulkiri\" ; 32/32\n \"Khmer Busra\" ; 32/32\n \"Code2000\" ; 32/32\n ))\n (\"Khojki\" (\n \"KhojkiUnicodeOT\" ; 61/61\n ))\n (\"Khudawadi\" (\n \"OldSindhi\" ; 69/69\n ))\n (\"Lao\" (\n \"Noto Sans Lao\" ; 67/67\n \"Noto Sans Lao UI\" ; 67/67\n \"Noto Serif Lao\" ; 67/67\n \"Lao Sangam MN\"\n \"DokChampa\" ; 65/67\n \"DejaVu Sans Mono\" ; 46/67 @2.35 @2.34999084472656\n \"Arial Unicode MS\" ; 65/67\n \"Saysettha MX\" ; 65/67\n \"DejaVu Sans:width=condensed\" ; 65/67\n \"Code2000\" ; 65/67\n ))\n ;; (\"Latin Extended Additional\" ( ; hopefully well-covered by the default font\n ;; \"Monaco\"\n ;; \"DejaVu Sans Mono\"\n ;; \"Courier New\"\n ;; \"Quivira\"\n ;; \"DejaVu Sans:width=condensed\"\n ;; ))\n ;; (\"Latin Extended-A\" ( ; hopefully well-covered by the default font\n ;; \"Monaco\"\n ;; \"Consolas\"\n ;; \"DejaVu Sans Mono\"\n ;; \"Courier New\"\n ;; \"DejaVu Sans:width=condensed\"\n ;; \"Quivira\"\n ;; ))\n ;; (\"Latin Extended-B\" ( ; hopefully well-covered by the default font\n ;; \"Monaco\" ; fairly incomplete\n ;; \"Consolas\"\n ;; \"DejaVu Sans:width=condensed\"\n ;; \"DejaVu Sans Mono\"\n ;; \"Courier New\"\n ;; \"Quivira\"\n ;; ))\n (\"Latin Extended-C\" (\n \"DejaVu Sans Mono\" ; 14/32 @2.35 @2.34999084472656\n \"DejaVu Sans:width=condensed\"\n \"Noto Sans\" ; 21/32\n \"Cambria Math\"\n \"Gentium Plus\" ; 30/32\n \"Charis SIL\" ; 30/32\n \"Doulos SIL\" ; 30/32\n \"Code2000\"\n \"Quivira\" ; 32/32 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 32/32\n \"ALPHABETUM Unicode\" ; 32/32\n ))\n (\"Latin Extended-D\" (\n \"FreeMono\" ; 5/159 ; this will give poor results if existence-checks is set to 'first\n \"DejaVu Sans Mono\" ; 17/159 @2.35 @2.34999084472656\n \"DejaVu Sans:width=condensed\" ; 62/159\n \"Charis SIL\" ; 38/159\n \"Doulos SIL\" ; 38/159\n \"Junicode\" ; 97/159\n \"Cardo\" ; 93/159\n \"Quivira\" ; 152/159 @4.1 @3.80000305175781\n \"Code2000\" ; 114/159\n \"Everson Mono:weight=bold\" ; 152/159\n \"ALPHABETUM Unicode\" ; 94/159\n ))\n (\"Latin Extended-E\" (\n \"Quivira\" ; 50/54 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 48/54\n \"HanaMinA\" ; 29/54\n ))\n ;; (\"Latin-1 Supplement\" ( ; hopefully well-covered by the default font\n ;; \"Monaco\"\n ;; \"Consolas\"\n ;; \"DejaVu Sans Mono\"\n ;; \"Courier New\"\n ;; \"DejaVu Sans:width=condensed\"\n ;; \"Quivira\"\n ;; ))\n (\"Lepcha\" (\n \"Mingzat\" ; 74/74\n \"Noto Sans Lepcha\" ; 74/74\n ))\n (\"Letterlike Symbols\" (\n \"Monaco\" ; 26/80\n \"Noto Sans Symbols\" ; 80/80\n \"Segoe UI Symbol\" ; 80/80\n \"Apple Symbols\" ; 77/80\n \"Cambria Math\" ; 68/80\n \"DejaVu Sans:width=condensed\" ; 75/80\n \"Arial Unicode MS\" ; 57/80\n \"Code2000\" ; 80/80\n \"Symbola\" ; 80/80 @8.00 @8\n \"Quivira\" ; 80/80 @4.1 @3.80000305175781\n \"HAN NOM A\" ; 56/80\n \"Everson Mono:weight=bold\" ; 80/80\n ))\n (\"Limbu\" (\n \"Noto Sans Limbu\" ; 66/68\n \"Namdhinggo SIL\" ; 66/68\n \"MPH 2B Damase\"\n \"Code2000\"\n ))\n (\"Linear A\" (\n \"Aegean\" ; 341/341\n ))\n (\"Linear B Ideograms\" (\n \"Noto Sans Linear B\" ; 123/123\n \"Aegean\" ; 123/123\n \"Code2001\" ; 123/123\n \"Everson Mono:weight=bold\" ; 123/123\n \"ALPHABETUM Unicode\" ; 123/123\n \"MPH 2B Damase\" ; 73/123\n ))\n (\"Linear B Syllabary\" (\n \"Noto Sans Linear B\" ; 88/88\n \"Aegean\" ; 88/88\n \"Code2001\" ; 88/88\n \"Everson Mono:weight=bold\" ; 88/88\n \"ALPHABETUM Unicode\" ; 88/88\n \"MPH 2B Damase\" ; 74/88\n \"Penuturesu\" ; 73/88\n ))\n (\"Lisu\" (\n \"Lisu Unicode\" ; 48/48\n \"Miao Unicode\" ; 48/48\n \"Noto Sans Lisu\" ; 48/48\n \"Lisu Tzimu\" ; 48/48\n \"Quivira\" ; 48/48 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 48/48\n ))\n ;; (\"Low Surrogates\" (\"\")) ; no displayable characters\n (\"Lycian\" (\n \"Segoe UI Historic\" ; 29/29 @1.00 @1\n \"Noto Sans Lycian\" ; 29/29\n \"Aegean\" ; 29/29\n \"Quivira\" ; 29/29 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 29/29\n \"ALPHABETUM Unicode\" ; 29/29\n ))\n (\"Lydian\" (\n \"Segoe UI Historic\" ; 27/27 @1.00 @1\n \"Noto Sans Lydian\" ; 27/27\n \"Aegean\" ; 27/27\n \"Quivira\" ; 27/27 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 27/27\n \"ALPHABETUM Unicode\" ; 27/27\n ))\n ;; (\"Mahajani\" (\"\")) ; todo added in Unicode 7.0\n (\"Mahjong Tiles\" (\n \"Segoe UI Symbol\" ; 44/44\n \"Symbola\" ; 44/44 @8.00 @8\n \"Noto Sans Symbols\" ; 44/44\n \"Quivira\" ; 44/44 @4.1 @3.80000305175781\n \"Everson Mono\" ; 44/44\n ))\n (\"Malayalam\" (\n \"Malayalam Sangam MN\"\n \"Nirmala UI\" ; 98/100\n \"Kartika\" ; 98/100\n \"Code2000\" ; 95/100\n \"Akshar Unicode\" ; 83/100\n \"Samyak Malayalam\" ; 68/100\n \"Samyak\" ; 66/100\n \"Arial Unicode MS\" ; 78/100\n ))\n (\"Mandaic\" (\n \"Noto Sans Mandaic\" ; 29/29\n ))\n ;; (\"Manichaean\" (\"\")) ; todo added in Unicode 7.0\n (\"Mathematical Alphanumeric Symbols\" (\n \"Cambria Math\" ; 994/996\n \"Noto Sans Symbols\" ; 996/996\n \"Asana Math\" ; 996/996\n \"Code2001\" ; 994/996\n \"Symbola\" ; 996/996 @8.00 @8\n \"Quivira\" ; 996/996 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 992/996\n ))\n (\"Mathematical Operators\" (\n \"Monaco\" ; 47/256\n \"DejaVu Sans Mono\" ; 178/256 @2.35 @2.34999084472656\n \"Segoe UI Symbol\" ; 256/256\n \"Cambria Math\" ; 256/256\n \"DejaVu Sans:width=condensed\" ; 256/256\n \"Noto Sans Symbols\" ; 256/256\n \"Apple Symbols\" ; 256/256\n \"Asana Math\" ; 256/256\n \"Arial Unicode MS\" ; 242/256\n \"Code2000\" ; 256/256\n \"Symbola\" ; 256/256 @8.00 @8\n \"Quivira\" ; 256/256 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 256/256\n \"FreeMono\" ; 242/256\n ))\n (\"Meetei Mayek\" (\n \"Noto Sans Meetei Mayek\" ; 56/56\n \"Eeyek Unicode\" ; 56/56 fails X11, OS X\n \"Meetei Mayek\" ; 56/56 \"Eeyek Unicode\" appears under this name in OS X\n ))\n (\"Meetei Mayek Extensions\" (\n \"Noto Sans Meetei Mayek\" ; 23/23\n ))\n ;; (\"Mende Kikakui\" (\"\")) ; todo added in Unicode 7.0\n (\"Meroitic Cursive\" (\n \"Nilus\" ; 90/90\n \"Segoe UI Historic\" ; 26/90 @1.00 @1\n \"Segoe UI Symbol\" ; 26/90\n ))\n (\"Meroitic Hieroglyphs\" (\n \"Nilus\" ; 32/32\n ))\n (\"Miao\" (\n \"Miao Unicode\" ; 133/133\n \"Albanian\" ; 106/133\n ))\n (\"Miscellaneous Mathematical Symbols-A\" (\n \"Noto Sans Symbols\" ; 48/48\n \"Apple Symbols\" ; 25/48\n \"Segoe UI Symbol\" ; 46/48\n \"Asana Math\" ; 48/48\n \"Code2000\"\n \"Symbola\" ; 48/48 @8.00 @8\n \"Quivira\" ; 48/48 @4.1 @3.80000305175781\n \"Cambria Math\" ; 28/48\n \"Everson Mono:weight=bold\" ; 48/48\n ))\n (\"Miscellaneous Mathematical Symbols-B\" (\n \"Noto Sans Symbols\" ; 128/128\n \"Segoe UI Symbol\" ; 128/128\n \"Apple Symbols\" ; 128/128\n \"Cambria Math\" ; 128/128\n \"Asana Math\" ; 128/128\n \"Code2000\" ; 128/128\n \"Symbola\" ; 128/128 @8.00 @8\n \"Quivira\" ; 128/128 @4.1 @3.80000305175781\n ))\n (\"Miscellaneous Symbols\" (\n \"Noto Sans Symbols\" ; 256/256\n \"Segoe UI Symbol\" ; 256/256\n \"Apple Symbols\" ; 256/256\n \"DejaVu Sans Mono\" ; 149/256 @2.35 @2.34999084472656\n \"DejaVu Sans:width=condensed\" ; 187/256\n \"Arial Unicode MS\" ; 106/256\n \"Symbola\" ; 256/256 @8.00 @8\n \"Quivira\" ; 220/256 @4.1 @3.80000305175781\n \"MS Reference Sans Serif\" ; 33/256\n \"Cardo\" ; 31/256\n \"Code2000\" ; 183/256\n \"Everson Mono:weight=bold\" ; 191/256\n ))\n (\"Miscellaneous Symbols and Arrows\" (\n \"Symbola\" ; 206/206 @8.00 @8\n \"Quivira\" ; 202/206 @4.1 @3.80000305175781\n \"Asana Math\" ; 53/206\n \"Code2000\" ; 82/206\n \"Segoe UI Symbol\" ; 87/206\n \"Noto Sans Symbols\" ; 87/206\n ))\n (\"Miscellaneous Symbols and Pictographs\" (\n \"Apple Color Emoji\" ; 533/766\n \"Segoe UI Symbol\" ; 529/766\n \"Symbola\" ; 766/766 @8.00 @8\n \"Quivira\" ; 191/766 @4.1 @3.80000305175781\n ))\n (\"Miscellaneous Technical\" (\n \"Segoe UI Symbol\" ; 244/251\n \"Noto Sans Symbols\" ; 244/251\n \"Apple Symbols\" ; 232/251\n \"Cambria Math\" ; 208/251\n \"DejaVu Sans Mono\" ; 136/251 @2.35 @2.34999084472656\n \"Code2000\" ; 228/251\n \"Symbola\" ; 251/251 @8.00 @8\n \"Quivira\" ; 251/251 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 244/251\n ))\n (\"Modi\" (\n \"MarathiCursiveG\" ; 79/79\n ))\n (\"Modifier Tone Letters\" (\n \"Apple Symbols\" ; 27/32\n \"Noto Sans Symbols\" ; 32/32\n \"Gentium Plus\" ; 32/32\n \"Code2000\" ; 32/32\n \"Quivira\" ; 32/32 @4.1 @3.80000305175781\n \"Charis SIL\" ; 32/32\n \"Doulos SIL\" ; 32/32\n \"DejaVu Sans Mono\" ; 20/32 @2.35 @2.34999084472656\n ))\n (\"Mongolian\" (\n \"STFangsong\"\n \"STHeiti\"\n \"STKaiti\"\n \"STSong\"\n \"Noto Sans Mongolian\" ; 156/156\n \"Mongolian Baiti\"\n \"Daicing Xiaokai\"\n \"Code2000\"\n ))\n (\"Mro\" (\n \"Mro Unicode\" ; 43/43\n ))\n ;; (\"Multani\" (\"\")) ; todo added in Unicode 8.0\n (\"Musical Symbols\" (\n \"Noto Sans Symbols\" ; 220/231\n \"Musica\" ; 220/231 - OS X rendering issue? see \"Musical Symbol G Clef\"\n \"FreeSerif\" ; 220/231\n \"Symbola\" ; 231/231 @8.00 @8 - OS X rendering issue? see \"Musical Symbol G Clef\"\n \"Quivira\" ; 92/231 @4.1 @3.80000305175781\n ))\n (\"Myanmar\" (\n \"Noto Sans Myanmar\" ; 160/160\n \"Noto Sans Myanmar UI\" ; 160/160\n \"Myanmar Text\" ; 160/160\n \"Myanmar Sangam MN\" ; 85/160\n \"Myanmar MN\" ; 85/160\n \"TharLon\" ; 160/160\n \"Yunghkio\" ; 160/160\n \"Myanmar3\" ; 85/160\n \"Masterpiece Uni Sans\" ; 90/160\n \"Padauk\" ; 160/160\n \"Code2000\" ; 156/160\n \"Tai Le Valentinium\" ; 10/160\n ))\n (\"Myanmar Extended-A\" (\n \"Noto Sans Myanmar\" ; 28/32\n \"Noto Sans Myanmar UI\" ; 28/32\n \"Myanmar Text\" ; 28/32\n \"Padauk\" ; 28/32\n \"TharLon\" ; 28/32\n \"Yunghkio\" ; 28/32\n ))\n (\"Myanmar Extended-B\" ( ; todo very poor coverage\n \"TharLon\" ; 7/31\n \"Yunghkio\" ; 7/31\n ))\n (\"Nabataean\" ( ; todo free alternative\n \"Everson Mono:weight=bold\" ; 40/40\n ))\n (\"New Tai Lue\" (\n \"Noto Sans New Tai Lue\" ; 83/83\n \"Microsoft New Tai Lue\"\n \"Dai Banna SIL Book\"\n \"Dai Banna SIL Book:style=Regular\"\n ))\n (\"NKo\" (\n \"Ebrima\"\n \"Conakry\" ; 59/59\n \"DejaVu Sans:width=condensed\" ; 54/59\n \"Noto Sans NKo\" ; 59/59\n \"Code2000\" ; 59/59\n ))\n (\"Number Forms\" (\n \"DejaVu Sans:width=condensed\" ; 55/60\n \"Asana Math\" ; 45/60\n \"Arial Unicode MS\" ; 48/60\n \"Junicode\" ; 58/60\n \"Symbola\" ; 60/60 @8.00 @8\n \"Quivira\" ; 58/60 @4.1 @3.80000305175781\n \"Charis SIL\" ; 54/60\n \"Doulos SIL\" ; 54/60\n \"Code2000\" ; 54/60\n \"Everson Mono:weight=bold\" ; 58/60\n \"FreeMono\" ; 45/60\n \"ALPHABETUM Unicode\" ; 58/60\n ))\n (\"Ogham\" (\n \"Segoe UI Historic\" ; 29/29 @1.00 @1\n \"Segoe UI Symbol\" ; 29/29\n \"Noto Sans Ogham\" ; 29/29\n \"DejaVu Sans:width=condensed\"\n \"BabelStone Modern\" ; 29/29\n \"Code2000\"\n \"Aboriginal Serif\" ; 29/29\n \"Quivira\" ; 29/29 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 29/29\n \"ALPHABETUM Unicode\" ; 29/29\n ))\n (\"Ol Chiki\" (\n \"Nirmala UI\" ; 48/48\n \"Noto Sans Ol Chiki\" ; 48/48\n \"Code2000\" ; 48/48\n ))\n (\"Old Hungarian\" (\n \"OldHungarian\" ; 108/108\n ))\n (\"Old Italic\" (\n \"Segoe UI Historic\" ; 35/36 @1.00 @1\n \"Segoe UI Symbol\" ; 35/36\n \"DejaVu Sans:width=condensed\" ; 35/36\n \"Cardo\" ; 35/36\n \"New Athena Unicode\" ; 35/36\n \"Aegean\" ; 36/36\n \"Noto Sans Old Italic\" ; 35/36, characters are RTL\n \"Albanian\" ; 36/36\n \"Code2001\" ; 35/36, characters are RTL\n \"Quivira\" ; 36/36 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 35/36\n \"FreeMono\" ; 35/36\n \"ALPHABETUM Unicode\" ; 35/36\n ))\n (\"Old North Arabian\" ( ; todo free alternative\n \"Marib\"\n ))\n (\"Old Permic\" ( ; todo free alternative\n \"Everson Mono:weight=bold\" ; 40/40\n ))\n (\"Old Persian\" (\n \"Segoe UI Historic\" ; 50/50 @1.00 @1\n \"Noto Sans Old Persian\" ; 50/50\n \"MPH 2B Damase\" ; 50/50\n \"Aegean\" ; 50/50\n \"Code2001\" ; 50/50\n \"FreeSans\" ; 50/50\n \"ALPHABETUM Unicode\" ; 50/50\n ))\n (\"Old South Arabian\" (\n \"Segoe UI Historic\" ; 32/32 @1.00 @1\n \"Noto Sans Old South Arabian\" ; 32/32\n \"Quivira\" ; 32/32 @4.1 @3.80000305175781\n \"Qataban\" ; 32/32\n \"Everson Mono:weight=bold\" ; 32/32\n ))\n (\"Old Turkic\" (\n \"Noto Sans Old Turkic\" ; 73/73\n \"Segoe UI Historic\" ; 73/73 @1.00 @1\n \"Segoe UI Symbol\" ; 73/73\n \"Quivira\" ; 73/73 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 73/73\n ))\n (\"Optical Character Recognition\" (\n \"Apple Symbols\" ; 11/11\n \"Segoe UI Symbol\" ; 11/11\n \"Noto Sans Symbols\" ; 11/11\n \"Arial Unicode MS\"\n \"Symbola\" ; 11/11 @8.00 @8\n \"Quivira\" ; 11/11 @4.1 @3.80000305175781\n \"FreeMono\" ; 11/11\n \"BabelStone Modern\" ; 11/11\n \"Code2000\"\n \"Everson Mono\" ; 11/11\n ))\n (\"Oriya\" (\n \"Noto Sans Oriya\" ; 90/90\n \"Oriya Sangam MN\"\n \"Nirmala UI\" ; 84/90\n \"Kalinga\" ; 84/90\n \"Samyak Oriya\" ; 82/90\n \"Samyak\" ; 82/90\n \"Code2000\" ; 84/90\n \"Arial Unicode MS\" ; 79/90\n ))\n (\"Ornamental Dingbats\" (\n \"Symbola\" ; 48/48 @8.00 @8\n ))\n (\"Osmanya\" (\n \"Noto Sans Osmanya\" ; 40/40\n \"Ebrima\" ; 40/40\n \"Andagii\" ; 40/40\n \"MPH 2B Damase\" ; 40/40\n \"Code2001\" ; 40/40\n \"Everson Mono:weight=bold\" ; 40/40\n ))\n ;; (\"Pahawh Hmong\" (\"\")) ; todo added in Unicode 7.0\n ;; (\"Palmyrene\" (\"\")) ; todo added in Unicode 7.0\n ;; (\"Pau Cin Hau\" (\"\")) ; todo added in Unicode 7.0\n (\"Phags-pa\" (\n \"BabelStone Phags-pa Book\" ; 56/56\n \"BabelStone Phags-pa Book:style=Regular\"\n \"Noto Sans Phags-pa\" ; 56/56\n \"Microsoft PhagsPa\"\n \"Code2000\" ; 56/56\n ))\n (\"Phaistos Disc\" (\n \"Aegean\" ; 46/46\n \"Noto Sans Symbols\" ; 46/46\n \"Symbola\" ; 46/46 @8.00 @8\n \"Everson Mono:weight=bold\" ; 46/46\n \"Code2001\" ; 46/46\n \"ALPHABETUM Unicode\" ; 46/46\n ))\n (\"Phoenician\" (\n \"Segoe UI Historic\" ; 29/29 @1.00 @1\n \"Noto Sans Phoenician\" ; 29/29\n \"Aegean\" ; 29/29\n \"Quivira\" ; 29/29 @4.1 @3.80000305175781\n \"Code2001\" ; 27/29\n \"Everson Mono:weight=bold\" ; 29/29\n \"ALPHABETUM Unicode\" ; 29/29\n ))\n (\"Phonetic Extensions\" (\n \"Monaco\" ; 109/128\n \"Consolas\" ; 128/128\n \"Calibri\" ; 128/128\n \"Noto Sans\" ; 128/128\n \"Aboriginal Sans\" ; 79/128\n \"Charis SIL\" ; 128/128\n \"Doulos SIL\" ; 128/128\n \"Quivira\" ; 128/128 @4.1 @3.80000305175781\n \"Courier New\" ; 128/128\n \"DejaVu Sans:width=condensed\"\n \"Code2000\"\n \"Everson Mono:weight=bold\" ; 128/128\n \"ALPHABETUM Unicode\" ; 128/128\n ))\n (\"Phonetic Extensions Supplement\" (\n \"Consolas\" ; 64/64\n \"Calibri\" ; 64/64\n \"Courier New\" ; 64/64 ; todo a better OS X choice\n \"Noto Sans\" ; 64/64\n \"Aboriginal Sans\" ; 35/64\n \"Charis SIL\" ; 64/64\n \"Doulos SIL\" ; 64/64\n \"Quivira\" ; 64/64 @4.1 @3.80000305175781\n \"DejaVu Sans Mono\" ; 37/64 @2.35 @2.34999084472656\n \"DejaVu Sans:width=condensed\" ; 38/64\n \"Code2000\" ; 64/64\n \"Everson Mono:weight=bold\" ; 64/64\n \"ALPHABETUM Unicode\" ; 64/64\n ))\n (\"Playing Cards\" (\n \"DejaVu Sans:width=condensed\" ; 59/82\n \"Symbola\" ; 82/82 @8.00 @8\n \"Noto Sans Symbols\" ; 59/82\n \"Segoe UI Symbol\" ; 59/82\n \"Quivira\" ; 82/82 @4.1 @3.80000305175781\n ))\n ;; (\"Private Use Area\" (\n ;; \"ALPHABETUM Unicode\" ; 2,405/6,400 MUFI\n ;; \"UnBatang\" ; 2,048/6,400\n ;; \"Jomolhari\" ; 1,537/6,400\n ;; \"Code2000\" ; 1,373/6,400 conflicts MUFI\n ;; \"BabelStone Han\" ; 1,346/6,400\n ;; \"Siddhanta\" ; 1,292/6,400\n ;; \"Cardo\" ; 1,209/6,400 MUFI\n ;; \"Unidings\" ; 1,024/6,400 conflicts MUFI\n ;; \"Quivira\" ; 894/6,400 @4.1 @3.80000305175781\n ;; \"Junicode\" ; 841/6,400 MUFI\n ;; \"Code2001\" ; 362/6,400\n ;; \"MS Reference Sans Serif\" ; 312/6,400\n ;; \"Doulos SIL\" ; 229/6,400\n ;; \"Webdings\" ; 223/6,400\n ;; \"Wingdings\" ; 223/6,400\n ;; \"Wingdings 2\" ; 217/6,400\n ;; \"Wingdings 3\" ; 208/6,400\n ;; \"Symbol\" ; 188/6,400\n ;; \"MS Reference Specialty\" ; 170/6,400\n ;; \"Abyssinica SIL\" ; 137/6,400\n ;; \"Bookshelf Symbol 7\" ; 111/6,400\n ;; \"Lanna Alif\" ; 94/6,400\n ;; \"Aksara Bali\" ; 53/6,400\n ;; \"MPH 2B Damase\" ; 49/6,400\n ;; \"Arial Unicode MS\" ; 43/6,400\n ;; \"Marlett\" ; 35/6,400\n ;; \"DejaVu Sans\" ; 31/6,400\n ;; \"Lucida Console\" ; 23/6,400\n ;; \"Hacen Sudan\" ; 20/6,400\n ;; \"Lucida Sans Unicode\" ; 16/6,400\n ;; \"Samyak Devanagari\" ; 10/6,400\n ;; \"Khmer Mondulkiri\" ; 10/6,400\n ;; \"Khmer Busra MOE\" ; 10/6,400\n ;; \"Khmer Busra\" ; 10/6,400\n ;; \"BabelStone Phags-pa Book\" ; 7/6,400\n ;; \"Samyak\" ; 6/6,400\n ;; ))\n ;; (\"Psalter Pahlavi\" (\"\")) ; todo added in Unicode 7.0\n (\"Rejang\" (\n \"Noto Sans Rejang\" ; 37/37\n \"Code2000\" ; 37/37\n \"Everson Mono:weight=bold\" ; 37/37\n ))\n (\"Rumi Numeral Symbols\" (\n \"HanaMinA\" ; 31/31\n ))\n (\"Runic\" (\n \"Noto Sans Runic\" ; 81/89\n \"Segoe UI Historic\" ; 81/89 @1.00 @1\n \"Segoe UI Symbol\" ; 81/89\n \"Aboriginal Serif\" ; 81/89\n \"Junicode\" ; 81/89\n \"FreeMono\" ; 81/89\n \"Quivira\" ; 89/89 @4.1 @3.80000305175781\n \"Code2000\"\n \"Cardo\" ; 81/89\n \"Everson Mono:weight=bold\" ; 89/89\n \"ALPHABETUM Unicode\" ; 81/89\n ))\n (\"Samaritan\" (\n \"Noto Sans Samaritan\" ; 61/61\n \"Quivira\" ; 61/61 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 61/61\n ))\n (\"Saurashtra\" (\n \"Noto Sans Saurashtra\" ; 81/81\n \"Code2000\"\n \"Sourashtra\"\n ))\n (\"Sharada\" (\n \"Albanian\" ; 85/94\n ))\n (\"Shavian\" (\n \"Segoe UI Historic\" ; 48/48 @1.00 @1\n \"Noto Sans Shavian\" ; 48/48\n \"Andagii\" ; 48/48\n \"MPH 2B Damase\"\n \"Apple Symbols\" ; 48/48\n \"Code2001\" ; 48/48\n \"Everson Mono:weight=bold\" ; 48/48\n ))\n ;; (\"Shorthand Format Controls\" (\"\")) ; no displayable characters\n (\"Siddham\" (\n \"MuktamsiddhamG\" ; 92/92\n ))\n (\"Sinhala\" (\n \"Noto Sans Sinhala\" ; 80/90\n \"Nirmala UI\" ; 80/90\n \"Iskoola Pota\" ; 80/90\n \"Akshar Unicode\" ; 80/90\n \"Sinhala Sangam MN\"\n ))\n ;; (\"Sinhala Archaic Numbers\" (\"\")) ; todo added in Unicode 7.0\n (\"Small Form Variants\" (\n \"Apple Symbols\" ; 26/26\n \"Arial Unicode MS\"\n \"WenQuanYi Zen Hei Mono\" ; 25/26\n \"Microsoft YaHei\" ; 26/26\n \"Microsoft YaHei UI\" ; 26/26\n \"Code2000\"\n ))\n (\"Sora Sompeng\" ( ; todo free coverage\n \"Nirmala UI\" ; 35/35\n ))\n ;; (\"Spacing Modifier Letters\" ( ; hopefully well-covered by the default font\n ;; \"Monaco\" ; 79/80\n ;; \"Consolas\" ; 80/80\n ;; \"DejaVu Sans Mono\" ; 48/80\n ;; 'Cambria Math\" ; 80/80\n ;; \"Arial Unicode MS\" ; 57/80\n ;; \"Code2000\" ; 80/80\n ;; \"DejaVu Sans:width=condensed\" ; 63/80\n ;; \"Quivira\" ; 80/80\n ;; \"Symbola\" ; 80/80 @8.00 @8\n ;; ))\n (\"Specials\" (\n \"BabelStone Modern\" ; 5/5\n \"Noto Sans Symbols\" ; 5/5\n \"Apple Symbols\" ; 5/5\n \"Arial Unicode MS\"\n \"Symbola\" ; 5/5 @8.00 @8\n \"DejaVu Sans Mono\" ; 5/5 @2.35 @2.34999084472656\n \"DejaVu Sans:width=condensed\"\n \"Quivira\" ; 5/5 @4.1 @3.80000305175781\n \"FreeMono\" ; 5/5\n \"BabelStone Han\" ; 5/5\n ))\n (\"Sundanese\" (\n \"Noto Sans Sundanese\" ; 64/64\n \"Sundanese Unicode\" ; 55/64\n ))\n (\"Sundanese Supplement\" (\n \"Noto Sans Sundanese\" ; 8/8\n ))\n (\"Superscripts and Subscripts\" (\n \"Consolas\" ; 34/42\n \"Monaco\" ; 29/42\n \"Apple Symbols\" ; 29/42\n \"Cambria Math\" ; 34/42\n \"DejaVu Sans Mono\" ; 42/42 @2.35 @2.34999084472656\n \"DejaVu Sans:width=condensed\" ; 42/42\n \"Segoe UI Symbol\" ; 42/42\n \"Asana Math\" ; 34/42\n \"Charis SIL\" ; 34/42\n \"Doulos SIL\" ; 34/42\n \"Symbola\" ; 42/42 @8.00 @8\n \"Quivira\" ; 42/42 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 42/42\n \"FreeMono\" ; 34/42\n ))\n (\"Supplemental Arrows-A\" (\n \"Segoe UI Symbol\" ; 16/16\n \"Cambria Math\" ; 16/16\n \"DejaVu Sans:width=condensed\" ; 16/16\n \"Asana Math\" ; 16/16\n \"Quivira\" ; 16/16 @4.1 @3.80000305175781\n \"Symbola\" ; 16/16 @8.00 @8\n \"Apple Symbols\" ; 16/16\n \"Noto Sans Symbols\" ; 16/16\n \"Code2000\" ; 16/16\n \"Everson Mono:weight=bold\" ; 16/16\n \"FreeMono\" ; 10/16\n \"BabelStone Modern\" ; 12/16\n ))\n (\"Supplemental Arrows-B\" (\n \"Cambria Math\" ; 128/128\n \"Segoe UI Symbol\" ; 128/128\n \"Apple Symbols\" ; 128/128\n \"Noto Sans Symbols\" ; 128/128\n \"Asana Math\" ; 128/128\n \"Quivira\" ; 128/128 @4.1 @3.80000305175781\n \"Symbola\" ; 128/128 @8.00 @8\n \"Code2000\" ; 128/128\n \"Everson Mono:weight=bold\" ; 128/128\n ))\n (\"Supplemental Arrows-C\" (\n \"Symbola\" ; 148/148 @8.00 @8\n ))\n (\"Supplemental Mathematical Operators\" (\n \"Cambria Math\" ; 256/256\n \"Segoe UI Symbol\" ; 256/256\n \"Noto Sans Symbols\" ; 256/256\n \"Apple Symbols\" ; 251/256\n \"Asana Math\" ; 256/256\n \"Code2000\" ; 256/256\n \"Symbola\" ; 256/256 @8.00 @8\n \"Quivira\" ; 256/256 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 195/256\n ))\n (\"Supplemental Punctuation\" (\n \"DejaVu Sans Mono\" ; 7/67 @2.35 @2.34999084472656 ; this will give poor results if existence-checks is set to 'first\n \"Segoe UI Symbol\" ; 50/67\n \"Noto Sans Symbols\" ; 60/67\n \"Antinoou\" ; 46/67\n \"New Athena Unicode\" ; 60/67\n \"Cardo\" ; 43/67\n \"Aegean\" ; 48/67\n \"Symbola\" ; 67/67 @8.00 @8\n \"Quivira\" ; 67/67 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 60/67\n \"Code2000\" ; 49/67\n \"ALPHABETUM Unicode\" ; 50/67\n ))\n (\"Supplemental Symbols and Pictographs\" (\n \"Symbola\" ; 15/15 @8.00 @8\n ))\n ;; (\"Supplementary Private Use Area-A\" (\n ;; \"Aegean\" ; 3,600/65,534\n ;; \"Aegyptus\" ; 7,243/65,534\n ;; \"Jomolhari\" ; 659/65,534\n ;; \"Cardo\" ; 480/65,534 MUFI\n ;; \"Code2001\" ; 292/65,534\n ;; \"Symbola\" ; 166/65,534 @8.00 @8\n ;; \"Analecta\" ; 102/65,534\n ;; \"Musica\" ; 43/65,534\n ;; \"Akkadian\" ; 17/65,534\n ;; ))\n ;; (\"Supplementary Private Use Area-B\" (\"\"))\n ;; (\"Sutton SignWriting\" (\"\")) ; todo added in Unicode 8.0\n (\"Syloti Nagri\" (\n \"Noto Sans Syloti Nagri\" ; 44/44\n \"MPH 2B Damase\"\n ))\n (\"Syriac\" (\n \"Segoe UI Historic\" ; 77/77 @1.00 @1\n \"Estrangelo Edessa\" ; 77/77\n \"Estrangelo Nisibin\" ; 71/77\n \"Code2000\" ; 50/77\n ))\n (\"Tagalog\" (\n \"Quivira\" ; 20/20 @4.1 @3.80000305175781\n \"Noto Sans Tagalog\" ; 20/20\n ))\n (\"Tagbanwa\" (\n \"Noto Sans Tagbanwa\" ; 18/18\n \"Quivira\" ; 18/18 @4.1 @3.80000305175781\n ))\n (\"Tags\" (\n \"BabelStone Modern\" ; 97/97\n \"BabelStone Han\" ; 97/97\n ))\n (\"Tai Le\" (\n \"Microsoft Tai Le\" ; 35/35\n \"TharLon\" ; 35/35\n \"Noto Sans Tai Le\" ; 35/35\n \"Yunghkio\" ; 35/35\n \"Tai Le Valentinium\" ; 35/35\n \"MPH 2B Damase\" ; 35/35\n \"FreeSerif\" ; 35/35\n ))\n (\"Tai Tham\" (\n \"Noto Sans Tai Tham\" ; 127/127\n \"Lanna Alif\" ; 127/127\n \"Chiangsaen Alif\" ; 127/127\n \"Lanna Unicode UI\" ; 127/127\n \"Monlam Uni Sans Serif\" ; 127/127 @3.0 2008 @1.42298889160156\n ))\n (\"Tai Viet\" (\n \"Tai Heritage Pro\" ; 72/72\n \"Noto Sans Tai Viet\" ; 72/72\n ))\n (\"Tai Xuan Jing Symbols\" (\n \"WenQuanYi Zen Hei Mono\" ; 87/87\n \"Apple Symbols\" ; 87/87\n \"Noto Sans Symbols\" ; 87/87\n \"Segoe UI Symbol\" ; 87/87\n \"BabelStone Han\" ; 87/87\n \"DejaVu Sans:width=condensed\"\n \"Symbola\" ; 87/87 @8.00 @8\n \"Quivira\" ; 87/87 @4.1 @3.80000305175781\n \"BabelStone Modern\" ; 87/87\n \"Code2001\" ; 87/87\n \"Everson Mono:weight=bold\" ; 87/87\n ))\n (\"Takri\" (\n \"Albanian\" ; 66/66\n ))\n (\"Tamil\" (\n \"Latha\" ; 72/72\n \"Noto Sans Tamil\" ; 72/72\n \"Noto Sans Tamil UI\" ; 72/72\n \"Nirmala UI\" ; 72/72\n \"Tamil MN\"\n \"Tamil Sangam MN\"\n \"InaiMathi\"\n \"Vijaya\" ; 72/72\n \"Maduram\"\n \"Akshar Unicode\" ; 61/72\n \"Samyak Tamil\" ; 49/72\n \"Samyak\" ; 49/72\n \"Code2000\" ; 71/72\n \"Arial Unicode MS\" ; 61/72\n ))\n (\"Telugu\" (\n \"Noto Sans Telugu\" ; 93/96\n \"Noto Sans Telugu UI\" ; 93/96\n \"Telugu Sangam MN\"\n \"Vani\" ; 93/96\n \"Nirmala UI\" ; 93/96\n \"Gautami\" ; 93/96\n \"Akshar Unicode\" ; 80/96\n \"Code2000\" ; 93/96\n \"Arial Unicode MS\" ; 80/96\n ))\n (\"Thaana\" (\n \"MV Boli\" ; 50/50\n \"Noto Sans Thaana\" ; 50/50\n \"MPH 2B Damase\" ; 50/50\n \"Code2000\" ; 50/50\n \"Everson Mono:weight=bold\" ; 50/50\n ))\n (\"Thai\" (\n \"Thonburi\"\n \"DokChampa\" ; 87/87\n \"Noto Sans Thai\" ; 87/87\n \"Noto Sans Thai UI\" ; 87/87\n \"Noto Serif Thai\" ; 87/87\n \"Ayuthaya\"\n \"Silom\"\n \"Krungthep\"\n \"Sathu\"\n \"Angsana New\" ; 87/87\n \"AngsanaUPC\" ; 87/87\n \"Code2000\"\n \"Tahoma\" ; 87/87\n \"Arial Unicode MS\" ; 87/87\n \"Quivira\" ; 87/87 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 87/87\n ))\n (\"Tibetan\" (\n \"Noto Sans Tibetan\" ; 211/211 @1.00 @1\n \"Kailasa\" ; 205/211 @7.0d2e4 @3.00799560546875\n \"Kokonor\" ; 205/211 @7.0d1e2 @10.0110015869141\n \"Tibetan Machine Uni\" ; 205/211 @1.901_2007 @1.90098571777344\n \"Microsoft Himalaya\" ; 197/211 @5.10 @5.10000610351562\n \"Jomolhari\" ; 195/211 @alpha_0.003c_2006 @0.0030059814453125\n \"Monlam Uni Sans Serif\" ; 193/211 @3.0_2008 @1.42298889160156\n \"Arial Unicode MS\" ; 168/211 @1.01 @1\n ))\n (\"Tifinagh\" (\n \"Noto Sans Tifinagh\" ; 59/59\n \"Ebrima\"\n \"DejaVu Sans:width=condensed\"\n \"Code2000\"\n \"Quivira\" ; 58/59 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 59/59\n ))\n ;; (\"Tirhuta\" (\"\")) ; todo added in Unicode 7.0\n (\"Transport and Map Symbols\" (\n \"Apple Color Emoji\"\n \"Segoe UI Symbol\" ; 70/98\n \"Symbola\" ; 98/98 @8.00 @8\n ))\n (\"Ugaritic\" (\n \"Segoe UI Historic\" ; 31/31 @1.00 @1\n \"Noto Sans Ugaritic\" ; 31/31\n \"Aegean\" ; 31/31\n \"Code2001\" ; 31/31\n \"Andagii\" ; 31/31\n \"Quivira\" ; 31/31 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 31/31\n \"FreeSans\" ; 31/31\n \"ALPHABETUM Unicode\" ; 31/31\n ))\n (\"Unified Canadian Aboriginal Syllabics\" (\n \"Aboriginal Sans\" ; 640/640\n \"Aboriginal Serif\" ; 640/640\n \"Noto Sans Canadian Aboriginal\"; 640/640\n \"Gadugi\"\n \"Euphemia UCAS\"\n \"Euphemia\"\n \"Code2000\"\n \"Quivira\" ; 640/640 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 640/640\n ))\n (\"Unified Canadian Aboriginal Syllabics Extended\" (\n \"Aboriginal Sans\" ; 70/70\n \"Aboriginal Serif\" ; 70/70\n \"Noto Sans Canadian Aboriginal\"; 70/70\n \"Gadugi\"\n \"Euphemia UCAS\"\n \"Euphemia\"\n \"Quivira\" ; 70/70 @4.1 @3.80000305175781\n \"Everson Mono:weight=bold\" ; 70/70\n ))\n (\"Vai\" (\n \"Ebrima\" ; 300/300\n \"Noto Sans Vai\" ; 300/300\n \"Dukor\" ; 300/300\n \"Wakor\" ; 300/300\n \"Code2000\" ; 300/300\n \"Quivira\" ; 300/300 @4.1 @3.80000305175781\n ))\n (\"Variation Selectors\" (\n \"BabelStone Modern\" ; 16/16\n \"BabelStone Han\" ; 16/16\n \"Code2000\"\n ))\n (\"Variation Selectors Supplement\" (\n \"BabelStone Modern\" ; 240/240\n \"BabelStone Han\" ; 240/240\n ))\n (\"Vedic Extensions\" (\n \"Siddhanta\" ; 37/41\n ))\n (\"Vertical Forms\" (\n \"Microsoft YaHei\" ; 10/10\n \"Microsoft YaHei UI\" ; 10/10\n \"Symbola\" ; 10/10 @8.00 @8\n ))\n ;; (\"Warang Citi\" (\"\")) ; todo added in Unicode 7.0\n (\"Yi Radicals\" (\n \"Noto Sans Yi\" ; 55/55\n \"Nuosu SIL\" ; 55/55\n \"Microsoft Yi Baiti\" ; 55/55\n \"STFangsong\" ; 32/55\n \"Code2000\" ; 55/55\n ))\n (\"Yi Syllables\" (\n \"Noto Sans Yi\" ; 1,165/1,165\n \"Nuosu SIL\" ; 1,165/1,165\n \"Microsoft Yi Baiti\" ; 1,165/1,165\n \"STFangsong\" ; 1,024/1,165\n \"Code2000\" ; 1,165/1,165\n ))\n (\"Yijing Hexagram Symbols\" (\n \"WenQuanYi Zen Hei Mono\" ; 64/64\n \"Noto Sans Symbols\" ; 64/64\n \"Segoe UI Symbol\" ; 64/64\n \"Apple Symbols\" ; 64/64\n \"DejaVu Sans:width=condensed\"\n \"BabelStone Han\" ; 64/64\n \"Symbola\" ; 64/64 @8.00 @8\n \"Quivira\" ; 64/64 @4.1 @3.80000305175781\n \"BabelStone Modern\" ; 64/64\n \"Code2000\"\n \"Everson Mono:weight=bold\" ; 64/64\n )))\n \"Preferred fonts for each Unicode block.\n\nThese mappings are only installed in Emacs if a preferred font\nfor the block is available on your system. When multiple fonts\nare given, each is tried in order.\"\n :type '(alist :key-type string :value-type (group (repeat :tag \"Fonts\" (string :tag \"\"))))\n :options (mapcar 'car unicode-fonts-blocks)\n :group 'unicode-fonts)\n\n(defcustom unicode-fonts-ignore-overrides nil\n \"Ignore settings in `unicode-fonts-overrides-mapping'.\"\n :type 'boolean\n :group 'unicode-fonts)\n\n(defcustom unicode-fonts-overrides-mapping\n '(\n ;; Control Pictures block\n (\"Symbol for Escape\" \"Symbol for Escape\" (\"Keyboard\" )) ; OS X shift key\n\n ;; Arrows block\n (\"Rightwards Arrow with Hook\" \"Rightwards Arrow with Hook\" (\"Keyboard\" ))\n (\"Rightwards Arrow to Bar\" \"Rightwards Arrow to Bar\" (\"Lucida Grande\" )) ; Tab key\n (\"Upwards White Arrow\" \"Upwards White Arrow\" (\"Keyboard\" \"Lucida Grande\" )) ; OS X shift key\n (\"Upwards White Arrow from Bar\" \"Upwards White Arrow from Bar\" (\"Keyboard\" \"Lucida Grande\" ))\n\n ;; Miscellaneous Technical block\n (\"Up Arrowhead\" \"Up Arrowhead\" (\"Keyboard\" \"Lucida Grande\" )) ; OS X control key\n (\"Projective\" \"Projective\" (\"Lucida Grande\" )) ; OS X key?\n (\"Up Arrowhead Between Two Horizontal Bars\" \"Up Arrowhead Between Two Horizontal Bars\" (\"Keyboard\" \"Lucida Grande\" ))\n (\"Place of Interest Sign\" \"Place of Interest Sign\" (\"Keyboard\" \"Lucida Grande\" )) ; OS X command key\n (\"Option Key\" \"Option Key\" (\"Keyboard\" \"Lucida Grande\" ))\n (\"Erase to the Right\" \"Erase to the Right\" (\"Keyboard\" \"Lucida Grande\" ))\n (\"X in a Rectangle Box\" \"X in a Rectangle Box\" (\"Keyboard\" \"Lucida Grande\" ))\n (\"Erase To the Left\" \"Erase To the Left\" (\"Keyboard\" \"Lucida Grande\" )) ; Backspace\n (\"APL Functional Symbol Quad Backslash\" \"APL Functional Symbol Quad Backslash\" (\"Lucida Grande\" )) ; OS X key?\n (\"Alternative Key Symbol\" \"Alternative Key Symbol\" (\"Keyboard\" \"Lucida Grande\" )) ; OS X alt key\n (\"Broken Circle with Northwest Arrow\" \"Broken Circle with Northwest Arrow\" (\"Keyboard\" \"Lucida Grande\" )) ; OS X power key\n (\"Eject Symbol\" \"Eject Symbol\" (\"Keyboard\" \"Lucida Grande\" ))\n (\"Left Parenthesis Upper Hook\" \"Radical Symbol Bottom\" (\"Cambria Math\" \"Quivira\" \"Code2000\" ))\n (\"Top Half Integral\" \"Bottom Half Integral\" (\"Cambria Math\" \"Quivira\" \"Code2000\" ))\n\n ;; General Punctuation block\n (\"En Quad\" \"Zero Width Joiner\" (\"DejaVu Sans\" \"Symbola\" \"Arial Unicode MS\")) ; space variations are proportional\n (\"Bullet\" \"Bullet\" (\"DejaVu Sans:width=condensed\" ))\n\n ;; Geometric Shapes block\n (\"White Bullet\" \"White Bullet\" (\"DejaVu Sans:width=condensed\" ))\n\n ;; Mathematical Operators block\n (\"Circled Times\" \"Circled Times\" (\"Arial Unicode MS\" ))\n\n ;; Currency Symbols block\n (\"Drachma Sign\" \"Drachma Sign\" (\"DejaVu Sans Mono\" ))\n (\"German Penny Sign\" \"German Penny Sign\" (\"DejaVu Sans Mono\" ))\n (\"New Sheqel Sign\" \"New Sheqel Sign\" (\"DejaVu Sans Mono\" ))\n (\"Livre Tournois Sign\" \"Spesmilo Sign\" (\"Noto Sans Symbols\" \"Symbola\" ))\n (\"Turkish Lira Sign\" \"Turkish Lira Sign\" (\"Noto Sans Symbols\" \"Symbola\" \"Noto Sans\"))\n (\"Nordic Mark Sign\" \"Nordic Mark Sign\" (\"Symbola\" ))\n (\"Manat Sign\" \"Lari Sign\" (\"Noto Sans Symbols\" \"Symbola\" ))\n (#x20BF #x20CF (\"Symbola\" ))\n\n ;; Dingbats block\n (\"White Heavy Check Mark\" \"White Heavy Check Mark\" (\"Symbola\" ))\n (\"Raised Fist\" \"Raised Hand\" (\"Symbola\" ))\n (\"Sparkles\" \"Sparkles\" (\"Symbola\" ))\n (\"Cross Mark\" \"Cross Mark\" (\"Symbola\" ))\n (\"Negative Squared Cross Mark\" \"Negative Squared Cross Mark\" (\"Symbola\" ))\n (\"Black Question Mark Ornament\" \"White Exclamation Mark Ornament\" (\"Symbola\" ))\n (\"Heavy Exclamation Mark Symbol\" \"Heavy Exclamation Mark Symbol\" (\"Symbola\" ))\n (\"Heavy Low Single Comma Quotation Mark Ornament\" \"Heavy Low Double Comma Quotation Mark Ornament\" (\"Symbola\" ))\n (\"Dingbat Negative Circled Digit One\" \"Dingbat Negative Circled Sans-Serif Number Ten\" (\"Zapf Dingbats\" \"DejaVu Sans:width=condensed\" \"Symbola\"))\n (\"Heavy Plus Sign\" \"Heavy Division Sign\" (\"Symbola\" ))\n (\"Curly Loop\" \"Curly Loop\" (\"Symbola\" ))\n (\"Double Curly Loop\" \"Double Curly Loop\" (\"Symbola\" ))\n\n ;; Phonetic Extensions block\n (\"Latin Small Letter Turned A\" \"Latin Small Letter Turned A\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter C with Curl\" \"Latin Small Letter C with Curl\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter Closed Reversed Open E\" \"Latin Small Letter Closed Reversed Open E\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter Gamma\" \"Latin Small Letter Gamma\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter Rams Horn\" \"Latin Small Letter Rams Horn\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter L with Belt\" \"Latin Small Letter L with Belt\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter Closed Omega\" \"Latin Small Letter Closed Omega\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter Esh with Curl\" \"Latin Small Letter Esh with Curl\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter V with Hook\" \"Latin Small Letter V with Hook\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter Z with Retroflex Hook\" \"Latin Small Letter Z with Retroflex Hook\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter Z with Curl\" \"Latin Small Letter Z with Curl\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter Ezh with Curl\" \"Latin Small Letter Ezh with Curl\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter Closed Open E\" \"Latin Small Letter Closed Open E\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Letter Small Capital G with Hook\" \"Latin Letter Small Capital G with Hook\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter J with Crossed-Tail\" \"Latin Small Letter J with Crossed-Tail\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter Dezh Digraph\" \"Latin Small Letter Dezh Digraph\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter Dz Digraph with Curl\" \"Latin Small Letter Dz Digraph with Curl\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Small Letter Tc Digraph with Curl\" \"Latin Small Letter Tc Digraph with Curl\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Letter Voiced Laryngeal Spirant\" \"Latin Letter Ain\" (\"Consolas\" \"Quivira\" ))\n (\"Modifier Letter Small A\" \"Modifier Letter Small Turned A\" (\"Consolas\" \"DejaVu Sans Mono\" \"Quivira\" ))\n (\"Modifier Letter Small Open E\" \"Modifier Letter Small Turned Open E\" (\"Consolas\" \"DejaVu Sans Mono\" \"Quivira\" ))\n (\"Modifier Letter Small Ain\" \"Modifier Letter Small Chi\" (\"Consolas\" \"Quivira\" ))\n (\"Greek Subscript Small Letter Beta\" \"Greek Subscript Small Letter Chi\" (\"Consolas\" \"Quivira\" ))\n (\"Latin Small Letter Insular G\" \"Latin Small Letter Insular G\" (\"Consolas\" \"Quivira\" ))\n\n ;; Superscripts and Subscripts block\n (\"Latin Subscript Small Letter A\" \"Latin Subscript Small Letter Schwa\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n (\"Latin Subscript Small Letter H\" \"Latin Subscript Small Letter T\" ( \"DejaVu Sans Mono\" \"Symbola\" ))\n\n ;; Spacing Modifier Letters block\n (\"Modifier Letter Small Gamma\" \"Modifier Letter Small Gamma\" (\"Consolas\" \"DejaVu Sans Mono\" \"Symbola\" ))\n\n ;; Latin Extended-B block\n (\"Latin Capital Letter G with Hook\" \"Latin Small Letter Hv\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Capital Letter Oi\" \"Latin Capital Letter P with Hook\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Capital Letter V with Hook\" \"Latin Small Letter Y with Hook\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Capital Letter Tone Five\" \"Latin Letter Wynn\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Capital Letter Yogh\" \"Latin Small Letter Yogh\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Small Letter L with Curl\" \"Latin Small Letter T with Curl\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Capital Letter B with Hook\" \"Latin Capital Letter B with Hook\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Capital Letter C with Hook\" \"Latin Capital Letter C with Hook\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Small Letter C with Hook\" \"Latin Small Letter C with Hook\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Capital Letter D with Hook\" \"Latin Capital Letter D with Hook\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Small Letter Turned Delta\" \"Latin Small Letter Turned Delta\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Capital Letter K with Hook\" \"Latin Capital Letter K with Hook\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Small Letter Lambda with Stroke\" \"Latin Small Letter Lambda with Stroke\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Letter Yr\" \"Latin Letter Yr\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Letter Reversed Esh Loop\" \"Latin Letter Reversed Esh Loop\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Capital Letter T with Hook\" \"Latin Capital Letter T with Hook\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Small Letter Ezh with Tail\" \"Latin Small Letter Ezh with Tail\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Capital Letter Hwair\" \"Latin Capital Letter Hwair\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Small Letter S with Swash Tail\" \"Latin Small Letter S with Swash Tail\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Small Letter Z with Swash Tail\" \"Latin Small Letter Z with Swash Tail\" (\"Consolas\" \"DejaVu Sans Mono\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Capital Letter Wynn\" \"Latin Capital Letter Wynn\" (\"Consolas\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Small Letter Ou\" \"Latin Small Letter Ou\" (\"Consolas\" \"DejaVu Sans:width=condensed\" ))\n (\"Latin Small Letter Glottal Stop\" \"Latin Small Letter Y with Stroke\" (\"Consolas\" \"DejaVu Sans:width=condensed\" ))\n\n ;; Latin Extended Additional block\n (\"Latin Small Letter Long S with Diagonal Stroke\" \"Latin Small Letter Delta\" (\"DejaVu Sans:width=condensed\" \"Quivira\"))\n (\"Latin Capital Letter Middle-Welsh Ll\" \"Latin Small Letter Y with Loop\" (\"Quivira\" ))\n\n ;; Enclosed CJK Letters and Months block\n (\"Circled Hangul Kiyeok\" \"Korean Standard Symbol\" (\"PCMyungjo\" \"PilGi\" \"Malgun Gothic\")) ; Korean symbols\n\n ;; Halfwidth and Fullwidth Forms block\n (\"Halfwidth Ideographic Full Stop\" \"Halfwidth Katakana Semi-Voiced Sound Mark\" (\"Osaka:spacing=m\" \"Meiryo\" \"HanaMinA\")) ; Japanese letters\n\n ;; Greek and Coptic block\n (\"Coptic Capital Letter Shei\" \"Coptic Small Letter Dei\" (\"Microsoft Sans Serif\" \"DejaVu Sans:width=condensed\"))\n\n ;; Alphabetic Presentation Forms block\n (\"Hebrew Letter Yod with Hiriq\" \"Hebrew Ligature Alef Lamed\" (\"Miriam Fixed\" \"Ezra SIL\" \"Ezra SIL SR\" \"Arial Hebrew\" \"Adobe Hebrew\" \"Arial Unicode MS\" \"Quivira\"))\n (\"Armenian Small Ligature Men Now\" \"Armenian Small Ligature Men Xeh\" (\"Noto Sans Armenian\" \"Mshtakan\" \"Sylfaen\" \"DejaVu Sans:width=condensed\" \"Quivira\" \"Arial Unicode MS\" ))\n\n ;; Arabic letters\n (\"Arabic Letter Hah with Small Arabic Letter Tah Below\" \"Arabic Letter Kaf with Two Dots Above\" (\"Geeza Pro\" ))\n\n ;; Cyrillic Supplement block\n (\"Cyrillic Capital Letter Lha\" \"Cyrillic Small Letter Pe with Descender\" (\"DejaVu Sans:width=condensed\" \"Doulos SIL\" \"Symbola\" \"Quivira\"))\n (\"Cyrillic Capital Letter Shha with Descender\" \"Cyrillic Small Letter Shha with Descender\" (\"Doulos SIL\" \"Symbola\" \"Quivira\" ))\n (#x528 #x52F (\"Symbola\" \"Quivira\" ))\n\n ;; Cyrillic block\n (\"Cyrillic Capital Letter Omega\" \"Cyrillic Small Letter Omega\" (\"Consolas\" \"DejaVu Sans:width=condensed\" \"Symbola\"))\n (\"Cyrillic Capital Letter Iotified E\" \"Cyrillic Small Letter Psi\" (\"Consolas\" \"DejaVu Sans:width=condensed\" \"Symbola\"))\n (\"Cyrillic Capital Letter Izhitsa\" \"Cyrillic Small Letter Er With Tick\" (\"Consolas\" \"DejaVu Sans:width=condensed\" \"Symbola\"))\n (\"Cyrillic Capital Letter Ghe with Middle Hook\" \"Cyrillic Small Letter Ghe with Middle Hook\" (\"Consolas\" \"DejaVu Sans:width=condensed\" \"Symbola\"))\n (\"Cyrillic Capital Letter Ka With Vertical Stroke\" \"Cyrillic Small Letter Bashkir Ka\" (\"Consolas\" \"DejaVu Sans:width=condensed\" \"Symbola\"))\n (\"Cyrillic Capital Letter Pe With Middle Hook\" \"Cyrillic Small Letter Abkhasian Ha\" (\"Consolas\" \"DejaVu Sans:width=condensed\" \"Symbola\"))\n (\"Cyrillic Capital Ligature Te Tse\" \"Cyrillic Small Letter Che With Vertical Stroke\" (\"Consolas\" \"DejaVu Sans:width=condensed\" \"Symbola\"))\n (\"Cyrillic Capital Letter Abkhasian Che\" \"Cyrillic Small Letter Abkhasian Che With Descender\" (\"Consolas\" \"DejaVu Sans:width=condensed\" \"Symbola\"))\n (\"Cyrillic Capital Letter Ka with Hook\" \"Cyrillic Small Letter Palochka\" (\"Consolas\" \"DejaVu Sans:width=condensed\" \"Symbola\"))\n (\"Cyrillic Capital Letter Abkhasian Dze\" \"Cyrillic Small Letter Abkhasian Dze\" (\"Consolas\" \"DejaVu Sans:width=condensed\" \"Symbola\"))\n (\"Cyrillic Capital Letter Ghe with Descender\" \"Cyrillic Small Letter Ghe with Descender\" (\"Consolas\" \"DejaVu Sans:width=condensed\" \"Symbola\"))\n (\"Cyrillic Capital Letter Ghe With Stroke And Hook\" \"Cyrillic Small Letter Ha With Stroke\" (\"Consolas\" \"DejaVu Sans:width=condensed\" \"Symbola\"))\n\n ;; Number forms block (making the vulgar fractions monospace if possible)\n (\"Vulgar Fraction One Third\" \"Vulgar Fraction Seven Eighths\" (\"Consolas\" \"DejaVu Sans Mono\" ))\n\n ;; Letterlike Symbols block\n (\"Account Of\" \"Addressed To The Subject\" (\"Apple Symbols\" \"Symbola\" \"Quivira\"))\n (\"Cada Una\" \"Cada Una\" (\"Apple Symbols\" \"Symbola\" \"Quivira\"))\n (\"Prescription Take\" \"Telephone Sign\" (\"Apple Symbols\" \"Symbola\" \"Quivira\"))\n (\"Versicle\" \"Versicle\" (\"Apple Symbols\" \"Symbola\" \"Quivira\"))\n (\"Turned Capital F\" \"Turned Capital F\" (\"Apple Symbols\" \"Symbola\" \"Quivira\"))\n (\"Facsimile Sign\" \"Facsimile Sign\" (\"Apple Symbols\" \"Symbola\" \"Quivira\"))\n (\"Double-Struck Small Pi\" \"Double-Struck Small Pi\" (\"Symbola\" \"Quivira\" ))\n (\"Per Sign\" \"Per Sign\" (\"Symbola\" \"Quivira\" ))\n (\"Symbol For Samaritan Source\" \"Symbol For Samaritan Source\" (\"Symbola\" \"Quivira\" ))\n\n ;; Greek and Coptic block\n (\"Greek Capital Letter Heta\" \"Greek Small Letter Archaic Sampi\" (\"DejaVu Sans:width=condensed\" \"Symbola\" \"Quivira\"))\n (\"Greek Capital Letter Pamphylian Digamma\" \"Greek Small Letter Pamphylian Digamma\" (\"DejaVu Sans:width=condensed\" \"Symbola\" \"Quivira\"))\n (\"Greek Capital Kai Symbol\" \"Greek Capital Kai Symbol\" (\"DejaVu Sans:width=condensed\" \"Symbola\" \"Quivira\"))\n\n ;; Old Italic block\n (\"Old Italic Letter Ess\" \"Old Italic Letter Ess\" (\"Albanian\")))\n\n \"Overrides for `unicode-fonts-block-font-mapping' over arbitrary ranges.\n\nRanges are specified using the full UCS name or UCS number of\nthe start and end characters. To override just one character,\ngive the same value for both endpoints.\n\nThese mappings are only installed in Emacs if a preferred font\nfor the range is available on your system. When multiple fonts\nare given, each is tried in order.\n\nIf the font backend provided by your operating system handles\nglyph-by-glyph fallthrough well, you may not need many of\nthese mappings.\"\n :type '(alist :key-type (choice (string :tag \"Start Character Name\")\n (integer :tag \"Start Character Number\"))\n :value-type (group (choice (string :tag \"End Character Name\")\n (integer :tag \"End Character Number\"))\n (repeat :tag \"Preferred Fonts\" (string :tag \"\"))))\n :group 'unicode-fonts)\n\n;;; variables\n\n(defvar unicode-fonts-setup-done nil \"Fontsets for which unicode-font setup is complete.\")\n(defvar unicode-fonts-skipped-fonts-computed nil \"The computed extension of `unicode-fonts-skip-fonts'.\")\n(defvar unicode-fonts--instructions nil \"Alist of code to set up fonts on a given system.\")\n\n;; note: variable outside unicode-fonts- namespace\n(defvar unicode-block-history nil \"History of Unicode blocks entered in the minibuffer.\")\n\n;;; compatibility functions\n\n(defun persistent-softest-store (symbol value location &optional expiration)\n \"Call `persistent-soft-store' but don't fail when library not present.\"\n (ignore-errors (persistent-soft-store symbol value location expiration)))\n(defun persistent-softest-fetch (symbol location)\n \"Call `persistent-soft-fetch' but don't fail when library not present.\"\n (ignore-errors (persistent-soft-fetch symbol location)))\n(defun persistent-softest-exists-p (symbol location)\n \"Call `persistent-soft-exists-p' but don't fail when library not present.\"\n (ignore-errors (persistent-soft-exists-p symbol location)))\n(defun persistent-softest-flush (location)\n \"Call `persistent-soft-flush' but don't fail when library not present.\"\n (ignore-errors (persistent-soft-flush location)))\n(defun persistent-softest-location-readable (location)\n \"Call `persistent-soft-location-readable' but don't fail when library not present.\"\n (ignore-errors (persistent-soft-location-readable location)))\n(defun persistent-softest-location-destroy (location)\n \"Call `persistent-soft-location-destroy' but don't fail when library not present.\"\n (ignore-errors (persistent-soft-location-destroy location)))\n\n;;; utility functions\n\n;;;###autoload\n(defun unicode-fonts-first-existing-font (font-names)\n \"Return the (normalized) first existing font name from FONT-NAMES.\n\nFONT-NAMES is a list, with each element typically in Fontconfig\nfont-name format.\n\nThe font existence-check is lazy; fonts after the first hit are\nnot checked.\"\n (font-utils-first-existing-font (cl-remove-if #'(lambda (x)\n (cl-member x unicode-fonts-skipped-fonts-computed :test 'font-utils-lenient-name-equal))\n font-names)))\n\n;;;###autoload\n(defun unicode-fonts-font-exists-p (font-name &optional point-size strict)\n \"Run `font-utils-exists-p' with a limited scope.\n\nThe scope is defined by `unicode-fonts-restrict-to-fonts'.\n\nFONT-NAME, POINT-SIZE, and STRICT are as documented at\n`font-utils-exists-p'.\"\n (font-utils-exists-p font-name point-size strict unicode-fonts-restrict-to-fonts))\n\n(defsubst unicode-fonts--create-char-range (range)\n \"Create a numeric character range from RANGE.\n\nRANGE is a list of two UCS character representations, either in\nthe form of integer code points or Unicode character names.\n\nThe return value is a list of two ascending integers, or nil on\nerror.\"\n (let ((return-range (copy-tree range)))\n (when (stringp (car return-range))\n (setf (car return-range) (ucs-utils-char (car return-range) nil)))\n (when (stringp (cadr return-range))\n (setf (cadr return-range) (ucs-utils-char (cadr return-range) nil)))\n (if (and (integerp (car return-range)) (integerp (cadr return-range)))\n (progn\n (when (> (car return-range) (cadr return-range))\n (setq return-range (nreverse return-range)))\n return-range)\n nil)))\n\n(defun unicode-fonts-compute-skipped-fonts ()\n \"Compute list of fonts to skip from consideration.\"\n (setq unicode-fonts-skipped-fonts-computed unicode-fonts-skip-fonts)\n (dolist (cell unicode-fonts-known-font-characteristics)\n (let ((name (car cell))\n (props (cdr cell)))\n (setq name (replace-regexp-in-string \":.*\\\\'\" \"\" name))\n (when (and (memq 'chinese-traditional unicode-fonts-skip-font-groups)\n (eq 'traditional (plist-get props :chinese)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'chinese-simplified unicode-fonts-skip-font-groups)\n (eq 'simplified (plist-get props :chinese)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'chinese-hanja unicode-fonts-skip-font-groups)\n (eq 'hanja (plist-get props :chinese)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'chinese-kanji unicode-fonts-skip-font-groups)\n (eq 'kanji (plist-get props :chinese)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'chinese-nom unicode-fonts-skip-font-groups)\n (eq 'nom (plist-get props :chinese)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'arabic-naskh unicode-fonts-skip-font-groups)\n (eq 'naskh (plist-get props :arabic)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'arabic-diwani unicode-fonts-skip-font-groups)\n (eq 'diwani (plist-get props :arabic)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'arabic-farsi unicode-fonts-skip-font-groups)\n (eq 'farsi (plist-get props :arabic)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'arabic-urdu unicode-fonts-skip-font-groups)\n (eq 'urdu (plist-get props :arabic)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'arabic-kufic unicode-fonts-skip-font-groups)\n (eq 'kufic (plist-get props :arabic)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'microsoft-only unicode-fonts-skip-font-groups)\n (equal '(microsoft) (plist-get props :licenses)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'apple-only unicode-fonts-skip-font-groups)\n (equal '(apple) (plist-get props :licenses)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'multicolor unicode-fonts-skip-font-groups)\n (eq 'multi (plist-get props :color)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'microsoft unicode-fonts-skip-font-groups)\n (memq 'microsoft (plist-get props :licenses)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'apple unicode-fonts-skip-font-groups)\n (memq 'apple (plist-get props :licenses)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'free unicode-fonts-skip-font-groups)\n (memq 'free (plist-get props :licenses)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'non-free unicode-fonts-skip-font-groups)\n (not (memq 'free (plist-get props :licenses))))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'low-quality-glyphs unicode-fonts-skip-font-groups)\n (eq 'low (plist-get props :glyph-quality)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'decorative unicode-fonts-skip-font-groups)\n (eq t (plist-get props :decorative)))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'non-cleartype unicode-fonts-skip-font-groups)\n (not (eq t (plist-get props :cleartype))))\n (push name unicode-fonts-skipped-fonts-computed))\n (when (and (memq 'buggy-before-vista unicode-fonts-skip-font-groups)\n (eq t (plist-get props :buggy-before-vista)))\n (push name unicode-fonts-skipped-fonts-computed))\n (delete-dups unicode-fonts-skipped-fonts-computed))))\n\n;;;###autoload\n(defun unicode-fonts-read-block-name (&optional ido)\n \"Read a Unicode block name using `completing-read'.\n\nSpaces are replaced with underscores in completion values, but\nare removed from the return value.\n\nUse `ido-completing-read' if IDO is set.\"\n (save-match-data\n (let ((prompt \"Block: \")\n (reader (if ido 'ido-completing-read 'completing-read))\n (block-names (mapcar #'(lambda (x)\n (replace-regexp-in-string \" \" \"_\" x))\n (mapcar 'car unicode-fonts-blocks))))\n (replace-regexp-in-string \"_\" \" \"\n (funcall reader prompt block-names nil nil nil 'unicode-block-history)))))\n\n;;; debugging functions\n\n(defun unicode-fonts-debug-info-at-point ()\n \"Display debug info about the character at point.\"\n (when (char-after)\n (let ((font (font-at (point)))\n (font-name nil)\n (font-size nil)\n (block-name nil)\n (plane-name nil)\n (char-name (ucs-utils-pretty-name (char-after))))\n (when font\n (setq font-name (or (font-get font :name)\n (font-get font :family)))\n (when (and font-name\n (symbolp font-name))\n (setq font-name (symbol-name font-name)))\n (setq font-size (font-get font :size))\n (when (numberp font-size)\n (setq font-size (number-to-string font-size)))\n (when (and (stringp font-name)\n (stringp font-size)\n (> (length font-name) 0)\n (> (length font-size) 0))\n (cl-callf concat font-name \"-\" font-size))\n (unless (and (stringp font-name)\n (> (length font-name) 0))\n (setq font-name (font-utils-name-from-xlfd (font-xlfd-name font)))))\n (setq block-name\n (catch 'bn\n (dolist (cell unicode-fonts-blocks)\n (let* ((block-name (car cell))\n (char-range (cdr cell)))\n (when (and (>= (char-after) (car char-range))\n (<= (char-after) (cadr char-range)))\n (throw 'bn block-name))))))\n (setq plane-name\n (catch 'pn\n (dolist (cell unicode-fonts-planes)\n (let* ((plane-name (car cell))\n (char-range (cdr cell)))\n (when (and (>= (char-after) (car char-range))\n (<= (char-after) (cadr char-range)))\n (throw 'pn plane-name))))))\n (message \"font: %s / block: %s / plane: %s / char: %s\" font-name block-name plane-name char-name))))\n\n(defun unicode-fonts-debug-change-font-for-block (&optional block-name font-name)\n \"Calling this command can crash Emacs.\n\nTemporarily change the font used for BLOCK-NAME to FONT-NAME.\n\nTo permanently change the font for BLOCK-NAME, use the\ncustomization interface.\"\n (cl-callf or block-name (unicode-fonts-read-block-name 'ido))\n (cl-callf or font-name (font-utils-read-name 'ido))\n (cl-assert (assoc-string block-name unicode-fonts-blocks 'case-fold) nil \"No such block\")\n (cl-assert (unicode-fonts-font-exists-p font-name) nil \"Font does not is exist or is not understood: %s\" font-name)\n (when (y-or-n-p (propertize \"Really risk crashing Emacs?\" 'face 'highlight))\n (message \"\")\n (let ((char-range (cdr (assoc-string block-name unicode-fonts-blocks 'case-fold))))\n (dolist (fontset-name (cl-remove-if-not #'(lambda (fs) (ignore-errors (fontset-info fs))) unicode-fonts-fontset-names))\n (set-fontset-font fontset-name\n (cons (decode-char 'ucs (car char-range)) (decode-char 'ucs (cadr char-range)))\n (font-spec :name (concat font-name \":\") :registry \"iso10646-1\"))))))\n\n(defun unicode-fonts-debug-change-all-fonts (&optional font-name)\n \"Calling this command can crash Emacs.\n\nTemporarily change the font used for all blocks to FONT-NAME.\"\n (cl-callf or font-name (font-utils-read-name 'ido))\n (cl-assert (unicode-fonts-font-exists-p font-name) nil \"Font does not is exist or is not understood: %s\" font-name)\n (when (y-or-n-p (propertize \"Really risk crashing Emacs?\" 'face 'highlight))\n (dolist (fontset-name (cl-remove-if-not #'(lambda (fs) (ignore-errors (fontset-info fs))) unicode-fonts-fontset-names))\n (dolist (cell unicode-fonts-block-font-mapping)\n (let* ((block-name (car cell))\n (char-range (cdr (assoc-string block-name unicode-fonts-blocks 'case-fold))))\n (when char-range\n (set-fontset-font fontset-name\n (cons (decode-char 'ucs (car char-range)) (decode-char 'ucs (cadr char-range)))\n (font-spec :name (concat font-name \":\") :registry \"iso10646-1\"))))))))\n\n(defun unicode-fonts-debug-interactively (&optional arg)\n \"Always show the font at point.\n\nThis is a buffer-local setting. Turn it off by quitting the\nbuffer or calling this function with negative ARG.\"\n (if (and (numberp arg)\n (< arg 0))\n (remove-hook 'post-command-hook 'unicode-fonts-debug-info-at-point t)\n ;; else\n (add-hook 'post-command-hook 'unicode-fonts-debug-info-at-point t t)))\n\n(defun unicode-fonts-debug-insert-block (&optional block-name)\n \"Insert all the characters from BLOCK-NAME for debugging purposes.\n\nSee also: `list-charset-chars'.\"\n (cl-callf or block-name (unicode-fonts-read-block-name 'ido))\n (set-buffer-multibyte t)\n (cond\n ((eq block-name 'all)\n (dolist (name (reverse (mapcar 'car unicode-fonts-blocks)))\n (unicode-fonts-debug-insert-block name)))\n ((eq block-name 'all-cjk)\n (dolist (name (reverse '(\n \"Bopomofo\"\n \"Bopomofo Extended\"\n \"CJK Compatibility\"\n \"CJK Compatibility Forms\"\n \"CJK Compatibility Ideographs\"\n \"CJK Compatibility Ideographs Supplement\"\n \"CJK Radicals Supplement\"\n \"CJK Strokes\"\n \"CJK Symbols and Punctuation\"\n \"CJK Unified Ideographs\"\n \"CJK Unified Ideographs Extension A\"\n \"CJK Unified Ideographs Extension B\"\n \"CJK Unified Ideographs Extension C\"\n \"CJK Unified Ideographs Extension D\"\n \"CJK Unified Ideographs Extension E\"\n \"Enclosed CJK Letters and Months\"\n \"Enclosed Ideographic Supplement\"\n \"Halfwidth and Fullwidth Forms\"\n \"Hangul Compatibility Jamo\"\n \"Hangul Jamo\"\n \"Hangul Jamo Extended-A\"\n \"Hangul Jamo Extended-B\"\n \"Hangul Syllables\"\n \"Hiragana\"\n \"Ideographic Description Characters\"\n \"Kana Supplement\"\n \"Kanbun\"\n \"Kangxi Radicals\"\n \"Katakana\"\n \"Katakana Phonetic Extensions\"\n \"Modifier Tone Letters\"\n \"Small Form Variants\"\n \"Spacing Modifier Letters\")))\n (unicode-fonts-debug-insert-block name)))\n ((eq block-name 'all-greek)\n (dolist (name (reverse '(\n \"Ancient Greek Musical Notation\"\n \"Ancient Greek Numbers\"\n \"Greek and Coptic\"\n \"Greek Extended\"\n \"Linear A\"\n \"Linear B Ideograms\"\n \"Linear B Syllabary\")))\n (unicode-fonts-debug-insert-block name)))\n ((eq block-name 'all-math)\n (dolist (name (reverse '(\n \"Letterlike Symbols\"\n \"Mathematical Alphanumeric Symbols\"\n \"Mathematical Operators\"\n \"Miscellaneous Mathematical Symbols-A\"\n \"Miscellaneous Mathematical Symbols-B\"\n \"Miscellaneous Technical\"\n \"Number Forms\"\n \"Superscripts and Subscripts\"\n \"Supplemental Arrows-A\"\n \"Supplemental Arrows-B\"\n \"Supplemental Arrows-C\"\n \"Supplemental Mathematical Operators\")))\n (unicode-fonts-debug-insert-block name)))\n ((eq block-name 'all-arabic)\n (dolist (name (reverse '(\n \"Arabic\"\n \"Arabic Extended-A\"\n \"Arabic Mathematical Alphabetic Symbols\"\n \"Arabic Presentation Forms-A\"\n \"Arabic Presentation Forms-B\"\n \"Arabic Supplement\")))\n (unicode-fonts-debug-insert-block name)))\n ((eq block-name 'all-cyrillic)\n (dolist (name (reverse '(\n \"Cyrillic\"\n \"Cyrillic Extended-A\"\n \"Cyrillic Extended-B\"\n \"Cyrillic Supplement\")))\n (unicode-fonts-debug-insert-block name)))\n ((eq block-name 'all-ethiopic)\n (dolist (name (reverse '(\n \"Ethiopic\"\n \"Ethiopic Extended\"\n \"Ethiopic Extended-A\"\n \"Ethiopic Supplement\")))\n (unicode-fonts-debug-insert-block name)))\n ((eq block-name 'all-arrows)\n (dolist (name (reverse '(\n \"Arrows\"\n \"Miscellaneous Symbols and Arrows\"\n \"Supplemental Arrows-A\"\n \"Supplemental Arrows-B\"\n \"Supplemental Arrows-C\"\n \"Transport and Map Symbols\")))\n (unicode-fonts-debug-insert-block name)))\n ((eq block-name 'all-symbols)\n (dolist (name (reverse '(\n \"Aegean Numbers\"\n \"Alchemical Symbols\"\n \"Alphabetic Presentation Forms\"\n \"Ancient Greek Musical Notation\"\n \"Ancient Greek Numbers\"\n \"Ancient Symbols\"\n \"Arabic Mathematical Alphabetic Symbols\"\n \"Arrows\"\n \"Block Elements\"\n \"Box Drawing\"\n \"Byzantine Musical Symbols\"\n \"CJK Symbols and Punctuation\"\n \"Combining Diacritical Marks for Symbols\"\n \"Common Indic Number Forms\"\n \"Control Pictures\"\n \"Coptic Epact Numbers\"\n \"Counting Rod Numerals\"\n \"Cuneiform Numbers and Punctuation\"\n \"Currency Symbols\"\n \"Dingbats\"\n \"Domino Tiles\"\n \"Emoticons\"\n \"Enclosed Alphanumeric Supplement\"\n \"Enclosed Alphanumerics\"\n \"Enclosed CJK Letters and Months\"\n \"Enclosed Ideographic Supplement\"\n \"General Punctuation\"\n \"Geometric Shapes\"\n \"Geometric Shapes Extended\"\n \"Halfwidth and Fullwidth Forms\"\n \"IPA Extensions\"\n \"Khmer Symbols\"\n \"Latin-1 Supplement\"\n \"Letterlike Symbols\"\n \"Mahjong Tiles\"\n \"Mathematical Alphanumeric Symbols\"\n \"Mathematical Operators\"\n \"Miscellaneous Mathematical Symbols-A\"\n \"Miscellaneous Mathematical Symbols-B\"\n \"Miscellaneous Symbols\"\n \"Miscellaneous Symbols and Arrows\"\n \"Miscellaneous Symbols and Pictographs\"\n \"Miscellaneous Technical\"\n \"Modifier Tone Letters\"\n \"Musical Symbols\"\n \"Number Forms\"\n \"Optical Character Recognition\"\n \"Ornamental Dingbats\"\n \"Playing Cards\"\n \"Rumi Numeral Symbols\"\n \"Sinhala Archaic Numbers\"\n \"Small Form Variants\"\n \"Spacing Modifier Letters\"\n \"Specials\"\n \"Superscripts and Subscripts\"\n \"Supplemental Arrows-A\"\n \"Supplemental Arrows-B\"\n \"Supplemental Arrows-C\"\n \"Supplemental Mathematical Operators\"\n \"Supplemental Punctuation\"\n \"Supplemental Symbols and Pictographs\"\n \"Tai Xuan Jing Symbols\"\n \"Transport and Map Symbols\"\n \"Yijing Hexagram Symbols\")))\n (unicode-fonts-debug-insert-block name)))\n (t\n (save-match-data\n (let ((char-range (cdr (assoc-string block-name unicode-fonts-blocks 'case-fold)))\n (counter 0)\n (posn nil))\n (cl-assert (assoc-string block-name unicode-fonts-blocks 'case-fold) nil \"No such block\")\n (unless (looking-at-p \"^\")\n (insert \"\\n\"))\n (setq posn (point))\n (insert (replace-regexp-in-string \" \" \"_\" block-name) \"\\n-----\\n\")\n (cl-loop for i from (car char-range) to (cadr char-range)\n do (progn\n (insert (ucs-utils-char i)\n \" \"\n (concat \"#x\" (upcase (format \"%02x\" i)))\n \" \"\n \"\\\"\" (ucs-utils-pretty-name i) \"\\\"\"\n \"\\n\")\n (cl-incf counter)\n (when (eq 0 (% counter 16))\n (insert \"\\n\"))))\n (push-mark (point) t t)\n (goto-char posn))))))\n\n(defun unicode-fonts-debug-check-duplicate-fonts (font-name font-list)\n \"Test whether FONT-NAME occurs more than once in FONT-LIST.\n\nReturns a list of duplicates when there is more than one\noccurrence, otherwise nil.\"\n (let ((matches (cl-copy-list (cl-member font-name font-list :test 'font-utils-lenient-name-equal)))\n (hits nil)\n (dupes nil))\n (setq matches (sort matches #'(lambda (a b)\n (equal a font-name))))\n (push (pop matches) dupes)\n (while (setq hits (cl-copy-list (cl-member font-name matches :test 'font-utils-lenient-name-equal)))\n (let ((hit (pop hits)))\n (unless (font-utils-is-qualified-variant font-name hit)\n (push hit dupes)))\n (setq matches hits))\n (when (> (length dupes) 1)\n dupes)))\n\n(defun unicode-fonts-debug-validate-data (&optional insert)\n \"Validate `unicode-fonts-block-font-mapping' and other data.\n\nWith optional INSERT, insert debug information into the current\nbuffer instead of sending it to the *Messages* log.\"\n (let ((message-function 'message)\n (known-fonts (mapcar 'car unicode-fonts-known-font-characteristics))\n (reporter nil)\n (dupes nil)\n (counter 0)\n (all-override-ranges nil))\n (when insert\n (require 'express)\n (setq message-function 'express-message-insert))\n\n ;; known fonts\n (setq reporter (make-progress-reporter \"Checking fonts for duplicates ... \" 0 (length known-fonts)))\n (setq counter 0)\n (dolist (font known-fonts)\n (progress-reporter-update reporter (cl-incf counter))\n (when (setq dupes (unicode-fonts-debug-check-duplicate-fonts font known-fonts))\n (funcall message-function \"\\n-----\\nFont %s\\n-----\" font)\n (funcall message-function \"ERROR: font occurs at least twice in known fonts: %s\" dupes)))\n (progress-reporter-done reporter)\n\n ;; mappings\n (setq reporter (make-progress-reporter \"Checking Unicode block mappings ... \" 0 (length unicode-fonts-block-font-mapping)))\n (setq counter 0)\n (dolist (cell unicode-fonts-block-font-mapping)\n (progress-reporter-update reporter (cl-incf counter))\n (let* ((block-name (car cell))\n (char-range (cdr (assoc-string block-name unicode-fonts-blocks 'case-fold)))\n (all-fonts-with-qualifiers (cadr cell))\n (all-fonts (mapcar #'(lambda (x) (replace-regexp-in-string \":.*\\\\'\" \"\" x)) all-fonts-with-qualifiers))\n (existing-fonts (cl-remove-if-not 'unicode-fonts-font-exists-p all-fonts))\n (existing-unskipped-fonts (cl-remove-if #'(lambda (x)\n (cl-member x unicode-fonts-skipped-fonts-computed :test 'font-utils-lenient-name-equal)) existing-fonts))\n (best-font (pop existing-unskipped-fonts))\n (licenses nil))\n (funcall message-function \"\\n-----\\nBlock %s\\n-----\" block-name)\n (dolist (qualified-font all-fonts-with-qualifiers)\n (let ((font (replace-regexp-in-string \":.*\\\\'\" \"\" qualified-font)))\n (when (setq dupes (unicode-fonts-debug-check-duplicate-fonts qualified-font all-fonts-with-qualifiers))\n (funcall message-function \"ERROR: font occurs at least twice in block: %s\" dupes))\n (let ((plist (cdr (assoc-string font unicode-fonts-known-font-characteristics))))\n (if plist\n (setq licenses (append licenses (plist-get plist :licenses)))\n (funcall message-function \"ERROR: Font %s is not listed\" font)))))\n (unless (memq 'microsoft licenses)\n (funcall message-function \"No Microsoft font for block %s\" block-name))\n (unless (memq 'free licenses)\n (funcall message-function \"No Free font for block %s\" block-name))\n (unless (memq 'apple licenses)\n (funcall message-function \"No Apple font for block %s\" block-name))\n (unless existing-fonts\n (funcall message-function \"No displayable font on this system for %s\" block-name))\n (unless best-font\n (funcall message-function \"No acceptable font on this system for %s\" block-name))))\n (progress-reporter-done reporter)\n\n ;; overrides\n (setq reporter (make-progress-reporter \"Checking overrides ... \" 0 (length unicode-fonts-overrides-mapping)))\n (setq counter 0)\n (dolist (cell unicode-fonts-overrides-mapping)\n (progress-reporter-update reporter (cl-incf counter))\n (let* ((char-range (unicode-fonts--create-char-range (list (car cell) (cadr cell))))\n (all-fonts (mapcar #'(lambda (x) (replace-regexp-in-string \":.*\\\\'\" \"\" x)) (car (last cell))))\n (existing-fonts (cl-remove-if-not 'unicode-fonts-font-exists-p all-fonts))\n (existing-unskipped-fonts (cl-remove-if #'(lambda (x)\n (cl-member x unicode-fonts-skipped-fonts-computed :test 'font-utils-lenient-name-equal)) existing-fonts))\n (best-font (pop existing-unskipped-fonts))\n (licenses nil))\n (funcall message-function \"\\n-----\\nOverride %s\\n-----\" (list (car cell) (cadr cell)))\n (if (not char-range)\n (funcall message-function (format \"ERROR: invalid character range %s/%s\" (car cell) (cadr cell)))\n ;; else\n (when (not (eq (ucs-utils-char (car cell) nil) (car char-range)))\n (funcall message-function \"Warning: character range out of order\"))\n (dolist (old-range all-override-ranges)\n (when (and (>= (car char-range) (car old-range))\n (<= (car char-range) (cadr old-range)))\n (funcall message-function \"ERROR: first element overlaps with another range\"))\n (when (and (>= (cadr char-range) (car old-range))\n (<= (cadr char-range) (cadr old-range)))\n (funcall message-function \"ERROR: last element overlaps with another range\")))\n (push char-range all-override-ranges)\n (dolist (font all-fonts)\n (when (setq dupes (unicode-fonts-debug-check-duplicate-fonts font all-fonts))\n (funcall message-function \"ERROR: font occurs at least twice in override: %s\" dupes))\n (let ((plist (cdr (assoc-string font unicode-fonts-known-font-characteristics))))\n (if plist\n (setq licenses (append licenses (plist-get plist :licenses)))\n (funcall message-function \"ERROR: Font %s is not listed\" font))))\n ;; todo here check licenses for coverage as above\n )))\n (progress-reporter-done reporter)))\n\n;;; driver for setup\n\n(defun unicode-fonts--generate-instructions (fontset-name)\n \"Generate `eval'able instructions for modifying FONTSET-NAME.\n\nThis is the principal driver for the library, which converts\n`unicode-fonts-block-font-mapping' and other settings into as\nseries of `set-fontset-font' instructions.\n\nInstructions for FONTSET-NAME will be placed in alist\n`unicode-fonts--instructions'.\"\n (when (and (display-multi-font-p)\n (or (not (assoc fontset-name unicode-fonts--instructions))\n (not (cdr (assoc fontset-name unicode-fonts--instructions)))))\n\n (setq unicode-fonts--instructions\n (delq (assoc fontset-name unicode-fonts--instructions) unicode-fonts--instructions))\n\n (let ((reporter nil)\n (counter 0)\n (instructions nil))\n\n ;; debug font availability\n (when unicode-fonts-debug-availability\n (let ((all-fonts nil)\n (current-msg (current-message))\n (message-log-max most-positive-fixnum))\n (dolist (cell unicode-fonts-block-font-mapping)\n (cl-callf append all-fonts (cadr cell)))\n (delete-dups all-fonts)\n (setq reporter (make-progress-reporter \"Unicode Fonts - Debugging Fonts ... \" 0 (length all-fonts)))\n (setq counter 0)\n (dolist (font all-fonts)\n (progress-reporter-update reporter (cl-incf counter))\n (unless (unicode-fonts-font-exists-p font)\n (message \"Unicode-fonts: font not found: %s\" font)))\n (message current-msg))\n (progress-reporter-done reporter))\n\n ;; first, install fallback mapping\n (let* ((fonts (cl-remove-if #'(lambda (x)\n (cl-member x unicode-fonts-skipped-fonts-computed\n :test 'font-utils-lenient-name-equal))\n unicode-fonts-fallback-font-list))\n (best-font nil))\n (cond\n ((eq unicode-fonts-existence-checks 'none)\n t)\n ((eq unicode-fonts-existence-checks 'first)\n (setq fonts (list (unicode-fonts-first-existing-font fonts))))\n (t ; 'all\n (setq fonts (cl-remove-if-not 'unicode-fonts-font-exists-p fonts))))\n (setq best-font (pop fonts))\n (when best-font\n (push `(set-fontset-font ,fontset-name nil (font-spec :name ,(concat best-font \":\") :registry \"iso10646-1\")) instructions))\n (dolist (lesser-font fonts)\n (push `(set-fontset-font ,fontset-name nil (font-spec :name ,(concat lesser-font \":\") :registry \"iso10646-1\") nil 'append) instructions)))\n\n ;; next, install mappings by unicode block\n ;; this is slow the first time through, because of unicode-fonts-font-exists-p\n (unless unicode-fonts-less-feedback\n (setq reporter (make-progress-reporter (format \"Unicode Fonts - Mapping Unicode Blocks in %s ... \" fontset-name) 0 (length unicode-fonts-block-font-mapping)))\n (setq counter 0))\n (dolist (cell unicode-fonts-block-font-mapping)\n (unless unicode-fonts-less-feedback\n (progress-reporter-update reporter (cl-incf counter)))\n (let* ((block-name (car cell))\n (char-range (cdr (assoc-string block-name unicode-fonts-blocks 'case-fold)))\n (fonts (cl-remove-if #'(lambda (x)\n (cl-member x unicode-fonts-skipped-fonts-computed\n :test 'font-utils-lenient-name-equal))\n (cadr cell)))\n (best-font nil))\n (when char-range\n (cond\n ((eq unicode-fonts-existence-checks 'none)\n t)\n ((eq unicode-fonts-existence-checks 'first)\n (setq fonts (list (unicode-fonts-first-existing-font fonts))))\n (t ; 'all\n (setq fonts (cl-remove-if-not 'unicode-fonts-font-exists-p fonts))))\n (setq best-font (pop fonts))\n (when best-font\n (push `(set-fontset-font ,fontset-name\n (quote ,(cons (decode-char 'ucs (car char-range)) (decode-char 'ucs (cadr char-range))))\n (font-spec :name ,(concat best-font \":\") :registry \"iso10646-1\")) instructions))\n (dolist (lesser-font fonts)\n (push `(set-fontset-font ,fontset-name\n (quote ,(cons (decode-char 'ucs (car char-range)) (decode-char 'ucs (cadr char-range))))\n (font-spec :name ,(concat lesser-font \":\") :registry \"iso10646-1\") nil 'append) instructions)))))\n (unless unicode-fonts-less-feedback\n (progress-reporter-done reporter))\n\n ;; finally, install \"overrides\", which are mappings over an arbitrary range\n (unless unicode-fonts-ignore-overrides\n (unless unicode-fonts-less-feedback\n (setq reporter (make-progress-reporter (format \"Unicode Fonts - Mapping Overrides in %s ... \" fontset-name) 0 (length unicode-fonts-overrides-mapping)))\n (setq counter 0))\n (dolist (cell unicode-fonts-overrides-mapping)\n (unless unicode-fonts-less-feedback\n (progress-reporter-update reporter (cl-incf counter)))\n (let* ((char-range (unicode-fonts--create-char-range (list (car cell) (cadr cell))))\n (fonts (cl-remove-if #'(lambda (x)\n (cl-member x unicode-fonts-skipped-fonts-computed\n :test 'font-utils-lenient-name-equal))\n (car (last cell))))\n (best-font nil))\n (when char-range\n (cond\n ((eq unicode-fonts-existence-checks 'none)\n t)\n ((eq unicode-fonts-existence-checks 'first)\n (setq fonts (list (unicode-fonts-first-existing-font fonts))))\n (t ; 'all\n (setq fonts (cl-remove-if-not 'unicode-fonts-font-exists-p fonts))))\n (if unicode-fonts-use-prepend\n (dolist (font (reverse fonts))\n (push `(set-fontset-font ,fontset-name\n (quote ,(cons (decode-char 'ucs (car char-range)) (decode-char 'ucs (cadr char-range))))\n (font-spec :name ,(concat font \":\") :registry \"iso10646-1\") nil 'prepend) instructions))\n ;; else\n (setq best-font (pop fonts))\n (when best-font\n (push `(set-fontset-font ,fontset-name\n (quote ,(cons (decode-char 'ucs (car char-range)) (decode-char 'ucs (cadr char-range))))\n (font-spec :name ,(concat best-font \":\") :registry \"iso10646-1\")) instructions))\n (dolist (font fonts)\n (push `(set-fontset-font ,fontset-name\n (quote ,(cons (decode-char 'ucs (car char-range)) (decode-char 'ucs (cadr char-range))))\n (font-spec :name ,(concat font \":\") :registry \"iso10646-1\") nil 'append) instructions))))))\n (unless unicode-fonts-less-feedback\n (progress-reporter-done reporter)))\n (push (cons fontset-name (nreverse instructions)) unicode-fonts--instructions))))\n\n(defun unicode-fonts--configuration-checksum ()\n \"Return a global configuration checksum relevant to unicode-fonts.\n\nThis can be used to invalidate cached instructions if the system\nhas changed.\"\n (md5 (format \"%s\" (list\n 'font-utils-list-names (sort (font-utils-list-names) 'string<)\n 'unicode-fonts-block-font-mapping unicode-fonts-block-font-mapping\n 'unicode-fonts-blocks unicode-fonts-blocks\n 'unicode-fonts-existence-checks unicode-fonts-existence-checks\n 'unicode-fonts-fallback-font-list unicode-fonts-fallback-font-list\n 'unicode-fonts-fontset-names unicode-fonts-fontset-names\n 'unicode-fonts-ignore-overrides unicode-fonts-ignore-overrides\n 'unicode-fonts-known-font-characteristics (sort unicode-fonts-known-font-characteristics #'(lambda (x y) (string< (car x) (car y))))\n 'unicode-fonts-overrides-mapping unicode-fonts-overrides-mapping\n 'unicode-fonts-planes unicode-fonts-planes\n 'unicode-fonts-restrict-to-fonts unicode-fonts-restrict-to-fonts\n 'unicode-fonts-skip-font-groups (sort unicode-fonts-skip-font-groups 'string<)\n 'unicode-fonts-skip-fonts (sort unicode-fonts-skip-fonts 'string<)\n 'unicode-fonts-use-prepend unicode-fonts-use-prepend))\n nil nil 'utf-8))\n\n(defun unicode-fonts--load-or-generate-instructions (fontset-name &optional regenerate)\n \"Load or generate `eval'able instructions for modifying FONTSET-NAME.\n\nWhen possible (and according to the setting of the customizable\nvariable `unicode-fonts-use-persistent-storage'), instructions\nwill be loaded from a disk cache.\n\nOptional REGENERATE requests that the disk cache be invalidated\nand regenerated.\n\nInstructions for FONTSET-NAME will be placed in alist\n`unicode-fonts--instructions'.\"\n (when (display-multi-font-p)\n (let* ((cache-id (format \"f:%s-w:%s-h:%s-e:%s-l:%s\"\n fontset-name\n window-system\n (font-utils-client-hostname)\n emacs-version\n (get 'unicode-fonts 'custom-version)))\n (checksum-key (intern (format \"checksum-%s\" cache-id)))\n (instructions-key (intern (format \"instructions-%s\" cache-id)))\n (store-place unicode-fonts-use-persistent-storage)\n (old-checksum nil)\n (new-checksum nil))\n (when regenerate\n (persistent-softest-store checksum-key\n nil\n store-place)\n (persistent-softest-store instructions-key\n nil\n store-place)\n (persistent-softest-flush store-place))\n\n (setq old-checksum (persistent-softest-fetch checksum-key\n store-place))\n (setq new-checksum (unicode-fonts--configuration-checksum))\n\n (unless (cdr (assoc fontset-name unicode-fonts--instructions))\n (when (equal old-checksum new-checksum)\n (setq unicode-fonts--instructions\n (delq (assoc fontset-name unicode-fonts--instructions) unicode-fonts--instructions))\n (push (persistent-softest-fetch instructions-key\n store-place)\n unicode-fonts--instructions)))\n\n (unless (cdr (assoc fontset-name unicode-fonts--instructions))\n (unicode-fonts--generate-instructions fontset-name))\n\n (when (and store-place\n (cdr (assoc fontset-name unicode-fonts--instructions))\n (or regenerate\n (not (equal old-checksum new-checksum))))\n (persistent-softest-store checksum-key\n new-checksum\n store-place)\n (let ((persistent-soft-inhibit-sanity-checks t))\n (persistent-softest-store instructions-key\n (assoc fontset-name unicode-fonts--instructions)\n store-place))\n (persistent-softest-flush store-place)))))\n\n(defun unicode-fonts--setup-1 (fontset-name &optional regenerate)\n \"Code evaluation driver for `unicode-fonts-setup'.\n\nFONTSET-NAME is a fontset to modify using `set-fontset-font'.\n\nOptional REGENERATE requests that the disk cache be invalidated\nand regenerated.\"\n (when (display-multi-font-p)\n (unicode-fonts--load-or-generate-instructions fontset-name regenerate)\n (eval\n (append\n '(progn) (cdr (assoc fontset-name unicode-fonts--instructions))))\n ;; clean up the evaluated code, as it may be very large\n (setq unicode-fonts--instructions\n (delq (assoc fontset-name unicode-fonts--instructions) unicode-fonts--instructions))))\n\n;;; main entry point\n\n;;;###autoload\n(defun unicode-fonts-setup (&optional fontset-names regenerate)\n \"Set up Unicode fonts for FONTSET-NAMES.\n\nOptional FONTSET-NAMES must be a list of strings. Fontset names\nwhich do not currently exist will be ignored. The default value\nis `unicode-fonts-fontset-names'.\n\nOptional REGENERATE requests that the disk cache be invalidated\nand regenerated.\"\n (interactive)\n (unicode-fonts-compute-skipped-fonts)\n (cl-callf or fontset-names unicode-fonts-fontset-names)\n (dolist (fontset-name (cl-remove-if-not #'(lambda (fs) (ignore-errors (fontset-info fs))) fontset-names))\n ;; Cocoa Emacs often crashes if this is run more than once for a fontset\n (unless (member fontset-name unicode-fonts-setup-done)\n (push fontset-name unicode-fonts-setup-done)\n (if (and (memq window-system '(ns))\n (not after-init-time))\n ;; Cocoa Emacs crashes unless this is deferred. set-language-environment-hook\n ;; seems more logical than after-init-hook, but s-l-h appears to have already happened.\n (add-hook 'after-init-hook `(lambda () (unicode-fonts--setup-1 ,fontset-name)))\n (unicode-fonts--setup-1 fontset-name regenerate)))))\n\n(provide 'unicode-fonts)\n\n;;\n;; Emacs\n;;\n;; Local Variables:\n;; indent-tabs-mode: nil\n;; mangle-whitespace: t\n;; require-final-newline: t\n;; coding: utf-8\n;; byte-compile-warnings: (not cl-functions redefine)\n;; End:\n;;\n;; LocalWords: cleartype Consolas Ethiopic Samyak BabelStone Symbola\n;; LocalWords: Quivira DejaVu UnicodeFonts utils Unifont charset Cham\n;; LocalWords: Akkadian Analecta Musica Doulos WenQuanYi Saysettha\n;; LocalWords: Eeyek Akshar Mukti Kedage AnmolUni Padauk Lanna Banna\n;; LocalWords: Koodak Ahuramzda Abyssinica Estrangelo Nisibin fontset\n;; LocalWords: Wawati Weibei Alchemical Avestan Bamum Batak Bopomofo\n;; LocalWords: Brahmi Buginese Buhid Carian Chakma Deseret Gurmukhi\n;; LocalWords: Halfwidth Fullwidth Jamo Hanunoo Parthian Kaithi Kana\n;; LocalWords: Kanbun Kangxi Katakana Kharoshthi Lepcha Limbu Mandaic\n;; LocalWords: Miao Chiki Osmanya Phags Rejang Rumi Saurashtra Tham\n;; LocalWords: Sharada Tagbanwa Jing Xuan Takri Thaana Yijing Damase\n;; LocalWords: Gentium Batang Hana Nuosu Daicing Xiaokai Jomolhari\n;; LocalWords: Alif Andale Kayah Lisu Sora Sompeng Syloti\n;; LocalWords: Nagri Syllabics Arial glyphs Meetei Mayek Naskh Tahoma\n;; LocalWords: ClearType Mshtakan Sylfaen Cambria Lucida Grande Yogh\n;; LocalWords: Projective Sheqel Noto Nilus Namdhinggo Yunghkio Amiri\n;; LocalWords: TharLon Ribeng Adinatha FreeMono FreeFont Cardo Dukor\n;; LocalWords: Junicode Antinoou Bassa Epact Duployan Elbasan Grantha\n;; LocalWords: Khojki Khudawadi Mahajani Manichaean Mende Kikakui\n;; LocalWords: Modi Nabataean Permic Pahawh Palmyrene Siddham Tirhuta\n;; LocalWords: Warang Citi Estrangela Diwani Nastaleeq Kufic Everson\n;; LocalWords: ALPHABETUM Segoe Nirmala Meiryo FreeSerif Calibri Dezh\n;; LocalWords: Livre Tournois Spesmilo Manat Spirant Hwair Kiyeok\n;; LocalWords: Shei Alef Hiriq Shha Iotified Izhitsa Bashkir Palochka\n;; LocalWords: FONTSET Abkhasian Cada Heta Sampi Pamphylian Digamma\n;; LocalWords: Fontset Hanja Kanji N'ko Mingzat XQuartz XLFD Zapf\n;; LocalWords: pcache KhojkiUnicodeOT AhomUnicode Ahom OldSindhi\n;; LocalWords: MuktamsiddhamG MarathiCursiveG OldHungarian devel\n;; LocalWords: ConScript Alist Hatran Multani SignWriting Abadi Geeza\n;; LocalWords: alist multi\n;;\n\n;;; unicode-fonts.el ends here\n"}]}},{"FileDel":{"deleted_names":[{"basename":"ucs-utils-20150826.1414","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":642063},"to":{"change":7,"start":4305616,"end":4305650},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":4305650},"to":{"change":7,"start":4305615,"end":4305615},"introduced_by":7}],"inode":{"change":7,"pos":4305615}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"ucs-utils-6.0-delta.el","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":4305615},"to":{"change":7,"start":5055474,"end":5055520},"introduced_by":7},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":7,"pos":5055520},"to":{"change":7,"start":4854534,"end":4854534},"introduced_by":7}],"inode":{"change":7,"pos":4854534}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":7,"pos":4854534},"to":{"change":7,"start":4854535,"end":5055473},"introduced_by":7}],"inode":{"change":7,"pos":4854534}},"content":[{"Del":";;; ucs-utils-6.0-delta.el --- Unicode 5.2 to 6.0 delta\n;;\n;; Copyright (c) 2012-2015 Roland Walker\n;;\n;; Author: Roland Walker \n;; Homepage: http://github.com/rolandwalker/ucs-utils\n;; URL: http://raw.githubusercontent.com/rolandwalker/ucs-utils/master/ucs-utils-6.0-delta.el\n;; Version: 1.0.2\n;; Last-Updated: 12 Aug 2015\n;; EmacsWiki: UcsUtils\n;; Keywords: i18n, extensions\n;;\n;; Simplified BSD License\n;;\n;;; Commentary:\n;;\n;; This library is automatically loaded by ucs-utils.el for Emacs 23.x,\n;; so that characters added in Unicode 6.0 may be recognized.\n;;\n;; If loaded manually, this file must be loaded after ucs-utils.el.\n;;\n;; This library is not required for Emacs 24.1 and above.\n;;\n;; See Also\n;;\n;; M-x customize-group RET ucs-utils RET\n;;\n;; Notes\n;;\n;; Bugs\n;;\n;; TODO\n;;\n;;; License\n;;\n;; Simplified BSD License:\n;;\n;; Redistribution and use in source and binary forms, with or\n;; without modification, are permitted provided that the following\n;; conditions are met:\n;;\n;; 1. Redistributions of source code must retain the above\n;; copyright notice, this list of conditions and the following\n;; disclaimer.\n;;\n;; 2. Redistributions in binary form must reproduce the above\n;; copyright notice, this list of conditions and the following\n;; disclaimer in the documentation and/or other materials\n;; provided with the distribution.\n;;\n;; This software is provided by Roland Walker \"AS IS\" and any express\n;; or implied warranties, including, but not limited to, the implied\n;; warranties of merchantability and fitness for a particular\n;; purpose are disclaimed. In no event shall Roland Walker or\n;; contributors be liable for any direct, indirect, incidental,\n;; special, exemplary, or consequential damages (including, but not\n;; limited to, procurement of substitute goods or services; loss of\n;; use, data, or profits; or business interruption) however caused\n;; and on any theory of liability, whether in contract, strict\n;; liability, or tort (including negligence or otherwise) arising in\n;; any way out of the use of this software, even if advised of the\n;; possibility of such damage.\n;;\n;; The views and conclusions contained in the software and\n;; documentation are those of the authors and should not be\n;; interpreted as representing official policies, either expressed\n;; or implied, of Roland Walker.\n;;\n;; No rights are claimed over data created by the Unicode\n;; Consortium, which are included here under the terms of\n;; the Unicode Terms of Use.\n;;\n;;; Code:\n;;\n\n;;; declarations\n\n(eval-when-compile\n (defvar ucs-utils-names-corrections))\n\n;;; supplement values from main library\n\n(when (and (not (assoc \"CYRILLIC CAPITAL LETTER SHHA WITH DESCENDER\" ucs-utils-names-corrections))\n (not (assoc \"CYRILLIC CAPITAL LETTER SHHA WITH DESCENDER\" (ucs-names))))\n (nconc ucs-utils-names-corrections\n '(\n ;; Unicode 5.2 to 6.0 delta\n (\"CYRILLIC CAPITAL LETTER SHHA WITH DESCENDER\" . #x0526)\n (\"CYRILLIC SMALL LETTER SHHA WITH DESCENDER\" . #x0527)\n (\"ARABIC LETTER KASHMIRI YEH\" . #x0620)\n (\"ARABIC WAVY HAMZA BELOW\" . #x065F)\n (\"MANDAIC LETTER HALQA\" . #x0840)\n (\"MANDAIC LETTER AB\" . #x0841)\n (\"MANDAIC LETTER AG\" . #x0842)\n (\"MANDAIC LETTER AD\" . #x0843)\n (\"MANDAIC LETTER AH\" . #x0844)\n (\"MANDAIC LETTER USHENNA\" . #x0845)\n (\"MANDAIC LETTER AZ\" . #x0846)\n (\"MANDAIC LETTER IT\" . #x0847)\n (\"MANDAIC LETTER ATT\" . #x0848)\n (\"MANDAIC LETTER AKSA\" . #x0849)\n (\"MANDAIC LETTER AK\" . #x084A)\n (\"MANDAIC LETTER AL\" . #x084B)\n (\"MANDAIC LETTER AM\" . #x084C)\n (\"MANDAIC LETTER AN\" . #x084D)\n (\"MANDAIC LETTER AS\" . #x084E)\n (\"MANDAIC LETTER IN\" . #x084F)\n (\"MANDAIC LETTER AP\" . #x0850)\n (\"MANDAIC LETTER ASZ\" . #x0851)\n (\"MANDAIC LETTER AQ\" . #x0852)\n (\"MANDAIC LETTER AR\" . #x0853)\n (\"MANDAIC LETTER ASH\" . #x0854)\n (\"MANDAIC LETTER AT\" . #x0855)\n (\"MANDAIC LETTER DUSHENNA\" . #x0856)\n (\"MANDAIC LETTER KAD\" . #x0857)\n (\"MANDAIC LETTER AIN\" . #x0858)\n (\"MANDAIC AFFRICATION MARK\" . #x0859)\n (\"MANDAIC VOCALIZATION MARK\" . #x085A)\n (\"MANDAIC GEMINATION MARK\" . #x085B)\n (\"MANDAIC PUNCTUATION\" . #x085E)\n (\"DEVANAGARI VOWEL SIGN OE\" . #x093A)\n (\"DEVANAGARI VOWEL SIGN OOE\" . #x093B)\n (\"DEVANAGARI VOWEL SIGN AW\" . #x094F)\n (\"DEVANAGARI VOWEL SIGN UE\" . #x0956)\n (\"DEVANAGARI VOWEL SIGN UUE\" . #x0957)\n (\"DEVANAGARI LETTER OE\" . #x0973)\n (\"DEVANAGARI LETTER OOE\" . #x0974)\n (\"DEVANAGARI LETTER AW\" . #x0975)\n (\"DEVANAGARI LETTER UE\" . #x0976)\n (\"DEVANAGARI LETTER UUE\" . #x0977)\n (\"ORIYA FRACTION ONE QUARTER\" . #x0B72)\n (\"ORIYA FRACTION ONE HALF\" . #x0B73)\n (\"ORIYA FRACTION THREE QUARTERS\" . #x0B74)\n (\"ORIYA FRACTION ONE SIXTEENTH\" . #x0B75)\n (\"ORIYA FRACTION ONE EIGHTH\" . #x0B76)\n (\"ORIYA FRACTION THREE SIXTEENTHS\" . #x0B77)\n (\"MALAYALAM LETTER NNNA\" . #x0D29)\n (\"MALAYALAM LETTER TTTA\" . #x0D3A)\n (\"MALAYALAM LETTER DOT REPH\" . #x0D4E)\n (\"TIBETAN SIGN INVERTED MCHU CAN\" . #x0F8C)\n (\"TIBETAN SUBJOINED SIGN LCE TSA CAN\" . #x0F8D)\n (\"TIBETAN SUBJOINED SIGN MCHU CAN\" . #x0F8E)\n (\"TIBETAN MARK LEADING MCHAN RTAGS\" . #x0FD9)\n (\"TIBETAN MARK TRAILING MCHAN RTAGS\" . #x0FDA)\n (\"ETHIOPIC COMBINING GEMINATION AND VOWEL LENGTH MARK\" . #x135D)\n (\"ETHIOPIC COMBINING VOWEL LENGTH MARK\" . #x135E)\n (\"BATAK LETTER A\" . #x1BC0)\n (\"BATAK LETTER SIMALUNGUN A\" . #x1BC1)\n (\"BATAK LETTER HA\" . #x1BC2)\n (\"BATAK LETTER SIMALUNGUN HA\" . #x1BC3)\n (\"BATAK LETTER MANDAILING HA\" . #x1BC4)\n (\"BATAK LETTER BA\" . #x1BC5)\n (\"BATAK LETTER KARO BA\" . #x1BC6)\n (\"BATAK LETTER PA\" . #x1BC7)\n (\"BATAK LETTER SIMALUNGUN PA\" . #x1BC8)\n (\"BATAK LETTER NA\" . #x1BC9)\n (\"BATAK LETTER MANDAILING NA\" . #x1BCA)\n (\"BATAK LETTER WA\" . #x1BCB)\n (\"BATAK LETTER SIMALUNGUN WA\" . #x1BCC)\n (\"BATAK LETTER PAKPAK WA\" . #x1BCD)\n (\"BATAK LETTER GA\" . #x1BCE)\n (\"BATAK LETTER SIMALUNGUN GA\" . #x1BCF)\n (\"BATAK LETTER JA\" . #x1BD0)\n (\"BATAK LETTER DA\" . #x1BD1)\n (\"BATAK LETTER RA\" . #x1BD2)\n (\"BATAK LETTER SIMALUNGUN RA\" . #x1BD3)\n (\"BATAK LETTER MA\" . #x1BD4)\n (\"BATAK LETTER SIMALUNGUN MA\" . #x1BD5)\n (\"BATAK LETTER SOUTHERN TA\" . #x1BD6)\n (\"BATAK LETTER NORTHERN TA\" . #x1BD7)\n (\"BATAK LETTER SA\" . #x1BD8)\n (\"BATAK LETTER SIMALUNGUN SA\" . #x1BD9)\n (\"BATAK LETTER MANDAILING SA\" . #x1BDA)\n (\"BATAK LETTER YA\" . #x1BDB)\n (\"BATAK LETTER SIMALUNGUN YA\" . #x1BDC)\n (\"BATAK LETTER NGA\" . #x1BDD)\n (\"BATAK LETTER LA\" . #x1BDE)\n (\"BATAK LETTER SIMALUNGUN LA\" . #x1BDF)\n (\"BATAK LETTER NYA\" . #x1BE0)\n (\"BATAK LETTER CA\" . #x1BE1)\n (\"BATAK LETTER NDA\" . #x1BE2)\n (\"BATAK LETTER MBA\" . #x1BE3)\n (\"BATAK LETTER I\" . #x1BE4)\n (\"BATAK LETTER U\" . #x1BE5)\n (\"BATAK SIGN TOMPI\" . #x1BE6)\n (\"BATAK VOWEL SIGN E\" . #x1BE7)\n (\"BATAK VOWEL SIGN PAKPAK E\" . #x1BE8)\n (\"BATAK VOWEL SIGN EE\" . #x1BE9)\n (\"BATAK VOWEL SIGN I\" . #x1BEA)\n (\"BATAK VOWEL SIGN KARO I\" . #x1BEB)\n (\"BATAK VOWEL SIGN O\" . #x1BEC)\n (\"BATAK VOWEL SIGN KARO O\" . #x1BED)\n (\"BATAK VOWEL SIGN U\" . #x1BEE)\n (\"BATAK VOWEL SIGN U FOR SIMALUNGUN SA\" . #x1BEF)\n (\"BATAK CONSONANT SIGN NG\" . #x1BF0)\n (\"BATAK CONSONANT SIGN H\" . #x1BF1)\n (\"BATAK PANGOLAT\" . #x1BF2)\n (\"BATAK PANONGONAN\" . #x1BF3)\n (\"BATAK SYMBOL BINDU NA METEK\" . #x1BFC)\n (\"BATAK SYMBOL BINDU PINARBORAS\" . #x1BFD)\n (\"BATAK SYMBOL BINDU JUDUL\" . #x1BFE)\n (\"BATAK SYMBOL BINDU PANGOLAT\" . #x1BFF)\n (\"COMBINING DOUBLE INVERTED BREVE BELOW\" . #x1DFC)\n (\"LATIN SUBSCRIPT SMALL LETTER H\" . #x2095)\n (\"LATIN SUBSCRIPT SMALL LETTER K\" . #x2096)\n (\"LATIN SUBSCRIPT SMALL LETTER L\" . #x2097)\n (\"LATIN SUBSCRIPT SMALL LETTER M\" . #x2098)\n (\"LATIN SUBSCRIPT SMALL LETTER N\" . #x2099)\n (\"LATIN SUBSCRIPT SMALL LETTER P\" . #x209A)\n (\"LATIN SUBSCRIPT SMALL LETTER S\" . #x209B)\n (\"LATIN SUBSCRIPT SMALL LETTER T\" . #x209C)\n (\"INDIAN RUPEE SIGN\" . #x20B9)\n (\"BLACK RIGHT-POINTING DOUBLE TRIANGLE\" . #x23E9)\n (\"BLACK LEFT-POINTING DOUBLE TRIANGLE\" . #x23EA)\n (\"BLACK UP-POINTING DOUBLE TRIANGLE\" . #x23EB)\n (\"BLACK DOWN-POINTING DOUBLE TRIANGLE\" . #x23EC)\n (\"BLACK RIGHT-POINTING DOUBLE TRIANGLE WITH VERTICAL BAR\" . #x23ED)\n (\"BLACK LEFT-POINTING DOUBLE TRIANGLE WITH VERTICAL BAR\" . #x23EE)\n (\"BLACK RIGHT-POINTING TRIANGLE WITH DOUBLE VERTICAL BAR\" . #x23EF)\n (\"ALARM CLOCK\" . #x23F0)\n (\"STOPWATCH\" . #x23F1)\n (\"TIMER CLOCK\" . #x23F2)\n (\"HOURGLASS WITH FLOWING SAND\" . #x23F3)\n (\"OPHIUCHUS\" . #x26CE)\n (\"ASTRONOMICAL SYMBOL FOR URANUS\" . #x26E2)\n (\"PENTAGRAM\" . #x26E4)\n (\"RIGHT-HANDED INTERLACED PENTAGRAM\" . #x26E5)\n (\"LEFT-HANDED INTERLACED PENTAGRAM\" . #x26E6)\n (\"INVERTED PENTAGRAM\" . #x26E7)\n (\"WHITE HEAVY CHECK MARK\" . #x2705)\n (\"RAISED FIST\" . #x270A)\n (\"RAISED HAND\" . #x270B)\n (\"SPARKLES\" . #x2728)\n (\"CROSS MARK\" . #x274C)\n (\"NEGATIVE SQUARED CROSS MARK\" . #x274E)\n (\"BLACK QUESTION MARK ORNAMENT\" . #x2753)\n (\"WHITE QUESTION MARK ORNAMENT\" . #x2754)\n (\"WHITE EXCLAMATION MARK ORNAMENT\" . #x2755)\n (\"HEAVY LOW SINGLE COMMA QUOTATION MARK ORNAMENT\" . #x275F)\n (\"HEAVY LOW DOUBLE COMMA QUOTATION MARK ORNAMENT\" . #x2760)\n (\"HEAVY PLUS SIGN\" . #x2795)\n (\"HEAVY MINUS SIGN\" . #x2796)\n (\"HEAVY DIVISION SIGN\" . #x2797)\n (\"CURLY LOOP\" . #x27B0)\n (\"DOUBLE CURLY LOOP\" . #x27BF)\n (\"SQUARED LOGICAL AND\" . #x27CE)\n (\"SQUARED LOGICAL OR\" . #x27CF)\n (\"TIFINAGH SEPARATOR MARK\" . #x2D70)\n (\"TIFINAGH CONSONANT JOINER\" . #x2D7F)\n (\"BOPOMOFO LETTER GH\" . #x31B8)\n (\"BOPOMOFO LETTER LH\" . #x31B9)\n (\"BOPOMOFO LETTER ZY\" . #x31BA)\n (\"CYRILLIC CAPITAL LETTER REVERSED TSE\" . #xA660)\n (\"CYRILLIC SMALL LETTER REVERSED TSE\" . #xA661)\n (\"LATIN CAPITAL LETTER TURNED H\" . #xA78D)\n (\"LATIN SMALL LETTER L WITH RETROFLEX HOOK AND BELT\" . #xA78E)\n (\"LATIN CAPITAL LETTER N WITH DESCENDER\" . #xA790)\n (\"LATIN SMALL LETTER N WITH DESCENDER\" . #xA791)\n (\"LATIN CAPITAL LETTER G WITH OBLIQUE STROKE\" . #xA7A0)\n (\"LATIN SMALL LETTER G WITH OBLIQUE STROKE\" . #xA7A1)\n (\"LATIN CAPITAL LETTER K WITH OBLIQUE STROKE\" . #xA7A2)\n (\"LATIN SMALL LETTER K WITH OBLIQUE STROKE\" . #xA7A3)\n (\"LATIN CAPITAL LETTER N WITH OBLIQUE STROKE\" . #xA7A4)\n (\"LATIN SMALL LETTER N WITH OBLIQUE STROKE\" . #xA7A5)\n (\"LATIN CAPITAL LETTER R WITH OBLIQUE STROKE\" . #xA7A6)\n (\"LATIN SMALL LETTER R WITH OBLIQUE STROKE\" . #xA7A7)\n (\"LATIN CAPITAL LETTER S WITH OBLIQUE STROKE\" . #xA7A8)\n (\"LATIN SMALL LETTER S WITH OBLIQUE STROKE\" . #xA7A9)\n (\"LATIN LETTER SMALL CAPITAL TURNED M\" . #xA7FA)\n (\"ETHIOPIC SYLLABLE TTHU\" . #xAB01)\n (\"ETHIOPIC SYLLABLE TTHI\" . #xAB02)\n (\"ETHIOPIC SYLLABLE TTHAA\" . #xAB03)\n (\"ETHIOPIC SYLLABLE TTHEE\" . #xAB04)\n (\"ETHIOPIC SYLLABLE TTHE\" . #xAB05)\n (\"ETHIOPIC SYLLABLE TTHO\" . #xAB06)\n (\"ETHIOPIC SYLLABLE DDHU\" . #xAB09)\n (\"ETHIOPIC SYLLABLE DDHI\" . #xAB0A)\n (\"ETHIOPIC SYLLABLE DDHAA\" . #xAB0B)\n (\"ETHIOPIC SYLLABLE DDHEE\" . #xAB0C)\n (\"ETHIOPIC SYLLABLE DDHE\" . #xAB0D)\n (\"ETHIOPIC SYLLABLE DDHO\" . #xAB0E)\n (\"ETHIOPIC SYLLABLE DZU\" . #xAB11)\n (\"ETHIOPIC SYLLABLE DZI\" . #xAB12)\n (\"ETHIOPIC SYLLABLE DZAA\" . #xAB13)\n (\"ETHIOPIC SYLLABLE DZEE\" . #xAB14)\n (\"ETHIOPIC SYLLABLE DZE\" . #xAB15)\n (\"ETHIOPIC SYLLABLE DZO\" . #xAB16)\n (\"ETHIOPIC SYLLABLE CCHHA\" . #xAB20)\n (\"ETHIOPIC SYLLABLE CCHHU\" . #xAB21)\n (\"ETHIOPIC SYLLABLE CCHHI\" . #xAB22)\n (\"ETHIOPIC SYLLABLE CCHHAA\" . #xAB23)\n (\"ETHIOPIC SYLLABLE CCHHEE\" . #xAB24)\n (\"ETHIOPIC SYLLABLE CCHHE\" . #xAB25)\n (\"ETHIOPIC SYLLABLE CCHHO\" . #xAB26)\n (\"ETHIOPIC SYLLABLE BBA\" . #xAB28)\n (\"ETHIOPIC SYLLABLE BBU\" . #xAB29)\n (\"ETHIOPIC SYLLABLE BBI\" . #xAB2A)\n (\"ETHIOPIC SYLLABLE BBAA\" . #xAB2B)\n (\"ETHIOPIC SYLLABLE BBEE\" . #xAB2C)\n (\"ETHIOPIC SYLLABLE BBE\" . #xAB2D)\n (\"ETHIOPIC SYLLABLE BBO\" . #xAB2E)\n (\"ARABIC SYMBOL DOT ABOVE\" . #xFBB2)\n (\"ARABIC SYMBOL DOT BELOW\" . #xFBB3)\n (\"ARABIC SYMBOL TWO DOTS ABOVE\" . #xFBB4)\n (\"ARABIC SYMBOL TWO DOTS BELOW\" . #xFBB5)\n (\"ARABIC SYMBOL THREE DOTS ABOVE\" . #xFBB6)\n (\"ARABIC SYMBOL THREE DOTS BELOW\" . #xFBB7)\n (\"ARABIC SYMBOL THREE DOTS POINTING DOWNWARDS ABOVE\" . #xFBB8)\n (\"ARABIC SYMBOL THREE DOTS POINTING DOWNWARDS BELOW\" . #xFBB9)\n (\"ARABIC SYMBOL FOUR DOTS ABOVE\" . #xFBBA)\n (\"ARABIC SYMBOL FOUR DOTS BELOW\" . #xFBBB)\n (\"ARABIC SYMBOL DOUBLE VERTICAL BAR BELOW\" . #xFBBC)\n (\"ARABIC SYMBOL TWO DOTS VERTICALLY ABOVE\" . #xFBBD)\n (\"ARABIC SYMBOL TWO DOTS VERTICALLY BELOW\" . #xFBBE)\n (\"ARABIC SYMBOL RING\" . #xFBBF)\n (\"ARABIC SYMBOL SMALL TAH ABOVE\" . #xFBC0)\n (\"ARABIC SYMBOL SMALL TAH BELOW\" . #xFBC1)\n (\"BRAHMI SIGN CANDRABINDU\" . #x11000)\n (\"BRAHMI SIGN ANUSVARA\" . #x11001)\n (\"BRAHMI SIGN VISARGA\" . #x11002)\n (\"BRAHMI SIGN JIHVAMULIYA\" . #x11003)\n (\"BRAHMI SIGN UPADHMANIYA\" . #x11004)\n (\"BRAHMI LETTER A\" . #x11005)\n (\"BRAHMI LETTER AA\" . #x11006)\n (\"BRAHMI LETTER I\" . #x11007)\n (\"BRAHMI LETTER II\" . #x11008)\n (\"BRAHMI LETTER U\" . #x11009)\n (\"BRAHMI LETTER UU\" . #x1100A)\n (\"BRAHMI LETTER VOCALIC R\" . #x1100B)\n (\"BRAHMI LETTER VOCALIC RR\" . #x1100C)\n (\"BRAHMI LETTER VOCALIC L\" . #x1100D)\n (\"BRAHMI LETTER VOCALIC LL\" . #x1100E)\n (\"BRAHMI LETTER E\" . #x1100F)\n (\"BRAHMI LETTER AI\" . #x11010)\n (\"BRAHMI LETTER O\" . #x11011)\n (\"BRAHMI LETTER AU\" . #x11012)\n (\"BRAHMI LETTER KA\" . #x11013)\n (\"BRAHMI LETTER KHA\" . #x11014)\n (\"BRAHMI LETTER GA\" . #x11015)\n (\"BRAHMI LETTER GHA\" . #x11016)\n (\"BRAHMI LETTER NGA\" . #x11017)\n (\"BRAHMI LETTER CA\" . #x11018)\n (\"BRAHMI LETTER CHA\" . #x11019)\n (\"BRAHMI LETTER JA\" . #x1101A)\n (\"BRAHMI LETTER JHA\" . #x1101B)\n (\"BRAHMI LETTER NYA\" . #x1101C)\n (\"BRAHMI LETTER TTA\" . #x1101D)\n (\"BRAHMI LETTER TTHA\" . #x1101E)\n (\"BRAHMI LETTER DDA\" . #x1101F)\n (\"BRAHMI LETTER DDHA\" . #x11020)\n (\"BRAHMI LETTER NNA\" . #x11021)\n (\"BRAHMI LETTER TA\" . #x11022)\n (\"BRAHMI LETTER THA\" . #x11023)\n (\"BRAHMI LETTER DA\" . #x11024)\n (\"BRAHMI LETTER DHA\" . #x11025)\n (\"BRAHMI LETTER NA\" . #x11026)\n (\"BRAHMI LETTER PA\" . #x11027)\n (\"BRAHMI LETTER PHA\" . #x11028)\n (\"BRAHMI LETTER BA\" . #x11029)\n (\"BRAHMI LETTER BHA\" . #x1102A)\n (\"BRAHMI LETTER MA\" . #x1102B)\n (\"BRAHMI LETTER YA\" . #x1102C)\n (\"BRAHMI LETTER RA\" . #x1102D)\n (\"BRAHMI LETTER LA\" . #x1102E)\n (\"BRAHMI LETTER VA\" . #x1102F)\n (\"BRAHMI LETTER SHA\" . #x11030)\n (\"BRAHMI LETTER SSA\" . #x11031)\n (\"BRAHMI LETTER SA\" . #x11032)\n (\"BRAHMI LETTER HA\" . #x11033)\n (\"BRAHMI LETTER LLA\" . #x11034)\n (\"BRAHMI LETTER OLD TAMIL LLLA\" . #x11035)\n (\"BRAHMI LETTER OLD TAMIL RRA\" . #x11036)\n (\"BRAHMI LETTER OLD TAMIL NNNA\" . #x11037)\n (\"BRAHMI VOWEL SIGN AA\" . #x11038)\n (\"BRAHMI VOWEL SIGN BHATTIPROLU AA\" . #x11039)\n (\"BRAHMI VOWEL SIGN I\" . #x1103A)\n (\"BRAHMI VOWEL SIGN II\" . #x1103B)\n (\"BRAHMI VOWEL SIGN U\" . #x1103C)\n (\"BRAHMI VOWEL SIGN UU\" . #x1103D)\n (\"BRAHMI VOWEL SIGN VOCALIC R\" . #x1103E)\n (\"BRAHMI VOWEL SIGN VOCALIC RR\" . #x1103F)\n (\"BRAHMI VOWEL SIGN VOCALIC L\" . #x11040)\n (\"BRAHMI VOWEL SIGN VOCALIC LL\" . #x11041)\n (\"BRAHMI VOWEL SIGN E\" . #x11042)\n (\"BRAHMI VOWEL SIGN AI\" . #x11043)\n (\"BRAHMI VOWEL SIGN O\" . #x11044)\n (\"BRAHMI VOWEL SIGN AU\" . #x11045)\n (\"BRAHMI VIRAMA\" . #x11046)\n (\"BRAHMI DANDA\" . #x11047)\n (\"BRAHMI DOUBLE DANDA\" . #x11048)\n (\"BRAHMI PUNCTUATION DOT\" . #x11049)\n (\"BRAHMI PUNCTUATION DOUBLE DOT\" . #x1104A)\n (\"BRAHMI PUNCTUATION LINE\" . #x1104B)\n (\"BRAHMI PUNCTUATION CRESCENT BAR\" . #x1104C)\n (\"BRAHMI PUNCTUATION LOTUS\" . #x1104D)\n (\"BRAHMI NUMBER ONE\" . #x11052)\n (\"BRAHMI NUMBER TWO\" . #x11053)\n (\"BRAHMI NUMBER THREE\" . #x11054)\n (\"BRAHMI NUMBER FOUR\" . #x11055)\n (\"BRAHMI NUMBER FIVE\" . #x11056)\n (\"BRAHMI NUMBER SIX\" . #x11057)\n (\"BRAHMI NUMBER SEVEN\" . #x11058)\n (\"BRAHMI NUMBER EIGHT\" . #x11059)\n (\"BRAHMI NUMBER NINE\" . #x1105A)\n (\"BRAHMI NUMBER TEN\" . #x1105B)\n (\"BRAHMI NUMBER TWENTY\" . #x1105C)\n (\"BRAHMI NUMBER THIRTY\" . #x1105D)\n (\"BRAHMI NUMBER FORTY\" . #x1105E)\n (\"BRAHMI NUMBER FIFTY\" . #x1105F)\n (\"BRAHMI NUMBER SIXTY\" . #x11060)\n (\"BRAHMI NUMBER SEVENTY\" . #x11061)\n (\"BRAHMI NUMBER EIGHTY\" . #x11062)\n (\"BRAHMI NUMBER NINETY\" . #x11063)\n (\"BRAHMI NUMBER ONE HUNDRED\" . #x11064)\n (\"BRAHMI NUMBER ONE THOUSAND\" . #x11065)\n (\"BRAHMI DIGIT ZERO\" . #x11066)\n (\"BRAHMI DIGIT ONE\" . #x11067)\n (\"BRAHMI DIGIT TWO\" . #x11068)\n (\"BRAHMI DIGIT THREE\" . #x11069)\n (\"BRAHMI DIGIT FOUR\" . #x1106A)\n (\"BRAHMI DIGIT FIVE\" . #x1106B)\n (\"BRAHMI DIGIT SIX\" . #x1106C)\n (\"BRAHMI DIGIT SEVEN\" . #x1106D)\n (\"BRAHMI DIGIT EIGHT\" . #x1106E)\n (\"BRAHMI DIGIT NINE\" . #x1106F)\n (\"BAMUM LETTER PHASE-A NGKUE MFON\" . #x16800)\n (\"BAMUM LETTER PHASE-A GBIEE FON\" . #x16801)\n (\"BAMUM LETTER PHASE-A PON MFON PIPAEMGBIEE\" . #x16802)\n (\"BAMUM LETTER PHASE-A PON MFON PIPAEMBA\" . #x16803)\n (\"BAMUM LETTER PHASE-A NAA MFON\" . #x16804)\n (\"BAMUM LETTER PHASE-A SHUENSHUET\" . #x16805)\n (\"BAMUM LETTER PHASE-A TITA MFON\" . #x16806)\n (\"BAMUM LETTER PHASE-A NZA MFON\" . #x16807)\n (\"BAMUM LETTER PHASE-A SHINDA PA NJI\" . #x16808)\n (\"BAMUM LETTER PHASE-A PON PA NJI PIPAEMGBIEE\" . #x16809)\n (\"BAMUM LETTER PHASE-A PON PA NJI PIPAEMBA\" . #x1680A)\n (\"BAMUM LETTER PHASE-A MAEMBGBIEE\" . #x1680B)\n (\"BAMUM LETTER PHASE-A TU MAEMBA\" . #x1680C)\n (\"BAMUM LETTER PHASE-A NGANGU\" . #x1680D)\n (\"BAMUM LETTER PHASE-A MAEMVEUX\" . #x1680E)\n (\"BAMUM LETTER PHASE-A MANSUAE\" . #x1680F)\n (\"BAMUM LETTER PHASE-A MVEUAENGAM\" . #x16810)\n (\"BAMUM LETTER PHASE-A SEUNYAM\" . #x16811)\n (\"BAMUM LETTER PHASE-A NTOQPEN\" . #x16812)\n (\"BAMUM LETTER PHASE-A KEUKEUTNDA\" . #x16813)\n (\"BAMUM LETTER PHASE-A NKINDI\" . #x16814)\n (\"BAMUM LETTER PHASE-A SUU\" . #x16815)\n (\"BAMUM LETTER PHASE-A NGKUENZEUM\" . #x16816)\n (\"BAMUM LETTER PHASE-A LAPAQ\" . #x16817)\n (\"BAMUM LETTER PHASE-A LET KUT\" . #x16818)\n (\"BAMUM LETTER PHASE-A NTAP MFAA\" . #x16819)\n (\"BAMUM LETTER PHASE-A MAEKEUP\" . #x1681A)\n (\"BAMUM LETTER PHASE-A PASHAE\" . #x1681B)\n (\"BAMUM LETTER PHASE-A GHEUAERAE\" . #x1681C)\n (\"BAMUM LETTER PHASE-A PAMSHAE\" . #x1681D)\n (\"BAMUM LETTER PHASE-A MON NGGEUAET\" . #x1681E)\n (\"BAMUM LETTER PHASE-A NZUN MEUT\" . #x1681F)\n (\"BAMUM LETTER PHASE-A U YUQ NAE\" . #x16820)\n (\"BAMUM LETTER PHASE-A GHEUAEGHEUAE\" . #x16821)\n (\"BAMUM LETTER PHASE-A NTAP NTAA\" . #x16822)\n (\"BAMUM LETTER PHASE-A SISA\" . #x16823)\n (\"BAMUM LETTER PHASE-A MGBASA\" . #x16824)\n (\"BAMUM LETTER PHASE-A MEUNJOMNDEUQ\" . #x16825)\n (\"BAMUM LETTER PHASE-A MOOMPUQ\" . #x16826)\n (\"BAMUM LETTER PHASE-A KAFA\" . #x16827)\n (\"BAMUM LETTER PHASE-A PA LEERAEWA\" . #x16828)\n (\"BAMUM LETTER PHASE-A NDA LEERAEWA\" . #x16829)\n (\"BAMUM LETTER PHASE-A PET\" . #x1682A)\n (\"BAMUM LETTER PHASE-A MAEMKPEN\" . #x1682B)\n (\"BAMUM LETTER PHASE-A NIKA\" . #x1682C)\n (\"BAMUM LETTER PHASE-A PUP\" . #x1682D)\n (\"BAMUM LETTER PHASE-A TUAEP\" . #x1682E)\n (\"BAMUM LETTER PHASE-A LUAEP\" . #x1682F)\n (\"BAMUM LETTER PHASE-A SONJAM\" . #x16830)\n (\"BAMUM LETTER PHASE-A TEUTEUWEN\" . #x16831)\n (\"BAMUM LETTER PHASE-A MAENYI\" . #x16832)\n (\"BAMUM LETTER PHASE-A KET\" . #x16833)\n (\"BAMUM LETTER PHASE-A NDAANGGEUAET\" . #x16834)\n (\"BAMUM LETTER PHASE-A KUOQ\" . #x16835)\n (\"BAMUM LETTER PHASE-A MOOMEUT\" . #x16836)\n (\"BAMUM LETTER PHASE-A SHUM\" . #x16837)\n (\"BAMUM LETTER PHASE-A LOMMAE\" . #x16838)\n (\"BAMUM LETTER PHASE-A FIRI\" . #x16839)\n (\"BAMUM LETTER PHASE-A ROM\" . #x1683A)\n (\"BAMUM LETTER PHASE-A KPOQ\" . #x1683B)\n (\"BAMUM LETTER PHASE-A SOQ\" . #x1683C)\n (\"BAMUM LETTER PHASE-A MAP PIEET\" . #x1683D)\n (\"BAMUM LETTER PHASE-A SHIRAE\" . #x1683E)\n (\"BAMUM LETTER PHASE-A NTAP\" . #x1683F)\n (\"BAMUM LETTER PHASE-A SHOQ NSHUT YUM\" . #x16840)\n (\"BAMUM LETTER PHASE-A NYIT MONGKEUAEQ\" . #x16841)\n (\"BAMUM LETTER PHASE-A PAARAE\" . #x16842)\n (\"BAMUM LETTER PHASE-A NKAARAE\" . #x16843)\n (\"BAMUM LETTER PHASE-A UNKNOWN\" . #x16844)\n (\"BAMUM LETTER PHASE-A NGGEN\" . #x16845)\n (\"BAMUM LETTER PHASE-A MAESI\" . #x16846)\n (\"BAMUM LETTER PHASE-A NJAM\" . #x16847)\n (\"BAMUM LETTER PHASE-A MBANYI\" . #x16848)\n (\"BAMUM LETTER PHASE-A NYET\" . #x16849)\n (\"BAMUM LETTER PHASE-A TEUAEN\" . #x1684A)\n (\"BAMUM LETTER PHASE-A SOT\" . #x1684B)\n (\"BAMUM LETTER PHASE-A PAAM\" . #x1684C)\n (\"BAMUM LETTER PHASE-A NSHIEE\" . #x1684D)\n (\"BAMUM LETTER PHASE-A MAEM\" . #x1684E)\n (\"BAMUM LETTER PHASE-A NYI\" . #x1684F)\n (\"BAMUM LETTER PHASE-A KAQ\" . #x16850)\n (\"BAMUM LETTER PHASE-A NSHA\" . #x16851)\n (\"BAMUM LETTER PHASE-A VEE\" . #x16852)\n (\"BAMUM LETTER PHASE-A LU\" . #x16853)\n (\"BAMUM LETTER PHASE-A NEN\" . #x16854)\n (\"BAMUM LETTER PHASE-A NAQ\" . #x16855)\n (\"BAMUM LETTER PHASE-A MBAQ\" . #x16856)\n (\"BAMUM LETTER PHASE-B NSHUET\" . #x16857)\n (\"BAMUM LETTER PHASE-B TU MAEMGBIEE\" . #x16858)\n (\"BAMUM LETTER PHASE-B SIEE\" . #x16859)\n (\"BAMUM LETTER PHASE-B SET TU\" . #x1685A)\n (\"BAMUM LETTER PHASE-B LOM NTEUM\" . #x1685B)\n (\"BAMUM LETTER PHASE-B MBA MAELEE\" . #x1685C)\n (\"BAMUM LETTER PHASE-B KIEEM\" . #x1685D)\n (\"BAMUM LETTER PHASE-B YEURAE\" . #x1685E)\n (\"BAMUM LETTER PHASE-B MBAARAE\" . #x1685F)\n (\"BAMUM LETTER PHASE-B KAM\" . #x16860)\n (\"BAMUM LETTER PHASE-B PEESHI\" . #x16861)\n (\"BAMUM LETTER PHASE-B YAFU LEERAEWA\" . #x16862)\n (\"BAMUM LETTER PHASE-B LAM NSHUT NYAM\" . #x16863)\n (\"BAMUM LETTER PHASE-B NTIEE SHEUOQ\" . #x16864)\n (\"BAMUM LETTER PHASE-B NDU NJAA\" . #x16865)\n (\"BAMUM LETTER PHASE-B GHEUGHEUAEM\" . #x16866)\n (\"BAMUM LETTER PHASE-B PIT\" . #x16867)\n (\"BAMUM LETTER PHASE-B TU NSIEE\" . #x16868)\n (\"BAMUM LETTER PHASE-B SHET NJAQ\" . #x16869)\n (\"BAMUM LETTER PHASE-B SHEUAEQTU\" . #x1686A)\n (\"BAMUM LETTER PHASE-B MFON TEUAEQ\" . #x1686B)\n (\"BAMUM LETTER PHASE-B MBIT MBAAKET\" . #x1686C)\n (\"BAMUM LETTER PHASE-B NYI NTEUM\" . #x1686D)\n (\"BAMUM LETTER PHASE-B KEUPUQ\" . #x1686E)\n (\"BAMUM LETTER PHASE-B GHEUGHEN\" . #x1686F)\n (\"BAMUM LETTER PHASE-B KEUYEUX\" . #x16870)\n (\"BAMUM LETTER PHASE-B LAANAE\" . #x16871)\n (\"BAMUM LETTER PHASE-B PARUM\" . #x16872)\n (\"BAMUM LETTER PHASE-B VEUM\" . #x16873)\n (\"BAMUM LETTER PHASE-B NGKINDI MVOP\" . #x16874)\n (\"BAMUM LETTER PHASE-B NGGEU MBU\" . #x16875)\n (\"BAMUM LETTER PHASE-B WUAET\" . #x16876)\n (\"BAMUM LETTER PHASE-B SAKEUAE\" . #x16877)\n (\"BAMUM LETTER PHASE-B TAAM\" . #x16878)\n (\"BAMUM LETTER PHASE-B MEUQ\" . #x16879)\n (\"BAMUM LETTER PHASE-B NGGUOQ\" . #x1687A)\n (\"BAMUM LETTER PHASE-B NGGUOQ LARGE\" . #x1687B)\n (\"BAMUM LETTER PHASE-B MFIYAQ\" . #x1687C)\n (\"BAMUM LETTER PHASE-B SUE\" . #x1687D)\n (\"BAMUM LETTER PHASE-B MBEURI\" . #x1687E)\n (\"BAMUM LETTER PHASE-B MONTIEEN\" . #x1687F)\n (\"BAMUM LETTER PHASE-B NYAEMAE\" . #x16880)\n (\"BAMUM LETTER PHASE-B PUNGAAM\" . #x16881)\n (\"BAMUM LETTER PHASE-B MEUT NGGEET\" . #x16882)\n (\"BAMUM LETTER PHASE-B FEUX\" . #x16883)\n (\"BAMUM LETTER PHASE-B MBUOQ\" . #x16884)\n (\"BAMUM LETTER PHASE-B FEE\" . #x16885)\n (\"BAMUM LETTER PHASE-B KEUAEM\" . #x16886)\n (\"BAMUM LETTER PHASE-B MA NJEUAENA\" . #x16887)\n (\"BAMUM LETTER PHASE-B MA NJUQA\" . #x16888)\n (\"BAMUM LETTER PHASE-B LET\" . #x16889)\n (\"BAMUM LETTER PHASE-B NGGAAM\" . #x1688A)\n (\"BAMUM LETTER PHASE-B NSEN\" . #x1688B)\n (\"BAMUM LETTER PHASE-B MA\" . #x1688C)\n (\"BAMUM LETTER PHASE-B KIQ\" . #x1688D)\n (\"BAMUM LETTER PHASE-B NGOM\" . #x1688E)\n (\"BAMUM LETTER PHASE-C NGKUE MAEMBA\" . #x1688F)\n (\"BAMUM LETTER PHASE-C NZA\" . #x16890)\n (\"BAMUM LETTER PHASE-C YUM\" . #x16891)\n (\"BAMUM LETTER PHASE-C WANGKUOQ\" . #x16892)\n (\"BAMUM LETTER PHASE-C NGGEN\" . #x16893)\n (\"BAMUM LETTER PHASE-C NDEUAEREE\" . #x16894)\n (\"BAMUM LETTER PHASE-C NGKAQ\" . #x16895)\n (\"BAMUM LETTER PHASE-C GHARAE\" . #x16896)\n (\"BAMUM LETTER PHASE-C MBEEKEET\" . #x16897)\n (\"BAMUM LETTER PHASE-C GBAYI\" . #x16898)\n (\"BAMUM LETTER PHASE-C NYIR MKPARAQ MEUN\" . #x16899)\n (\"BAMUM LETTER PHASE-C NTU MBIT\" . #x1689A)\n (\"BAMUM LETTER PHASE-C MBEUM\" . #x1689B)\n (\"BAMUM LETTER PHASE-C PIRIEEN\" . #x1689C)\n (\"BAMUM LETTER PHASE-C NDOMBU\" . #x1689D)\n (\"BAMUM LETTER PHASE-C MBAA CABBAGE-TREE\" . #x1689E)\n (\"BAMUM LETTER PHASE-C KEUSHEUAEP\" . #x1689F)\n (\"BAMUM LETTER PHASE-C GHAP\" . #x168A0)\n (\"BAMUM LETTER PHASE-C KEUKAQ\" . #x168A1)\n (\"BAMUM LETTER PHASE-C YU MUOMAE\" . #x168A2)\n (\"BAMUM LETTER PHASE-C NZEUM\" . #x168A3)\n (\"BAMUM LETTER PHASE-C MBUE\" . #x168A4)\n (\"BAMUM LETTER PHASE-C NSEUAEN\" . #x168A5)\n (\"BAMUM LETTER PHASE-C MBIT\" . #x168A6)\n (\"BAMUM LETTER PHASE-C YEUQ\" . #x168A7)\n (\"BAMUM LETTER PHASE-C KPARAQ\" . #x168A8)\n (\"BAMUM LETTER PHASE-C KAA\" . #x168A9)\n (\"BAMUM LETTER PHASE-C SEUX\" . #x168AA)\n (\"BAMUM LETTER PHASE-C NDIDA\" . #x168AB)\n (\"BAMUM LETTER PHASE-C TAASHAE\" . #x168AC)\n (\"BAMUM LETTER PHASE-C NJUEQ\" . #x168AD)\n (\"BAMUM LETTER PHASE-C TITA YUE\" . #x168AE)\n (\"BAMUM LETTER PHASE-C SUAET\" . #x168AF)\n (\"BAMUM LETTER PHASE-C NGGUAEN NYAM\" . #x168B0)\n (\"BAMUM LETTER PHASE-C VEUX\" . #x168B1)\n (\"BAMUM LETTER PHASE-C NANSANAQ\" . #x168B2)\n (\"BAMUM LETTER PHASE-C MA KEUAERI\" . #x168B3)\n (\"BAMUM LETTER PHASE-C NTAA\" . #x168B4)\n (\"BAMUM LETTER PHASE-C NGGUON\" . #x168B5)\n (\"BAMUM LETTER PHASE-C LAP\" . #x168B6)\n (\"BAMUM LETTER PHASE-C MBIRIEEN\" . #x168B7)\n (\"BAMUM LETTER PHASE-C MGBASAQ\" . #x168B8)\n (\"BAMUM LETTER PHASE-C NTEUNGBA\" . #x168B9)\n (\"BAMUM LETTER PHASE-C TEUTEUX\" . #x168BA)\n (\"BAMUM LETTER PHASE-C NGGUM\" . #x168BB)\n (\"BAMUM LETTER PHASE-C FUE\" . #x168BC)\n (\"BAMUM LETTER PHASE-C NDEUT\" . #x168BD)\n (\"BAMUM LETTER PHASE-C NSA\" . #x168BE)\n (\"BAMUM LETTER PHASE-C NSHAQ\" . #x168BF)\n (\"BAMUM LETTER PHASE-C BUNG\" . #x168C0)\n (\"BAMUM LETTER PHASE-C VEUAEPEN\" . #x168C1)\n (\"BAMUM LETTER PHASE-C MBERAE\" . #x168C2)\n (\"BAMUM LETTER PHASE-C RU\" . #x168C3)\n (\"BAMUM LETTER PHASE-C NJAEM\" . #x168C4)\n (\"BAMUM LETTER PHASE-C LAM\" . #x168C5)\n (\"BAMUM LETTER PHASE-C TITUAEP\" . #x168C6)\n (\"BAMUM LETTER PHASE-C NSUOT NGOM\" . #x168C7)\n (\"BAMUM LETTER PHASE-C NJEEEE\" . #x168C8)\n (\"BAMUM LETTER PHASE-C KET\" . #x168C9)\n (\"BAMUM LETTER PHASE-C NGGU\" . #x168CA)\n (\"BAMUM LETTER PHASE-C MAESI\" . #x168CB)\n (\"BAMUM LETTER PHASE-C MBUAEM\" . #x168CC)\n (\"BAMUM LETTER PHASE-C LU\" . #x168CD)\n (\"BAMUM LETTER PHASE-C KUT\" . #x168CE)\n (\"BAMUM LETTER PHASE-C NJAM\" . #x168CF)\n (\"BAMUM LETTER PHASE-C NGOM\" . #x168D0)\n (\"BAMUM LETTER PHASE-C WUP\" . #x168D1)\n (\"BAMUM LETTER PHASE-C NGGUEET\" . #x168D2)\n (\"BAMUM LETTER PHASE-C NSOM\" . #x168D3)\n (\"BAMUM LETTER PHASE-C NTEN\" . #x168D4)\n (\"BAMUM LETTER PHASE-C KUOP NKAARAE\" . #x168D5)\n (\"BAMUM LETTER PHASE-C NSUN\" . #x168D6)\n (\"BAMUM LETTER PHASE-C NDAM\" . #x168D7)\n (\"BAMUM LETTER PHASE-C MA NSIEE\" . #x168D8)\n (\"BAMUM LETTER PHASE-C YAA\" . #x168D9)\n (\"BAMUM LETTER PHASE-C NDAP\" . #x168DA)\n (\"BAMUM LETTER PHASE-C SHUEQ\" . #x168DB)\n (\"BAMUM LETTER PHASE-C SETFON\" . #x168DC)\n (\"BAMUM LETTER PHASE-C MBI\" . #x168DD)\n (\"BAMUM LETTER PHASE-C MAEMBA\" . #x168DE)\n (\"BAMUM LETTER PHASE-C MBANYI\" . #x168DF)\n (\"BAMUM LETTER PHASE-C KEUSEUX\" . #x168E0)\n (\"BAMUM LETTER PHASE-C MBEUX\" . #x168E1)\n (\"BAMUM LETTER PHASE-C KEUM\" . #x168E2)\n (\"BAMUM LETTER PHASE-C MBAA PICKET\" . #x168E3)\n (\"BAMUM LETTER PHASE-C YUWOQ\" . #x168E4)\n (\"BAMUM LETTER PHASE-C NJEUX\" . #x168E5)\n (\"BAMUM LETTER PHASE-C MIEE\" . #x168E6)\n (\"BAMUM LETTER PHASE-C MUAE\" . #x168E7)\n (\"BAMUM LETTER PHASE-C SHIQ\" . #x168E8)\n (\"BAMUM LETTER PHASE-C KEN LAW\" . #x168E9)\n (\"BAMUM LETTER PHASE-C KEN FATIGUE\" . #x168EA)\n (\"BAMUM LETTER PHASE-C NGAQ\" . #x168EB)\n (\"BAMUM LETTER PHASE-C NAQ\" . #x168EC)\n (\"BAMUM LETTER PHASE-C LIQ\" . #x168ED)\n (\"BAMUM LETTER PHASE-C PIN\" . #x168EE)\n (\"BAMUM LETTER PHASE-C PEN\" . #x168EF)\n (\"BAMUM LETTER PHASE-C TET\" . #x168F0)\n (\"BAMUM LETTER PHASE-D MBUO\" . #x168F1)\n (\"BAMUM LETTER PHASE-D WAP\" . #x168F2)\n (\"BAMUM LETTER PHASE-D NJI\" . #x168F3)\n (\"BAMUM LETTER PHASE-D MFON\" . #x168F4)\n (\"BAMUM LETTER PHASE-D NJIEE\" . #x168F5)\n (\"BAMUM LETTER PHASE-D LIEE\" . #x168F6)\n (\"BAMUM LETTER PHASE-D NJEUT\" . #x168F7)\n (\"BAMUM LETTER PHASE-D NSHEE\" . #x168F8)\n (\"BAMUM LETTER PHASE-D NGGAAMAE\" . #x168F9)\n (\"BAMUM LETTER PHASE-D NYAM\" . #x168FA)\n (\"BAMUM LETTER PHASE-D WUAEN\" . #x168FB)\n (\"BAMUM LETTER PHASE-D NGKUN\" . #x168FC)\n (\"BAMUM LETTER PHASE-D SHEE\" . #x168FD)\n (\"BAMUM LETTER PHASE-D NGKAP\" . #x168FE)\n (\"BAMUM LETTER PHASE-D KEUAETMEUN\" . #x168FF)\n (\"BAMUM LETTER PHASE-D TEUT\" . #x16900)\n (\"BAMUM LETTER PHASE-D SHEUAE\" . #x16901)\n (\"BAMUM LETTER PHASE-D NJAP\" . #x16902)\n (\"BAMUM LETTER PHASE-D SUE\" . #x16903)\n (\"BAMUM LETTER PHASE-D KET\" . #x16904)\n (\"BAMUM LETTER PHASE-D YAEMMAE\" . #x16905)\n (\"BAMUM LETTER PHASE-D KUOM\" . #x16906)\n (\"BAMUM LETTER PHASE-D SAP\" . #x16907)\n (\"BAMUM LETTER PHASE-D MFEUT\" . #x16908)\n (\"BAMUM LETTER PHASE-D NDEUX\" . #x16909)\n (\"BAMUM LETTER PHASE-D MALEERI\" . #x1690A)\n (\"BAMUM LETTER PHASE-D MEUT\" . #x1690B)\n (\"BAMUM LETTER PHASE-D SEUAEQ\" . #x1690C)\n (\"BAMUM LETTER PHASE-D YEN\" . #x1690D)\n (\"BAMUM LETTER PHASE-D NJEUAEM\" . #x1690E)\n (\"BAMUM LETTER PHASE-D KEUOT MBUAE\" . #x1690F)\n (\"BAMUM LETTER PHASE-D NGKEURI\" . #x16910)\n (\"BAMUM LETTER PHASE-D TU\" . #x16911)\n (\"BAMUM LETTER PHASE-D GHAA\" . #x16912)\n (\"BAMUM LETTER PHASE-D NGKYEE\" . #x16913)\n (\"BAMUM LETTER PHASE-D FEUFEUAET\" . #x16914)\n (\"BAMUM LETTER PHASE-D NDEE\" . #x16915)\n (\"BAMUM LETTER PHASE-D MGBOFUM\" . #x16916)\n (\"BAMUM LETTER PHASE-D LEUAEP\" . #x16917)\n (\"BAMUM LETTER PHASE-D NDON\" . #x16918)\n (\"BAMUM LETTER PHASE-D MONI\" . #x16919)\n (\"BAMUM LETTER PHASE-D MGBEUN\" . #x1691A)\n (\"BAMUM LETTER PHASE-D PUUT\" . #x1691B)\n (\"BAMUM LETTER PHASE-D MGBIEE\" . #x1691C)\n (\"BAMUM LETTER PHASE-D MFO\" . #x1691D)\n (\"BAMUM LETTER PHASE-D LUM\" . #x1691E)\n (\"BAMUM LETTER PHASE-D NSIEEP\" . #x1691F)\n (\"BAMUM LETTER PHASE-D MBAA\" . #x16920)\n (\"BAMUM LETTER PHASE-D KWAET\" . #x16921)\n (\"BAMUM LETTER PHASE-D NYET\" . #x16922)\n (\"BAMUM LETTER PHASE-D TEUAEN\" . #x16923)\n (\"BAMUM LETTER PHASE-D SOT\" . #x16924)\n (\"BAMUM LETTER PHASE-D YUWOQ\" . #x16925)\n (\"BAMUM LETTER PHASE-D KEUM\" . #x16926)\n (\"BAMUM LETTER PHASE-D RAEM\" . #x16927)\n (\"BAMUM LETTER PHASE-D TEEEE\" . #x16928)\n (\"BAMUM LETTER PHASE-D NGKEUAEQ\" . #x16929)\n (\"BAMUM LETTER PHASE-D MFEUAE\" . #x1692A)\n (\"BAMUM LETTER PHASE-D NSIEET\" . #x1692B)\n (\"BAMUM LETTER PHASE-D KEUP\" . #x1692C)\n (\"BAMUM LETTER PHASE-D PIP\" . #x1692D)\n (\"BAMUM LETTER PHASE-D PEUTAE\" . #x1692E)\n (\"BAMUM LETTER PHASE-D NYUE\" . #x1692F)\n (\"BAMUM LETTER PHASE-D LET\" . #x16930)\n (\"BAMUM LETTER PHASE-D NGGAAM\" . #x16931)\n (\"BAMUM LETTER PHASE-D MFIEE\" . #x16932)\n (\"BAMUM LETTER PHASE-D NGGWAEN\" . #x16933)\n (\"BAMUM LETTER PHASE-D YUOM\" . #x16934)\n (\"BAMUM LETTER PHASE-D PAP\" . #x16935)\n (\"BAMUM LETTER PHASE-D YUOP\" . #x16936)\n (\"BAMUM LETTER PHASE-D NDAM\" . #x16937)\n (\"BAMUM LETTER PHASE-D NTEUM\" . #x16938)\n (\"BAMUM LETTER PHASE-D SUAE\" . #x16939)\n (\"BAMUM LETTER PHASE-D KUN\" . #x1693A)\n (\"BAMUM LETTER PHASE-D NGGEUX\" . #x1693B)\n (\"BAMUM LETTER PHASE-D NGKIEE\" . #x1693C)\n (\"BAMUM LETTER PHASE-D TUOT\" . #x1693D)\n (\"BAMUM LETTER PHASE-D MEUN\" . #x1693E)\n (\"BAMUM LETTER PHASE-D KUQ\" . #x1693F)\n (\"BAMUM LETTER PHASE-D NSUM\" . #x16940)\n (\"BAMUM LETTER PHASE-D TEUN\" . #x16941)\n (\"BAMUM LETTER PHASE-D MAENJET\" . #x16942)\n (\"BAMUM LETTER PHASE-D NGGAP\" . #x16943)\n (\"BAMUM LETTER PHASE-D LEUM\" . #x16944)\n (\"BAMUM LETTER PHASE-D NGGUOM\" . #x16945)\n (\"BAMUM LETTER PHASE-D NSHUT\" . #x16946)\n (\"BAMUM LETTER PHASE-D NJUEQ\" . #x16947)\n (\"BAMUM LETTER PHASE-D GHEUAE\" . #x16948)\n (\"BAMUM LETTER PHASE-D KU\" . #x16949)\n (\"BAMUM LETTER PHASE-D REN OLD\" . #x1694A)\n (\"BAMUM LETTER PHASE-D TAE\" . #x1694B)\n (\"BAMUM LETTER PHASE-D TOQ\" . #x1694C)\n (\"BAMUM LETTER PHASE-D NYI\" . #x1694D)\n (\"BAMUM LETTER PHASE-D RII\" . #x1694E)\n (\"BAMUM LETTER PHASE-D LEEEE\" . #x1694F)\n (\"BAMUM LETTER PHASE-D MEEEE\" . #x16950)\n (\"BAMUM LETTER PHASE-D M\" . #x16951)\n (\"BAMUM LETTER PHASE-D SUU\" . #x16952)\n (\"BAMUM LETTER PHASE-D MU\" . #x16953)\n (\"BAMUM LETTER PHASE-D SHII\" . #x16954)\n (\"BAMUM LETTER PHASE-D SHEUX\" . #x16955)\n (\"BAMUM LETTER PHASE-D KYEE\" . #x16956)\n (\"BAMUM LETTER PHASE-D NU\" . #x16957)\n (\"BAMUM LETTER PHASE-D SHU\" . #x16958)\n (\"BAMUM LETTER PHASE-D NTEE\" . #x16959)\n (\"BAMUM LETTER PHASE-D PEE\" . #x1695A)\n (\"BAMUM LETTER PHASE-D NI\" . #x1695B)\n (\"BAMUM LETTER PHASE-D SHOQ\" . #x1695C)\n (\"BAMUM LETTER PHASE-D PUQ\" . #x1695D)\n (\"BAMUM LETTER PHASE-D MVOP\" . #x1695E)\n (\"BAMUM LETTER PHASE-D LOQ\" . #x1695F)\n (\"BAMUM LETTER PHASE-D REN MUCH\" . #x16960)\n (\"BAMUM LETTER PHASE-D TI\" . #x16961)\n (\"BAMUM LETTER PHASE-D NTUU\" . #x16962)\n (\"BAMUM LETTER PHASE-D MBAA SEVEN\" . #x16963)\n (\"BAMUM LETTER PHASE-D SAQ\" . #x16964)\n (\"BAMUM LETTER PHASE-D FAA\" . #x16965)\n (\"BAMUM LETTER PHASE-E NDAP\" . #x16966)\n (\"BAMUM LETTER PHASE-E TOON\" . #x16967)\n (\"BAMUM LETTER PHASE-E MBEUM\" . #x16968)\n (\"BAMUM LETTER PHASE-E LAP\" . #x16969)\n (\"BAMUM LETTER PHASE-E VOM\" . #x1696A)\n (\"BAMUM LETTER PHASE-E LOON\" . #x1696B)\n (\"BAMUM LETTER PHASE-E PAA\" . #x1696C)\n (\"BAMUM LETTER PHASE-E SOM\" . #x1696D)\n (\"BAMUM LETTER PHASE-E RAQ\" . #x1696E)\n (\"BAMUM LETTER PHASE-E NSHUOP\" . #x1696F)\n (\"BAMUM LETTER PHASE-E NDUN\" . #x16970)\n (\"BAMUM LETTER PHASE-E PUAE\" . #x16971)\n (\"BAMUM LETTER PHASE-E TAM\" . #x16972)\n (\"BAMUM LETTER PHASE-E NGKA\" . #x16973)\n (\"BAMUM LETTER PHASE-E KPEUX\" . #x16974)\n (\"BAMUM LETTER PHASE-E WUO\" . #x16975)\n (\"BAMUM LETTER PHASE-E SEE\" . #x16976)\n (\"BAMUM LETTER PHASE-E NGGEUAET\" . #x16977)\n (\"BAMUM LETTER PHASE-E PAAM\" . #x16978)\n (\"BAMUM LETTER PHASE-E TOO\" . #x16979)\n (\"BAMUM LETTER PHASE-E KUOP\" . #x1697A)\n (\"BAMUM LETTER PHASE-E LOM\" . #x1697B)\n (\"BAMUM LETTER PHASE-E NSHIEE\" . #x1697C)\n (\"BAMUM LETTER PHASE-E NGOP\" . #x1697D)\n (\"BAMUM LETTER PHASE-E MAEM\" . #x1697E)\n (\"BAMUM LETTER PHASE-E NGKEUX\" . #x1697F)\n (\"BAMUM LETTER PHASE-E NGOQ\" . #x16980)\n (\"BAMUM LETTER PHASE-E NSHUE\" . #x16981)\n (\"BAMUM LETTER PHASE-E RIMGBA\" . #x16982)\n (\"BAMUM LETTER PHASE-E NJEUX\" . #x16983)\n (\"BAMUM LETTER PHASE-E PEEM\" . #x16984)\n (\"BAMUM LETTER PHASE-E SAA\" . #x16985)\n (\"BAMUM LETTER PHASE-E NGGURAE\" . #x16986)\n (\"BAMUM LETTER PHASE-E MGBA\" . #x16987)\n (\"BAMUM LETTER PHASE-E GHEUX\" . #x16988)\n (\"BAMUM LETTER PHASE-E NGKEUAEM\" . #x16989)\n (\"BAMUM LETTER PHASE-E NJAEMLI\" . #x1698A)\n (\"BAMUM LETTER PHASE-E MAP\" . #x1698B)\n (\"BAMUM LETTER PHASE-E LOOT\" . #x1698C)\n (\"BAMUM LETTER PHASE-E NGGEEEE\" . #x1698D)\n (\"BAMUM LETTER PHASE-E NDIQ\" . #x1698E)\n (\"BAMUM LETTER PHASE-E TAEN NTEUM\" . #x1698F)\n (\"BAMUM LETTER PHASE-E SET\" . #x16990)\n (\"BAMUM LETTER PHASE-E PUM\" . #x16991)\n (\"BAMUM LETTER PHASE-E NDAA SOFTNESS\" . #x16992)\n (\"BAMUM LETTER PHASE-E NGGUAESHAE NYAM\" . #x16993)\n (\"BAMUM LETTER PHASE-E YIEE\" . #x16994)\n (\"BAMUM LETTER PHASE-E GHEUN\" . #x16995)\n (\"BAMUM LETTER PHASE-E TUAE\" . #x16996)\n (\"BAMUM LETTER PHASE-E YEUAE\" . #x16997)\n (\"BAMUM LETTER PHASE-E PO\" . #x16998)\n (\"BAMUM LETTER PHASE-E TUMAE\" . #x16999)\n (\"BAMUM LETTER PHASE-E KEUAE\" . #x1699A)\n (\"BAMUM LETTER PHASE-E SUAEN\" . #x1699B)\n (\"BAMUM LETTER PHASE-E TEUAEQ\" . #x1699C)\n (\"BAMUM LETTER PHASE-E VEUAE\" . #x1699D)\n (\"BAMUM LETTER PHASE-E WEUX\" . #x1699E)\n (\"BAMUM LETTER PHASE-E LAAM\" . #x1699F)\n (\"BAMUM LETTER PHASE-E PU\" . #x169A0)\n (\"BAMUM LETTER PHASE-E TAAQ\" . #x169A1)\n (\"BAMUM LETTER PHASE-E GHAAMAE\" . #x169A2)\n (\"BAMUM LETTER PHASE-E NGEUREUT\" . #x169A3)\n (\"BAMUM LETTER PHASE-E SHEUAEQ\" . #x169A4)\n (\"BAMUM LETTER PHASE-E MGBEN\" . #x169A5)\n (\"BAMUM LETTER PHASE-E MBEE\" . #x169A6)\n (\"BAMUM LETTER PHASE-E NZAQ\" . #x169A7)\n (\"BAMUM LETTER PHASE-E NKOM\" . #x169A8)\n (\"BAMUM LETTER PHASE-E GBET\" . #x169A9)\n (\"BAMUM LETTER PHASE-E TUM\" . #x169AA)\n (\"BAMUM LETTER PHASE-E KUET\" . #x169AB)\n (\"BAMUM LETTER PHASE-E YAP\" . #x169AC)\n (\"BAMUM LETTER PHASE-E NYI CLEAVER\" . #x169AD)\n (\"BAMUM LETTER PHASE-E YIT\" . #x169AE)\n (\"BAMUM LETTER PHASE-E MFEUQ\" . #x169AF)\n (\"BAMUM LETTER PHASE-E NDIAQ\" . #x169B0)\n (\"BAMUM LETTER PHASE-E PIEEQ\" . #x169B1)\n (\"BAMUM LETTER PHASE-E YUEQ\" . #x169B2)\n (\"BAMUM LETTER PHASE-E LEUAEM\" . #x169B3)\n (\"BAMUM LETTER PHASE-E FUE\" . #x169B4)\n (\"BAMUM LETTER PHASE-E GBEUX\" . #x169B5)\n (\"BAMUM LETTER PHASE-E NGKUP\" . #x169B6)\n (\"BAMUM LETTER PHASE-E KET\" . #x169B7)\n (\"BAMUM LETTER PHASE-E MAE\" . #x169B8)\n (\"BAMUM LETTER PHASE-E NGKAAMI\" . #x169B9)\n (\"BAMUM LETTER PHASE-E GHET\" . #x169BA)\n (\"BAMUM LETTER PHASE-E FA\" . #x169BB)\n (\"BAMUM LETTER PHASE-E NTUM\" . #x169BC)\n (\"BAMUM LETTER PHASE-E PEUT\" . #x169BD)\n (\"BAMUM LETTER PHASE-E YEUM\" . #x169BE)\n (\"BAMUM LETTER PHASE-E NGGEUAE\" . #x169BF)\n (\"BAMUM LETTER PHASE-E NYI BETWEEN\" . #x169C0)\n (\"BAMUM LETTER PHASE-E NZUQ\" . #x169C1)\n (\"BAMUM LETTER PHASE-E POON\" . #x169C2)\n (\"BAMUM LETTER PHASE-E MIEE\" . #x169C3)\n (\"BAMUM LETTER PHASE-E FUET\" . #x169C4)\n (\"BAMUM LETTER PHASE-E NAE\" . #x169C5)\n (\"BAMUM LETTER PHASE-E MUAE\" . #x169C6)\n (\"BAMUM LETTER PHASE-E GHEUAE\" . #x169C7)\n (\"BAMUM LETTER PHASE-E FU I\" . #x169C8)\n (\"BAMUM LETTER PHASE-E MVI\" . #x169C9)\n (\"BAMUM LETTER PHASE-E PUAQ\" . #x169CA)\n (\"BAMUM LETTER PHASE-E NGKUM\" . #x169CB)\n (\"BAMUM LETTER PHASE-E KUT\" . #x169CC)\n (\"BAMUM LETTER PHASE-E PIET\" . #x169CD)\n (\"BAMUM LETTER PHASE-E NTAP\" . #x169CE)\n (\"BAMUM LETTER PHASE-E YEUAET\" . #x169CF)\n (\"BAMUM LETTER PHASE-E NGGUP\" . #x169D0)\n (\"BAMUM LETTER PHASE-E PA PEOPLE\" . #x169D1)\n (\"BAMUM LETTER PHASE-E FU CALL\" . #x169D2)\n (\"BAMUM LETTER PHASE-E FOM\" . #x169D3)\n (\"BAMUM LETTER PHASE-E NJEE\" . #x169D4)\n (\"BAMUM LETTER PHASE-E A\" . #x169D5)\n (\"BAMUM LETTER PHASE-E TOQ\" . #x169D6)\n (\"BAMUM LETTER PHASE-E O\" . #x169D7)\n (\"BAMUM LETTER PHASE-E I\" . #x169D8)\n (\"BAMUM LETTER PHASE-E LAQ\" . #x169D9)\n (\"BAMUM LETTER PHASE-E PA PLURAL\" . #x169DA)\n (\"BAMUM LETTER PHASE-E TAA\" . #x169DB)\n (\"BAMUM LETTER PHASE-E TAQ\" . #x169DC)\n (\"BAMUM LETTER PHASE-E NDAA MY HOUSE\" . #x169DD)\n (\"BAMUM LETTER PHASE-E SHIQ\" . #x169DE)\n (\"BAMUM LETTER PHASE-E YEUX\" . #x169DF)\n (\"BAMUM LETTER PHASE-E NGUAE\" . #x169E0)\n (\"BAMUM LETTER PHASE-E YUAEN\" . #x169E1)\n (\"BAMUM LETTER PHASE-E YOQ SWIMMING\" . #x169E2)\n (\"BAMUM LETTER PHASE-E YOQ COVER\" . #x169E3)\n (\"BAMUM LETTER PHASE-E YUQ\" . #x169E4)\n (\"BAMUM LETTER PHASE-E YUN\" . #x169E5)\n (\"BAMUM LETTER PHASE-E KEUX\" . #x169E6)\n (\"BAMUM LETTER PHASE-E PEUX\" . #x169E7)\n (\"BAMUM LETTER PHASE-E NJEE EPOCH\" . #x169E8)\n (\"BAMUM LETTER PHASE-E PUE\" . #x169E9)\n (\"BAMUM LETTER PHASE-E WUE\" . #x169EA)\n (\"BAMUM LETTER PHASE-E FEE\" . #x169EB)\n (\"BAMUM LETTER PHASE-E VEE\" . #x169EC)\n (\"BAMUM LETTER PHASE-E LU\" . #x169ED)\n (\"BAMUM LETTER PHASE-E MI\" . #x169EE)\n (\"BAMUM LETTER PHASE-E REUX\" . #x169EF)\n (\"BAMUM LETTER PHASE-E RAE\" . #x169F0)\n (\"BAMUM LETTER PHASE-E NGUAET\" . #x169F1)\n (\"BAMUM LETTER PHASE-E NGA\" . #x169F2)\n (\"BAMUM LETTER PHASE-E SHO\" . #x169F3)\n (\"BAMUM LETTER PHASE-E SHOQ\" . #x169F4)\n (\"BAMUM LETTER PHASE-E FU REMEDY\" . #x169F5)\n (\"BAMUM LETTER PHASE-E NA\" . #x169F6)\n (\"BAMUM LETTER PHASE-E PI\" . #x169F7)\n (\"BAMUM LETTER PHASE-E LOQ\" . #x169F8)\n (\"BAMUM LETTER PHASE-E KO\" . #x169F9)\n (\"BAMUM LETTER PHASE-E MEN\" . #x169FA)\n (\"BAMUM LETTER PHASE-E MA\" . #x169FB)\n (\"BAMUM LETTER PHASE-E MAQ\" . #x169FC)\n (\"BAMUM LETTER PHASE-E TEU\" . #x169FD)\n (\"BAMUM LETTER PHASE-E KI\" . #x169FE)\n (\"BAMUM LETTER PHASE-E MON\" . #x169FF)\n (\"BAMUM LETTER PHASE-E TEN\" . #x16A00)\n (\"BAMUM LETTER PHASE-E FAQ\" . #x16A01)\n (\"BAMUM LETTER PHASE-E GHOM\" . #x16A02)\n (\"BAMUM LETTER PHASE-F KA\" . #x16A03)\n (\"BAMUM LETTER PHASE-F U\" . #x16A04)\n (\"BAMUM LETTER PHASE-F KU\" . #x16A05)\n (\"BAMUM LETTER PHASE-F EE\" . #x16A06)\n (\"BAMUM LETTER PHASE-F REE\" . #x16A07)\n (\"BAMUM LETTER PHASE-F TAE\" . #x16A08)\n (\"BAMUM LETTER PHASE-F NYI\" . #x16A09)\n (\"BAMUM LETTER PHASE-F LA\" . #x16A0A)\n (\"BAMUM LETTER PHASE-F RII\" . #x16A0B)\n (\"BAMUM LETTER PHASE-F RIEE\" . #x16A0C)\n (\"BAMUM LETTER PHASE-F MEEEE\" . #x16A0D)\n (\"BAMUM LETTER PHASE-F TAA\" . #x16A0E)\n (\"BAMUM LETTER PHASE-F NDAA\" . #x16A0F)\n (\"BAMUM LETTER PHASE-F NJAEM\" . #x16A10)\n (\"BAMUM LETTER PHASE-F M\" . #x16A11)\n (\"BAMUM LETTER PHASE-F SUU\" . #x16A12)\n (\"BAMUM LETTER PHASE-F SHII\" . #x16A13)\n (\"BAMUM LETTER PHASE-F SI\" . #x16A14)\n (\"BAMUM LETTER PHASE-F SEUX\" . #x16A15)\n (\"BAMUM LETTER PHASE-F KYEE\" . #x16A16)\n (\"BAMUM LETTER PHASE-F KET\" . #x16A17)\n (\"BAMUM LETTER PHASE-F NUAE\" . #x16A18)\n (\"BAMUM LETTER PHASE-F NU\" . #x16A19)\n (\"BAMUM LETTER PHASE-F NJUAE\" . #x16A1A)\n (\"BAMUM LETTER PHASE-F YOQ\" . #x16A1B)\n (\"BAMUM LETTER PHASE-F SHU\" . #x16A1C)\n (\"BAMUM LETTER PHASE-F YA\" . #x16A1D)\n (\"BAMUM LETTER PHASE-F NSHA\" . #x16A1E)\n (\"BAMUM LETTER PHASE-F PEUX\" . #x16A1F)\n (\"BAMUM LETTER PHASE-F NTEE\" . #x16A20)\n (\"BAMUM LETTER PHASE-F WUE\" . #x16A21)\n (\"BAMUM LETTER PHASE-F PEE\" . #x16A22)\n (\"BAMUM LETTER PHASE-F RU\" . #x16A23)\n (\"BAMUM LETTER PHASE-F NI\" . #x16A24)\n (\"BAMUM LETTER PHASE-F REUX\" . #x16A25)\n (\"BAMUM LETTER PHASE-F KEN\" . #x16A26)\n (\"BAMUM LETTER PHASE-F NGKWAEN\" . #x16A27)\n (\"BAMUM LETTER PHASE-F NGGA\" . #x16A28)\n (\"BAMUM LETTER PHASE-F SHO\" . #x16A29)\n (\"BAMUM LETTER PHASE-F PUAE\" . #x16A2A)\n (\"BAMUM LETTER PHASE-F FOM\" . #x16A2B)\n (\"BAMUM LETTER PHASE-F WA\" . #x16A2C)\n (\"BAMUM LETTER PHASE-F LI\" . #x16A2D)\n (\"BAMUM LETTER PHASE-F LOQ\" . #x16A2E)\n (\"BAMUM LETTER PHASE-F KO\" . #x16A2F)\n (\"BAMUM LETTER PHASE-F MBEN\" . #x16A30)\n (\"BAMUM LETTER PHASE-F REN\" . #x16A31)\n (\"BAMUM LETTER PHASE-F MA\" . #x16A32)\n (\"BAMUM LETTER PHASE-F MO\" . #x16A33)\n (\"BAMUM LETTER PHASE-F MBAA\" . #x16A34)\n (\"BAMUM LETTER PHASE-F TET\" . #x16A35)\n (\"BAMUM LETTER PHASE-F KPA\" . #x16A36)\n (\"BAMUM LETTER PHASE-F SAMBA\" . #x16A37)\n (\"BAMUM LETTER PHASE-F VUEQ\" . #x16A38)\n (\"KATAKANA LETTER ARCHAIC E\" . #x1B000)\n (\"HIRAGANA LETTER ARCHAIC YE\" . #x1B001)\n (\"PLAYING CARD BACK\" . #x1F0A0)\n (\"PLAYING CARD ACE OF SPADES\" . #x1F0A1)\n (\"PLAYING CARD TWO OF SPADES\" . #x1F0A2)\n (\"PLAYING CARD THREE OF SPADES\" . #x1F0A3)\n (\"PLAYING CARD FOUR OF SPADES\" . #x1F0A4)\n (\"PLAYING CARD FIVE OF SPADES\" . #x1F0A5)\n (\"PLAYING CARD SIX OF SPADES\" . #x1F0A6)\n (\"PLAYING CARD SEVEN OF SPADES\" . #x1F0A7)\n (\"PLAYING CARD EIGHT OF SPADES\" . #x1F0A8)\n (\"PLAYING CARD NINE OF SPADES\" . #x1F0A9)\n (\"PLAYING CARD TEN OF SPADES\" . #x1F0AA)\n (\"PLAYING CARD JACK OF SPADES\" . #x1F0AB)\n (\"PLAYING CARD KNIGHT OF SPADES\" . #x1F0AC)\n (\"PLAYING CARD QUEEN OF SPADES\" . #x1F0AD)\n (\"PLAYING CARD KING OF SPADES\" . #x1F0AE)\n (\"PLAYING CARD ACE OF HEARTS\" . #x1F0B1)\n (\"PLAYING CARD TWO OF HEARTS\" . #x1F0B2)\n (\"PLAYING CARD THREE OF HEARTS\" . #x1F0B3)\n (\"PLAYING CARD FOUR OF HEARTS\" . #x1F0B4)\n (\"PLAYING CARD FIVE OF HEARTS\" . #x1F0B5)\n (\"PLAYING CARD SIX OF HEARTS\" . #x1F0B6)\n (\"PLAYING CARD SEVEN OF HEARTS\" . #x1F0B7)\n (\"PLAYING CARD EIGHT OF HEARTS\" . #x1F0B8)\n (\"PLAYING CARD NINE OF HEARTS\" . #x1F0B9)\n (\"PLAYING CARD TEN OF HEARTS\" . #x1F0BA)\n (\"PLAYING CARD JACK OF HEARTS\" . #x1F0BB)\n (\"PLAYING CARD KNIGHT OF HEARTS\" . #x1F0BC)\n (\"PLAYING CARD QUEEN OF HEARTS\" . #x1F0BD)\n (\"PLAYING CARD KING OF HEARTS\" . #x1F0BE)\n (\"PLAYING CARD ACE OF DIAMONDS\" . #x1F0C1)\n (\"PLAYING CARD TWO OF DIAMONDS\" . #x1F0C2)\n (\"PLAYING CARD THREE OF DIAMONDS\" . #x1F0C3)\n (\"PLAYING CARD FOUR OF DIAMONDS\" . #x1F0C4)\n (\"PLAYING CARD FIVE OF DIAMONDS\" . #x1F0C5)\n (\"PLAYING CARD SIX OF DIAMONDS\" . #x1F0C6)\n (\"PLAYING CARD SEVEN OF DIAMONDS\" . #x1F0C7)\n (\"PLAYING CARD EIGHT OF DIAMONDS\" . #x1F0C8)\n (\"PLAYING CARD NINE OF DIAMONDS\" . #x1F0C9)\n (\"PLAYING CARD TEN OF DIAMONDS\" . #x1F0CA)\n (\"PLAYING CARD JACK OF DIAMONDS\" . #x1F0CB)\n (\"PLAYING CARD KNIGHT OF DIAMONDS\" . #x1F0CC)\n (\"PLAYING CARD QUEEN OF DIAMONDS\" . #x1F0CD)\n (\"PLAYING CARD KING OF DIAMONDS\" . #x1F0CE)\n (\"PLAYING CARD BLACK JOKER\" . #x1F0CF)\n (\"PLAYING CARD ACE OF CLUBS\" . #x1F0D1)\n (\"PLAYING CARD TWO OF CLUBS\" . #x1F0D2)\n (\"PLAYING CARD THREE OF CLUBS\" . #x1F0D3)\n (\"PLAYING CARD FOUR OF CLUBS\" . #x1F0D4)\n (\"PLAYING CARD FIVE OF CLUBS\" . #x1F0D5)\n (\"PLAYING CARD SIX OF CLUBS\" . #x1F0D6)\n (\"PLAYING CARD SEVEN OF CLUBS\" . #x1F0D7)\n (\"PLAYING CARD EIGHT OF CLUBS\" . #x1F0D8)\n (\"PLAYING CARD NINE OF CLUBS\" . #x1F0D9)\n (\"PLAYING CARD TEN OF CLUBS\" . #x1F0DA)\n (\"PLAYING CARD JACK OF CLUBS\" . #x1F0DB)\n (\"PLAYING CARD KNIGHT OF CLUBS\" . #x1F0DC)\n (\"PLAYING CARD QUEEN OF CLUBS\" . #x1F0DD)\n (\"PLAYING CARD KING OF CLUBS\" . #x1F0DE)\n (\"PLAYING CARD WHITE JOKER\" . #x1F0DF)\n (\"SQUARED LATIN CAPITAL LETTER A\" . #x1F130)\n (\"SQUARED LATIN CAPITAL LETTER C\" . #x1F132)\n (\"SQUARED LATIN CAPITAL LETTER D\" . #x1F133)\n (\"SQUARED LATIN CAPITAL LETTER E\" . #x1F134)\n (\"SQUARED LATIN CAPITAL LETTER F\" . #x1F135)\n (\"SQUARED LATIN CAPITAL LETTER G\" . #x1F136)\n (\"SQUARED LATIN CAPITAL LETTER H\" . #x1F137)\n (\"SQUARED LATIN CAPITAL LETTER I\" . #x1F138)\n (\"SQUARED LATIN CAPITAL LETTER J\" . #x1F139)\n (\"SQUARED LATIN CAPITAL LETTER K\" . #x1F13A)\n (\"SQUARED LATIN CAPITAL LETTER L\" . #x1F13B)\n (\"SQUARED LATIN CAPITAL LETTER M\" . #x1F13C)\n (\"SQUARED LATIN CAPITAL LETTER O\" . #x1F13E)\n (\"SQUARED LATIN CAPITAL LETTER Q\" . #x1F140)\n (\"SQUARED LATIN CAPITAL LETTER R\" . #x1F141)\n (\"SQUARED LATIN CAPITAL LETTER T\" . #x1F143)\n (\"SQUARED LATIN CAPITAL LETTER U\" . #x1F144)\n (\"SQUARED LATIN CAPITAL LETTER V\" . #x1F145)\n (\"SQUARED LATIN CAPITAL LETTER X\" . #x1F147)\n (\"SQUARED LATIN CAPITAL LETTER Y\" . #x1F148)\n (\"SQUARED LATIN CAPITAL LETTER Z\" . #x1F149)\n (\"SQUARED WC\" . #x1F14F)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER A\" . #x1F150)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER B\" . #x1F151)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER C\" . #x1F152)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER D\" . #x1F153)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER E\" . #x1F154)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER F\" . #x1F155)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER G\" . #x1F156)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER I\" . #x1F158)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER J\" . #x1F159)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER K\" . #x1F15A)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER L\" . #x1F15B)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER M\" . #x1F15C)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER N\" . #x1F15D)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER O\" . #x1F15E)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER Q\" . #x1F160)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER R\" . #x1F161)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER S\" . #x1F162)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER T\" . #x1F163)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER U\" . #x1F164)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER V\" . #x1F165)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER W\" . #x1F166)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER X\" . #x1F167)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER Y\" . #x1F168)\n (\"NEGATIVE CIRCLED LATIN CAPITAL LETTER Z\" . #x1F169)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER A\" . #x1F170)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER B\" . #x1F171)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER C\" . #x1F172)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER D\" . #x1F173)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER E\" . #x1F174)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER F\" . #x1F175)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER G\" . #x1F176)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER H\" . #x1F177)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER I\" . #x1F178)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER K\" . #x1F17A)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER N\" . #x1F17D)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER O\" . #x1F17E)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER Q\" . #x1F180)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER R\" . #x1F181)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER S\" . #x1F182)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER T\" . #x1F183)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER U\" . #x1F184)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER V\" . #x1F185)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER W\" . #x1F186)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER X\" . #x1F187)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER Y\" . #x1F188)\n (\"NEGATIVE SQUARED LATIN CAPITAL LETTER Z\" . #x1F189)\n (\"NEGATIVE SQUARED AB\" . #x1F18E)\n (\"NEGATIVE SQUARED WC\" . #x1F18F)\n (\"SQUARED CL\" . #x1F191)\n (\"SQUARED COOL\" . #x1F192)\n (\"SQUARED FREE\" . #x1F193)\n (\"SQUARED ID\" . #x1F194)\n (\"SQUARED NEW\" . #x1F195)\n (\"SQUARED NG\" . #x1F196)\n (\"SQUARED OK\" . #x1F197)\n (\"SQUARED SOS\" . #x1F198)\n (\"SQUARED UP WITH EXCLAMATION MARK\" . #x1F199)\n (\"SQUARED VS\" . #x1F19A)\n (\"REGIONAL INDICATOR SYMBOL LETTER A\" . #x1F1E6)\n (\"REGIONAL INDICATOR SYMBOL LETTER B\" . #x1F1E7)\n (\"REGIONAL INDICATOR SYMBOL LETTER C\" . #x1F1E8)\n (\"REGIONAL INDICATOR SYMBOL LETTER D\" . #x1F1E9)\n (\"REGIONAL INDICATOR SYMBOL LETTER E\" . #x1F1EA)\n (\"REGIONAL INDICATOR SYMBOL LETTER F\" . #x1F1EB)\n (\"REGIONAL INDICATOR SYMBOL LETTER G\" . #x1F1EC)\n (\"REGIONAL INDICATOR SYMBOL LETTER H\" . #x1F1ED)\n (\"REGIONAL INDICATOR SYMBOL LETTER I\" . #x1F1EE)\n (\"REGIONAL INDICATOR SYMBOL LETTER J\" . #x1F1EF)\n (\"REGIONAL INDICATOR SYMBOL LETTER K\" . #x1F1F0)\n (\"REGIONAL INDICATOR SYMBOL LETTER L\" . #x1F1F1)\n (\"REGIONAL INDICATOR SYMBOL LETTER M\" . #x1F1F2)\n (\"REGIONAL INDICATOR SYMBOL LETTER N\" . #x1F1F3)\n (\"REGIONAL INDICATOR SYMBOL LETTER O\" . #x1F1F4)\n (\"REGIONAL INDICATOR SYMBOL LETTER P\" . #x1F1F5)\n (\"REGIONAL INDICATOR SYMBOL LETTER Q\" . #x1F1F6)\n (\"REGIONAL INDICATOR SYMBOL LETTER R\" . #x1F1F7)\n (\"REGIONAL INDICATOR SYMBOL LETTER S\" . #x1F1F8)\n (\"REGIONAL INDICATOR SYMBOL LETTER T\" . #x1F1F9)\n (\"REGIONAL INDICATOR SYMBOL LETTER U\" . #x1F1FA)\n (\"REGIONAL INDICATOR SYMBOL LETTER V\" . #x1F1FB)\n (\"REGIONAL INDICATOR SYMBOL LETTER W\" . #x1F1FC)\n (\"REGIONAL INDICATOR SYMBOL LETTER X\" . #x1F1FD)\n (\"REGIONAL INDICATOR SYMBOL LETTER Y\" . #x1F1FE)\n (\"REGIONAL INDICATOR SYMBOL LETTER Z\" . #x1F1FF)\n (\"SQUARED KATAKANA KOKO\" . #x1F201)\n (\"SQUARED KATAKANA SA\" . #x1F202)\n (\"SQUARED CJK UNIFIED IDEOGRAPH-7981\" . #x1F232)\n (\"SQUARED CJK UNIFIED IDEOGRAPH-7A7A\" . #x1F233)\n (\"SQUARED CJK UNIFIED IDEOGRAPH-5408\" . #x1F234)\n (\"SQUARED CJK UNIFIED IDEOGRAPH-6E80\" . #x1F235)\n (\"SQUARED CJK UNIFIED IDEOGRAPH-6709\" . #x1F236)\n (\"SQUARED CJK UNIFIED IDEOGRAPH-6708\" . #x1F237)\n (\"SQUARED CJK UNIFIED IDEOGRAPH-7533\" . #x1F238)\n (\"SQUARED CJK UNIFIED IDEOGRAPH-5272\" . #x1F239)\n (\"SQUARED CJK UNIFIED IDEOGRAPH-55B6\" . #x1F23A)\n (\"CIRCLED IDEOGRAPH ADVANTAGE\" . #x1F250)\n (\"CIRCLED IDEOGRAPH ACCEPT\" . #x1F251)\n (\"CYCLONE\" . #x1F300)\n (\"FOGGY\" . #x1F301)\n (\"CLOSED UMBRELLA\" . #x1F302)\n (\"NIGHT WITH STARS\" . #x1F303)\n (\"SUNRISE OVER MOUNTAINS\" . #x1F304)\n (\"SUNRISE\" . #x1F305)\n (\"CITYSCAPE AT DUSK\" . #x1F306)\n (\"SUNSET OVER BUILDINGS\" . #x1F307)\n (\"RAINBOW\" . #x1F308)\n (\"BRIDGE AT NIGHT\" . #x1F309)\n (\"WATER WAVE\" . #x1F30A)\n (\"VOLCANO\" . #x1F30B)\n (\"MILKY WAY\" . #x1F30C)\n (\"EARTH GLOBE EUROPE-AFRICA\" . #x1F30D)\n (\"EARTH GLOBE AMERICAS\" . #x1F30E)\n (\"EARTH GLOBE ASIA-AUSTRALIA\" . #x1F30F)\n (\"GLOBE WITH MERIDIANS\" . #x1F310)\n (\"NEW MOON SYMBOL\" . #x1F311)\n (\"WAXING CRESCENT MOON SYMBOL\" . #x1F312)\n (\"FIRST QUARTER MOON SYMBOL\" . #x1F313)\n (\"WAXING GIBBOUS MOON SYMBOL\" . #x1F314)\n (\"FULL MOON SYMBOL\" . #x1F315)\n (\"WANING GIBBOUS MOON SYMBOL\" . #x1F316)\n (\"LAST QUARTER MOON SYMBOL\" . #x1F317)\n (\"WANING CRESCENT MOON SYMBOL\" . #x1F318)\n (\"CRESCENT MOON\" . #x1F319)\n (\"NEW MOON WITH FACE\" . #x1F31A)\n (\"FIRST QUARTER MOON WITH FACE\" . #x1F31B)\n (\"LAST QUARTER MOON WITH FACE\" . #x1F31C)\n (\"FULL MOON WITH FACE\" . #x1F31D)\n (\"SUN WITH FACE\" . #x1F31E)\n (\"GLOWING STAR\" . #x1F31F)\n (\"SHOOTING STAR\" . #x1F320)\n (\"CHESTNUT\" . #x1F330)\n (\"SEEDLING\" . #x1F331)\n (\"EVERGREEN TREE\" . #x1F332)\n (\"DECIDUOUS TREE\" . #x1F333)\n (\"PALM TREE\" . #x1F334)\n (\"CACTUS\" . #x1F335)\n (\"TULIP\" . #x1F337)\n (\"CHERRY BLOSSOM\" . #x1F338)\n (\"ROSE\" . #x1F339)\n (\"HIBISCUS\" . #x1F33A)\n (\"SUNFLOWER\" . #x1F33B)\n (\"BLOSSOM\" . #x1F33C)\n (\"EAR OF MAIZE\" . #x1F33D)\n (\"EAR OF RICE\" . #x1F33E)\n (\"HERB\" . #x1F33F)\n (\"FOUR LEAF CLOVER\" . #x1F340)\n (\"MAPLE LEAF\" . #x1F341)\n (\"FALLEN LEAF\" . #x1F342)\n (\"LEAF FLUTTERING IN WIND\" . #x1F343)\n (\"MUSHROOM\" . #x1F344)\n (\"TOMATO\" . #x1F345)\n (\"AUBERGINE\" . #x1F346)\n (\"GRAPES\" . #x1F347)\n (\"MELON\" . #x1F348)\n (\"WATERMELON\" . #x1F349)\n (\"TANGERINE\" . #x1F34A)\n (\"LEMON\" . #x1F34B)\n (\"BANANA\" . #x1F34C)\n (\"PINEAPPLE\" . #x1F34D)\n (\"RED APPLE\" . #x1F34E)\n (\"GREEN APPLE\" . #x1F34F)\n (\"PEAR\" . #x1F350)\n (\"PEACH\" . #x1F351)\n (\"CHERRIES\" . #x1F352)\n (\"STRAWBERRY\" . #x1F353)\n (\"HAMBURGER\" . #x1F354)\n (\"SLICE OF PIZZA\" . #x1F355)\n (\"MEAT ON BONE\" . #x1F356)\n (\"POULTRY LEG\" . #x1F357)\n (\"RICE CRACKER\" . #x1F358)\n (\"RICE BALL\" . #x1F359)\n (\"COOKED RICE\" . #x1F35A)\n (\"CURRY AND RICE\" . #x1F35B)\n (\"STEAMING BOWL\" . #x1F35C)\n (\"SPAGHETTI\" . #x1F35D)\n (\"BREAD\" . #x1F35E)\n (\"FRENCH FRIES\" . #x1F35F)\n (\"ROASTED SWEET POTATO\" . #x1F360)\n (\"DANGO\" . #x1F361)\n (\"ODEN\" . #x1F362)\n (\"SUSHI\" . #x1F363)\n (\"FRIED SHRIMP\" . #x1F364)\n (\"FISH CAKE WITH SWIRL DESIGN\" . #x1F365)\n (\"SOFT ICE CREAM\" . #x1F366)\n (\"SHAVED ICE\" . #x1F367)\n (\"ICE CREAM\" . #x1F368)\n (\"DOUGHNUT\" . #x1F369)\n (\"COOKIE\" . #x1F36A)\n (\"CHOCOLATE BAR\" . #x1F36B)\n (\"CANDY\" . #x1F36C)\n (\"LOLLIPOP\" . #x1F36D)\n (\"CUSTARD\" . #x1F36E)\n (\"HONEY POT\" . #x1F36F)\n (\"SHORTCAKE\" . #x1F370)\n (\"BENTO BOX\" . #x1F371)\n (\"POT OF FOOD\" . #x1F372)\n (\"COOKING\" . #x1F373)\n (\"FORK AND KNIFE\" . #x1F374)\n (\"TEACUP WITHOUT HANDLE\" . #x1F375)\n (\"SAKE BOTTLE AND CUP\" . #x1F376)\n (\"WINE GLASS\" . #x1F377)\n (\"COCKTAIL GLASS\" . #x1F378)\n (\"TROPICAL DRINK\" . #x1F379)\n (\"BEER MUG\" . #x1F37A)\n (\"CLINKING BEER MUGS\" . #x1F37B)\n (\"BABY BOTTLE\" . #x1F37C)\n (\"RIBBON\" . #x1F380)\n (\"WRAPPED PRESENT\" . #x1F381)\n (\"BIRTHDAY CAKE\" . #x1F382)\n (\"JACK-O-LANTERN\" . #x1F383)\n (\"CHRISTMAS TREE\" . #x1F384)\n (\"FATHER CHRISTMAS\" . #x1F385)\n (\"FIREWORKS\" . #x1F386)\n (\"FIREWORK SPARKLER\" . #x1F387)\n (\"BALLOON\" . #x1F388)\n (\"PARTY POPPER\" . #x1F389)\n (\"CONFETTI BALL\" . #x1F38A)\n (\"TANABATA TREE\" . #x1F38B)\n (\"CROSSED FLAGS\" . #x1F38C)\n (\"PINE DECORATION\" . #x1F38D)\n (\"JAPANESE DOLLS\" . #x1F38E)\n (\"CARP STREAMER\" . #x1F38F)\n (\"WIND CHIME\" . #x1F390)\n (\"MOON VIEWING CEREMONY\" . #x1F391)\n (\"SCHOOL SATCHEL\" . #x1F392)\n (\"GRADUATION CAP\" . #x1F393)\n (\"CAROUSEL HORSE\" . #x1F3A0)\n (\"FERRIS WHEEL\" . #x1F3A1)\n (\"ROLLER COASTER\" . #x1F3A2)\n (\"FISHING POLE AND FISH\" . #x1F3A3)\n (\"MICROPHONE\" . #x1F3A4)\n (\"MOVIE CAMERA\" . #x1F3A5)\n (\"CINEMA\" . #x1F3A6)\n (\"HEADPHONE\" . #x1F3A7)\n (\"ARTIST PALETTE\" . #x1F3A8)\n (\"TOP HAT\" . #x1F3A9)\n (\"CIRCUS TENT\" . #x1F3AA)\n (\"TICKET\" . #x1F3AB)\n (\"CLAPPER BOARD\" . #x1F3AC)\n (\"PERFORMING ARTS\" . #x1F3AD)\n (\"VIDEO GAME\" . #x1F3AE)\n (\"DIRECT HIT\" . #x1F3AF)\n (\"SLOT MACHINE\" . #x1F3B0)\n (\"BILLIARDS\" . #x1F3B1)\n (\"GAME DIE\" . #x1F3B2)\n (\"BOWLING\" . #x1F3B3)\n (\"FLOWER PLAYING CARDS\" . #x1F3B4)\n (\"MUSICAL NOTE\" . #x1F3B5)\n (\"MULTIPLE MUSICAL NOTES\" . #x1F3B6)\n (\"SAXOPHONE\" . #x1F3B7)\n (\"GUITAR\" . #x1F3B8)\n (\"MUSICAL KEYBOARD\" . #x1F3B9)\n (\"TRUMPET\" . #x1F3BA)\n (\"VIOLIN\" . #x1F3BB)\n (\"MUSICAL SCORE\" . #x1F3BC)\n (\"RUNNING SHIRT WITH SASH\" . #x1F3BD)\n (\"TENNIS RACQUET AND BALL\" . #x1F3BE)\n (\"SKI AND SKI BOOT\" . #x1F3BF)\n (\"BASKETBALL AND HOOP\" . #x1F3C0)\n (\"CHEQUERED FLAG\" . #x1F3C1)\n (\"SNOWBOARDER\" . #x1F3C2)\n (\"RUNNER\" . #x1F3C3)\n (\"SURFER\" . #x1F3C4)\n (\"TROPHY\" . #x1F3C6)\n (\"HORSE RACING\" . #x1F3C7)\n (\"AMERICAN FOOTBALL\" . #x1F3C8)\n (\"RUGBY FOOTBALL\" . #x1F3C9)\n (\"SWIMMER\" . #x1F3CA)\n (\"HOUSE BUILDING\" . #x1F3E0)\n (\"HOUSE WITH GARDEN\" . #x1F3E1)\n (\"OFFICE BUILDING\" . #x1F3E2)\n (\"JAPANESE POST OFFICE\" . #x1F3E3)\n (\"EUROPEAN POST OFFICE\" . #x1F3E4)\n (\"HOSPITAL\" . #x1F3E5)\n (\"BANK\" . #x1F3E6)\n (\"AUTOMATED TELLER MACHINE\" . #x1F3E7)\n (\"HOTEL\" . #x1F3E8)\n (\"LOVE HOTEL\" . #x1F3E9)\n (\"CONVENIENCE STORE\" . #x1F3EA)\n (\"SCHOOL\" . #x1F3EB)\n (\"DEPARTMENT STORE\" . #x1F3EC)\n (\"FACTORY\" . #x1F3ED)\n (\"IZAKAYA LANTERN\" . #x1F3EE)\n (\"JAPANESE CASTLE\" . #x1F3EF)\n (\"EUROPEAN CASTLE\" . #x1F3F0)\n (\"RAT\" . #x1F400)\n (\"MOUSE\" . #x1F401)\n (\"OX\" . #x1F402)\n (\"WATER BUFFALO\" . #x1F403)\n (\"COW\" . #x1F404)\n (\"TIGER\" . #x1F405)\n (\"LEOPARD\" . #x1F406)\n (\"RABBIT\" . #x1F407)\n (\"CAT\" . #x1F408)\n (\"DRAGON\" . #x1F409)\n (\"CROCODILE\" . #x1F40A)\n (\"WHALE\" . #x1F40B)\n (\"SNAIL\" . #x1F40C)\n (\"SNAKE\" . #x1F40D)\n (\"HORSE\" . #x1F40E)\n (\"RAM\" . #x1F40F)\n (\"GOAT\" . #x1F410)\n (\"SHEEP\" . #x1F411)\n (\"MONKEY\" . #x1F412)\n (\"ROOSTER\" . #x1F413)\n (\"CHICKEN\" . #x1F414)\n (\"DOG\" . #x1F415)\n (\"PIG\" . #x1F416)\n (\"BOAR\" . #x1F417)\n (\"ELEPHANT\" . #x1F418)\n (\"OCTOPUS\" . #x1F419)\n (\"SPIRAL SHELL\" . #x1F41A)\n (\"BUG\" . #x1F41B)\n (\"ANT\" . #x1F41C)\n (\"HONEYBEE\" . #x1F41D)\n (\"LADY BEETLE\" . #x1F41E)\n (\"FISH\" . #x1F41F)\n (\"TROPICAL FISH\" . #x1F420)\n (\"BLOWFISH\" . #x1F421)\n (\"TURTLE\" . #x1F422)\n (\"HATCHING CHICK\" . #x1F423)\n (\"BABY CHICK\" . #x1F424)\n (\"FRONT-FACING BABY CHICK\" . #x1F425)\n (\"BIRD\" . #x1F426)\n (\"PENGUIN\" . #x1F427)\n (\"KOALA\" . #x1F428)\n (\"POODLE\" . #x1F429)\n (\"DROMEDARY CAMEL\" . #x1F42A)\n (\"BACTRIAN CAMEL\" . #x1F42B)\n (\"DOLPHIN\" . #x1F42C)\n (\"MOUSE FACE\" . #x1F42D)\n (\"COW FACE\" . #x1F42E)\n (\"TIGER FACE\" . #x1F42F)\n (\"RABBIT FACE\" . #x1F430)\n (\"CAT FACE\" . #x1F431)\n (\"DRAGON FACE\" . #x1F432)\n (\"SPOUTING WHALE\" . #x1F433)\n (\"HORSE FACE\" . #x1F434)\n (\"MONKEY FACE\" . #x1F435)\n (\"DOG FACE\" . #x1F436)\n (\"PIG FACE\" . #x1F437)\n (\"FROG FACE\" . #x1F438)\n (\"HAMSTER FACE\" . #x1F439)\n (\"WOLF FACE\" . #x1F43A)\n (\"BEAR FACE\" . #x1F43B)\n (\"PANDA FACE\" . #x1F43C)\n (\"PIG NOSE\" . #x1F43D)\n (\"PAW PRINTS\" . #x1F43E)\n (\"EYES\" . #x1F440)\n (\"EAR\" . #x1F442)\n (\"NOSE\" . #x1F443)\n (\"MOUTH\" . #x1F444)\n (\"TONGUE\" . #x1F445)\n (\"WHITE UP POINTING BACKHAND INDEX\" . #x1F446)\n (\"WHITE DOWN POINTING BACKHAND INDEX\" . #x1F447)\n (\"WHITE LEFT POINTING BACKHAND INDEX\" . #x1F448)\n (\"WHITE RIGHT POINTING BACKHAND INDEX\" . #x1F449)\n (\"FISTED HAND SIGN\" . #x1F44A)\n (\"WAVING HAND SIGN\" . #x1F44B)\n (\"OK HAND SIGN\" . #x1F44C)\n (\"THUMBS UP SIGN\" . #x1F44D)\n (\"THUMBS DOWN SIGN\" . #x1F44E)\n (\"CLAPPING HANDS SIGN\" . #x1F44F)\n (\"OPEN HANDS SIGN\" . #x1F450)\n (\"CROWN\" . #x1F451)\n (\"WOMANS HAT\" . #x1F452)\n (\"EYEGLASSES\" . #x1F453)\n (\"NECKTIE\" . #x1F454)\n (\"T-SHIRT\" . #x1F455)\n (\"JEANS\" . #x1F456)\n (\"DRESS\" . #x1F457)\n (\"KIMONO\" . #x1F458)\n (\"BIKINI\" . #x1F459)\n (\"WOMANS CLOTHES\" . #x1F45A)\n (\"PURSE\" . #x1F45B)\n (\"HANDBAG\" . #x1F45C)\n (\"POUCH\" . #x1F45D)\n (\"MANS SHOE\" . #x1F45E)\n (\"ATHLETIC SHOE\" . #x1F45F)\n (\"HIGH-HEELED SHOE\" . #x1F460)\n (\"WOMANS SANDAL\" . #x1F461)\n (\"WOMANS BOOTS\" . #x1F462)\n (\"FOOTPRINTS\" . #x1F463)\n (\"BUST IN SILHOUETTE\" . #x1F464)\n (\"BUSTS IN SILHOUETTE\" . #x1F465)\n (\"BOY\" . #x1F466)\n (\"GIRL\" . #x1F467)\n (\"MAN\" . #x1F468)\n (\"WOMAN\" . #x1F469)\n (\"FAMILY\" . #x1F46A)\n (\"MAN AND WOMAN HOLDING HANDS\" . #x1F46B)\n (\"TWO MEN HOLDING HANDS\" . #x1F46C)\n (\"TWO WOMEN HOLDING HANDS\" . #x1F46D)\n (\"POLICE OFFICER\" . #x1F46E)\n (\"WOMAN WITH BUNNY EARS\" . #x1F46F)\n (\"BRIDE WITH VEIL\" . #x1F470)\n (\"PERSON WITH BLOND HAIR\" . #x1F471)\n (\"MAN WITH GUA PI MAO\" . #x1F472)\n (\"MAN WITH TURBAN\" . #x1F473)\n (\"OLDER MAN\" . #x1F474)\n (\"OLDER WOMAN\" . #x1F475)\n (\"BABY\" . #x1F476)\n (\"CONSTRUCTION WORKER\" . #x1F477)\n (\"PRINCESS\" . #x1F478)\n (\"JAPANESE OGRE\" . #x1F479)\n (\"JAPANESE GOBLIN\" . #x1F47A)\n (\"GHOST\" . #x1F47B)\n (\"BABY ANGEL\" . #x1F47C)\n (\"EXTRATERRESTRIAL ALIEN\" . #x1F47D)\n (\"ALIEN MONSTER\" . #x1F47E)\n (\"IMP\" . #x1F47F)\n (\"SKULL\" . #x1F480)\n (\"INFORMATION DESK PERSON\" . #x1F481)\n (\"GUARDSMAN\" . #x1F482)\n (\"DANCER\" . #x1F483)\n (\"LIPSTICK\" . #x1F484)\n (\"NAIL POLISH\" . #x1F485)\n (\"FACE MASSAGE\" . #x1F486)\n (\"HAIRCUT\" . #x1F487)\n (\"BARBER POLE\" . #x1F488)\n (\"SYRINGE\" . #x1F489)\n (\"PILL\" . #x1F48A)\n (\"KISS MARK\" . #x1F48B)\n (\"LOVE LETTER\" . #x1F48C)\n (\"RING\" . #x1F48D)\n (\"GEM STONE\" . #x1F48E)\n (\"KISS\" . #x1F48F)\n (\"BOUQUET\" . #x1F490)\n (\"COUPLE WITH HEART\" . #x1F491)\n (\"WEDDING\" . #x1F492)\n (\"BEATING HEART\" . #x1F493)\n (\"BROKEN HEART\" . #x1F494)\n (\"TWO HEARTS\" . #x1F495)\n (\"SPARKLING HEART\" . #x1F496)\n (\"GROWING HEART\" . #x1F497)\n (\"HEART WITH ARROW\" . #x1F498)\n (\"BLUE HEART\" . #x1F499)\n (\"GREEN HEART\" . #x1F49A)\n (\"YELLOW HEART\" . #x1F49B)\n (\"PURPLE HEART\" . #x1F49C)\n (\"HEART WITH RIBBON\" . #x1F49D)\n (\"REVOLVING HEARTS\" . #x1F49E)\n (\"HEART DECORATION\" . #x1F49F)\n (\"DIAMOND SHAPE WITH A DOT INSIDE\" . #x1F4A0)\n (\"ELECTRIC LIGHT BULB\" . #x1F4A1)\n (\"ANGER SYMBOL\" . #x1F4A2)\n (\"BOMB\" . #x1F4A3)\n (\"SLEEPING SYMBOL\" . #x1F4A4)\n (\"COLLISION SYMBOL\" . #x1F4A5)\n (\"SPLASHING SWEAT SYMBOL\" . #x1F4A6)\n (\"DROPLET\" . #x1F4A7)\n (\"DASH SYMBOL\" . #x1F4A8)\n (\"PILE OF POO\" . #x1F4A9)\n (\"FLEXED BICEPS\" . #x1F4AA)\n (\"DIZZY SYMBOL\" . #x1F4AB)\n (\"SPEECH BALLOON\" . #x1F4AC)\n (\"THOUGHT BALLOON\" . #x1F4AD)\n (\"WHITE FLOWER\" . #x1F4AE)\n (\"HUNDRED POINTS SYMBOL\" . #x1F4AF)\n (\"MONEY BAG\" . #x1F4B0)\n (\"CURRENCY EXCHANGE\" . #x1F4B1)\n (\"HEAVY DOLLAR SIGN\" . #x1F4B2)\n (\"CREDIT CARD\" . #x1F4B3)\n (\"BANKNOTE WITH YEN SIGN\" . #x1F4B4)\n (\"BANKNOTE WITH DOLLAR SIGN\" . #x1F4B5)\n (\"BANKNOTE WITH EURO SIGN\" . #x1F4B6)\n (\"BANKNOTE WITH POUND SIGN\" . #x1F4B7)\n (\"MONEY WITH WINGS\" . #x1F4B8)\n (\"CHART WITH UPWARDS TREND AND YEN SIGN\" . #x1F4B9)\n (\"SEAT\" . #x1F4BA)\n (\"PERSONAL COMPUTER\" . #x1F4BB)\n (\"BRIEFCASE\" . #x1F4BC)\n (\"MINIDISC\" . #x1F4BD)\n (\"FLOPPY DISK\" . #x1F4BE)\n (\"OPTICAL DISC\" . #x1F4BF)\n (\"DVD\" . #x1F4C0)\n (\"FILE FOLDER\" . #x1F4C1)\n (\"OPEN FILE FOLDER\" . #x1F4C2)\n (\"PAGE WITH CURL\" . #x1F4C3)\n (\"PAGE FACING UP\" . #x1F4C4)\n (\"CALENDAR\" . #x1F4C5)\n (\"TEAR-OFF CALENDAR\" . #x1F4C6)\n (\"CARD INDEX\" . #x1F4C7)\n (\"CHART WITH UPWARDS TREND\" . #x1F4C8)\n (\"CHART WITH DOWNWARDS TREND\" . #x1F4C9)\n (\"BAR CHART\" . #x1F4CA)\n (\"CLIPBOARD\" . #x1F4CB)\n (\"PUSHPIN\" . #x1F4CC)\n (\"ROUND PUSHPIN\" . #x1F4CD)\n (\"PAPERCLIP\" . #x1F4CE)\n (\"STRAIGHT RULER\" . #x1F4CF)\n (\"TRIANGULAR RULER\" . #x1F4D0)\n (\"BOOKMARK TABS\" . #x1F4D1)\n (\"LEDGER\" . #x1F4D2)\n (\"NOTEBOOK\" . #x1F4D3)\n (\"NOTEBOOK WITH DECORATIVE COVER\" . #x1F4D4)\n (\"CLOSED BOOK\" . #x1F4D5)\n (\"OPEN BOOK\" . #x1F4D6)\n (\"GREEN BOOK\" . #x1F4D7)\n (\"BLUE BOOK\" . #x1F4D8)\n (\"ORANGE BOOK\" . #x1F4D9)\n (\"BOOKS\" . #x1F4DA)\n (\"NAME BADGE\" . #x1F4DB)\n (\"SCROLL\" . #x1F4DC)\n (\"MEMO\" . #x1F4DD)\n (\"TELEPHONE RECEIVER\" . #x1F4DE)\n (\"PAGER\" . #x1F4DF)\n (\"FAX MACHINE\" . #x1F4E0)\n (\"SATELLITE ANTENNA\" . #x1F4E1)\n (\"PUBLIC ADDRESS LOUDSPEAKER\" . #x1F4E2)\n (\"CHEERING MEGAPHONE\" . #x1F4E3)\n (\"OUTBOX TRAY\" . #x1F4E4)\n (\"INBOX TRAY\" . #x1F4E5)\n (\"PACKAGE\" . #x1F4E6)\n (\"E-MAIL SYMBOL\" . #x1F4E7)\n (\"INCOMING ENVELOPE\" . #x1F4E8)\n (\"ENVELOPE WITH DOWNWARDS ARROW ABOVE\" . #x1F4E9)\n (\"CLOSED MAILBOX WITH LOWERED FLAG\" . #x1F4EA)\n (\"CLOSED MAILBOX WITH RAISED FLAG\" . #x1F4EB)\n (\"OPEN MAILBOX WITH RAISED FLAG\" . #x1F4EC)\n (\"OPEN MAILBOX WITH LOWERED FLAG\" . #x1F4ED)\n (\"POSTBOX\" . #x1F4EE)\n (\"POSTAL HORN\" . #x1F4EF)\n (\"NEWSPAPER\" . #x1F4F0)\n (\"MOBILE PHONE\" . #x1F4F1)\n (\"MOBILE PHONE WITH RIGHTWARDS ARROW AT LEFT\" . #x1F4F2)\n (\"VIBRATION MODE\" . #x1F4F3)\n (\"MOBILE PHONE OFF\" . #x1F4F4)\n (\"NO MOBILE PHONES\" . #x1F4F5)\n (\"ANTENNA WITH BARS\" . #x1F4F6)\n (\"CAMERA\" . #x1F4F7)\n (\"VIDEO CAMERA\" . #x1F4F9)\n (\"TELEVISION\" . #x1F4FA)\n (\"RADIO\" . #x1F4FB)\n (\"VIDEOCASSETTE\" . #x1F4FC)\n (\"TWISTED RIGHTWARDS ARROWS\" . #x1F500)\n (\"CLOCKWISE RIGHTWARDS AND LEFTWARDS OPEN CIRCLE ARROWS\" . #x1F501)\n (\"CLOCKWISE RIGHTWARDS AND LEFTWARDS OPEN CIRCLE ARROWS WITH CIRCLED ONE OVERLAY\" . #x1F502)\n (\"CLOCKWISE DOWNWARDS AND UPWARDS OPEN CIRCLE ARROWS\" . #x1F503)\n (\"ANTICLOCKWISE DOWNWARDS AND UPWARDS OPEN CIRCLE ARROWS\" . #x1F504)\n (\"LOW BRIGHTNESS SYMBOL\" . #x1F505)\n (\"HIGH BRIGHTNESS SYMBOL\" . #x1F506)\n (\"SPEAKER WITH CANCELLATION STROKE\" . #x1F507)\n (\"SPEAKER\" . #x1F508)\n (\"SPEAKER WITH ONE SOUND WAVE\" . #x1F509)\n (\"SPEAKER WITH THREE SOUND WAVES\" . #x1F50A)\n (\"BATTERY\" . #x1F50B)\n (\"ELECTRIC PLUG\" . #x1F50C)\n (\"LEFT-POINTING MAGNIFYING GLASS\" . #x1F50D)\n (\"RIGHT-POINTING MAGNIFYING GLASS\" . #x1F50E)\n (\"LOCK WITH INK PEN\" . #x1F50F)\n (\"CLOSED LOCK WITH KEY\"

…

Dependencies

Change contents