From a338b06ea1cc657b6ffc5402ee5de63acd41b945 Mon Sep 17 00:00:00 2001 From: Marcus Kammer <2262664-marcuskammer@users.noreply.gitlab.com> Date: Fri, 3 Apr 2020 22:11:08 +0200 Subject: [PATCH] Upgrade packages --- bundle/custom.el | 2 +- elpa/ivy-20200319.1247/colir.el | 124 + elpa/ivy-20200319.1247/colir.elc | Bin 0 -> 3433 bytes elpa/ivy-20200319.1247/dir | 18 + elpa/ivy-20200319.1247/elpa.el | 6 + elpa/ivy-20200319.1247/elpa.elc | Bin 0 -> 648 bytes elpa/ivy-20200319.1247/ivy-autoloads.el | 169 + elpa/ivy-20200319.1247/ivy-help.org | 138 + elpa/ivy-20200319.1247/ivy-overlay.el | 154 + elpa/ivy-20200319.1247/ivy-overlay.elc | Bin 0 -> 3730 bytes elpa/ivy-20200319.1247/ivy-pkg.el | 12 + elpa/ivy-20200319.1247/ivy.el | 5334 +++++++++++++++++ elpa/ivy-20200319.1247/ivy.elc | Bin 0 -> 202406 bytes elpa/ivy-20200319.1247/ivy.info | 1954 ++++++ elpa/ivy-gitlab-readme.txt | 1 + .../AUTHORS.md | 0 .../LICENSE | 0 .../dir | 0 .../git-rebase.el | 0 .../git-rebase.elc | Bin .../magit-apply.el | 0 .../magit-apply.elc | Bin .../magit-autoloads.el | 0 .../magit-autorevert.el | 0 .../magit-autorevert.elc | Bin .../magit-bisect.el | 0 .../magit-bisect.elc | Bin .../magit-blame.el | 0 .../magit-blame.elc | Bin .../magit-bookmark.el | 0 .../magit-bookmark.elc | Bin .../magit-branch.el | 0 .../magit-branch.elc | Bin .../magit-clone.el | 0 .../magit-clone.elc | Bin .../magit-commit.el | 0 .../magit-commit.elc | Bin .../magit-core.el | 0 .../magit-core.elc | Bin .../magit-diff.el | 0 .../magit-diff.elc | Bin .../magit-ediff.el | 0 .../magit-ediff.elc | Bin .../magit-extras.el | 0 .../magit-extras.elc | Bin .../magit-fetch.el | 0 .../magit-fetch.elc | Bin .../magit-files.el | 0 .../magit-files.elc | Bin .../magit-git.el | 0 .../magit-git.elc | Bin .../magit-gitignore.el | 0 .../magit-gitignore.elc | Bin .../magit-imenu.el | 0 .../magit-imenu.elc | Bin .../magit-log.el | 0 .../magit-log.elc | Bin .../magit-margin.el | 0 .../magit-margin.elc | Bin .../magit-merge.el | 0 .../magit-merge.elc | Bin .../magit-mode.el | 0 .../magit-mode.elc | Bin .../magit-notes.el | 0 .../magit-notes.elc | Bin .../magit-obsolete.el | 0 .../magit-obsolete.elc | Bin .../magit-patch.el | 0 .../magit-patch.elc | Bin .../magit-pkg.el | 2 +- .../magit-process.el | 2 + .../magit-process.elc | Bin 45903 -> 46012 bytes .../magit-pull.el | 0 .../magit-pull.elc | Bin .../magit-push.el | 0 .../magit-push.elc | Bin .../magit-reflog.el | 0 .../magit-reflog.elc | Bin .../magit-refs.el | 0 .../magit-refs.elc | Bin .../magit-remote.el | 0 .../magit-remote.elc | Bin .../magit-repos.el | 0 .../magit-repos.elc | Bin .../magit-reset.el | 0 .../magit-reset.elc | Bin .../magit-section.el | 0 .../magit-section.elc | Bin .../magit-sequence.el | 0 .../magit-sequence.elc | Bin .../magit-stash.el | 0 .../magit-stash.elc | Bin .../magit-status.el | 0 .../magit-status.elc | Bin .../magit-submodule.el | 0 .../magit-submodule.elc | Bin .../magit-subtree.el | 0 .../magit-subtree.elc | Bin .../magit-tag.el | 0 .../magit-tag.elc | Bin .../magit-transient.el | 0 .../magit-transient.elc | Bin .../magit-utils.el | 0 .../magit-utils.elc | Bin .../magit-wip.el | 0 .../magit-wip.elc | Bin .../magit-worktree.el | 0 .../magit-worktree.elc | Bin .../magit.el | 0 .../magit.elc | Bin .../magit.info | 0 .../magit.info-1 | 0 .../magit.info-2 | 0 .../dir | 0 .../racket-bug-report.el | 0 .../racket-bug-report.elc | Bin .../racket-cmd.el | 0 .../racket-cmd.elc | Bin .../racket-collection.el | 0 .../racket-collection.elc | Bin 8253 -> 8253 bytes .../racket-common.el | 0 .../racket-common.elc | Bin .../racket-complete.el | 0 .../racket-complete.elc | Bin .../racket-custom.el | 6 +- .../racket-custom.elc | Bin 17232 -> 17268 bytes .../racket-debug.el | 0 .../racket-debug.elc | Bin .../racket-describe.el | 0 .../racket-describe.elc | Bin .../racket-edit.el | 0 .../racket-edit.elc | Bin .../racket-eldoc.el | 0 .../racket-eldoc.elc | Bin .../racket-font-lock.el | 49 +- .../racket-font-lock.elc | Bin 47351 -> 47752 bytes .../racket-imenu.el | 0 .../racket-imenu.elc | Bin .../racket-indent.el | 0 .../racket-indent.elc | Bin .../racket-keywords-and-builtins.el | 0 .../racket-keywords-and-builtins.elc | Bin .../racket-logger.el | 0 .../racket-logger.elc | Bin .../racket-mode-autoloads.el | 0 .../racket-mode-pkg.el | 2 +- .../racket-mode.el | 0 .../racket-mode.elc | Bin .../racket-mode.info | 66 +- .../racket-parens.el | 0 .../racket-parens.elc | Bin .../racket-ppss.el | 0 .../racket-ppss.elc | Bin .../racket-profile.el | 0 .../racket-profile.elc | Bin .../racket-repl-buffer-name.el | 0 .../racket-repl-buffer-name.elc | Bin .../racket-repl.el | 2 + .../racket-repl.elc | Bin 33522 -> 33605 bytes .../racket-show.el | 0 .../racket-show.elc | Bin .../racket-smart-open.el | 0 .../racket-smart-open.elc | Bin .../racket-stepper.el | 0 .../racket-stepper.elc | Bin .../racket-unicode-input-method.el | 0 .../racket-unicode-input-method.elc | Bin .../racket-util.el | 0 .../racket-util.elc | Bin .../racket-visit.el | 0 .../racket-visit.elc | Bin .../racket-wsl.el | 0 .../racket-wsl.elc | Bin .../racket-xp-complete.el | 0 .../racket-xp-complete.elc | Bin .../racket-xp.el | 0 .../racket-xp.elc | Bin .../racket/command-server.rkt | 9 +- .../racket/commands/check-syntax.rkt | 0 .../racket/commands/coverage.rkt | 0 .../racket/commands/describe.rkt | 0 .../racket/commands/find-module.rkt | 0 .../racket/commands/help.rkt | 0 .../racket/commands/macro.rkt | 0 .../racket/commands/module-names.rkt | 0 .../racket/commands/profile.rkt | 0 .../racket/commands/requires.rkt | 0 .../racket/debug-annotator.rkt | 0 .../racket/debug.rkt | 0 .../racket/elisp.rkt | 0 .../racket/error.rkt | 0 .../racket/example/example.rkt | 18 + .../racket/example/example.rkt.faceup | 22 +- .../racket/example/indent.rkt | 0 .../racket/example/indent.rkt.faceup | 0 .../racket/find-module-path-completions.rkt | 0 .../racket/find.rkt | 0 .../racket/fresh-line.rkt | 0 .../racket/gui.rkt | 0 .../racket/identifier.rkt | 0 .../racket/image.rkt | 0 .../racket/imports.rkt | 0 .../racket/instrument.rkt | 0 .../racket/interactions.rkt | 0 .../racket/keywords.rkt | 0 .../racket/logger.rkt | 0 .../racket/main.rkt | 0 .../racket/mod.rkt | 0 .../racket/print.rkt | 0 .../racket/repl.rkt | 0 .../racket/scribble.rkt | 0 .../racket/syntax.rkt | 0 .../racket/test/find-examples.rkt | 0 .../racket/test/find.rkt | 0 .../racket/util.rkt | 0 elpa/web-mode-20200301.1948/web-mode-pkg.el | 2 - .../web-mode-autoloads.el | 0 elpa/web-mode-20200403.1616/web-mode-pkg.el | 2 + .../web-mode.el | 61 +- .../web-mode.elc | Bin 326400 -> 326510 bytes 220 files changed, 8065 insertions(+), 90 deletions(-) create mode 100644 elpa/ivy-20200319.1247/colir.el create mode 100644 elpa/ivy-20200319.1247/colir.elc create mode 100644 elpa/ivy-20200319.1247/dir create mode 100644 elpa/ivy-20200319.1247/elpa.el create mode 100644 elpa/ivy-20200319.1247/elpa.elc create mode 100644 elpa/ivy-20200319.1247/ivy-autoloads.el create mode 100644 elpa/ivy-20200319.1247/ivy-help.org create mode 100644 elpa/ivy-20200319.1247/ivy-overlay.el create mode 100644 elpa/ivy-20200319.1247/ivy-overlay.elc create mode 100644 elpa/ivy-20200319.1247/ivy-pkg.el create mode 100644 elpa/ivy-20200319.1247/ivy.el create mode 100644 elpa/ivy-20200319.1247/ivy.elc create mode 100644 elpa/ivy-20200319.1247/ivy.info create mode 100644 elpa/ivy-gitlab-readme.txt rename elpa/{magit-20200330.1311 => magit-20200401.2225}/AUTHORS.md (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/LICENSE (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/dir (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/git-rebase.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/git-rebase.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-apply.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-apply.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-autoloads.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-autorevert.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-autorevert.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-bisect.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-bisect.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-blame.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-blame.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-bookmark.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-bookmark.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-branch.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-branch.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-clone.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-clone.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-commit.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-commit.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-core.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-core.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-diff.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-diff.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-ediff.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-ediff.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-extras.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-extras.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-fetch.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-fetch.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-files.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-files.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-git.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-git.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-gitignore.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-gitignore.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-imenu.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-imenu.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-log.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-log.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-margin.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-margin.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-merge.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-merge.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-mode.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-mode.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-notes.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-notes.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-obsolete.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-obsolete.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-patch.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-patch.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-pkg.el (79%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-process.el (99%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-process.elc (89%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-pull.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-pull.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-push.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-push.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-reflog.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-reflog.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-refs.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-refs.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-remote.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-remote.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-repos.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-repos.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-reset.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-reset.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-section.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-section.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-sequence.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-sequence.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-stash.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-stash.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-status.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-status.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-submodule.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-submodule.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-subtree.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-subtree.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-tag.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-tag.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-transient.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-transient.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-utils.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-utils.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-wip.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-wip.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-worktree.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit-worktree.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit.el (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit.elc (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit.info (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit.info-1 (100%) rename elpa/{magit-20200330.1311 => magit-20200401.2225}/magit.info-2 (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/dir (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-bug-report.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-bug-report.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-cmd.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-cmd.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-collection.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-collection.elc (99%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-common.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-common.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-complete.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-complete.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-custom.el (98%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-custom.elc (59%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-debug.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-debug.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-describe.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-describe.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-edit.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-edit.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-eldoc.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-eldoc.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-font-lock.el (89%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-font-lock.elc (96%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-imenu.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-imenu.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-indent.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-indent.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-keywords-and-builtins.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-keywords-and-builtins.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-logger.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-logger.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-mode-autoloads.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-mode-pkg.el (79%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-mode.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-mode.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-mode.info (98%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-parens.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-parens.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-ppss.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-ppss.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-profile.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-profile.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-repl-buffer-name.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-repl-buffer-name.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-repl.el (99%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-repl.elc (97%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-show.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-show.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-smart-open.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-smart-open.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-stepper.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-stepper.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-unicode-input-method.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-unicode-input-method.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-util.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-util.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-visit.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-visit.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-wsl.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-wsl.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-xp-complete.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-xp-complete.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-xp.el (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket-xp.elc (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/command-server.rkt (97%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/commands/check-syntax.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/commands/coverage.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/commands/describe.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/commands/find-module.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/commands/help.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/commands/macro.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/commands/module-names.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/commands/profile.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/commands/requires.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/debug-annotator.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/debug.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/elisp.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/error.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/example/example.rkt (94%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/example/example.rkt.faceup (94%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/example/indent.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/example/indent.rkt.faceup (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/find-module-path-completions.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/find.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/fresh-line.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/gui.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/identifier.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/image.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/imports.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/instrument.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/interactions.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/keywords.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/logger.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/main.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/mod.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/print.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/repl.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/scribble.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/syntax.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/test/find-examples.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/test/find.rkt (100%) rename elpa/{racket-mode-20200329.1841 => racket-mode-20200402.1703}/racket/util.rkt (100%) delete mode 100644 elpa/web-mode-20200301.1948/web-mode-pkg.el rename elpa/{web-mode-20200301.1948 => web-mode-20200403.1616}/web-mode-autoloads.el (100%) create mode 100644 elpa/web-mode-20200403.1616/web-mode-pkg.el rename elpa/{web-mode-20200301.1948 => web-mode-20200403.1616}/web-mode.el (99%) rename elpa/{web-mode-20200301.1948 => web-mode-20200403.1616}/web-mode.elc (97%) diff --git a/bundle/custom.el b/bundle/custom.el index 9932cf42..c5b3eb18 100644 --- a/bundle/custom.el +++ b/bundle/custom.el @@ -69,7 +69,7 @@ '(package-enable-at-startup t) '(package-selected-packages (quote - (elpy olivetti ace-window graphviz-dot-mode dot-mode plantuml-mode elisp-format elisp-lint flymake-racket google-translate org-pomodoro elm-mode dashboard pickle poet-theme flymake-eslint json-mode darkroom dockerfile-mode ein spacemacs-theme flucui-themes leuven-theme htmlize scss-mode berrys-theme web-mode python-docstring sphinx-doc sphinx-frontend sphinx-mode ox-nikola racket-mode slime gherkin-mode powershell typescript-mode ob-http ob-ipython ob-restclient nord-theme restclient request restclient-test yaml-mode magit))) + (ivy elpy olivetti ace-window graphviz-dot-mode dot-mode plantuml-mode elisp-format elisp-lint flymake-racket google-translate org-pomodoro elm-mode dashboard pickle poet-theme flymake-eslint json-mode darkroom dockerfile-mode ein spacemacs-theme flucui-themes leuven-theme htmlize scss-mode berrys-theme web-mode python-docstring sphinx-doc sphinx-frontend sphinx-mode ox-nikola racket-mode slime gherkin-mode powershell typescript-mode ob-http ob-ipython ob-restclient nord-theme restclient request restclient-test yaml-mode magit))) '(python-shell-interpreter "python3") '(register-preview-delay 2) '(register-separator 43) diff --git a/elpa/ivy-20200319.1247/colir.el b/elpa/ivy-20200319.1247/colir.el new file mode 100644 index 00000000..9e61273b --- /dev/null +++ b/elpa/ivy-20200319.1247/colir.el @@ -0,0 +1,124 @@ +;;; colir.el --- Color blending library -*- lexical-binding: t -*- + +;; Copyright (C) 2015-2019 Free Software Foundation, Inc. + +;; Author: Oleh Krehel + +;; This file is part of GNU Emacs. + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; For a full copy of the GNU General Public License +;; see . + +;;; Commentary: + +;; This package solves the problem of adding a face with a background +;; to text which may already have a background. In all conflicting +;; areas, instead of choosing either the original or the new +;; background face, their blended sum is used. +;; +;; The blend mode functions are taken from URL +;; `https://en.wikipedia.org/wiki/Blend_modes'. + +;;; Code: + +(require 'cl-lib) +(require 'color) + +(defcustom colir-compose-method #'colir-compose-alpha + "Select a method to compose two color channels." + :group 'ivy + :type '(radio + (function-item colir-compose-alpha) + (function-item colir-compose-overlay) + (function-item colir-compose-soft-light))) + +(defun colir-compose-soft-light (a b) + "Compose A and B channels." + (if (< b 0.5) + (+ (* 2 a b) (* a a (- 1 b b))) + (+ (* 2 a (- 1 b)) (* (sqrt a) (- (* 2 b) 1))))) + +(defun colir-compose-overlay (a b) + "Compose A and B channels." + (if (< a 0.5) + (* 2 a b) + (- 1 (* 2 (- 1 a) (- 1 b))))) + +(defun colir-compose-alpha (a b &optional alpha gamma) + "Compose A and B channels. +Optional argument ALPHA is a number between 0.0 and 1.0 which corresponds +to the influence of A on the result. Default value is 0.5. +Optional argument GAMMA is used for gamma correction. Default value is 2.2." + (setq alpha (or alpha 0.5)) + (setq gamma (or gamma 2.2)) + (+ (* (expt a gamma) alpha) (* (expt b gamma) (- 1 alpha)))) + +(defun colir-blend (c1 c2) + "Blend the two colors C1 and C2 using `colir-compose-method'. +C1 and C2 are triples of floats in [0.0 1.0] range." + (apply #'color-rgb-to-hex + (cl-mapcar + (if (eq (frame-parameter nil 'background-mode) 'dark) + ;; this method works nicely for dark themes + 'colir-compose-soft-light + colir-compose-method) + c1 c2))) + +(defun colir-color-parse (color) + "Convert string COLOR to triple of floats in [0.0 1.0]." + (if (string-match "#\\([[:xdigit:]]\\{2\\}\\)\\([[:xdigit:]]\\{2\\}\\)\\([[:xdigit:]]\\{2\\}\\)" color) + (mapcar (lambda (v) (/ (string-to-number v 16) 255.0)) + (list (match-string 1 color) (match-string 2 color) (match-string 3 color))) + ;; does not work properly in terminal (maps color to nearest color + ;; from available color palette). + (color-name-to-rgb color))) + +(defun colir--blend-background (start next prevn face object) + (let ((background-prev (face-background prevn))) + (progn + (put-text-property + start next 'face + (if background-prev + (cons `(background-color + . ,(colir-blend + (colir-color-parse background-prev) + (colir-color-parse (face-background face nil t)))) + prevn) + (list face prevn)) + object)))) + +(defun colir-blend-face-background (start end face &optional object) + "Append to the face property of the text from START to END the face FACE. +When the text already has a face with a non-plain background, +blend it with the background of FACE. +Optional argument OBJECT is the string or buffer containing the text. +See also `font-lock-append-text-property'." + (let (next prev prevn) + (while (/= start end) + (setq next (next-single-property-change start 'face object end)) + (setq prev (get-text-property start 'face object)) + (setq prevn (if (listp prev) + (cl-find-if #'atom prev) + prev)) + (cond + ((or (keywordp (car-safe prev)) (consp (car-safe prev))) + (put-text-property start next 'face (cons face prev) object)) + ((facep prevn) + (colir--blend-background start next prevn face object)) + (t + (put-text-property start next 'face face object))) + (setq start next)))) + +(provide 'colir) + +;;; colir.el ends here diff --git a/elpa/ivy-20200319.1247/colir.elc b/elpa/ivy-20200319.1247/colir.elc new file mode 100644 index 0000000000000000000000000000000000000000..820dac68520aaaa7d34e79695a77030f05a6d930 GIT binary patch literal 3433 zcmb_e?{m{e5DiIiQuj;yiRq^hQ&)lo`PvPfc8kRHQObnLze!Ds#0fzSQb>-CM{Oe-hILPZU~ELA(R~J_gSAT!s@35KY;S#uD;cebt^M%`Q&~c&OPUAvRkT^*^L`ajY zpkP|+Y~q9}NMxa$Q(44v2=p)-7w}?|XQgr`N{_RUqG=j1@chr9Q}fuZoU~gk&XP$! zmM7$$P~%V~DgfwIt)zjGU7Pe7KO0|wMyiss-JqROkxg@oPiM5FXSt${LWXfh8}qH5 zSgXlSn81JR&eVw&wS`K-SHElTlu zuk~$xBUF)0Vp-Ci#b{itiLiCOO$1IbQm*>~0CjFG;n7=O#$7b|aitnIFxP7Q)@=Gd zgJ~>r+gy1$H}9_8G*e$4zOps|+--O1dlKZ3N9Ef>0}7WmnzyJ;TVAJi^1mFb3h4Yy z*Wi#nkRL6a$hysk;WKwu*>igr&6gEJ=MIB0{mN0#6qT4LA=5Y2*X3bAg%_IU4LGXIixQ6KVt}_^}FM49x@Cu(QfcP7uCRUgI#_}uk zwBob$0G>rM!7Wnna?L5dH3!Js-nIaF*laIRNDYqEd0Lk=@JzS|0yP08fL<>qhLwan z?fQisq=-;1@&xja@JA4GU2?Gir(FVWCsfFEq^clc;y_##5GWbknWvkj9)!_dlukZt z{|8ROuMj0DsBp#COY7IKHxY)bgsl=WndixjH7F~bVl;Gg=8V-l*4K&516fd1$cb`t zlqk#q0n<34p$y)zxTT>pVT})E@rKv9q_!7IaVg9_uV=&D+d>+okTFfRq|)HY!za&( zd22%Uk%-M>#l}~~%ANzxLgAXnqT9bHKOhE2=NsnGLikn zH54pUfULU+jz-Egpk*7!$2;%BcogfMlM~v}c?WzS!(8 z`T(dZQSf>sx?N@zD{|_moORDzjT0;hKbxii;X2rUf-|PzN>-}$v|D+E}v>gt9RPTi!2Ah zX2cekDQiel(bXo`oVuI@mORXIt~GOo5S?wWij3&eZk`*7uqtcTKi>_hZlnV)Aa}9} z*$9H!2aos7kg?}5w(Bp(kn(eLnG{NfGa94tO6#`mQ%$p&C)_+<1om#-Iv;B?R=mu` zC?}BJ<3l~S=&|7QoQfP!_2D#%kl|II$|^T^tzAD<3jH$L($^8%SSQJXHx9G|VOWed zB+zKSJvATM5avSuKTaLXocHlG6=0sn+-%@t0{#9Y2+%ElVGBS+&Qg`z{f87*2JmnEj>DSg)%?|6e8i)w$ zS%FP3SZPB?@-sYHU8$|VXL5PIos7MDf_qxAvV=Q#w#>McdCTP`f#O#5b+|(tDNBcu zdY{}7>L>;XaYPbLFuhT;v#bbnx;hW?iuWI+DY)LLs-fsv71)3ar!nN+Hi51BKZ3*T AmjD0& literal 0 HcmV?d00001 diff --git a/elpa/ivy-20200319.1247/dir b/elpa/ivy-20200319.1247/dir new file mode 100644 index 00000000..b68b0837 --- /dev/null +++ b/elpa/ivy-20200319.1247/dir @@ -0,0 +1,18 @@ +This is the file .../info/dir, which contains the +topmost node of the Info hierarchy, called (dir)Top. +The first time you invoke Info you start off looking at this node. + +File: dir, Node: Top This is the top of the INFO tree + + This (the Directory node) gives a menu of major topics. + Typing "q" exits, "H" lists all Info commands, "d" returns here, + "h" gives a primer for first-timers, + "mEmacs" visits the Emacs manual, etc. + + In Emacs, you can click mouse button 2 on a menu item or cross reference + to select it. + +* Menu: + +Emacs +* Ivy: (ivy). Using Ivy for completion. diff --git a/elpa/ivy-20200319.1247/elpa.el b/elpa/ivy-20200319.1247/elpa.el new file mode 100644 index 00000000..e49b8d41 --- /dev/null +++ b/elpa/ivy-20200319.1247/elpa.el @@ -0,0 +1,6 @@ +(setq package-user-dir + (expand-file-name + (format "~/.elpa/%s/elpa" + (concat emacs-version (when (getenv "MELPA_STABLE") "-stable"))))) +(package-initialize) +(add-to-list 'load-path default-directory) diff --git a/elpa/ivy-20200319.1247/elpa.elc b/elpa/ivy-20200319.1247/elpa.elc new file mode 100644 index 0000000000000000000000000000000000000000..ded2f756462fa10107f8b971a7df869ac54ad225 GIT binary patch literal 648 zcmbtRO=}x55cRQaPCey15foa8{IT0O4L&)>hky%#Oypi5)xmp|#27_WYo53Qso%3W52Nz)3qRH?`DZ3b;oDQo4^W?Yz^d4fz zu5~ZSLg!&|Aa5I&VIy5&mnnnY2W*`I8%^fq!Zx1@n=%7hOBVjCOfH7y#k(FhN{ZzlSVlZO$YZdOBNz;@Ch!s8i2Qp>2EybWCE!L1%j&PL ze8GpJAK;@=6vfx|o=KZ%2~=H;E5Ucc*(X`1g7cHQ9G@Kx>S{8+uGPtBNhVO2ld&YF zpsGWyq~=_~9rYIKR|`8dzi>-htV!Cs1eP|q^W5iTIHo<&b0>eOdk3{xN3e;hMF#bI zG$h~Q=t~~;yMiq-g-1|7m#gdf!_DpdaTbY@(8Qt&F~f@6o?y-@GD=BT|B|9fwA Lhuqx5^jq-~ (=ivy-end-of-buffer=) :: last candidate. + +*** Key bindings for single selection + +When selecting a candidate, an action is called on it. You can think +of an action as a function that takes the selected candidate as an +argument and does something with it. + +Ivy can offer several actions from which to choose. This can be +independently composed with whether you want to end completion when +the action is called. Depending on this, the short term is either +"calling an action" or "exiting with action". + +~C-m~ or ~RET~ (=ivy-done=) - exit with the current action. + +~M-o~ (=ivy-dispatching-done=) - select an action and exit with it. + +~C-j~ (=ivy-alt-done=) - when the candidate is a directory, enter +it. Otherwise, exit with the current action. + +~TAB~ (=ivy-partial-or-done=) - attempt partial completion, extending +the current input as much as possible. ~TAB TAB~ is the same as ~C-j~. + +~C-M-j~ (=ivy-immediate-done=) - exit with the current action, calling +it on the /current input/ instead of the current candidate. This is +useful especially when creating new files or directories - often the +input will match an existing file, which you don't want to select. + +~C-'~ (=ivy-avy=) - select a candidate from the current page with avy +and exit with the current action. + +** Advanced Operations +*** Key bindings for multiple selection + +For repeatedly applying multiple actions or acting on multiple +candidates, Ivy does not close the minibuffer between commands. It +keeps the minibuffer open for applying subsequent actions. + +Adding an extra meta key to the normal key chord invokes the special +version of the regular commands that enables applying multiple +actions. + +~C-M-m~ (=ivy-call=) is the non-exiting version of ~C-m~ (=ivy-done=). + +~C-M-n~ (=ivy-next-line-and-call=) combines ~C-n~ and ~C-M-m~. + +~C-M-p~ (=ivy-previous-line-and-call=) combines ~C-p~ and ~C-M-m~. + +~C-M-o~ (=ivy-dispatching-call=) is a non-exiting version of ~M-o~ +(=ivy-dispatching-done=). + +*** Key bindings that alter the minibuffer input + +~M-n~ (=ivy-next-history-element=) select the next history element or +symbol/URL at point. + +~M-p~ (=ivy-previous-history-element=) select the previous history +element. + +~C-r~ (=ivy-reverse-i-search=) start a recursive completion session to +select a history element. + +~M-i~ (=ivy-insert-current=) insert the current candidate into the +minibuffer. Useful for copying and renaming files, for example: ~M-i~ +to insert the original file name string, edit it, and then ~C-m~ to +complete the renaming. + +~M-j~ (=ivy-yank-word=) insert the sub-word at point into the +minibuffer. + +~S-SPC~ (=ivy-restrict-to-matches=) deletes the current input, and +resets the candidates list to the currently restricted matches. This +is how Ivy provides narrowing in successive tiers. + +*** Other key bindings + +~M-w~ (=ivy-kill-ring-save=) copies the selected candidates to the +kill ring; when the region is active, copies the active region. + +*** Saving the current completion session to a buffer + +~C-c C-o~ (=ivy-occur=) saves the current candidates to a new buffer; +the list is active in the new buffer. + +~RET~ or ~mouse-1~ in the new buffer calls the appropriate action on +the selected candidate. + +Ivy has no limit on the number of active buffers like these. + +Ivy takes care of making these buffer names unique. It applies +descriptive names, for example: =*ivy-occur counsel-describe-variable +"function$*=. + +*** Global key bindings + +=ivy-resume= recalls the state of the completion session just before +its last exit. Useful after an accidental ~C-m~ (=ivy-done=). +Recommended global binding: ~C-c C-r~. + +*** Hydra in the minibuffer + +~C-o~ (=hydra-ivy/body=) invokes Hydra menus with key shortcuts. + +When in Hydra, ~C-o~ or ~i~ resumes editing. + +Hydra reduces key strokes, for example: ~C-n C-n C-n C-n~ is ~C-o +jjjj~ in Hydra. Besides certain shorter keys, Hydra shows useful info +such as case folding and the current action. + +Additionally, here are the keys that are otherwise not bound: + +- ~<~ and ~>~ adjust the height of the minibuffer. +- ~c~ (=ivy-toggle-calling=) - toggle calling the current action each + time a different candidate is selected. +- ~M~ (=ivy-rotate-preferred-builders=) - rotate regex matcher. +- ~w~ and ~s~ scroll the actions list. + +Minibuffer editing is disabled when Hydra is active. diff --git a/elpa/ivy-20200319.1247/ivy-overlay.el b/elpa/ivy-20200319.1247/ivy-overlay.el new file mode 100644 index 00000000..9c7ff846 --- /dev/null +++ b/elpa/ivy-20200319.1247/ivy-overlay.el @@ -0,0 +1,154 @@ +;;; ivy-overlay.el --- Overlay display functions for Ivy -*- lexical-binding: t -*- + +;; Copyright (C) 2016-2019 Free Software Foundation, Inc. + +;; Author: Oleh Krehel +;; Keywords: convenience + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; This package allows to setup Ivy's completion at point to actually +;; show the candidates and the input at point, instead of in the +;; minibuffer. + +;;; Code: + +(defface ivy-cursor + '((((class color) (background light)) + :background "black" :foreground "white") + (((class color) (background dark)) + :background "white" :foreground "black")) + "Cursor face for inline completion." + :group 'ivy-faces) + +(defvar ivy--old-cursor-type t) + +(defvar ivy-overlay-at nil + "Overlay variable for `ivy-display-function-overlay'.") + +(declare-function ivy--truncate-string "ivy") + +(defun ivy-left-pad (str width) + "Return STR, but with each line indented by WIDTH spaces. +Lines are truncated to the window width." + (let ((padding (make-string width ?\s))) + (mapconcat (lambda (x) + (ivy--truncate-string (concat padding x) + (1- (+ (window-width) + (window-hscroll))))) + (split-string str "\n") + "\n"))) + +(defun ivy-overlay-cleanup () + "Clean up after `ivy-display-function-overlay'." + (when (overlayp ivy-overlay-at) + (delete-overlay ivy-overlay-at) + (setq ivy-overlay-at nil)) + (unless cursor-type + (setq cursor-type ivy--old-cursor-type)) + (when (fboundp 'company-abort) + (company-abort))) + +(defvar ivy-height) + +(defun ivy-overlay-show-after (str) + "Display STR in an overlay at point. + +First, fill each line of STR with spaces to the current column. +Then attach the overlay to the character before point." + (if ivy-overlay-at + (progn + (move-overlay ivy-overlay-at (1- (point)) (line-end-position)) + (overlay-put ivy-overlay-at 'invisible nil)) + (let ((available-height (- (window-height) (count-lines (window-start) (point)) 1))) + (unless (>= available-height ivy-height) + (recenter (- (window-height) ivy-height 2)))) + (setq ivy-overlay-at (make-overlay (1- (point)) (line-end-position))) + ;; Specify face to avoid clashing with other overlays. + (overlay-put ivy-overlay-at 'face 'default) + (overlay-put ivy-overlay-at 'priority 9999)) + (overlay-put ivy-overlay-at 'display str) + (overlay-put ivy-overlay-at 'after-string "")) + +(declare-function org-current-level "org") +(declare-function org-at-heading-p "org") +(defvar org-indent-indentation-per-level) +(defvar ivy-height) +(defvar ivy-last) +(defvar ivy-text) +(defvar ivy-completion-beg) +(declare-function ivy-add-face-text-property "ivy") +(declare-function ivy--get-window "ivy") +(declare-function ivy-state-current "ivy") +(declare-function ivy-state-window "ivy") +(declare-function ivy--remove-prefix "ivy") + +(defun ivy-overlay-impossible-p (_str) + (or + (and (eq major-mode 'org-mode) + (plist-get (text-properties-at (point)) 'src-block)) + (<= (window-height) (+ ivy-height 2)) + (= (point) (point-min)) + (< (- (+ (window-width) (window-hscroll)) (current-column)) + 30))) + +(defun ivy-display-function-overlay (str) + "Called from the minibuffer, display STR in an overlay in Ivy window. +Hide the minibuffer contents and cursor." + (if (save-selected-window + (select-window (ivy-state-window ivy-last)) + (ivy-overlay-impossible-p str)) + (let ((buffer-undo-list t)) + (save-excursion + (forward-line 1) + (insert str))) + (ivy-add-face-text-property (minibuffer-prompt-end) (point-max) + '(:foreground "white")) + (setq cursor-type nil) + (with-selected-window (ivy--get-window ivy-last) + (when cursor-type + (setq ivy--old-cursor-type cursor-type)) + (setq cursor-type nil) + (let ((overlay-str + (apply + #'concat + (buffer-substring (max (point-min) (1- (point))) (point)) + ivy-text + (and (eolp) " ") + (buffer-substring (point) (line-end-position)) + (and (> (length str) 0) + (list "\n" + (ivy-left-pad + (ivy--remove-prefix "\n" str) + (+ + (if (and (eq major-mode 'org-mode) + (bound-and-true-p org-indent-mode)) + (if (org-at-heading-p) + (1- (org-current-level)) + (* org-indent-indentation-per-level (or (org-current-level) 1))) + 0) + (save-excursion + (when ivy-completion-beg + (goto-char ivy-completion-beg)) + (current-column))))))))) + (let ((cursor-offset (1+ (length ivy-text)))) + (ivy-add-face-text-property cursor-offset (1+ cursor-offset) + 'ivy-cursor overlay-str t)) + (ivy-overlay-show-after overlay-str))))) + +(provide 'ivy-overlay) + +;;; ivy-overlay.el ends here diff --git a/elpa/ivy-20200319.1247/ivy-overlay.elc b/elpa/ivy-20200319.1247/ivy-overlay.elc new file mode 100644 index 0000000000000000000000000000000000000000..eb1d702f193077307eca341ad2d98103d289a433 GIT binary patch literal 3730 zcmbtX|8LvI6?an9b2K#TS`+5iPQ)ZW_FH0l$1w638@ z;&@W3^`GzO-I20gJKKQDAg#Oi?tOoscY5~uSI6(~?d=VoJ$pvS^{UaO%H2X&^!Z9= zEp3!(bzPB|O=3rRrR|brSyJ6tz0&`Y7UXs^aKzK4ZmED2TDPjDd|Szt&M2?5)*4-1 zwogDcttFY~DyN;6=;=f}y(J^BA)~4-Wp!mGnAf%lj<8b&e?2*V@q)6YG%~X=@rhF} ztDM@JGFj0=QCZ6yN;+3sQqq)K8L~?-irDK#2!7Lt4fw5}!C)}T)~&5qL9Vh=8Wj{W zQ}kGGwn4TwZEfiB2p`be7GWuCGp5l(W-l*Iy@vOtzFgYzm_EI>H(Zop7}BRjZB)lM ze6`e84RQFt2+O5;`D=#< za#d_3*x_bSmwD%FV7HATJ02W`>L4h!kuy@?#sBZSeS26 z=L|3FRW%u$E)_&u%YDEV-K*#dd#+aT-6r#;%VCjn9?}$+R%_RYa9ui)z_UXdae9S!2gMV}KCg4IVAYG300p8O? zpI|3Bnsu7e;oIP1JrP(%cwMuAbRll+#BbbKLW7uM$F&+~z4sEC;N?;=G}8*(J;|X; zpsGA*>Q*yy^|1{appULLy48$yj8?&}gS?;&Wnu%yrM9QERvJqY8I>_k85E6c?LJ`+ zmI1YLU7|XSu8p=^dWsKq5bC>X*M?}qd0%(QystY!I~aR?ZuJU2IqL)NvM#&G>t8s< zf8fkHB)b53A*~E6v&XzUBV-7=E*L|x4RX+`(m^0R89t8YPiC!c6A!vh?G_qQwC$+Bh1w} zxt)jC&BQ(zF4D$DnukZ%KKLKM$>YS2j_F5eBY>WJ<_C{DSQO#?N1vo(Chj2t@d#NH z(FfqfcoJgk`W4-mfrWccAkQM99B=LqRwice;00P7Lg;I)h~3nSuB^EC8IA}p7D%aB z`PV?^cRPVG6vc_UI61%gIW0<%r$4~9czS`?jDFt#-4}2r{1+2aF%?XM4G9cN(BAQU z|M%(eEi8PErXpsR1X7cPK|gjo4-u2@D+p5_0U$&(W}VRqmI8e7-ovrmzVuhT^?dV;O#Fbm!HWQ5O^RW)yf{-iiV%WPs_dJG(mOy}awxIey3hscVyy zY?^Y*9nQD0A^sTFZw>~&5;@0qH$$4vfVGh0GN7R#O}tA^0~xaF7DAXKAQ9WWrXl= N80Oq>n@-Jm@C(B@fJy)W literal 0 HcmV?d00001 diff --git a/elpa/ivy-20200319.1247/ivy-pkg.el b/elpa/ivy-20200319.1247/ivy-pkg.el new file mode 100644 index 00000000..c57cb9dc --- /dev/null +++ b/elpa/ivy-20200319.1247/ivy-pkg.el @@ -0,0 +1,12 @@ +(define-package "ivy" "20200319.1247" "Incremental Vertical completYon" + '((emacs "24.5")) + :keywords + '("matching") + :authors + '(("Oleh Krehel" . "ohwoeowho@gmail.com")) + :maintainer + '("Oleh Krehel" . "ohwoeowho@gmail.com") + :url "https://github.com/abo-abo/swiper") +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/ivy-20200319.1247/ivy.el b/elpa/ivy-20200319.1247/ivy.el new file mode 100644 index 00000000..e71fd272 --- /dev/null +++ b/elpa/ivy-20200319.1247/ivy.el @@ -0,0 +1,5334 @@ +;;; ivy.el --- Incremental Vertical completYon -*- lexical-binding: t -*- + +;; Copyright (C) 2015-2019 Free Software Foundation, Inc. + +;; Author: Oleh Krehel +;; URL: https://github.com/abo-abo/swiper +;; Version: 0.13.0 +;; Package-Requires: ((emacs "24.5")) +;; Keywords: matching + +;; This file is part of GNU Emacs. + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; For a full copy of the GNU General Public License +;; see . + +;;; Commentary: + +;; This package provides `ivy-read' as an alternative to +;; `completing-read' and similar functions. +;; +;; There's no intricate code to determine the best candidate. +;; Instead, the user can navigate to it with `ivy-next-line' and +;; `ivy-previous-line'. +;; +;; The matching is done by splitting the input text by spaces and +;; re-building it into a regex. +;; So "for example" is transformed into "\\(for\\).*\\(example\\)". + +;;; Code: + +(require 'cl-lib) +(require 'ivy-overlay) +(require 'colir) +(require 'ring) + +;;* Customization +(defgroup ivy nil + "Incremental vertical completion." + :group 'convenience) + +(defgroup ivy-faces nil + "Font-lock faces for `ivy'." + :group 'ivy + :group 'faces) + +(defface ivy-current-match + '((((class color) (background light)) + :background "#1a4b77" :foreground "white" :extend t) + (((class color) (background dark)) + :background "#65a7e2" :foreground "black" :extend t)) + "Face used by Ivy for highlighting the current match.") + +(defface ivy-minibuffer-match-highlight + '((t :inherit highlight)) + "Face used by Ivy for highlighting the match under the cursor.") + +(defface ivy-minibuffer-match-face-1 + '((((class color) (background light)) + :background "#d3d3d3") + (((class color) (background dark)) + :background "#555555")) + "The background face for `ivy' minibuffer matches.") + +(defface ivy-minibuffer-match-face-2 + '((((class color) (background light)) + :background "#e99ce8" :weight bold) + (((class color) (background dark)) + :background "#777777" :weight bold)) + "Face for `ivy' minibuffer matches numbered 1 modulo 3.") + +(defface ivy-minibuffer-match-face-3 + '((((class color) (background light)) + :background "#bbbbff" :weight bold) + (((class color) (background dark)) + :background "#7777ff" :weight bold)) + "Face for `ivy' minibuffer matches numbered 2 modulo 3.") + +(defface ivy-minibuffer-match-face-4 + '((((class color) (background light)) + :background "#ffbbff" :weight bold) + (((class color) (background dark)) + :background "#8a498a" :weight bold)) + "Face for `ivy' minibuffer matches numbered 3 modulo 3.") + +(defface ivy-confirm-face + '((t :foreground "ForestGreen" :inherit minibuffer-prompt)) + "Face used by Ivy for a confirmation prompt.") + +(defface ivy-match-required-face + '((t :foreground "red" :inherit minibuffer-prompt)) + "Face used by Ivy for a match required prompt.") + +(defface ivy-subdir + '((t :inherit dired-directory)) + "Face used by Ivy for highlighting subdirs in the alternatives.") + +(defface ivy-org + '((t :inherit org-level-4)) + "Face used by Ivy for highlighting Org buffers in the alternatives.") + +(defface ivy-modified-buffer + '((t :inherit default)) + "Face used by Ivy for highlighting modified file visiting buffers.") + +(defface ivy-modified-outside-buffer + '((t :inherit default)) + "Face used by Ivy for highlighting file visiting buffers modified outside Emacs.") + +(defface ivy-remote + '((((class color) (background light)) + :foreground "#110099") + (((class color) (background dark)) + :foreground "#7B6BFF")) + "Face used by Ivy for highlighting remotes in the alternatives.") + +(defface ivy-virtual + '((t :inherit font-lock-builtin-face)) + "Face used by Ivy for matching virtual buffer names.") + +(defface ivy-action + '((t :inherit font-lock-builtin-face)) + "Face used by Ivy for displaying keys in `ivy-read-action'.") + +(defface ivy-highlight-face + '((t :inherit highlight)) + "Face used by Ivy to highlight certain candidates.") + +(defface ivy-prompt-match + '((t :inherit ivy-current-match)) + "Face used by Ivy for highlighting the selected prompt line.") + +(defface ivy-separator + '((t :inherit font-lock-doc-face)) + "Face for multiline source separator.") + +(defface ivy-grep-info + '((t :inherit compilation-info)) + "Face for highlighting grep information such as file names.") + +(defface ivy-grep-line-number + '((t :inherit compilation-line-number)) + "Face for displaying line numbers in grep messages.") + +(defface ivy-completions-annotations + '((t :inherit completions-annotations)) + "Face for displaying completion annotations.") + +(defface ivy-yanked-word + '((t :inherit highlight)) + "Face used to highlight yanked word.") + +;; Set default customization `:group' to `ivy' for the rest of the file. +(setcdr (assoc load-file-name custom-current-group-alist) 'ivy) + +(defcustom ivy-height 10 + "Number of lines for the minibuffer window. + +See also `ivy-height-alist'." + :type 'integer) + +(defcustom ivy-count-format "%-4d " + "The style to use for displaying the current candidate count for `ivy-read'. +Set this to \"\" to suppress the count visibility. +Set this to \"(%d/%d) \" to display both the index and the count." + :type '(choice + (const :tag "Count disabled" "") + (const :tag "Count matches" "%-4d ") + (const :tag "Count matches and show current match" "(%d/%d) ") + string)) + +(defcustom ivy-pre-prompt-function nil + "When non-nil, add strings before the `ivy-read' prompt." + :type '(choice + (const :tag "Do nothing" nil) + (function :tag "Custom function"))) + +(defcustom ivy-add-newline-after-prompt nil + "When non-nil, add a newline after the `ivy-read' prompt." + :type 'boolean) + +(defcustom ivy-wrap nil + "When non-nil, wrap around after the first and the last candidate." + :type 'boolean) + +(defcustom ivy-display-style (and (fboundp 'add-face-text-property) 'fancy) + "The style for formatting the minibuffer. + +By default, the matched strings are copied as is. + +The fancy display style highlights matching parts of the regexp, +a behavior similar to `swiper'. + +This setting depends on `add-face-text-property' - a C function +available since Emacs 24.4. Fancy style will render poorly in +earlier versions of Emacs." + :type '(choice + (const :tag "Plain" nil) + (const :tag "Fancy" fancy))) + +(defcustom ivy-on-del-error-function #'abort-recursive-edit + "Function to call when deletion fails during completion. +The usual reason for `ivy-backward-delete-char' to fail is when +there is no text left to delete, i.e., when it is called at the +beginning of the minibuffer. +The default setting provides a quick exit from completion." + :type '(choice + (const :tag "Exit completion" abort-recursive-edit) + (const :tag "Do nothing" ignore) + (function :tag "Custom function"))) + +(defcustom ivy-extra-directories '("../" "./") + "Add this to the front of the list when completing file names. +Only \"./\" and \"../\" apply here. They appear in reverse order." + :type '(repeat :tag "Dirs" + (choice + (const :tag "Parent Directory" "../") + (const :tag "Current Directory" "./")))) + +(defcustom ivy-use-virtual-buffers nil + "When non-nil, add recent files and/or bookmarks to `ivy-switch-buffer'. +The value `recentf' includes only recent files to the virtual +buffers list, whereas the value `bookmarks' does the same for +bookmarks. Any other non-nil value includes both." + :type '(choice + (const :tag "Don't use virtual buffers" nil) + (const :tag "Recent files" recentf) + (const :tag "Bookmarks" bookmarks) + (const :tag "All virtual buffers" t))) + +(defvar ivy--display-function nil + "The display-function is used in current.") + +(defvar ivy-display-functions-props + '((ivy-display-function-overlay :cleanup ivy-overlay-cleanup)) + "Map Ivy display functions to their property lists. +Examples of properties include associated `:cleanup' functions.") + +(defcustom ivy-display-functions-alist + '((ivy-completion-in-region . ivy-display-function-overlay) + (t . nil)) + "An alist for customizing where to display the candidates. + +Each key is a caller symbol. When the value is nil (the default), +the candidates are shown in the minibuffer. Otherwise, the value +is a function which takes a string argument comprising the +current matching candidates and displays it somewhere. + +See also `https://github.com/abo-abo/swiper/wiki/ivy-display-function'." + :type '(alist + :key-type symbol + :value-type (choice + (const :tag "Minibuffer" nil) + (const :tag "LV" ivy-display-function-lv) + (const :tag "Popup" ivy-display-function-popup) + (const :tag "Overlay" ivy-display-function-overlay) + (function :tag "Custom function")))) + +(defvar ivy-completing-read-dynamic-collection nil + "Run `ivy-completing-read' with `:dynamic-collection t`.") + +(defcustom ivy-completing-read-handlers-alist + '((tmm-menubar . completing-read-default) + (tmm-shortcut . completing-read-default) + (bbdb-create . ivy-completing-read-with-empty-string-def) + (auto-insert . ivy-completing-read-with-empty-string-def) + (Info-on-current-buffer . ivy-completing-read-with-empty-string-def) + (Info-follow-reference . ivy-completing-read-with-empty-string-def) + (Info-menu . ivy-completing-read-with-empty-string-def) + (Info-index . ivy-completing-read-with-empty-string-def) + (Info-virtual-index . ivy-completing-read-with-empty-string-def) + (info-display-manual . ivy-completing-read-with-empty-string-def)) + "An alist of handlers to replace `completing-read' in `ivy-mode'." + :type '(alist :key-type symbol :value-type function)) + +(defcustom ivy-height-alist nil + "An alist to customize `ivy-height'. + +It is a list of (CALLER . HEIGHT). CALLER is a caller of +`ivy-read' and HEIGHT is the number of lines displayed. +HEIGHT can also be a function that returns the number of lines." + :type '(alist + :key-type function + :value-type (choice integer function))) + +(defvar ivy-completing-read-ignore-handlers-depth -1 + "Used to avoid infinite recursion. + +If `(minibuffer-depth)' equals this, `ivy-completing-read' will +act as if `ivy-completing-read-handlers-alist' is empty.") + +(defvar ivy-highlight-grep-commands nil + "List of grep-like commands.") + +(defvar ivy--actions-list nil + "A list of extra actions per command.") + +(defun ivy-set-actions (cmd actions) + "Set CMD extra exit points to ACTIONS." + (setq ivy--actions-list + (plist-put ivy--actions-list cmd actions))) + +(defun ivy-add-actions (cmd actions) + "Add extra exit points ACTIONS to CMD. +Existing exit points of CMD are overwritten by those in +ACTIONS that have the same key." + (setq ivy--actions-list + (plist-put ivy--actions-list cmd + (cl-delete-duplicates + (append (plist-get ivy--actions-list cmd) actions) + :key #'car :test #'equal)))) + +(defun ivy--compute-extra-actions (action caller) + "Add extra actions to ACTION based on CALLER." + (let* ((extra-actions (cl-delete-duplicates + (append (plist-get ivy--actions-list t) + (plist-get ivy--actions-list this-command) + (plist-get ivy--actions-list caller)) + :key #'car :test #'equal)) + (override-default (assoc "o" extra-actions))) + (cond (override-default + (cons 1 (cons override-default (assoc-delete-all "o" extra-actions)))) + ((not extra-actions) + action) + ((functionp action) + `(1 + ("o" ,action "default") + ,@extra-actions)) + ((null action) + `(1 + ("o" identity "default") + ,@extra-actions)) + (t + (delete-dups (append action extra-actions)))))) + +(defvar ivy--prompts-list nil) + +(defun ivy-set-prompt (caller prompt-fn) + "Associate CALLER with PROMPT-FN. +PROMPT-FN is a function of no arguments that returns a prompt string." + (setq ivy--prompts-list + (plist-put ivy--prompts-list caller prompt-fn))) + +(defvar ivy--display-transformers-list nil + "A list of str->str transformers per command.") + +(defun ivy-set-display-transformer (cmd transformer) + "Set CMD a displayed candidate TRANSFORMER. + +It's a lambda that takes a string one of the candidates in the +collection and returns a string for display, the same candidate +plus some extra information. + +This lambda is called only on the `ivy-height' candidates that +are about to be displayed, not on the whole collection." + (setq ivy--display-transformers-list + (plist-put ivy--display-transformers-list cmd transformer))) + +(defvar ivy--sources-list nil + "A list of extra sources per command.") + +(defun ivy-set-sources (cmd sources) + "Attach to CMD a list of extra SOURCES. + +Each static source is a function that takes no argument and +returns a list of strings. + +The (original-source) determines the position of the original +dynamic source. + +Extra dynamic sources aren't supported yet. + +Example: + + (defun small-recentf () + (cl-subseq recentf-list 0 20)) + + (ivy-set-sources + 'counsel-locate + '((small-recentf) + (original-source)))" + (setq ivy--sources-list + (plist-put ivy--sources-list cmd sources))) + +(defun ivy--compute-extra-candidates (caller) + (let ((extra-sources (or (plist-get ivy--sources-list caller) + '((original-source)))) + (result nil)) + (dolist (source extra-sources) + (cond ((equal source '(original-source)) + (push source result)) + ((null (cdr source)) + (push (list (car source) (funcall (car source))) result)))) + result)) + +(defvar ivy-current-prefix-arg nil + "Prefix arg to pass to actions. +This is a global variable that is set by ivy functions for use in +action functions.") + +;;* Keymap +(require 'delsel) +(defvar ivy-minibuffer-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "C-m") 'ivy-done) + (define-key map [down-mouse-1] 'ignore) + (define-key map [mouse-1] 'ivy-mouse-done) + (define-key map [mouse-3] 'ivy-mouse-dispatching-done) + (define-key map (kbd "C-M-m") 'ivy-call) + (define-key map (kbd "C-j") 'ivy-alt-done) + (define-key map (kbd "C-M-j") 'ivy-immediate-done) + (define-key map (kbd "TAB") 'ivy-partial-or-done) + (define-key map [remap next-line] 'ivy-next-line) + (define-key map [remap previous-line] 'ivy-previous-line) + (define-key map (kbd "C-r") 'ivy-reverse-i-search) + (define-key map (kbd "SPC") 'self-insert-command) + (define-key map [remap delete-backward-char] 'ivy-backward-delete-char) + (define-key map [remap backward-delete-char-untabify] 'ivy-backward-delete-char) + (define-key map [remap backward-kill-word] 'ivy-backward-kill-word) + (define-key map [remap delete-char] 'ivy-delete-char) + (define-key map [remap forward-char] 'ivy-forward-char) + (define-key map (kbd "") 'ivy-forward-char) + (define-key map [remap kill-word] 'ivy-kill-word) + (define-key map [remap beginning-of-buffer] 'ivy-beginning-of-buffer) + (define-key map [remap end-of-buffer] 'ivy-end-of-buffer) + (define-key map (kbd "M-n") 'ivy-next-history-element) + (define-key map (kbd "M-p") 'ivy-previous-history-element) + (define-key map (kbd "C-g") 'minibuffer-keyboard-quit) + (define-key map [remap scroll-up-command] 'ivy-scroll-up-command) + (define-key map [remap scroll-down-command] 'ivy-scroll-down-command) + (define-key map (kbd "") 'ivy-scroll-up-command) + (define-key map (kbd "") 'ivy-scroll-down-command) + (define-key map (kbd "C-v") 'ivy-scroll-up-command) + (define-key map (kbd "M-v") 'ivy-scroll-down-command) + (define-key map (kbd "C-M-n") 'ivy-next-line-and-call) + (define-key map (kbd "C-M-p") 'ivy-previous-line-and-call) + (define-key map (kbd "M-a") 'ivy-toggle-marks) + (define-key map (kbd "M-r") 'ivy-toggle-regexp-quote) + (define-key map (kbd "M-j") 'ivy-yank-word) + (define-key map (kbd "M-i") 'ivy-insert-current) + (define-key map (kbd "C-M-y") 'ivy-insert-current-full) + (define-key map (kbd "C-o") 'hydra-ivy/body) + (define-key map (kbd "M-o") 'ivy-dispatching-done) + (define-key map (kbd "C-M-o") 'ivy-dispatching-call) + (define-key map [remap kill-line] 'ivy-kill-line) + (define-key map [remap kill-whole-line] 'ivy-kill-whole-line) + (define-key map (kbd "S-SPC") 'ivy-restrict-to-matches) + (define-key map [remap kill-ring-save] 'ivy-kill-ring-save) + (define-key map (kbd "C-'") 'ivy-avy) + (define-key map (kbd "C-M-a") 'ivy-read-action) + (define-key map (kbd "C-c C-o") 'ivy-occur) + (define-key map (kbd "C-c C-a") 'ivy-toggle-ignore) + (define-key map (kbd "C-c C-s") 'ivy-rotate-sort) + (define-key map [remap describe-mode] 'ivy-help) + (define-key map "$" 'ivy-magic-read-file-env) + map) + "Keymap used in the minibuffer.") +(autoload 'hydra-ivy/body "ivy-hydra" "" t) +(autoload 'ivy-hydra-read-action "ivy-hydra" "" t) + +(defvar ivy-mode-map + (let ((map (make-sparse-keymap))) + (define-key map [remap switch-to-buffer] + 'ivy-switch-buffer) + (define-key map [remap switch-to-buffer-other-window] + 'ivy-switch-buffer-other-window) + map) + "Keymap for `ivy-mode'.") + +;;* Globals +(cl-defstruct ivy-state + prompt collection + predicate require-match initial-input + history preselect keymap update-fn sort + ;; The frame in which `ivy-read' was called + frame + ;; The window in which `ivy-read' was called + window + ;; The buffer in which `ivy-read' was called + buffer + ;; The value of `ivy-text' to be used by `ivy-occur' + text + action + unwind + re-builder + matcher + ;; When this is non-nil, call it for each input change to get new candidates + dynamic-collection + ;; A lambda that transforms candidates only for display + display-transformer-fn + directory + caller + current + def + ignore + multi-action + extra-props) + +(defvar ivy-last (make-ivy-state) + "The last parameters passed to `ivy-read'. + +This should eventually become a stack so that you could use +`ivy-read' recursively.") + +(defvar ivy-recursive-last nil) + +(defvar ivy-recursive-restore t + "When non-nil, restore the above state when exiting the minibuffer. +This variable is let-bound to nil by functions that take care of +the restoring themselves.") + +(defsubst ivy-set-action (action) + "Set the current `ivy-last' field to ACTION." + (setf (ivy-state-action ivy-last) action)) + +(defvar inhibit-message) + +(defvar ffap-machine-p-known) + +(defun ivy-thing-at-point () + "Return a string that corresponds to the current thing at point." + (substring-no-properties + (cond + ((use-region-p) + (let* ((beg (region-beginning)) + (end (region-end)) + (eol (save-excursion (goto-char beg) (line-end-position)))) + (buffer-substring-no-properties beg (min end eol)))) + ((thing-at-point 'url)) + ((and (eq (ivy-state-collection ivy-last) #'read-file-name-internal) + (let ((inhibit-message t) + (ffap-machine-p-known 'reject)) + (run-hook-with-args-until-success 'file-name-at-point-functions)))) + ((let ((s (thing-at-point 'symbol))) + (and (stringp s) + (if (string-match "\\`[`']?\\(.*?\\)'?\\'" s) + (match-string 1 s) + s)))) + ((looking-at "(+\\(\\(?:\\sw\\|\\s_\\)+\\)\\_>") + (match-string-no-properties 1)) + (t + "")))) + +(defvar ivy-history nil + "History list of candidates entered in the minibuffer. + +Maximum length of the history list is determined by the value +of `history-length'.") + +(defvar ivy--directory nil + "Current directory when completing file names.") + +(defvar ivy--length 0 + "Store the amount of viable candidates.") + +(defvar ivy-text "" + "Store the user's string as it is typed in.") + +(defvar ivy-regex "" + "Store the regex value that corresponds to `ivy-text'.") + +(defvar ivy--regex-function 'ivy--regex + "Current function for building a regex.") + +(defun ivy-set-text (str) + "Set `ivy-text' to STR." + (setq ivy-text str) + (setq ivy-regex (funcall ivy--regex-function ivy-text))) + +(defvar ivy--index 0 + "Store the index of the current candidate.") + +(defvar ivy--window-index 0 + "Store the index of the current candidate in the minibuffer window. + +This means it's between 0 and `ivy-height'.") + +(defvar ivy-exit nil + "Store `done' if the completion was successfully selected. +Otherwise, store nil.") + +(defvar ivy--all-candidates nil + "Store the candidates passed to `ivy-read'.") + +(defvar ivy--extra-candidates '((original-source)) + "Store candidates added by the extra sources. + +This is an internal-use alist. Each key is a function name, or +original-source (which represents where the current dynamic +candidates should go). + +Each value is an evaluation of the function, in case of static +sources. These values will subsequently be filtered on `ivy-text'. + +This variable is set by `ivy-read' and used by `ivy--set-candidates'.") + +(defcustom ivy-use-ignore-default t + "The default policy for user-configured candidate filtering." + :type '(choice + (const :tag "Ignore ignored always" always) + (const :tag "Ignore ignored when others exist" t) + (const :tag "Don't ignore" nil))) + +(defvar ivy-use-ignore t + "Store policy for user-configured candidate filtering. +This may be changed dynamically by `ivy-toggle-ignore'. +Use `ivy-use-ignore-default' for a permanent configuration.") + +(defvar ivy--default nil + "Default initial input.") + +(defvar ivy--prompt nil + "Store the format-style prompt. +When non-nil, it should contain at least one %d.") + +(defvar ivy--prompt-extra "" + "Temporary modifications to the prompt.") + +(defvar ivy--old-re nil + "Store the old regexp. +Either a string or a list for `ivy-re-match'.") + +(defvar ivy--old-cands nil + "Store the candidates matched by `ivy--old-re'.") + +(defvar ivy--highlight-function 'ivy--highlight-default + "Current function for formatting the candidates.") + +(defvar ivy--subexps 0 + "Number of groups in the current `ivy--regex'.") + +(defvar ivy--full-length nil + "The total amount of candidates when :dynamic-collection is non-nil.") + +(defvar ivy--old-text "" + "Store old `ivy-text' for dynamic completion.") + +(defvar ivy--trying-to-resume-dynamic-collection nil + "Non-nil if resuming from a dynamic collection. +When non-nil, ivy will wait until the first chunk of asynchronous +candidates has been received before selecting the last +preselected candidate.") + +(defun ivy--set-index-dynamic-collection () + (when ivy--trying-to-resume-dynamic-collection + (let ((preselect-index + (ivy--preselect-index (ivy-state-preselect ivy-last) ivy--all-candidates))) + (when preselect-index + (ivy-set-index preselect-index))) + (setq ivy--trying-to-resume-dynamic-collection nil))) + +(defcustom ivy-case-fold-search-default + (if search-upper-case + 'auto + case-fold-search) + "The default value for `case-fold-search' in Ivy operations. +The special value `auto' means case folding is performed so long +as the entire input string comprises lower-case characters. This +corresponds to the default behaviour of most Emacs search +functionality, e.g. as seen in `isearch'." + :link '(info-link "(emacs)Lax Search") + :type '(choice + (const :tag "Auto" auto) + (const :tag "Always" t) + (const :tag "Never" nil))) + +(defvar ivy-case-fold-search ivy-case-fold-search-default + "Store the current overriding `case-fold-search'.") + +(defvar ivy-more-chars-alist + '((t . 3)) + "Map commands to their minimum required input length. +That is the number of characters prompted for before fetching +candidates. The special key t is used as a fallback.") + +(defun ivy-more-chars () + "Return two fake candidates prompting for at least N input. +N is obtained from `ivy-more-chars-alist'." + (let ((diff (- (ivy-alist-setting ivy-more-chars-alist) + (length ivy-text)))) + (when (> diff 0) + (list "" (format "%d chars more" diff))))) + +(defun ivy--case-fold-p (string) + "Return nil if STRING should be matched case-sensitively." + (if (eq ivy-case-fold-search 'auto) + (string= string (downcase string)) + ivy-case-fold-search)) + +(defun ivy--case-fold-string= (s1 s2) + "Like `string=', but obeys `case-fold-search'." + (eq t (compare-strings s1 nil nil s2 nil nil case-fold-search))) + +(eval-and-compile + (unless (fboundp 'defvar-local) + (defmacro defvar-local (var val &optional docstring) + "Define VAR as a buffer-local variable with default value VAL." + (declare (debug defvar) (doc-string 3)) + (list 'progn (list 'defvar var val docstring) + (list 'make-variable-buffer-local (list 'quote var))))) + (unless (fboundp 'setq-local) + (defmacro setq-local (var val) + "Set variable VAR to value VAL in current buffer." + (list 'set (list 'make-local-variable (list 'quote var)) val)))) + +(defmacro ivy-quit-and-run (&rest body) + "Quit the minibuffer and run BODY afterwards." + (declare (indent 0)) + `(progn + (put 'quit 'error-message "") + (run-at-time nil nil + (lambda () + (put 'quit 'error-message "Quit") + (with-demoted-errors "Error: %S" + ,@body))) + (abort-recursive-edit))) + +(defun ivy-exit-with-action (action &optional exit-code) + "Quit the minibuffer and call ACTION afterwards." + (ivy-set-action + `(lambda (x) + (funcall ',action x) + (ivy-set-action ',(ivy-state-action ivy-last)))) + (setq ivy-exit (or exit-code 'done)) + (exit-minibuffer)) + +(defmacro with-ivy-window (&rest body) + "Execute BODY in the window from which `ivy-read' was called." + (declare (indent 0) + (debug t)) + `(with-selected-window (ivy--get-window ivy-last) + ,@body)) + +(defun ivy--done (text) + "Insert TEXT and exit minibuffer." + (if (member (ivy-state-prompt ivy-last) '("Create directory: " "Make directory: ")) + (ivy-immediate-done) + (if (stringp text) + (insert + (setf (ivy-state-current ivy-last) + (if (and ivy--directory + (not (eq (ivy-state-history ivy-last) 'grep-files-history))) + (expand-file-name text ivy--directory) + text)))) + (setq ivy-exit 'done) + (exit-minibuffer))) + +(defcustom ivy-use-selectable-prompt nil + "When non-nil, make the prompt line selectable like a candidate. + +The prompt line can be selected by calling `ivy-previous-line' when the first +regular candidate is selected. Both actions `ivy-done' and `ivy-alt-done', +when called on a selected prompt, are forwarded to `ivy-immediate-done', which +results to the same as calling `ivy-immediate-done' explicitly when a regular +candidate is selected. + +Note that if `ivy-wrap' is set to t, calling `ivy-previous-line' when the +prompt is selected wraps around to the last candidate, while calling +`ivy-next-line' on the last candidate wraps around to the first +candidate, not the prompt." + :type 'boolean) + +(defvar ivy--use-selectable-prompt nil + "Store the effective `ivy-use-selectable-prompt' for current session.") + +(defun ivy--prompt-selectable-p () + "Return t if the prompt line is selectable." + (and ivy-use-selectable-prompt + (or (memq (ivy-state-require-match ivy-last) + '(nil confirm confirm-after-completion)) + ;; :require-match is t, but "" is in the collection + (let ((coll (ivy-state-collection ivy-last))) + (and (listp coll) + (if (consp (car coll)) + (member '("") coll) + (member "" coll))))))) + +(defun ivy--prompt-selected-p () + "Return t if the prompt line is selected." + (and ivy--use-selectable-prompt + (= ivy--index -1))) + +;;* Commands +(defun ivy-done () + "Exit the minibuffer with the selected candidate." + (interactive) + (if (ivy--prompt-selected-p) + (ivy-immediate-done) + (setq ivy-current-prefix-arg current-prefix-arg) + (delete-minibuffer-contents) + (cond ((and (= ivy--length 0) + (eq this-command 'ivy-dispatching-done)) + (ivy--done ivy-text)) + ((or (> ivy--length 0) + ;; the action from `ivy-dispatching-done' may not need a + ;; candidate at all + (eq this-command 'ivy-dispatching-done)) + (ivy--done (ivy-state-current ivy-last))) + ((and (memq (ivy-state-collection ivy-last) + '(read-file-name-internal internal-complete-buffer)) + (eq confirm-nonexistent-file-or-buffer t) + (not (string= " (confirm)" ivy--prompt-extra))) + (setq ivy--prompt-extra " (confirm)") + (insert ivy-text) + (ivy--exhibit)) + ((memq (ivy-state-require-match ivy-last) + '(nil confirm confirm-after-completion)) + (ivy--done ivy-text)) + (t + (setq ivy--prompt-extra " (match required)") + (insert ivy-text) + (ivy--exhibit))))) + +(defvar ivy-mouse-1-tooltip + "Exit the minibuffer with the selected candidate." + "The doc visible in the tooltip for mouse-1 binding in the minibuffer") +(defvar ivy-mouse-3-tooltip + "Display alternative actions." + "The doc visible in the tooltip for mouse-3 binding in the minibuffer") + +(defun ivy-mouse-offset (event) + "Compute the offset between the candidate at point and the selected one." + (if event + (let* ((line-number-at-point + (max 2 + (line-number-at-pos (posn-point (event-start event))))) + + (line-number-candidate ;; convert to 0 based index + (- line-number-at-point 2)) + (offset + (- line-number-candidate + ivy--window-index))) + offset) + nil)) + +(defun ivy-mouse-done (event) + (interactive "@e") + (let ((offset (ivy-mouse-offset event))) + (when offset + (ivy-next-line offset) + (ivy--exhibit) + (ivy-alt-done)))) + +(defun ivy-mouse-dispatching-done (event) + (interactive "@e") + (let ((offset (ivy-mouse-offset event))) + (when offset + (ivy-next-line offset) + (ivy--exhibit) + (ivy-dispatching-done)))) + +(defcustom ivy-read-action-format-function 'ivy-read-action-format-default + "Function used to transform the actions list into a docstring." + :type '(radio + (function-item ivy-read-action-format-default) + (function-item ivy-read-action-format-columns))) + +(defun ivy-read-action-format-default (actions) + "Create a docstring from ACTIONS. + +ACTIONS is a list. Each list item is a list of 3 items: +key (a string), cmd and doc (a string)." + (format "%s\n%s\n" + (if (eq this-command 'ivy-read-action) + "Select action: " + (ivy-state-current ivy-last)) + (mapconcat + (lambda (x) + (format "%s: %s" + (propertize + (car x) + 'face 'ivy-action) + (nth 2 x))) + actions + "\n"))) + +(defun ivy-read-action-format-columns (actions) + "Create a docstring from ACTIONS, using several columns if needed to preserve `ivy-height'. + +ACTIONS is a list. Each list item is a list of 3 items: key (a +string), cmd and doc (a string)." + (let ((length (length actions)) + (i 0) + (max-rows (- ivy-height 1)) + rows cols col lwidth rwidth) + (while (< i length) + (setq col (cl-subseq actions i (min length (cl-incf i max-rows)))) + (setq lwidth (apply 'max (mapcar (lambda (x) + (length (nth 0 x))) + col))) + (setq rwidth (apply 'max (mapcar (lambda (x) + (length (nth 2 x))) + col))) + (setq col (mapcar (lambda (x) + (format (format "%%%ds: %%-%ds" lwidth rwidth) + (propertize (car x) 'face 'ivy-action) + (nth 2 x))) + col)) + (cond + ((null rows) + (setq rows (length col))) + ((< (length col) rows) + (setq col (append col (make-list (- rows (length col)) ""))))) + (push col cols)) + (format "%s\n%s\n" + (if (eq this-command 'ivy-read-action) + "Select action: " + (ivy-state-current ivy-last)) + (mapconcat 'identity + (apply 'cl-mapcar + (lambda (&rest args) + (mapconcat 'identity args " | ")) + (nreverse cols)) + "\n")))) + +(defcustom ivy-read-action-function #'ivy-read-action-by-key + "Function used to read an action." + :type '(radio + (function-item ivy-read-action-by-key) + (function-item ivy-read-action-ivy) + (function-item ivy-hydra-read-action))) + +(defun ivy-read-action () + "Change the action to one of the available ones. + +Return nil for `minibuffer-keyboard-quit' or wrong key during the +selection, non-nil otherwise." + (interactive) + (let ((actions (ivy-state-action ivy-last))) + (if (not (ivy--actionp actions)) + t + (let ((ivy--directory ivy--directory)) + (funcall ivy-read-action-function actions))))) + +(defvar set-message-function) + +(defun ivy-read-action-by-key (actions) + (let* ((set-message-function nil) + (hint (funcall ivy-read-action-format-function (cdr actions))) + (resize-mini-windows t) + (key "") + action-idx) + (while (and (setq action-idx (cl-position-if + (lambda (x) + (string-prefix-p key (car x))) + (cdr actions))) + (not (string= key (car (nth action-idx (cdr actions)))))) + (setq key (concat key (key-description (string (read-key hint)))))) + (ivy-shrink-after-dispatching) + (cond ((member key '("" "")) + nil) + ((null action-idx) + (message "%s is not bound" key) + nil) + (t + (message "") + (setcar actions (1+ action-idx)) + (ivy-set-action actions))))) + +(defvar ivy-marked-candidates nil + "List of marked candidates. +Use `ivy-mark' to populate this. + +When this list is non-nil at the end of the session, the action +will be called for each element of this list.") + +(defun ivy-read-action-ivy (actions) + "Select an action from ACTIONS using Ivy." + (let ((enable-recursive-minibuffers t)) + (if (and (> (minibuffer-depth) 1) + (eq (ivy-state-caller ivy-last) 'ivy-read-action-ivy)) + (minibuffer-keyboard-quit) + (let ((ivy-marked-candidates ivy-marked-candidates)) + (ivy-read (format "action (%s): " (ivy-state-current ivy-last)) + (cl-mapcar + (lambda (a i) (cons (format "[%s] %s" (nth 0 a) (nth 2 a)) i)) + (cdr actions) (number-sequence 1 (length (cdr actions)))) + :action (lambda (a) + (setcar actions (cdr a)) + (ivy-set-action actions)) + :caller 'ivy-read-action-ivy))))) + +(defun ivy-shrink-after-dispatching () + "Shrink the window after dispatching when action list is too large." + (window-resize nil (- ivy-height (window-height)))) + +(defun ivy-dispatching-done () + "Select one of the available actions and call `ivy-done'." + (interactive) + (let ((ivy-exit 'ivy-dispatching-done)) + (when (ivy-read-action) + (ivy-done))) + (ivy-shrink-after-dispatching)) + +(defun ivy-dispatching-call () + "Select one of the available actions and call `ivy-call'." + (interactive) + (setq ivy-current-prefix-arg current-prefix-arg) + (let ((actions (copy-sequence (ivy-state-action ivy-last)))) + (unwind-protect + (when (ivy-read-action) + (ivy-call)) + (ivy-set-action actions))) + (ivy-shrink-after-dispatching)) + +(defun ivy-build-tramp-name (x) + "Reconstruct X into a path. +Is is a cons cell, related to `tramp-get-completion-function'." + (let ((user (car x)) + (domain (cadr x))) + (if user + (concat user "@" domain) + domain))) + +(declare-function Info-find-node "info") +(declare-function Info-read-node-name-1 "info") +(declare-function tramp-get-completion-function "tramp") + +(defun ivy-alt-done (&optional arg) + "Exit the minibuffer with the selected candidate. +When ARG is t, exit with current text, ignoring the candidates. +When the current candidate during file name completion is a +directory, continue completion from within that directory instead +of exiting. This function is otherwise like `ivy-done'." + (interactive "P") + (setq ivy-current-prefix-arg current-prefix-arg) + (cond ((or arg + (ivy--prompt-selected-p)) + (ivy-immediate-done)) + (ivy--directory + (ivy--directory-done)) + ((eq (ivy-state-collection ivy-last) #'Info-read-node-name-1) + (if (member (ivy-state-current ivy-last) '("(./)" "(../)")) + (ivy-quit-and-run + (ivy-read "Go to file: " #'read-file-name-internal + :action (lambda (x) + (Info-find-node + (expand-file-name x ivy--directory) + "Top")))) + (ivy-done))) + (t + (ivy-done)))) + +(defvar ivy-auto-select-single-candidate nil + "When non-nil, auto-select the candidate if it is the only one. +When t, it is the same as if the user were prompted and selected the candidate +by calling the default action. This variable has no use unless the collection +contains a single candidate.") + +(defun ivy--directory-enter () + (let (dir) + (when (and + (> ivy--length 0) + (not (string= (ivy-state-current ivy-last) "./")) + (setq dir (ivy-expand-file-if-directory (ivy-state-current ivy-last)))) + (ivy--cd dir) + (ivy--exhibit)))) + +(defun ivy--handle-directory (input) + "Detect the next directory based on special values of INPUT." + (cond ((string= input "/") + "/") + ((string= input "/sudo::") + (concat input ivy--directory)))) + +(defun ivy--tramp-candidates () + (let ((method (match-string 1 ivy-text)) + (user (match-string 2 ivy-text)) + (rest (match-string 3 ivy-text)) + res) + (dolist (x (tramp-get-completion-function method)) + (setq res (append res (funcall (car x) (cadr x))))) + (setq res (delq nil res)) + (when user + (dolist (x res) + (setcar x user))) + (setq res (delete-dups res)) + (let* ((old-ivy-last ivy-last) + (enable-recursive-minibuffers t) + (host (let ((ivy-auto-select-single-candidate nil)) + (ivy-read "user@host: " + (mapcar #'ivy-build-tramp-name res) + :initial-input rest)))) + (setq ivy-last old-ivy-last) + (when host + (setq ivy--directory "/") + (ivy--cd (concat "/" method ":" host ":/")))))) + +(defun ivy--directory-done () + "Handle exit from the minibuffer when completing file names." + (let ((dir (ivy--handle-directory ivy-text))) + (cond + ((equal (ivy-state-current ivy-last) (ivy-state-def ivy-last)) + (ivy-done)) + ((and (ivy-state-require-match ivy-last) + (equal ivy-text "") + (null ivy--old-cands)) + (ivy-immediate-done)) + (dir + (let ((inhibit-message t)) + (ivy--cd dir))) + ((ivy--directory-enter)) + ((unless (string= ivy-text "") + (with-no-warnings + (let* ((tramp-completion-mode t) + (file (expand-file-name + (if (> ivy--length 0) (ivy-state-current ivy-last) ivy-text) + ivy--directory))) + (when (ignore-errors (file-exists-p file)) + (if (file-directory-p file) + (ivy--cd (file-name-as-directory file)) + (ivy-done)) + ivy-text))))) + ((or (and (equal ivy--directory "/") + (string-match-p "\\`[^/]+:.*:.*\\'" ivy-text)) + (string-match-p "\\`/[^/]+:.*:.*\\'" ivy-text)) + (ivy-done)) + ((ivy--tramp-prefix-p) + (ivy--tramp-candidates)) + (t + (ivy-done))))) + +(defun ivy--tramp-prefix-p () + (or (and (equal ivy--directory "/") + (cond ((string-match + "\\`\\([^/]+?\\):\\(?:\\(.*\\)@\\)?\\(.*\\)\\'" + ivy-text) + (save-match-data + (ivy-set-text (ivy-state-current ivy-last)))) + ((string-match + "\\`\\([^/]+?\\):\\(?:\\(.*\\)@\\)?\\(.*\\)\\'" + (ivy-state-current ivy-last)) + (save-match-data + (ivy-set-text (ivy-state-current ivy-last)))))) + (string-match + "\\`/\\([^/]+?\\):\\(?:\\(.*\\)@\\)?\\(.*\\)\\'" + ivy-text))) + +(defun ivy-expand-file-if-directory (file-name) + "Expand FILE-NAME as directory. +When this directory doesn't exist, return nil." + (when (stringp file-name) + (let ((full-name + ;; Ignore host name must not match method "ssh" + (ignore-errors + (file-name-as-directory + (expand-file-name file-name ivy--directory))))) + (when (and full-name (file-directory-p full-name)) + full-name)))) + +(defcustom ivy-tab-space nil + "When non-nil, `ivy-partial-or-done' should insert a space." + :type 'boolean) + +(defun ivy-partial-or-done () + "Complete the minibuffer text as much as possible. +If the text hasn't changed as a result, forward to `ivy-alt-done'." + (interactive) + (cond + ((and (numberp completion-cycle-threshold) + (< (length ivy--all-candidates) completion-cycle-threshold)) + (let ((ivy-wrap t)) + (ivy-next-line))) + ((and (eq (ivy-state-collection ivy-last) #'read-file-name-internal) + (or (and (equal ivy--directory "/") + (string-match-p "\\`[^/]+:.*\\'" ivy-text)) + (= (string-to-char ivy-text) ?/))) + (let ((default-directory ivy--directory) + dir) + (minibuffer-complete) + (ivy-set-text (ivy--input)) + (when (setq dir (ivy-expand-file-if-directory ivy-text)) + (ivy--cd dir)))) + (t + (or (ivy-partial) + (when (or (eq this-command last-command) + (eq ivy--length 1)) + (ivy-alt-done)))))) + +(defun ivy--remove-prefix (prefix string) + "Compatibility shim for `string-remove-prefix'." + (if (string-prefix-p prefix string) + (substring string (length prefix)) + string)) + +(defun ivy--partial-cd-for-single-directory () + (when (and + (eq (ivy-state-collection ivy-last) #'read-file-name-internal) + (= 1 (length + (ivy--re-filter ivy-regex ivy--all-candidates))) + (let ((default-directory ivy--directory)) + (file-directory-p (ivy-state-current ivy-last)))) + (ivy--directory-done))) + +(defun ivy-partial () + "Complete the minibuffer text as much as possible." + (interactive) + (let* ((parts (or (ivy--split-spaces ivy-text) (list ""))) + (tail (last parts)) + (postfix (car tail)) + (case-fold-search (ivy--case-fold-p ivy-text)) + (completion-ignore-case case-fold-search) + (new (try-completion (ivy--remove-prefix "^" postfix) + (if (ivy-state-dynamic-collection ivy-last) + ivy--all-candidates + (mapcar (lambda (str) + (let ((i (string-match-p postfix str))) + (and i (substring str i)))) + ivy--old-cands))))) + (cond ((eq new t) nil) + ((string= new ivy-text) nil) + ((string= (car tail) (car (ivy--split-spaces new))) nil) + (new + (delete-region (minibuffer-prompt-end) (point-max)) + (setcar tail + (if (= (string-to-char postfix) ?^) + (concat "^" new) + new)) + (ivy-set-text + (concat + (mapconcat #'identity parts " ") + (and ivy-tab-space (not (= (length ivy--old-cands) 1)) " "))) + (insert ivy-text) + (ivy--partial-cd-for-single-directory) + t)))) + +(defvar ivy-completion-beg nil + "Completion bounds start.") + +(defvar ivy-completion-end nil + "Completion bounds end.") + +(defun ivy-immediate-done () + "Exit the minibuffer with current input instead of current candidate." + (interactive) + (delete-minibuffer-contents) + (setf (ivy-state-current ivy-last) + (cond ((or (not ivy--directory) + (eq (ivy-state-history ivy-last) 'grep-files-history)) + ivy-text) + ((and (string= ivy-text "") + (eq (ivy-state-collection ivy-last) + #'read-file-name-internal)) + (if (ivy-state-def ivy-last) + (if (and + (file-exists-p (ivy-state-def ivy-last)) + (/= (length ivy--directory) + (1+ (length (expand-file-name (ivy-state-def ivy-last)))))) + ivy--directory + (copy-sequence (ivy-state-def ivy-last))) + ivy--directory)) + (t + (expand-file-name ivy-text ivy--directory)))) + (insert (ivy-state-current ivy-last)) + (setq ivy-completion-beg ivy-completion-end) + (setq ivy-exit 'done) + (exit-minibuffer)) + +;;;###autoload +(defun ivy-resume () + "Resume the last completion session." + (interactive) + (if (null (ivy-state-action ivy-last)) + (user-error "The last session isn't compatible with `ivy-resume'") + (when (memq (ivy-state-caller ivy-last) + '(swiper swiper-isearch swiper-backward swiper-isearch-backward)) + (switch-to-buffer (ivy-state-buffer ivy-last))) + (with-current-buffer (ivy-state-buffer ivy-last) + (let ((default-directory (ivy-state-directory ivy-last)) + (ivy-use-ignore-default (ivy-state-ignore ivy-last))) + (ivy-read + (ivy-state-prompt ivy-last) + (ivy-state-collection ivy-last) + :predicate (ivy-state-predicate ivy-last) + :require-match (ivy-state-require-match ivy-last) + :initial-input ivy-text + :history (ivy-state-history ivy-last) + :preselect (ivy-state-current ivy-last) + :keymap (ivy-state-keymap ivy-last) + :update-fn (ivy-state-update-fn ivy-last) + :sort (ivy-state-sort ivy-last) + :action (ivy-state-action ivy-last) + :unwind (ivy-state-unwind ivy-last) + :re-builder (ivy-state-re-builder ivy-last) + :matcher (ivy-state-matcher ivy-last) + :dynamic-collection (ivy-state-dynamic-collection ivy-last) + :extra-props (ivy-state-extra-props ivy-last) + :caller (ivy-state-caller ivy-last)))))) + +(defvar-local ivy-calling nil + "When non-nil, call the current action when `ivy--index' changes.") + +(defun ivy-set-index (index) + "Set `ivy--index' to INDEX." + (setq ivy--index index) + (when ivy-calling + (ivy--exhibit) + (ivy-call))) + +(defun ivy-beginning-of-buffer () + "Select the first completion candidate." + (interactive) + (ivy-set-index 0)) + +(defun ivy-end-of-buffer () + "Select the last completion candidate." + (interactive) + (ivy-set-index (1- ivy--length))) + +(defun ivy-scroll-up-command () + "Scroll the candidates upward by the minibuffer height." + (interactive) + (ivy-set-index (min (1- (+ ivy--index ivy-height)) + (1- ivy--length)))) + +(defun ivy-scroll-down-command () + "Scroll the candidates downward by the minibuffer height." + (interactive) + (ivy-set-index (max (1+ (- ivy--index ivy-height)) + 0))) + +(defun ivy-minibuffer-grow () + "Grow the minibuffer window by 1 line." + (interactive) + (setq-local max-mini-window-height + (cl-incf ivy-height))) + +(defun ivy-minibuffer-shrink () + "Shrink the minibuffer window by 1 line." + (interactive) + (when (> ivy-height 2) + (setq-local max-mini-window-height + (cl-decf ivy-height)) + (window-resize nil -1))) + +(defun ivy-next-line (&optional arg) + "Move cursor vertically down ARG candidates." + (interactive "p") + (setq arg (or arg 1)) + (let ((index (+ ivy--index arg))) + (if (> index (1- ivy--length)) + (if ivy-wrap + (ivy-beginning-of-buffer) + (ivy-set-index (1- ivy--length))) + (ivy-set-index index)))) + +(defun ivy-next-line-or-history (&optional arg) + "Move cursor vertically down ARG candidates. +If the input is empty, select the previous history element instead." + (interactive "p") + (let ((orig-index ivy--index)) + (ivy-next-line arg) + (when (and (string= ivy-text "") (eq ivy--index orig-index)) + (ivy-previous-history-element 1)))) + +(defun ivy-previous-line (&optional arg) + "Move cursor vertically up ARG candidates." + (interactive "p") + (setq arg (or arg 1)) + (let ((index (- ivy--index arg)) + (min-index (if ivy--use-selectable-prompt -1 0))) + (if (< index min-index) + (if ivy-wrap + (ivy-end-of-buffer) + (ivy-set-index min-index)) + (ivy-set-index index)))) + +(defun ivy-previous-line-or-history (arg) + "Move cursor vertically up ARG candidates. +If the input is empty, select the previous history element instead." + (interactive "p") + (let ((orig-index ivy--index)) + (ivy-previous-line arg) + (when (and (string= ivy-text "") (eq ivy--index orig-index)) + (ivy-previous-history-element 1)))) + +(defun ivy-toggle-calling () + "Flip `ivy-calling'." + (interactive) + (when (setq ivy-calling (not ivy-calling)) + (ivy-call))) + +(defun ivy-toggle-ignore () + "Toggle user-configured candidate filtering." + (interactive) + (setq ivy-use-ignore + (if ivy-use-ignore + nil + (or ivy-use-ignore-default t))) + (setf (ivy-state-ignore ivy-last) ivy-use-ignore) + ;; invalidate cache + (setq ivy--old-cands nil)) + +(defun ivy--get-action (state) + "Get the action function from STATE." + (let ((action (ivy-state-action state))) + (when action + (if (functionp action) + action + (cadr (nth (car action) action)))))) + +(defun ivy--get-multi-action (state) + "Get the multi-action function from STATE." + (let* ((action (ivy-state-action state)) + (multi-action + (and (listp action) + (not (eq (car action) 'lambda)) + (nth 3 (nth (car action) action))))) + (if multi-action + multi-action + (ivy-state-multi-action state)))) + +(defun ivy--get-window (state) + "Get the window from STATE." + (if (ivy-state-p state) + (let ((window (ivy-state-window state))) + (if (window-live-p window) + window + (next-window))) + (selected-window))) + +(defun ivy--actionp (x) + "Return non-nil when X is a list of actions." + (and (consp x) (not (memq (car x) '(closure lambda))))) + +(defcustom ivy-action-wrap nil + "When non-nil, `ivy-next-action' and `ivy-prev-action' wrap." + :type 'boolean) + +(defun ivy-next-action () + "When the current action is a list, scroll it forwards." + (interactive) + (let ((action (ivy-state-action ivy-last))) + (when (ivy--actionp action) + (let ((len (1- (length action))) + (idx (car action))) + (if (>= idx len) + (when ivy-action-wrap + (setf (car action) 1)) + (cl-incf (car action))))))) + +(defun ivy-prev-action () + "When the current action is a list, scroll it backwards." + (interactive) + (let ((action (ivy-state-action ivy-last))) + (when (ivy--actionp action) + (if (<= (car action) 1) + (when ivy-action-wrap + (setf (car action) (1- (length action)))) + (cl-decf (car action)))))) + +(defun ivy-action-name () + "Return the name associated with the current action." + (let ((action (ivy-state-action ivy-last))) + (if (ivy--actionp action) + (format "[%d/%d] %s" + (car action) + (1- (length action)) + (nth 2 (nth (car action) action))) + "[1/1] default"))) + +(defvar ivy-inhibit-action nil + "When non-nil, `ivy-call' does nothing. + +Example use: + + (let* ((ivy-inhibit-action t) + (str (ivy-switch-buffer))) + ;; do whatever with str - the corresponding buffer will not be opened + )") + +(defun ivy-recursive-restore () + "Restore the above state when exiting the minibuffer. +See variable `ivy-recursive-restore' for further information." + (when (and ivy-recursive-last + ivy-recursive-restore + (not (eq ivy-last ivy-recursive-last))) + (ivy--reset-state (setq ivy-last ivy-recursive-last)))) + +(defvar ivy-mark-prefix ">" + "Prefix used by `ivy-mark'.") + +(defun ivy-call () + "Call the current action without exiting completion." + (interactive) + ;; Testing with `ivy-with' seems to call `ivy-call' again, + ;; in which case `this-command' is nil; so check for this. + (unless (memq this-command '(nil + ivy-done + ivy-alt-done + ivy-dispatching-done)) + (setq ivy-current-prefix-arg current-prefix-arg)) + (let* ((action + (if (functionp ivy-inhibit-action) + ivy-inhibit-action + (and (not ivy-inhibit-action) + (ivy--get-action ivy-last)))) + (collection (ivy-state-collection ivy-last)) + (current (ivy-state-current ivy-last)) + (x (cond + ;; Alist type. + ((and (consp (car-safe collection)) + ;; Previously, the cdr of the selected + ;; candidate would be returned. Now, the + ;; whole candidate is returned. + (let ((idx (get-text-property 0 'idx current))) + (if idx + (progn + (ivy--remove-props current 'idx) + (nth idx collection)) + (assoc current collection))))) + (ivy--directory + (expand-file-name current ivy--directory)) + ((equal current "") + ivy-text) + (t + current))) + (res + (cond + ((null action) + current) + ((eq action #'identity) + (prog1 x + (ivy-recursive-restore))) + (t + (select-window (ivy--get-window ivy-last)) + (set-buffer (ivy-state-buffer ivy-last)) + (prog1 (unwind-protect + (if ivy-marked-candidates + (let* ((prefix-len (length ivy-mark-prefix)) + (marked-candidates + (mapcar + (lambda (s) + (let ((cand (substring s prefix-len))) + (if ivy--directory + (expand-file-name cand ivy--directory) + cand))) + ivy-marked-candidates)) + (multi-action (ivy--get-multi-action ivy-last))) + (if multi-action + (funcall multi-action marked-candidates) + (dolist (c marked-candidates) + (funcall action c)))) + (funcall action x)) + (ivy-recursive-restore)) + (unless (or (eq ivy-exit 'done) + (minibuffer-window-active-p (selected-window)) + (null (active-minibuffer-window))) + (select-window (active-minibuffer-window)))))))) + (if ivy-inhibit-action + res + current))) + +(defun ivy-call-and-recenter () + "Call action and recenter window according to the selected candidate." + (interactive) + (ivy-call) + (with-ivy-window + (recenter-top-bottom))) + +(defun ivy-next-line-and-call (&optional arg) + "Move cursor vertically down ARG candidates. +Call the permanent action if possible." + (interactive "p") + (ivy-next-line arg) + (ivy--exhibit) + (ivy-call)) + +(defun ivy-previous-line-and-call (&optional arg) + "Move cursor vertically up ARG candidates. +Call the permanent action if possible." + (interactive "p") + (ivy-previous-line arg) + (ivy--exhibit) + (ivy-call)) + +(defun ivy-previous-history-element (arg) + "Forward to `previous-history-element' with ARG." + (interactive "p") + (previous-history-element arg) + (ivy--cd-maybe) + (move-end-of-line 1) + (ivy--maybe-scroll-history)) + +(defun ivy--insert-symbol-boundaries () + (undo-boundary) + (beginning-of-line) + (insert "\\_<") + (end-of-line) + (insert "\\_>")) + +(defun ivy-next-history-element (arg) + "Forward to `next-history-element' with ARG." + (interactive "p") + (if (and (= minibuffer-history-position 0) + (equal ivy-text "")) + (progn + (when minibuffer-default + (setq ivy--default (car minibuffer-default))) + (insert ivy--default) + (when (and (with-ivy-window (derived-mode-p 'prog-mode)) + (eq (ivy-state-caller ivy-last) 'swiper) + (not (file-exists-p ivy--default)) + (not (ivy-ffap-url-p ivy--default)) + (not (ivy-state-dynamic-collection ivy-last)) + (> (point) (minibuffer-prompt-end))) + (ivy--insert-symbol-boundaries))) + (next-history-element arg)) + (ivy--cd-maybe) + (move-end-of-line 1) + (ivy--maybe-scroll-history)) + +(defvar ivy-ffap-url-functions nil + "List of functions that check if the point is on a URL.") + +(defun ivy--cd-maybe () + "Check if the current input points to a different directory. +If so, move to that directory, while keeping only the file name." + (when ivy--directory + (let ((input (ivy--input)) + url) + (if (setq url (or (ivy-ffap-url-p input) + (with-ivy-window + (cl-reduce + (lambda (a b) + (or a (funcall b))) + ivy-ffap-url-functions + :initial-value nil)))) + (ivy-exit-with-action + (lambda (_) + (ivy-ffap-url-fetcher url)) + 'no-update-history) + (setq input (expand-file-name input)) + (let ((file (file-name-nondirectory input)) + (dir (expand-file-name (file-name-directory input)))) + (if (string= dir ivy--directory) + (progn + (delete-minibuffer-contents) + (insert file)) + (ivy--cd dir) + (insert file))))))) + +(defun ivy--maybe-scroll-history () + "If the selected history element has an index, scroll there." + (let ((idx (ignore-errors + (get-text-property + (minibuffer-prompt-end) + 'ivy-index)))) + (when idx + (ivy--exhibit) + (ivy-set-index idx)))) + +(declare-function tramp-get-completion-methods "tramp") + +(defun ivy--cd (dir) + "When completing file names, move to directory DIR." + (if (null ivy--directory) + (error "Unexpected") + (setq ivy--old-cands nil) + (setq ivy--old-re nil) + (ivy-set-index 0) + (setq ivy--all-candidates + (append + (ivy--sorted-files (setq ivy--directory dir)) + (when (and (string= dir "/") (featurep 'tramp)) + (sort + (mapcar + (lambda (s) (substring s 1)) + (tramp-get-completion-methods "")) + #'string<)))) + (ivy-set-text "") + (setf (ivy-state-directory ivy-last) dir) + (delete-minibuffer-contents))) + +(defun ivy--parent-dir (filename) + "Return parent directory of absolute FILENAME." + (file-name-directory (directory-file-name filename))) + +(defun ivy-backward-delete-char () + "Forward to `delete-backward-char'. +Call `ivy-on-del-error-function' if an error occurs, usually when +there is no more text to delete at the beginning of the +minibuffer." + (interactive) + (if (and ivy--directory (= (minibuffer-prompt-end) (point))) + (progn + (ivy--cd (ivy--parent-dir (expand-file-name ivy--directory))) + (ivy--exhibit)) + (setq prefix-arg current-prefix-arg) + (condition-case nil + (call-interactively #'delete-backward-char) + (error + (when ivy-on-del-error-function + (funcall ivy-on-del-error-function)))))) + +(defun ivy-delete-char (arg) + "Forward to `delete-char' ARG." + (interactive "p") + (unless (eolp) + (delete-char arg))) + +(defun ivy-forward-char (arg) + "Forward to `forward-char' ARG." + (interactive "p") + (unless (eolp) + (forward-char arg))) + +(defun ivy-kill-word (arg) + "Forward to `kill-word' ARG." + (interactive "p") + (unless (eolp) + (kill-word arg))) + +(defun ivy-kill-line () + "Forward to `kill-line'." + (interactive) + (if (eolp) + (kill-region (minibuffer-prompt-end) (point)) + (kill-line))) + +(defun ivy-kill-whole-line () + "Forward to `kill-whole-line'." + (interactive) + (kill-region (minibuffer-prompt-end) (line-end-position))) + +(defun ivy-backward-kill-word () + "Forward to `backward-kill-word'." + (interactive) + (if (and ivy--directory (= (minibuffer-prompt-end) (point))) + (progn + (ivy--cd (ivy--parent-dir (expand-file-name ivy--directory))) + (ivy--exhibit)) + (ignore-errors + (let ((pt (point)) + (last-command (if (eq last-command 'ivy-backward-kill-word) + 'kill-region + last-command))) + (forward-word -1) + (kill-region pt (point)))))) + +(defvar ivy--regexp-quote #'regexp-quote + "Store the regexp quoting state.") + +(defun ivy-toggle-regexp-quote () + "Toggle the regexp quoting." + (interactive) + (setq ivy--old-re nil) + (cl-rotatef ivy--regex-function ivy--regexp-quote) + (setq ivy-regex (funcall ivy--regex-function ivy-text))) + +(defvar avy-all-windows) +(defvar avy-action) +(defvar avy-keys) +(defvar avy-keys-alist) +(defvar avy-style) +(defvar avy-styles-alist) +(declare-function avy-process "ext:avy") +(declare-function avy--style-fn "ext:avy") + +(defcustom ivy-format-functions-alist + '((t . ivy-format-function-default)) + "An alist of functions that transform the list of candidates into a string. +This string is inserted into the minibuffer." + :type '(alist + :key-type symbol + :value-type + (choice + (const :tag "Default" ivy-format-function-default) + (const :tag "Arrow prefix" ivy-format-function-arrow) + (const :tag "Full line" ivy-format-function-line) + (function :tag "Custom function")))) + +(defcustom ivy-avy-style 'pre + "The `avy-style' setting for `ivy-avy'." + :type '(choice + (const :tag "Pre" pre) + (const :tag "At" at) + (const :tag "At Full" at-full) + (const :tag "Post" post) + (const :tag "De Bruijn" de-bruijn) + (const :tag "Words" words))) + +(eval-after-load 'avy + '(add-to-list 'avy-styles-alist `(ivy-avy . ,ivy-avy-style))) + +(defun ivy--avy-candidates () + (let (candidates) + (save-excursion + (save-restriction + (narrow-to-region + (window-start) + (window-end)) + (goto-char (point-min)) + (forward-line) + (while (< (point) (point-max)) + (push + (cons (point) + (selected-window)) + candidates) + (forward-line)))) + (nreverse candidates))) + +(defun ivy--avy-action (pt) + (when (number-or-marker-p pt) + (let ((bnd (ivy--minibuffer-index-bounds + ivy--index ivy--length ivy-height))) + (ivy--done + (substring-no-properties + (nth (+ (car bnd) (- (line-number-at-pos pt) 2)) ivy--old-cands)))))) + +(defun ivy--avy-handler-function (char) + (let (cmd) + (cond ((memq char '(27 ?\C-g)) + ;; exit silently + (throw 'done 'abort)) + ((memq (setq cmd (lookup-key ivy-minibuffer-map (vector char))) + '(ivy-scroll-up-command + ivy-scroll-down-command)) + (funcall cmd) + (ivy--exhibit) + (throw 'done 'exit)) + ;; ignore wrong key + (t + (throw 'done 'restart))))) + +(defvar avy-handler-function) + +(defun ivy-avy () + "Jump to one of the current ivy candidates." + (interactive) + (cond ((not (require 'avy nil 'noerror)) + (error "Package avy isn't installed")) + ((= (minibuffer-depth) 0) + (user-error + "This command is intended to be called with \"C-'\" from `ivy-read'.")) + (t + (let* ((avy-all-windows nil) + (avy-keys (or (cdr (assq 'ivy-avy avy-keys-alist)) + avy-keys)) + (avy-style (or (cdr (assq 'ivy-avy avy-styles-alist)) + avy-style)) + (avy-action #'identity) + (avy-handler-function #'ivy--avy-handler-function) + res) + (while (eq (setq res (avy-process (ivy--avy-candidates))) t)) + (when res + (ivy--avy-action res)))))) +(put 'ivy-avy 'no-counsel-M-x t) + +(defun ivy-sort-file-function-default (x y) + "Compare two files X and Y. +Prioritize directories." + (if (get-text-property 0 'dirp x) + (if (get-text-property 0 'dirp y) + (string< (directory-file-name x) (directory-file-name y)) + t) + (if (get-text-property 0 'dirp y) + nil + (string< x y)))) + +(defun ivy-string< (x y) + "Like `string<', but operate on CARs when given cons cells." + (string< (if (consp x) (car x) x) + (if (consp y) (car y) y))) + +(define-obsolete-function-alias 'ivy-sort-file-function-using-ido + 'ido-file-extension-lessp "<2019-10-12 Sat>") + +(defcustom ivy-sort-functions-alist + '((t . ivy-string<)) + "An alist of sorting functions for each collection function. +Interactive functions that call completion fit in here as well. + +Nil means no sorting, which is useful to turn off the sorting for +functions that have candidates in the natural buffer order, like +`org-refile' or `Man-goto-section'. + +A list can be used to associate multiple sorting functions with a +collection. The car of the list is the current sort +function. This list can be rotated with `ivy-rotate-sort'. + +The entry associated with t is used for all fall-through cases. + +See also `ivy-sort-max-size'." + :type + '(alist + :key-type (choice + (const :tag "Fall-through" t) + (symbol :tag "Collection")) + :value-type (choice + (const :tag "Plain sort" string-lessp) + (const :tag "File sort" ivy-sort-file-function-default) + (const :tag "File sort using Ido" ido-file-extension-lessp) + (const :tag "No sort" nil) + (function :tag "Custom function") + (repeat (function :tag "Custom function"))))) + +(defun ivy--sort-function (collection) + "Retrieve sort function for COLLECTION from `ivy-sort-functions-alist'." + (let ((entry (cdr (or (assq collection ivy-sort-functions-alist) + (assq (ivy-state-caller ivy-last) ivy-sort-functions-alist) + (assq t ivy-sort-functions-alist))))) + (and (or (functionp entry) + (functionp (setq entry (car-safe entry)))) + entry))) + +(defun ivy-rotate-sort () + "Rotate through sorting functions available for current collection. +This only has an effect if multiple sorting functions are +specified for the current collection in +`ivy-sort-functions-alist'." + (interactive) + (let ((cell (or (assq (ivy-state-collection ivy-last) ivy-sort-functions-alist) + (assq (ivy-state-caller ivy-last) ivy-sort-functions-alist)))) + (when (consp (cdr cell)) + (setcdr cell (nconc (cddr cell) (list (cadr cell)))) + (ivy--reset-state ivy-last)))) + +(defvar ivy-index-functions-alist + '((t . ivy-recompute-index-zero)) + "An alist of index recomputing functions for each collection function. +When the input changes, the appropriate function returns an +integer - the index of the matched candidate that should be +selected.") + +(defvar ivy-re-builders-alist + '((t . ivy--regex-plus)) + "An alist of regex building functions for each collection function. + +Each key is (in order of priority): +1. The actual collection function, e.g. `read-file-name-internal'. +2. The symbol passed by :caller into `ivy-read'. +3. `this-command'. +4. t. + +Each value is a function that should take a string and return a +valid regex or a regex sequence (see below). + +Possible choices: `ivy--regex', `regexp-quote', +`ivy--regex-plus', `ivy--regex-fuzzy', `ivy--regex-ignore-order'. + +If a function returns a list, it should format like this: +'((\"matching-regexp\" . t) (\"non-matching-regexp\") ...). + +The matches will be filtered in a sequence, you can mix the +regexps that should match and that should not match as you +like.") + +(defvar ivy-highlight-functions-alist + '((ivy--regex-ignore-order . ivy--highlight-ignore-order) + (ivy--regex-fuzzy . ivy--highlight-fuzzy) + (ivy--regex-plus . ivy--highlight-default)) + "An alist of highlighting functions for each regex builder function.") + +(defcustom ivy-initial-inputs-alist + '((org-refile . "^") + (org-agenda-refile . "^") + (org-capture-refile . "^") + (Man-completion-table . "^") + (woman . "^")) + "An alist associating commands with their initial input. + +Each cdr is either a string or a function called in the context +of a call to `ivy-read'." + :type '(alist + :key-type (symbol) + :value-type (choice (string) (function)))) + +(defcustom ivy-hooks-alist nil + "An alist associating commands to setup functions. +Examples: `toggle-input-method', (lambda () (insert \"^\")), etc. +May supersede `ivy-initial-inputs-alist'." + :type '(alist :key-type symbol :value-type function)) + +(defvar ivy--occurs-list nil + "A list of custom occur generators per command.") + +(defun ivy-set-occur (cmd occur) + "Assign CMD a custom OCCUR function." + (setq ivy--occurs-list + (plist-put ivy--occurs-list cmd occur))) + +(defcustom ivy-update-fns-alist nil + "An alist associating commands to their :update-fn values." + :type '(alist + :key-type symbol + :value-type + (radio + (const :tag "Off" nil) + (const :tag "Call action on change" auto)))) + +(defvar ivy-unwind-fns-alist nil + "An alist associating commands to their :unwind values.") + +(defvar ivy-init-fns-alist nil + "An alist associating commands to their :init values. +An :init is a function with no arguments. +`ivy-read' calls it to initialize.") + +(defun ivy--alist-set (alist-sym key val) + (let ((cell (assoc key (symbol-value alist-sym)))) + (if cell + (setcdr cell val) + (set alist-sym (cons (cons key val) + (symbol-value alist-sym)))))) + +(declare-function counsel-set-async-exit-code "counsel") + +(cl-defun ivy-configure (caller + &key + initial-input + height + occur + update-fn + init-fn + unwind-fn + index-fn + sort-fn + format-fn + display-transformer-fn + more-chars + grep-p + exit-codes) + "Configure `ivy-read' params for CALLER." + (declare (indent 1)) + (when initial-input + (ivy--alist-set 'ivy-initial-inputs-alist caller initial-input)) + (when height + (ivy--alist-set 'ivy-height-alist caller height)) + (when occur + (ivy-set-occur caller occur)) + (when update-fn + (ivy--alist-set 'ivy-update-fns-alist caller update-fn)) + (when unwind-fn + (ivy--alist-set 'ivy-unwind-fns-alist caller unwind-fn)) + (when init-fn + (ivy--alist-set 'ivy-init-fns-alist caller init-fn)) + (when index-fn + (ivy--alist-set 'ivy-index-functions-alist caller index-fn)) + (when sort-fn + (ivy--alist-set 'ivy-sort-functions-alist caller sort-fn)) + (when format-fn + (ivy--alist-set 'ivy-format-functions-alist caller format-fn)) + (when display-transformer-fn + (ivy-set-display-transformer caller display-transformer-fn)) + (when more-chars + (ivy--alist-set 'ivy-more-chars-alist caller more-chars)) + (when grep-p + (cl-pushnew caller ivy-highlight-grep-commands)) + (when exit-codes + (let (code msg) + (while (and (setq code (pop exit-codes)) + (setq msg (pop exit-codes))) + (counsel-set-async-exit-code caller code msg))))) + +(defcustom ivy-sort-max-size 30000 + "Sorting won't be done for collections larger than this." + :type 'integer) + +(defalias 'ivy--dirname-p + (if (fboundp 'directory-name-p) + #'directory-name-p + (lambda (name) + "Return non-nil if NAME ends with a directory separator." + (string-match-p "/\\'" name)))) + +(defun ivy--sorted-files (dir) + "Return the list of files in DIR. +Directories come first." + (let* ((default-directory dir) + (seq (condition-case nil + (mapcar (lambda (s) (replace-regexp-in-string "\\$\\$" "$" s)) + (all-completions "" #'read-file-name-internal + (ivy-state-predicate ivy-last))) + (error + (directory-files dir)))) + sort-fn) + (setq seq (delete "./" (delete "../" seq))) + (when (eq (setq sort-fn (ivy--sort-function #'read-file-name-internal)) + #'ivy-sort-file-function-default) + (setq seq (mapcar (lambda (x) + (propertize x 'dirp (ivy--dirname-p x))) + seq))) + (when sort-fn + (setq seq (sort seq sort-fn))) + (dolist (dir ivy-extra-directories) + (push dir seq)) + (if (string= dir "/") + (cl-remove-if (lambda (s) (string-match ":$" s)) (delete "../" seq)) + seq))) + +(defun ivy-alist-setting (alist &optional key) + "Return the value associated with KEY in ALIST, using `assq'. +KEY defaults to the last caller of `ivy-read'; if no entry is +found, it falls back to the key t." + (cdr (or (let ((caller (or key (ivy-state-caller ivy-last)))) + (and caller (assq caller alist))) + (assq t alist)))) + +(defun ivy--height (caller) + (let ((v (or (ivy-alist-setting ivy-height-alist caller) + ivy-height))) + (if (integerp v) + v + (if (functionp v) + (funcall v caller) + (error "Unexpected value: %S" v))))) + +(defun ivy--remove-props (str &rest props) + "Return STR with text PROPS destructively removed." + (ignore-errors + (remove-list-of-text-properties 0 (length str) props str)) + str) + +(defun ivy--update-prompt (prompt) + (cond ((equal prompt "Keyword, C-h: ") + ;; auto-insert.el + "Keyword (C-M-j to end): ") + (t + ;; misearch.el + (replace-regexp-in-string "RET to end" "C-M-j to end" prompt)))) + +;;** Entry Point +;;;###autoload +(cl-defun ivy-read (prompt collection + &key + predicate require-match initial-input + history preselect def keymap update-fn sort + action multi-action + unwind re-builder matcher + dynamic-collection + extra-props + caller) + "Read a string in the minibuffer, with completion. + +PROMPT is a string, normally ending in a colon and a space. +`ivy-count-format' is prepended to PROMPT during completion. + +COLLECTION is either a list of strings, a function, an alist, or +a hash table, supplied for `minibuffer-completion-table'. + +PREDICATE is applied to filter out the COLLECTION immediately. +This argument is for compatibility with `completing-read'. + +When REQUIRE-MATCH is non-nil, only members of COLLECTION can be +selected. + +If INITIAL-INPUT is non-nil, then insert that input in the +minibuffer initially. + +HISTORY is a name of a variable to hold the completion session +history. + +KEYMAP is composed with `ivy-minibuffer-map'. + +PRESELECT, when non-nil, determines which one of the candidates +matching INITIAL-INPUT to select initially. An integer stands +for the position of the desired candidate in the collection, +counting from zero. Otherwise, use the first occurrence of +PRESELECT in the collection. Comparison is first done with +`equal'. If that fails, and when applicable, match PRESELECT as +a regular expression. + +DEF is for compatibility with `completing-read'. + +UPDATE-FN is called each time the candidate list is re-displayed. + +When SORT is non-nil, `ivy-sort-functions-alist' determines how +to sort candidates before displaying them. + +ACTION is a function to call after selecting a candidate. +It takes one argument, the selected candidate. If COLLECTION is +an alist, the argument is a cons cell, otherwise it's a string. + +MULTI-ACTION, when non-nil, is called instead of ACTION when +there are marked candidates. It takes the list of candidates as +its only argument. When it's nil, ACTION is called on each marked +candidate. + +UNWIND is a function of no arguments to call before exiting. + +RE-BUILDER is a function transforming input text into a regex +pattern. + +MATCHER is a function which can override how candidates are +filtered based on user input. It takes a regex pattern and a +list of candidates, and returns the list of matching candidates. + +DYNAMIC-COLLECTION is a boolean specifying whether the list of +candidates is updated after each input by calling COLLECTION. + +EXTRA-PROPS can be used to store collection-specific +session-specific data. + +CALLER is a symbol to uniquely identify the caller to `ivy-read'. +It is used, along with COLLECTION, to determine which +customizations apply to the current completion session." + (let ((init-fn (ivy-alist-setting ivy-init-fns-alist caller))) + (when init-fn + (funcall init-fn))) + ;; get un-stuck from an existing `read-key' overriding minibuffer keys + (when (equal overriding-local-map '(keymap)) + (keyboard-quit)) + (setq caller (or caller this-command)) + (let* ((ivy-recursive-last (and (active-minibuffer-window) ivy-last)) + (ivy--display-function + (when (or ivy-recursive-last + (not (window-minibuffer-p))) + (ivy-alist-setting ivy-display-functions-alist caller)))) + (setq update-fn (or update-fn (ivy-alist-setting ivy-update-fns-alist caller))) + (setq unwind (or unwind (ivy-alist-setting ivy-unwind-fns-alist caller))) + (setq ivy-last + (make-ivy-state + :prompt (ivy--update-prompt prompt) + :collection collection + :predicate predicate + :require-match require-match + :initial-input initial-input + :history history + :preselect preselect + :keymap keymap + :update-fn (if (eq update-fn 'auto) + (lambda () + (with-ivy-window + (funcall + (ivy--get-action ivy-last) + (if (consp (car-safe (ivy-state-collection ivy-last))) + (assoc (ivy-state-current ivy-last) + (ivy-state-collection ivy-last)) + (ivy-state-current ivy-last))))) + update-fn) + :sort sort + :action (ivy--compute-extra-actions action caller) + :multi-action multi-action + :frame (selected-frame) + :window (selected-window) + :buffer (current-buffer) + :unwind unwind + :re-builder re-builder + :matcher matcher + :dynamic-collection dynamic-collection + :display-transformer-fn (plist-get ivy--display-transformers-list caller) + :directory default-directory + :extra-props extra-props + :caller caller + :def def)) + (ivy--reset-state ivy-last) + (unwind-protect + (minibuffer-with-setup-hook + #'ivy--minibuffer-setup + (let* ((hist (or history 'ivy-history)) + (minibuffer-completion-table collection) + (minibuffer-completion-predicate predicate) + (ivy-height (ivy--height caller)) + (resize-mini-windows (unless (display-graphic-p) + 'grow-only))) + (if (and ivy-auto-select-single-candidate + ivy--all-candidates + (null (cdr ivy--all-candidates))) + (progn + (setf (ivy-state-current ivy-last) + (car ivy--all-candidates)) + (setq ivy-exit 'done)) + (read-from-minibuffer + prompt + (ivy-state-initial-input ivy-last) + (make-composed-keymap keymap ivy-minibuffer-map) + nil + hist) + (pop (symbol-value hist))) + (when (eq ivy-exit 'done) + (ivy--update-history hist)))) + (ivy--cleanup)) + (ivy-call))) + +(defun ivy--update-history (hist) + (let ((item (if ivy--directory + (ivy-state-current ivy-last) + ivy-text))) + (unless (equal item "") + (set hist (cons (propertize item 'ivy-index ivy--index) + (delete item (symbol-value hist))))))) + +(defun ivy--cleanup () + ;; Fixes a bug in ESS, #1660 + (put 'post-command-hook 'permanent-local nil) + (remove-hook 'post-command-hook #'ivy--queue-exhibit) + (remove-hook 'window-size-change-functions #'ivy--window-size-changed) + (let ((cleanup (ivy--display-function-prop :cleanup)) + (unwind (ivy-state-unwind ivy-last))) + (when (functionp cleanup) + (funcall cleanup)) + (when unwind + (funcall unwind))) + (ivy--pulse-cleanup) + (unless (eq ivy-exit 'done) + (ivy-recursive-restore))) + +(defun ivy--display-function-prop (prop) + "Return PROP associated with current `ivy--display-function'." + (plist-get (cdr (assq ivy--display-function + ivy-display-functions-props)) + prop)) + +(defvar Info-complete-menu-buffer) + +(defun ivy--reset-state (state) + "Reset the ivy to STATE. +This is useful for recursive `ivy-read'." + (setq ivy-marked-candidates nil) + (unless (equal (selected-frame) (ivy-state-frame state)) + (select-window (active-minibuffer-window))) + (let* ((prompt (or (ivy-state-prompt state) "")) + (collection (ivy-state-collection state)) + (predicate (ivy-state-predicate state)) + (history (ivy-state-history state)) + (preselect (ivy-state-preselect state)) + (re-builder (ivy-state-re-builder state)) + (dynamic-collection (ivy-state-dynamic-collection state)) + (require-match (ivy-state-require-match state)) + (caller (or (ivy-state-caller state) this-command)) + (sort (or (ivy-state-sort state) (assoc caller ivy-sort-functions-alist))) + (initial-input + (or (ivy-state-initial-input state) + (let ((init (ivy-alist-setting ivy-initial-inputs-alist caller))) + (if (functionp init) (funcall init) init)))) + (def (ivy-state-def state))) + (setq ivy--extra-candidates (ivy--compute-extra-candidates caller)) + (setq ivy--directory nil) + (setq ivy-case-fold-search ivy-case-fold-search-default) + (setf (ivy-state-re-builder ivy-last) + (setq ivy--regex-function + (or re-builder + (and (functionp collection) + (cdr (assq collection ivy-re-builders-alist))) + (ivy-alist-setting ivy-re-builders-alist) + #'ivy--regex))) + (setq ivy--subexps 0) + (setq ivy--regexp-quote #'regexp-quote) + (setq ivy--old-text "") + (setq ivy--full-length nil) + (ivy-set-text (or initial-input "")) + (setq ivy--index 0) + (setq ivy-calling nil) + (setq ivy-use-ignore ivy-use-ignore-default) + (setf (ivy-state-ignore state) ivy-use-ignore) + (setq ivy--highlight-function + (or (cdr (assq ivy--regex-function ivy-highlight-functions-alist)) + #'ivy--highlight-default)) + (let ((ivy-recursive-restore nil) + coll sort-fn) + (cond ((eq collection #'Info-read-node-name-1) + (setq coll + (if (equal (bound-and-true-p Info-current-file) "dir") + (mapcar (lambda (x) (format "(%s)" x)) + (delete-dups + (all-completions "(" collection predicate))) + (all-completions "" collection predicate)))) + ((eq collection #'read-file-name-internal) + (require 'tramp) + (when (and (equal def initial-input) + (member "./" ivy-extra-directories)) + (setq def nil)) + (setq ivy--directory default-directory) + (when (and initial-input + (not (equal initial-input ""))) + (cond ((file-directory-p initial-input) + (when (equal (file-name-nondirectory initial-input) "") + (setf (ivy-state-preselect state) (setq preselect nil)) + (setq def nil)) + (setq ivy--directory (file-name-as-directory initial-input)) + (setq initial-input nil) + (when preselect + (let ((preselect-directory + (file-name-directory preselect))) + (when (and preselect-directory + (not (equal + (expand-file-name + preselect-directory) + (expand-file-name ivy--directory)))) + (setf (ivy-state-preselect state) + (setq preselect nil)))))) + ((ignore-errors + (file-exists-p (file-name-directory initial-input))) + (setq ivy--directory (file-name-directory initial-input)) + (setf (ivy-state-preselect state) + (file-name-nondirectory initial-input))))) + (require 'dired) + (when preselect + (let ((preselect-directory (ivy--parent-dir preselect))) + (when (and preselect-directory + (not (string= preselect-directory + default-directory))) + (setq ivy--directory preselect-directory)) + (setq preselect (file-relative-name preselect + preselect-directory)) + (setf (ivy-state-preselect state) preselect))) + (setq sort nil) + (setq coll (ivy--sorted-files ivy--directory)) + (when initial-input + (unless (or require-match + (equal initial-input default-directory) + (equal initial-input "")) + (setq coll (cons initial-input coll))) + (when (or (not (ivy-state-action ivy-last)) + (equal (ivy--get-action ivy-last) 'identity)) + (setq initial-input nil)))) + ((eq collection #'internal-complete-buffer) + (setq coll (ivy--buffer-list + "" + (and ivy-use-virtual-buffers + (member caller '(ivy-switch-buffer + ivy-switch-buffer-other-window + counsel-switch-buffer))) + predicate))) + (dynamic-collection + (setq coll (if (eq this-command 'ivy-resume) + ivy--all-candidates + (ivy--dynamic-collection-cands (or initial-input ""))))) + ((consp (car-safe collection)) + (setq collection (cl-remove-if-not predicate collection)) + (when (and sort (setq sort-fn (ivy--sort-function caller))) + (setq collection (sort (copy-sequence collection) sort-fn)) + (setq sort nil)) + (setf (ivy-state-collection ivy-last) collection) + (setq coll (let ((i -1)) + (mapcar (lambda (x) + (propertize x 'idx (cl-incf i))) + (all-completions "" collection))))) + ((or (functionp collection) + (byte-code-function-p collection) + (vectorp collection) + (hash-table-p collection) + (and (listp collection) (symbolp (car collection)))) + (let ((Info-complete-menu-buffer + ;; FIXME: This is a temporary workaround for issue #1803. + (or (bound-and-true-p Info-complete-menu-buffer) + (ivy-state-buffer state)))) + (setq coll (all-completions "" collection predicate)))) + (t + (setq coll (all-completions "" collection predicate)))) + (unless (ivy-state-dynamic-collection ivy-last) + (setq coll (delete "" coll))) + (when (and sort + (or (functionp collection) + (not (eq history 'org-refile-history))) + (setq sort-fn (ivy--sort-function + (if (functionp collection) collection caller))) + (listp coll) + (null (nthcdr ivy-sort-max-size coll))) + (setq coll (sort (copy-sequence coll) sort-fn))) + (when def + (cond ((stringp (car-safe def)) + (setq coll + (delete-dups + (append def coll)))) + ((and (stringp def) (not (member def coll))) + (push def coll)))) + (setq coll (ivy--set-candidates coll)) + (setq ivy--old-re nil) + (setq ivy--old-cands nil) + (when initial-input + ;; Needed for anchor to work + (setq ivy--old-cands coll) + (setq ivy--old-cands (ivy--filter initial-input coll))) + (unless (setq ivy--trying-to-resume-dynamic-collection + (and preselect dynamic-collection)) + (when (integerp preselect) + (setq ivy--old-re "") + (ivy-set-index preselect))) + (setq ivy--all-candidates coll) + (unless (integerp preselect) + (ivy-set-index (or + (and dynamic-collection + ivy--index) + (and preselect + (ivy--preselect-index + preselect + (if initial-input + ivy--old-cands + coll))) + 0)))) + (setq ivy-exit nil) + (setq ivy--default + (if (region-active-p) + (buffer-substring (region-beginning) (region-end)) + (ivy-thing-at-point))) + (setq ivy--prompt (ivy-add-prompt-count (ivy--quote-format-string prompt))) + (setq ivy--use-selectable-prompt (ivy--prompt-selectable-p)) + (setf (ivy-state-initial-input ivy-last) initial-input))) + +(defun ivy-add-prompt-count (prompt) + "Add count information to PROMPT." + (cond ((null ivy-count-format) + (error + "`ivy-count-format' can't be nil. Set it to \"\" instead")) + ((string-match "%d.*\\(%d\\)" ivy-count-format) + (let* ((w + (if (listp ivy--all-candidates) + (1+ (floor (log (max 1 (length ivy--all-candidates)) 10))) + 1)) + (s (replace-match (format "%%-%dd" w) t t ivy-count-format 1))) + (string-match "%d" s) + (concat (replace-match (format "%%%dd" w) t t s) + prompt))) + ((string-match-p "%.*d" ivy-count-format) + (concat ivy-count-format prompt)) + (ivy--directory + prompt) + (t + prompt))) + +(defun ivy--quote-format-string (str) + "Make STR suitable for `format' with no extra arguments." + (replace-regexp-in-string "%" "%%" str t t)) + +;;;###autoload +(defun ivy-completing-read (prompt collection + &optional predicate require-match initial-input + history def inherit-input-method) + "Read a string in the minibuffer, with completion. + +This interface conforms to `completing-read' and can be used for +`completing-read-function'. + +PROMPT is a string that normally ends in a colon and a space. +COLLECTION is either a list of strings, an alist, an obarray, or a hash table. +PREDICATE limits completion to a subset of COLLECTION. +REQUIRE-MATCH is a boolean value or a symbol. See `completing-read'. +INITIAL-INPUT is a string inserted into the minibuffer initially. +HISTORY is a list of previously selected inputs. +DEF is the default value. +INHERIT-INPUT-METHOD is currently ignored." + (let ((handler + (and (< ivy-completing-read-ignore-handlers-depth (minibuffer-depth)) + (assq this-command ivy-completing-read-handlers-alist)))) + (if handler + (let ((completion-in-region-function #'completion--in-region) + (ivy-completing-read-ignore-handlers-depth (1+ (minibuffer-depth)))) + (funcall (cdr handler) + prompt collection + predicate require-match + initial-input history + def inherit-input-method)) + ;; See the doc of `completing-read'. + (when (consp history) + (when (numberp (cdr history)) + (setq initial-input (nth (1- (cdr history)) + (symbol-value (car history))))) + (setq history (car history))) + (when (consp def) + (setq def (car def))) + (let ((str (ivy-read + prompt collection + :predicate predicate + :require-match (when (and collection require-match) + require-match) + :initial-input (cond ((consp initial-input) + (car initial-input)) + ((and (stringp initial-input) + (not (eq collection #'read-file-name-internal)) + (string-match-p "\\+" initial-input)) + (replace-regexp-in-string + "\\+" "\\\\+" initial-input)) + (t + initial-input)) + :preselect def + :def def + :history history + :keymap nil + :dynamic-collection ivy-completing-read-dynamic-collection + :caller (if (and collection (symbolp collection)) + collection + this-command)))) + (if (string= str "") + ;; For `completing-read' compat, return the first element of + ;; DEFAULT, if it is a list; "", if DEFAULT is nil; or DEFAULT. + (or def "") + str))))) + +(defun ivy-completing-read-with-empty-string-def + (prompt collection + &optional predicate require-match initial-input + history def inherit-input-method) + "Same as `ivy-completing-read' but with different handling of DEF. + +Specifically, if DEF is nil, it is treated the same as if DEF was +the empty string. This mimics the behavior of +`completing-read-default'. This function can therefore be used in +place of `ivy-completing-read' for commands that rely on this +behavior." + (ivy-completing-read + prompt collection predicate require-match initial-input + history (or def "") inherit-input-method)) + +(declare-function mc/all-fake-cursors "ext:multiple-cursors-core") + +(defun ivy-completion-in-region-action (str) + "Insert STR, erasing the previous one. +The previous string is between `ivy-completion-beg' and `ivy-completion-end'." + (when (consp str) + (setq str (cdr str))) + (when (stringp str) + (let ((fake-cursors (and (require 'multiple-cursors-core nil t) + (mc/all-fake-cursors))) + (pt (point)) + (beg ivy-completion-beg) + (end ivy-completion-end)) + (when beg + (delete-region beg end)) + (setq ivy-completion-beg (point)) + (insert (substring-no-properties str)) + (completion--done str 'exact) + (setq ivy-completion-end (point)) + (save-excursion + (dolist (cursor fake-cursors) + (goto-char (overlay-start cursor)) + (delete-region (+ (point) (- beg pt)) + (+ (point) (- end pt))) + (insert (substring-no-properties str)) + ;; manually move the fake cursor + (move-overlay cursor (point) (1+ (point))) + (set-marker (overlay-get cursor 'point) (point)) + (set-marker (overlay-get cursor 'mark) (point))))))) + +(defun ivy-completion-common-length (str) + "Return the amount of characters that match in STR. + +`completion-all-completions' computes this and returns the result +via text properties. + +The first non-matching part is propertized: +- either with: (face (completions-first-difference)) +- or: (font-lock-face completions-first-difference)." + (let ((char-property-alias-alist '((face font-lock-face))) + (i (1- (length str)))) + (catch 'done + (while (>= i 0) + (when (equal (get-text-property i 'face str) + '(completions-first-difference)) + (throw 'done i)) + (cl-decf i)) + (throw 'done (length str))))) + +(defun ivy-completion-in-region (start end collection &optional predicate) + "An Ivy function suitable for `completion-in-region-function'. +The function completes the text between START and END using COLLECTION. +PREDICATE (a function called with no arguments) says when to exit. +See `completion-in-region' for further information." + (let* ((enable-recursive-minibuffers t) + (str (buffer-substring-no-properties start end)) + (completion-ignore-case (ivy--case-fold-p str)) + (comps + (completion-all-completions str collection predicate (- end start)))) + (cond ((null comps) + (message "No matches")) + ((progn + (nconc comps nil) + (and (null (cdr comps)) + (string= str (car comps)))) + (message "Sole match")) + (t + (when (eq collection 'crm--collection-fn) + (setq comps (delete-dups comps))) + (let* ((len (ivy-completion-common-length (car comps))) + (initial (cond ((= len 0) + "") + ((let ((str-len (length str))) + (when (> len str-len) + (setq len str-len) + str))) + (t + (substring str (- len)))))) + (setq ivy--old-re nil) + (unless (ivy--filter initial comps) + (setq initial nil)) + (delete-region (- end len) end) + (setq ivy-completion-beg (- end len)) + (setq ivy-completion-end ivy-completion-beg) + (if (null (cdr comps)) + (progn + (unless (minibuffer-window-active-p (selected-window)) + (setf (ivy-state-window ivy-last) (selected-window))) + (ivy-completion-in-region-action + (substring-no-properties (car comps)))) + (dolist (s comps) + ;; Remove face `completions-first-difference'. + (ivy--remove-props s 'face)) + (ivy-read (format "(%s): " str) comps + ;; Predicate was already applied by + ;; `completion-all-completions'. + :predicate nil + :initial-input initial + :action #'ivy-completion-in-region-action + :unwind (lambda () + (unless (eq ivy-exit 'done) + (goto-char ivy-completion-beg) + (when initial + (insert initial)))) + :caller 'ivy-completion-in-region) + t)))))) + +(defun ivy-completion-in-region-prompt () + "Prompt function for `ivy-completion-in-region'. +See `ivy-set-prompt'." + (and (window-minibuffer-p (ivy-state-window ivy-last)) + (ivy-add-prompt-count (ivy-state-prompt ivy-last)))) + +(ivy-set-prompt #'ivy-completion-in-region #'ivy-completion-in-region-prompt) + +(defcustom ivy-do-completion-in-region t + "When non-nil `ivy-mode' will set `completion-in-region-function'." + :type 'boolean) + +;;;###autoload +(define-minor-mode ivy-mode + "Toggle Ivy mode on or off. +Turn Ivy mode on if ARG is positive, off otherwise. +Turning on Ivy mode sets `completing-read-function' to +`ivy-completing-read'. + +Global bindings: +\\{ivy-mode-map} + +Minibuffer bindings: +\\{ivy-minibuffer-map}" + :group 'ivy + :global t + :keymap ivy-mode-map + :lighter " ivy" + (if ivy-mode + (progn + (setq completing-read-function 'ivy-completing-read) + (when ivy-do-completion-in-region + (setq completion-in-region-function 'ivy-completion-in-region))) + (setq completing-read-function 'completing-read-default) + (setq completion-in-region-function 'completion--in-region))) + +(defun ivy--preselect-index (preselect candidates) + "Return the index of PRESELECT in CANDIDATES." + (cond ((integerp preselect) + (if (integerp (car candidates)) + (cl-position preselect candidates) + preselect)) + ((cl-position preselect candidates :test #'equal)) + ((ivy--regex-p preselect) + (cl-position preselect candidates :test #'string-match-p)))) + +;;* Implementation +;;** Regex +(defun ivy-re-match (re-seq str) + "Return non-nil if RE-SEQ is matched by STR. + +RE-SEQ is a list of (RE . MATCH-P). + +RE is a regular expression. + +MATCH-P is t when RE should match STR and nil when RE should not +match STR. + +Each element of RE-SEQ must match for the function to return true. + +This concept is used to generalize regular expressions for +`ivy--regex-plus' and `ivy--regex-ignore-order'." + (let ((res t) + re) + (while (and res (setq re (pop re-seq))) + (setq res + (if (cdr re) + (string-match-p (car re) str) + (not (string-match-p (car re) str))))) + res)) + +(defvar ivy--regex-hash + (make-hash-table :test #'equal) + "Store pre-computed regex.") + +(defvar ivy--input-garbage nil) + +(defun ivy--split (str) + "Split STR into list of substrings bounded by spaces. +Single spaces act as splitting points. Consecutive spaces +\"quote\" their preceding spaces, i.e., guard them from being +split. This allows the literal interpretation of N spaces by +inputting N+1 spaces. Any substring not constituting a valid +regexp is passed to `regexp-quote'." + (let ((len (length str)) + (i 0) + (start 0) + (res nil) + match-len + end + c) + (catch 'break + (while (< i len) + (setq c (aref str i)) + (cond ((= ?\[ c) + (if (setq end (ivy--match-regex-brackets + (substring str i))) + (progn + (push (substring str start (+ i end)) res) + (cl-incf i end) + (setq start i)) + (setq ivy--input-garbage (substring str i)) + (throw 'break nil))) + ((= ?\\ c) + (if (and (< (1+ i) len) (= ?\( (aref str (1+ i)))) + (progn + (when (> i start) + (push (substring str start i) res)) + (if (eq (string-match "\\\\([^\0]*?\\\\)" str i) i) + (progn + (push (match-string 0 str) res) + (setq i (match-end 0)) + (setq start i)) + (setq ivy--input-garbage (substring str i)) + (throw 'break nil))) + (cl-incf i))) + ((= ?\ c) + (string-match " +" str i) + (setq match-len (- (match-end 0) (match-beginning 0))) + (if (= match-len 1) + (progn + (when (> i start) + (push (substring str start i) res)) + (setq start (1+ i))) + (setq str (replace-match + (make-string (1- match-len) ?\ ) + nil nil str)) + (setq len (length str)) + (cl-incf i (1- match-len))) + (cl-incf i)) + (t + (cl-incf i))))) + (when (< start i) + (push (substring str start) res)) + (mapcar #'ivy--regex-or-literal (nreverse res)))) + +(defun ivy--match-regex-brackets (str) + (let ((len (length str)) + (i 1) + (open-count 1) + c) + (while (and (< i len) + (> open-count 0)) + (setq c (aref str i)) + (cond ((= c ?\[) + (cl-incf open-count)) + ((= c ?\]) + (cl-decf open-count))) + (cl-incf i)) + (when (= open-count 0) + (if (eq (string-match "[+*?]" str i) i) + (match-end 0) + i)))) + +(defun ivy--trim-trailing-re (regex) + "Trim incomplete REGEX. +If REGEX ends with \\|, trim it, since then it matches an empty string." + (if (string-match "\\`\\(.*\\)[\\]|\\'" regex) + (match-string 1 regex) + regex)) + +(defun ivy--regex (str &optional greedy) + "Re-build regex pattern from STR in case it has a space. +When GREEDY is non-nil, join words in a greedy way." + (let ((hashed (unless greedy + (gethash str ivy--regex-hash)))) + (if hashed + (progn + (setq ivy--subexps (car hashed)) + (cdr hashed)) + (when (string-match-p "\\(?:[^\\]\\|^\\)\\\\\\'" str) + (setq str (substring str 0 -1))) + (setq str (ivy--trim-trailing-re str)) + (cdr (puthash str + (let ((subs (ivy--split str))) + (if (= (length subs) 1) + (cons + (setq ivy--subexps 0) + (if (string-match-p "\\`\\.[^.]" (car subs)) + (concat "\\." (substring (car subs) 1)) + (car subs))) + (cons + (setq ivy--subexps (length subs)) + (replace-regexp-in-string + "\\.\\*\\??\\\\( " + "\\( " + (mapconcat + (lambda (x) + (if (string-match-p "\\`\\\\([^?][^\0]*\\\\)\\'" x) + x + (format "\\(%s\\)" x))) + subs + (if greedy ".*" ".*?")) + nil t)))) + ivy--regex-hash))))) + +(defun ivy--regex-p (object) + "Return OBJECT if it is a valid regular expression, else nil." + (ignore-errors (string-match-p object "") object)) + +(defun ivy--regex-or-literal (str) + "If STR isn't a legal regexp, escape it." + (or (ivy--regex-p str) (regexp-quote str))) + +(defun ivy--split-negation (str) + "Split STR into text before and after ! delimiter. +Do not split if the delimiter is escaped as \\!. + +Assumes there is at most one un-escaped delimiter and discards +text after delimiter if it is empty. Modifies match data." + (unless (string= str "") + (let ((delim "\\(?:\\`\\|[^\\]\\)\\(!\\)")) + (mapcar (lambda (split) + ;; Store "\!" as "!". + (replace-regexp-in-string "\\\\!" "!" split t t)) + (if (string-match delim str) + ;; Ignore everything past first un-escaped ! rather than + ;; crashing. We can't warn or error because the minibuffer is + ;; already active. + (let* ((i (match-beginning 1)) + (j (and (string-match delim str (1+ i)) + (match-beginning 1))) + (neg (substring str (1+ i) j))) + (cons (substring str 0 i) + (and (not (string= neg "")) + (list neg)))) + (list str)))))) + +(defun ivy--split-spaces (str) + "Split STR on spaces, unless they're preceded by \\. +No un-escaped spaces are left in the output. Any substring not +constituting a valid regexp is passed to `regexp-quote'." + (when str + (let ((i 0) ; End of last search. + (j 0) ; End of last delimiter. + parts) + (while (string-match "\\(\\\\ \\)\\| +" str i) + (setq i (match-end 0)) + (if (not (match-beginning 1)) + ;; Un-escaped space(s). + (let ((delim (match-beginning 0))) + (when (< j delim) + (push (substring str j delim) parts)) + (setq j i)) + ;; Store "\ " as " ". + (setq str (replace-match " " t t str 1)) + (setq i (1- i)))) + (when (< j (length str)) + (push (substring str j) parts)) + (mapcar #'ivy--regex-or-literal (nreverse parts))))) + +(defun ivy--regex-ignore-order (str) + "Re-build regex from STR by splitting at spaces and using ! for negation. + +Examples: +foo -> matches \"foo\" +foo bar -> matches if both \"foo\" and \"bar\" match (any order) +foo !bar -> matches if \"foo\" matches and \"bar\" does not match +foo !bar baz -> matches if \"foo\" matches and neither \"bar\" nor \"baz\" match +foo[a-z] -> matches \"foo[a-z]\" + +Escaping examples: +foo\\!bar -> matches \"foo!bar\" +foo\\ bar -> matches \"foo bar\" + +Returns a list suitable for `ivy-re-match'." + (setq str (ivy--trim-trailing-re str)) + (let* (regex-parts + (raw-parts (ivy--split-negation str))) + (dolist (part (ivy--split-spaces (car raw-parts))) + (push (cons part t) regex-parts)) + (when (cdr raw-parts) + (dolist (part (ivy--split-spaces (cadr raw-parts))) + (push (cons part nil) regex-parts))) + (if regex-parts (nreverse regex-parts) + ""))) + +(defun ivy--regex-plus (str) + "Build a regex sequence from STR. +Spaces are wild card characters, everything before \"!\" should +match. Everything after \"!\" should not match." + (let ((parts (ivy--split-negation str))) + (cl-case (length parts) + (0 + "") + (1 + (if (= (aref str 0) ?!) + (list (cons "" t) + (list (ivy--regex (car parts)))) + (ivy--regex (car parts)))) + (2 + (cons + (cons (ivy--regex (car parts)) t) + (mapcar #'list (split-string (cadr parts) " " t)))) + (t (error "Unexpected: use only one !"))))) + +(defun ivy--regex-fuzzy (str) + "Build a regex sequence from STR. +Insert .* between each char." + (setq str (ivy--trim-trailing-re str)) + (if (string-match "\\`\\(\\^?\\)\\(.*?\\)\\(\\$?\\)\\'" str) + (prog1 + (concat (match-string 1 str) + (let ((lst (string-to-list (match-string 2 str)))) + (apply #'concat + (cl-mapcar + #'concat + (cons "" (cdr (mapcar (lambda (c) (format "[^%c\n]*" c)) + lst))) + (mapcar (lambda (x) (format "\\(%s\\)" (regexp-quote (char-to-string x)))) + lst)))) + (match-string 3 str)) + (setq ivy--subexps (length (match-string 2 str)))) + str)) + +(defcustom ivy-fixed-height-minibuffer nil + "When non nil, fix the height of the minibuffer during ivy completion. +This effectively sets the minimum height at this level to `ivy-height' and +tries to ensure that it does not change depending on the number of candidates." + :type 'boolean) + +;;** Rest +(defcustom ivy-truncate-lines t + "Minibuffer setting for `truncate-lines'." + :type 'boolean) + +(defun ivy--minibuffer-setup () + "Setup ivy completion in the minibuffer." + (setq-local mwheel-scroll-up-function 'ivy-next-line) + (setq-local mwheel-scroll-down-function 'ivy-previous-line) + (setq-local completion-show-inline-help nil) + (setq-local line-spacing nil) + (setq-local minibuffer-default-add-function + (lambda () + (list ivy--default))) + (setq-local inhibit-field-text-motion nil) + (setq truncate-lines ivy-truncate-lines) + (setq-local max-mini-window-height ivy-height) + (let ((height (cond ((and ivy-fixed-height-minibuffer + (not (eq (ivy-state-caller ivy-last) + #'ivy-completion-in-region))) + (+ ivy-height (if ivy-add-newline-after-prompt 1 0))) + (ivy-add-newline-after-prompt 2)))) + (when height + (set-window-text-height nil height))) + (add-hook 'post-command-hook #'ivy--queue-exhibit nil t) + (add-hook 'window-size-change-functions #'ivy--window-size-changed nil t) + (let ((hook (ivy-alist-setting ivy-hooks-alist))) + (when (functionp hook) + (funcall hook)))) + +(defun ivy--input () + "Return the current minibuffer input." + ;; assume one-line minibuffer input + (save-excursion + (goto-char (minibuffer-prompt-end)) + (let ((inhibit-field-text-motion t)) + (buffer-substring-no-properties + (point) + (line-end-position))))) + +(defun ivy--minibuffer-cleanup () + "Delete the displayed completion candidates." + (save-excursion + (goto-char (minibuffer-prompt-end)) + (delete-region (line-end-position) (point-max)))) + +(defun ivy-cleanup-string (str) + "Destructively remove unwanted text properties from STR." + (ivy--remove-props str 'field)) + +(defvar ivy-set-prompt-text-properties-function + #'ivy-set-prompt-text-properties-default + "Function to set the text properties of the default ivy prompt. +Called with two arguments, PROMPT and PROPS, where PROMPT is the +string to be propertized and PROPS is a plist of default text +properties that may be applied to PROMPT. The function should +return the propertized PROMPT, which may be modified in-place.") + +(defun ivy-set-prompt-text-properties-default (prompt props) + "Propertize (confirm) and (match required) parts of PROMPT. +PROPS is a plist of default text properties to apply to these +parts beyond their respective faces `ivy-confirm-face' and +`ivy-match-required-face'." + (dolist (pair '(("confirm" . ivy-confirm-face) + ("match required" . ivy-match-required-face))) + (let ((i (string-match-p (car pair) prompt))) + (when i + (add-text-properties i (+ i (length (car pair))) + `(face ,(cdr pair) ,@props) + prompt)))) + prompt) + +(defun ivy-prompt () + "Return the current prompt." + (let* ((caller (ivy-state-caller ivy-last)) + (fn (plist-get ivy--prompts-list caller))) + (if fn + (condition-case err + (funcall fn) + (wrong-number-of-arguments + (lwarn 'ivy :error "%s + Prompt function set via `ivy-set-prompt' for caller `%s' + should take no arguments." + (error-message-string err) + caller) + ;; Old behavior. + (funcall fn (ivy-state-prompt ivy-last)))) + ivy--prompt))) + +(defun ivy--insert-prompt () + "Update the prompt according to `ivy--prompt'." + (when (setq ivy--prompt (ivy-prompt)) + (unless (memq this-command '(ivy-done ivy-alt-done ivy-partial-or-done + counsel-find-symbol)) + (setq ivy--prompt-extra "")) + (let (head tail) + (if (string-match "\\(.*?\\)\\(:? ?\\)\\'" ivy--prompt) + (progn + (setq head (match-string 1 ivy--prompt)) + (setq tail (match-string 2 ivy--prompt))) + (setq head ivy--prompt) + (setq tail "")) + (let ((inhibit-read-only t) + (std-props '(front-sticky t rear-nonsticky t field t read-only t)) + (n-str + (concat + (if (and (bound-and-true-p minibuffer-depth-indicate-mode) + (> (minibuffer-depth) 1)) + (format "[%d] " (minibuffer-depth)) + "") + (concat + (if (string-match "%d.*%d" ivy-count-format) + (format head + (1+ ivy--index) + (or (and (ivy-state-dynamic-collection ivy-last) + ivy--full-length) + ivy--length)) + (format head + (or (and (ivy-state-dynamic-collection ivy-last) + ivy--full-length) + ivy--length))) + ivy--prompt-extra + tail))) + (d-str (if ivy--directory + (abbreviate-file-name ivy--directory) + ""))) + (save-excursion + (goto-char (point-min)) + (delete-region (point-min) (minibuffer-prompt-end)) + (let ((len-n (length n-str)) + (len-d (length d-str)) + (ww (window-width))) + (setq n-str + (cond ((> (+ len-n len-d) ww) + (concat n-str "\n" d-str "\n")) + ((> (+ len-n len-d (length ivy-text)) ww) + (concat n-str d-str "\n")) + (t + (concat n-str d-str))))) + (when ivy-pre-prompt-function + (setq n-str (concat (funcall ivy-pre-prompt-function) n-str))) + (when ivy-add-newline-after-prompt + (setq n-str (concat n-str "\n"))) + (let ((regex (format "\\([^\n]\\{%d\\}\\)[^\n]" (window-width)))) + (while (string-match regex n-str) + (setq n-str (replace-match + (concat (match-string 1 n-str) "\n") + nil t n-str 1)))) + (set-text-properties 0 (length n-str) + `(face minibuffer-prompt ,@std-props) + n-str) + (setq n-str (funcall ivy-set-prompt-text-properties-function + n-str std-props)) + (insert n-str)) + ;; Mark prompt as selected if the user moves there or it is the only + ;; option left. Since the user input stays put, we have to manually + ;; remove the face as well. + (when ivy--use-selectable-prompt + (if (= ivy--index -1) + (ivy-add-face-text-property + (minibuffer-prompt-end) (line-end-position) 'ivy-prompt-match) + (remove-list-of-text-properties + (minibuffer-prompt-end) (line-end-position) '(face)))) + ;; get out of the prompt area + (constrain-to-field nil (point-max)))))) + +(defun ivy--sort-maybe (collection) + "Sort COLLECTION if needed." + (let ((sort (ivy-state-sort ivy-last))) + (if (and sort + (or (functionp sort) + (functionp (setq sort (ivy--sort-function + (ivy-state-collection ivy-last)))))) + (sort (copy-sequence collection) sort) + collection))) + +(defcustom ivy-magic-slash-non-match-action 'ivy-magic-slash-non-match-cd-selected + "Action to take when a slash is added to the end of a non existing directory. +Possible choices are 'ivy-magic-slash-non-match-cd-selected, +'ivy-magic-slash-non-match-create, or nil" + :type '(choice + (const :tag "Use currently selected directory" + ivy-magic-slash-non-match-cd-selected) + (const :tag "Create and use new directory" + ivy-magic-slash-non-match-create) + (const :tag "Do nothing" + nil))) + +(defun ivy--create-and-cd (dir) + "When completing file names, create directory DIR and move there." + (make-directory dir) + (ivy--cd dir)) + +(defun ivy--magic-file-doubleslash-directory () + "Return an appropriate directory for when two slashes are entered." + (let (remote) + (cond + ;; Windows + ;; ((string-match "\\`[[:alpha:]]:/" ivy--directory) + ;; (match-string 0 ivy--directory)) + ;; Remote root if on remote + ((setq remote (file-remote-p ivy--directory)) + (concat remote "/")) + ;; Local root + (t + "/")))) + +(defun ivy--magic-file-slash () + "Handle slash when completing file names." + (when (or (and (eq this-command #'self-insert-command) + (eolp)) + (eq this-command #'ivy-partial-or-done)) + (let ((canonical (expand-file-name ivy-text ivy--directory)) + (magic (not (string= ivy-text "/")))) + (cond ((member ivy-text ivy--all-candidates) + (ivy--cd canonical)) + ((and (eq system-type 'windows-nt) (string= ivy-text "//"))) + ((string-match-p "//\\'" ivy-text) + (ivy--cd + (ivy--magic-file-doubleslash-directory))) + ((string-match-p "\\`/ssh:" ivy-text) + (ivy--cd (file-name-directory ivy-text))) + ((string-match "[[:alpha:]]:/\\'" ivy-text) + (let ((drive-root (match-string 0 ivy-text))) + (when (file-exists-p drive-root) + (ivy--cd drive-root)))) + ((and magic (file-directory-p canonical)) + (ivy--cd canonical)) + ((let ((default-directory ivy--directory)) + (and (or (> ivy--index 0) + (= ivy--length 1) + magic) + (not (ivy--prompt-selected-p)) + (not (equal (ivy-state-current ivy-last) "")) + (file-directory-p (ivy-state-current ivy-last)) + (or (eq ivy-magic-slash-non-match-action + 'ivy-magic-slash-non-match-cd-selected) + (eq this-command #'ivy-partial-or-done)))) + (ivy--cd + (expand-file-name (ivy-state-current ivy-last) ivy--directory))) + ((and (eq ivy-magic-slash-non-match-action + 'ivy-magic-slash-non-match-create) + magic) + (ivy--create-and-cd canonical)))))) + +(defun ivy-magic-read-file-env () + "If reading filename, jump to environment variable location." + (interactive) + (if (and ivy--directory + (equal ivy-text "")) + (let* ((cands (cl-loop for pair in process-environment + for (var val) = (split-string pair "=" t) + if (and val (not (equal "" val))) + if (file-exists-p + (if (file-name-absolute-p val) + val + (setq val + (expand-file-name val ivy--directory)))) + collect (cons var val))) + (enable-recursive-minibuffers t) + (x (ivy-read "Env: " cands)) + (path (cdr (assoc x cands)))) + (insert (if (file-accessible-directory-p path) + (file-name-as-directory path) + path)) + (ivy--cd-maybe)) + (insert last-input-event))) + +(defun ivy-make-magic-action (caller key) + "Return a command that does the equivalent of `ivy-read-action' and KEY. +This happens only when the input is empty. +The intention is to bind the result to keys that are typically +bound to `self-insert-command'." + (let* ((alist (assoc key + (plist-get + ivy--actions-list + caller))) + (doc (format "%s (`%S')" + (nth 2 alist) + (nth 1 alist)))) + `(lambda (&optional arg) + ,doc + (interactive "p") + (if (string= "" ivy-text) + (execute-kbd-macro + (kbd ,(concat "M-o " key))) + (self-insert-command arg))))) + +(defcustom ivy-magic-tilde t + "When non-nil, ~ will move home when selecting files. +Otherwise, ~/ will move home." + :type 'boolean) + +(defcustom ivy-dynamic-exhibit-delay-ms 0 + "Delay in ms before dynamic collections are refreshed" + :type 'integer) + +(defvar ivy--exhibit-timer nil) + +(defun ivy--queue-exhibit () + "Insert Ivy completions display, possibly after a timeout for +dynamic collections. +Should be run via minibuffer `post-command-hook'." + (if (and (> ivy-dynamic-exhibit-delay-ms 0) + (ivy-state-dynamic-collection ivy-last)) + (progn + (when ivy--exhibit-timer (cancel-timer ivy--exhibit-timer)) + (setq ivy--exhibit-timer + (run-with-timer + (/ ivy-dynamic-exhibit-delay-ms 1000.0) + nil + 'ivy--exhibit))) + (ivy--exhibit))) + +(unless (fboundp 'file-local-name) + (defun file-local-name (file) + "Emacs has this function since 26.1." + (or (file-remote-p file 'localname) file))) + +(defun ivy--magic-tilde-directory (dir) + "Return an appropriate home for DIR for when ~ or ~/ are entered." + (file-name-as-directory + (expand-file-name + (let* ((home (expand-file-name (concat (file-remote-p dir) "~/"))) + (dir-path (file-local-name dir)) + (home-path (file-local-name home))) + (if (string= dir-path home-path) + "~" + home))))) + +(defun ivy-update-candidates (cands) + (ivy--insert-minibuffer + (ivy--format + (setq ivy--all-candidates cands)))) + +(defun ivy--exhibit () + "Insert Ivy completions display. +Should be run via minibuffer `post-command-hook'." + (when (memq 'ivy--queue-exhibit post-command-hook) + (let ((inhibit-field-text-motion nil)) + (constrain-to-field nil (point-max))) + (ivy-set-text (ivy--input)) + (let ((new-minibuffer (ivy--update-minibuffer))) + (when new-minibuffer + (ivy--insert-minibuffer new-minibuffer))) + t)) + +(defun ivy--dynamic-collection-cands (input) + (let ((coll (funcall (ivy-state-collection ivy-last) input))) + (if (listp coll) + (mapcar (lambda (x) (if (consp x) (car x) x)) coll) + coll))) + +(defun ivy--update-minibuffer () + (prog1 + (if (ivy-state-dynamic-collection ivy-last) + ;; while-no-input would cause annoying + ;; "Waiting for process to die...done" message interruptions + (let ((inhibit-message t) + coll in-progress) + (unless (or (equal ivy--old-text ivy-text) + (eq this-command 'ivy-resume)) + (while-no-input + (setq coll (ivy--dynamic-collection-cands ivy-text)) + (when (eq coll 0) + (setq coll nil) + (setq ivy--old-re nil) + (setq in-progress t)) + (setq ivy--all-candidates (ivy--sort-maybe coll)))) + (when (eq ivy--all-candidates 0) + (setq ivy--all-candidates nil) + (setq ivy--old-re nil) + (setq in-progress t)) + (when (or ivy--all-candidates + (and (not (get-process " *counsel*")) + (not in-progress))) + (ivy--set-index-dynamic-collection) + (ivy--format ivy--all-candidates))) + (cond (ivy--directory + (cond ((or (string= "~/" ivy-text) + (and (string= "~" ivy-text) + ivy-magic-tilde)) + (ivy--cd (ivy--magic-tilde-directory ivy--directory))) + ((string-match "/\\'" ivy-text) + (ivy--magic-file-slash)))) + ((eq (ivy-state-collection ivy-last) #'internal-complete-buffer) + (when (or (and (string-match "\\` " ivy-text) + (not (string-match "\\` " ivy--old-text))) + (and (string-match "\\` " ivy--old-text) + (not (string-match "\\` " ivy-text)))) + (setq ivy--all-candidates + (if (= (string-to-char ivy-text) ?\s) + (ivy--buffer-list " ") + (ivy--buffer-list "" ivy-use-virtual-buffers))) + (setq ivy--old-re nil)))) + (with-current-buffer (ivy-state-buffer ivy-last) + (ivy--format + (ivy--filter ivy-text ivy--all-candidates)))) + (setq ivy--old-text ivy-text))) + +(defun ivy-display-function-fallback (str) + (let ((buffer-undo-list t)) + (save-excursion + (forward-line 1) + (insert str)))) + +(defun ivy--insert-minibuffer (text) + "Insert TEXT into minibuffer with appropriate cleanup." + (let ((resize-mini-windows nil) + (update-fn (ivy-state-update-fn ivy-last)) + (old-mark (marker-position (mark-marker))) + (win (active-minibuffer-window)) + deactivate-mark) + (when win + (with-selected-window win + (ivy--minibuffer-cleanup) + (when update-fn + (funcall update-fn)) + (ivy--insert-prompt) + ;; Do nothing if while-no-input was aborted. + (when (stringp text) + (if ivy--display-function + (funcall ivy--display-function text) + (ivy-display-function-fallback text))) + (ivy--resize-minibuffer-to-fit) + ;; prevent region growing due to text remove/add + (when (region-active-p) + (set-mark old-mark)))))) + +(defcustom ivy-auto-shrink-minibuffer nil + "When non-nil and the height < `ivy-height', auto-shrink the minibuffer." + :type 'boolean) + +(defun ivy--resize-minibuffer-to-fit () + "Resize the minibuffer window size to fit the text in the minibuffer." + (unless (or (frame-root-window-p (minibuffer-window)) + (memq this-command '(ivy-read-action + ivy-dispatching-done + ivy-dispatching-call))) + (with-selected-window (minibuffer-window) + (if (fboundp 'window-text-pixel-size) + (let ((text-height (cdr (window-text-pixel-size))) + (body-height (window-body-height nil t))) + (cond ((> text-height body-height) + ;; Note: the size increment needs to be at least + ;; frame-char-height, otherwise resizing won't do + ;; anything. + (let ((delta (max (- text-height body-height) + (frame-char-height)))) + (window-resize nil delta nil t t))) + ((and ivy-auto-shrink-minibuffer + (< ivy--length ivy-height)) + (shrink-window (- + (/ (window-body-height nil t) + (frame-char-height)) + ivy--length 1))))) + (let ((text-height (count-screen-lines)) + (body-height (window-body-height))) + (when (> text-height body-height) + (window-resize nil (- text-height body-height) nil t))))))) + +(defun ivy--window-size-changed (&rest _) + "Resize ivy window to fit with current frame's size." + (when ivy-mode + (ivy--resize-minibuffer-to-fit))) + +(defun ivy--add-face (str face) + "Propertize STR with FACE." + (let ((len (length str))) + (condition-case nil + (progn + (colir-blend-face-background 0 len face str) + (let ((foreground (face-foreground face))) + (when foreground + (ivy-add-face-text-property + 0 len (list :foreground foreground) str)))) + (error + (ignore-errors + (font-lock-append-text-property 0 len 'face face str))))) + str) + +(declare-function flx-make-string-cache "ext:flx") +(declare-function flx-score "ext:flx") + +(defvar ivy--flx-cache nil) + +(eval-after-load 'flx + '(setq ivy--flx-cache (flx-make-string-cache))) + +(defun ivy-toggle-case-fold () + "Toggle `case-fold-search' for Ivy operations. + +Instead of modifying `case-fold-search' directly, this command +toggles `ivy-case-fold-search', which can take on more values +than the former, between nil and either `auto' or t. See +`ivy-case-fold-search-default' for the meaning of these values. + +In any Ivy completion session, the case folding starts with +`ivy-case-fold-search-default'." + (interactive) + (setq ivy-case-fold-search + (and (not ivy-case-fold-search) + (or ivy-case-fold-search-default 'auto))) + ;; Reset cache so that the candidate list updates. + (setq ivy--old-re nil)) + +(defun ivy--re-filter (re candidates &optional mkpred) + "Return all RE matching CANDIDATES. +RE is a list of cons cells, with a regexp car and a boolean cdr. +When the cdr is t, the car must match. +Otherwise, the car must not match." + (if (equal re "") + candidates + (ignore-errors + (dolist (re (if (stringp re) (list (cons re t)) re)) + (let* ((re-str (car re)) + (pred + (if mkpred + (funcall mkpred re-str) + (lambda (x) (string-match-p re-str x))))) + (setq candidates + (cl-remove nil candidates + (if (cdr re) :if-not :if) + pred)))) + candidates))) + +(defun ivy--filter (name candidates) + "Return all items that match NAME in CANDIDATES. +CANDIDATES are assumed to be static." + (let ((re (funcall ivy--regex-function name))) + (if (and + ivy--old-re + ivy--old-cands + (equal re ivy--old-re)) + ;; quick caching for "C-n", "C-p" etc. + ivy--old-cands + (let* ((re-str (ivy-re-to-str re)) + (matcher (ivy-state-matcher ivy-last)) + (case-fold-search (ivy--case-fold-p name)) + (cands (cond + ((and ivy--old-re + (stringp re) + (stringp ivy--old-re) + (not (string-match-p "\\\\" ivy--old-re)) + (not (equal ivy--old-re "")) + (memq (cl-search + (if (string-match-p "\\\\)\\'" ivy--old-re) + (substring ivy--old-re 0 -2) + ivy--old-re) + re) + '(0 2)) + ivy--old-cands + (ivy--re-filter re ivy--old-cands))) + (matcher + (funcall matcher re candidates)) + (t + (ivy--re-filter re candidates))))) + (if (memq (cdr (assq (ivy-state-caller ivy-last) + ivy-index-functions-alist)) + '(ivy-recompute-index-swiper + ivy-recompute-index-swiper-async + ivy-recompute-index-swiper-async-backward + ivy-recompute-index-swiper-backward)) + (progn + (ivy--recompute-index re-str cands) + (setq ivy--old-cands (ivy--sort name cands))) + (setq ivy--old-cands (ivy--sort name cands)) + (ivy--recompute-index re-str ivy--old-cands)) + (setq ivy--old-re re) + ivy--old-cands)))) + +(defun ivy--set-candidates (x) + "Update `ivy--all-candidates' with X." + (let (res) + (dolist (source ivy--extra-candidates) + (if (equal source '(original-source)) + (if (null res) + (setq res x) + (setq res (append x res))) + (setq ivy--old-re nil) + (setq res (append + (ivy--filter ivy-text (cadr source)) + res)))) + (setq ivy--all-candidates + (if (cdr ivy--extra-candidates) + (delete-dups res) + res)))) + +(defun ivy--shorter-matches-first (_name cands) + "Sort CANDS according to their length." + (if (< (length cands) ivy-sort-max-size) + (cl-sort + (copy-sequence cands) + (lambda (s1 s2) + (< (length s1) (length s2)))) + cands)) + +(defcustom ivy-sort-matches-functions-alist + '((t . nil) + (ivy-completion-in-region . ivy--shorter-matches-first) + (ivy-switch-buffer . ivy-sort-function-buffer)) + "An alist of functions for sorting matching candidates. + +Unlike `ivy-sort-functions-alist', which is used to sort the +whole collection only once, this alist of functions are used to +sort only matching candidates after each change in input. + +The alist KEY is either a collection function or t to match +previously unmatched collection functions. + +The alist VAL is a sorting function with the signature of +`ivy--prefix-sort'." + :type '(alist + :key-type (choice + (const :tag "Fall-through" t) + (symbol :tag "Collection")) + :value-type + (choice + (const :tag "Don't sort" nil) + (const :tag "Put prefix matches ahead" ivy--prefix-sort) + (function :tag "Custom sort function")))) + +(defun ivy--sort-files-by-date (_name candidates) + "Re-sort CANDIDATES according to file modification date." + (let ((default-directory ivy--directory)) + (sort (copy-sequence candidates) #'file-newer-than-file-p))) + +(defvar ivy--flx-featurep (require 'flx nil 'noerror)) + +(defun ivy--sort (name candidates) + "Re-sort candidates by NAME. +All CANDIDATES are assumed to match NAME." + (let (fun) + (cond ((setq fun (ivy-alist-setting ivy-sort-matches-functions-alist)) + (funcall fun name candidates)) + ((and ivy--flx-featurep + (eq ivy--regex-function 'ivy--regex-fuzzy)) + (ivy--flx-sort name candidates)) + (t + candidates)))) + +(defun ivy--prefix-sort (name candidates) + "Re-sort candidates by NAME. +All CANDIDATES are assumed to match NAME. +Prefix matches to NAME are put ahead of the list." + (if (or (string= name "") + (= (aref name 0) ?^)) + candidates + (let ((re-prefix (concat "\\`" (funcall ivy--regex-function name))) + res-prefix + res-noprefix) + (dolist (s candidates) + (if (string-match-p re-prefix s) + (push s res-prefix) + (push s res-noprefix))) + (nconc + (nreverse res-prefix) + (nreverse res-noprefix))))) + +(defvar ivy--virtual-buffers nil + "Store the virtual buffers alist.") + +(defun ivy-re-to-str (re) + "Transform RE to a string. + +Functions like `ivy--regex-ignore-order' return a cons list. +This function extracts a string from the cons list." + (if (consp re) (caar re) re)) + +(defun ivy-sort-function-buffer (name candidates) + "Re-sort candidates by NAME. +CANDIDATES is a list of buffer names each containing NAME. +Sort open buffers before virtual buffers, and prefix matches +before substring matches." + (if (or (string= name "") + (= (aref name 0) ?^)) + candidates + (let* ((base-re (ivy-re-to-str (funcall ivy--regex-function name))) + (re-star-prefix (concat "\\`\\*" base-re)) + (re-prefix (concat "\\`" base-re)) + res-prefix + res-noprefix + res-virtual-prefix + res-virtual-noprefix) + (dolist (s candidates) + (cond + ((and (assoc s ivy--virtual-buffers) + (or (string-match-p re-star-prefix s) + (string-match-p re-prefix s))) + (push s res-virtual-prefix)) + ((assoc s ivy--virtual-buffers) + (push s res-virtual-noprefix)) + ((or (string-match-p re-star-prefix s) + (string-match-p re-prefix s)) + (push s res-prefix)) + (t + (push s res-noprefix)))) + (nconc + (nreverse res-prefix) + (nreverse res-noprefix) + (nreverse res-virtual-prefix) + (nreverse res-virtual-noprefix))))) + +(defvar ivy-flx-limit 200 + "Used to conditionally turn off flx sorting. + +When the amount of matching candidates exceeds this limit, then +no sorting is done.") + +(defvar ivy--recompute-index-inhibit nil + "When non-nil, `ivy--recompute-index' is a no-op.") + +(defun ivy--recompute-index (re-str cands) + "Recompute index of selected candidate matching RE-STR. +CANDS are the current candidates." + (let ((caller (ivy-state-caller ivy-last)) + (func (or (ivy-alist-setting ivy-index-functions-alist) + #'ivy-recompute-index-zero)) + (case-fold-search (ivy--case-fold-p re-str)) + (preselect (ivy-state-preselect ivy-last)) + (current (ivy-state-current ivy-last)) + (empty (string= re-str ""))) + (unless (or (memq this-command '(ivy-resume ivy-partial-or-done)) + ivy--recompute-index-inhibit) + (ivy-set-index + (if (or (string= re-str "") + (and (> (length cands) 10000) (eq func #'ivy-recompute-index-zero))) + 0 + (or + (cl-position (ivy--remove-prefix "^" re-str) + cands + :test #'ivy--case-fold-string=) + (and ivy--directory + (cl-position (concat re-str "/") + cands + :test #'ivy--case-fold-string=)) + (and (eq caller 'ivy-switch-buffer) + (not empty) + 0) + (and (not empty) + (not (eq caller 'swiper)) + (not (and ivy--flx-featurep + (eq ivy--regex-function 'ivy--regex-fuzzy) + ;; Limit to configured number of candidates + (null (nthcdr ivy-flx-limit cands)))) + ;; If there was a preselected candidate, don't try to + ;; keep it selected even if the regexp still matches it. + ;; See issue #1563. See also `ivy--preselect-index', + ;; which this logic roughly mirrors. + (not (or + (and (integerp preselect) + (= ivy--index preselect)) + (equal current preselect) + (and (ivy--regex-p preselect) + (stringp current) + (string-match-p preselect current)))) + ivy--old-cands + (cl-position current cands :test #'equal)) + (funcall func re-str cands))))) + (when (or empty (string= re-str "^")) + (ivy-set-index + (or (ivy--preselect-index preselect cands) + ivy--index))))) + +(defun ivy-recompute-index-swiper (_re-str cands) + "Recompute index of selected candidate when using `swiper'. +CANDS are the current candidates." + (condition-case nil + (let ((tail (nthcdr ivy--index ivy--old-cands)) + idx) + (if (and tail ivy--old-cands (not (equal "^" ivy--old-re))) + (progn + (while (and tail (null idx)) + ;; Compare with eq to handle equal duplicates in cands + (setq idx (cl-position (pop tail) cands))) + (or + idx + (1- (length cands)))) + (if ivy--old-cands + ivy--index + ;; already in ivy-state-buffer + (let ((n (line-number-at-pos)) + (res 0) + (i 0)) + (dolist (c cands) + (when (eq n (get-text-property 0 'swiper-line-number c)) + (setq res i)) + (cl-incf i)) + res)))) + (error 0))) + +(defun ivy-recompute-index-swiper-backward (re-str cands) + "Recompute index of selected candidate when using `swiper-backward'. +CANDS are the current candidates." + (let ((idx (ivy-recompute-index-swiper re-str cands))) + (if (or (= idx -1) + (<= (get-text-property 0 'swiper-line-number (nth idx cands)) + (line-number-at-pos))) + idx + (- idx 1)))) + +(defun ivy-recompute-index-swiper-async (_re-str cands) + "Recompute index of selected candidate when using `swiper' asynchronously. +CANDS are the current candidates." + (if (null ivy--old-cands) + (let ((ln (with-ivy-window + (line-number-at-pos)))) + (or + ;; closest to current line going forwards + (cl-position-if (lambda (x) + (>= (string-to-number x) ln)) + cands) + ;; closest to current line going backwards + (1- (length cands)))) + (let ((tail (nthcdr ivy--index ivy--old-cands)) + idx) + (if (and tail ivy--old-cands (not (equal "^" ivy--old-re))) + (progn + (while (and tail (null idx)) + ;; Compare with `equal', since the collection is re-created + ;; each time with `split-string' + (setq idx (cl-position (pop tail) cands :test #'equal))) + (or idx 0)) + ivy--index)))) + +(defun ivy-recompute-index-swiper-async-backward (re-str cands) + "Recompute index of selected candidate when using `swiper-backward' +asynchronously. CANDS are the current candidates." + (if (= (length cands) 0) + 0 + (let ((idx (ivy-recompute-index-swiper-async re-str cands))) + (if + (<= (string-to-number (nth idx cands)) + (with-ivy-window (line-number-at-pos))) + idx + (- idx 1))))) + +(defun ivy-recompute-index-zero (_re-str _cands) + "Recompute index of selected candidate. +This function serves as a fallback when nothing else is available." + 0) + +(defcustom ivy-minibuffer-faces + '(ivy-minibuffer-match-face-1 + ivy-minibuffer-match-face-2 + ivy-minibuffer-match-face-3 + ivy-minibuffer-match-face-4) + "List of `ivy' faces for minibuffer group matches." + :type '(repeat :tag "Faces" + (choice + (const ivy-minibuffer-match-face-1) + (const ivy-minibuffer-match-face-2) + (const ivy-minibuffer-match-face-3) + (const ivy-minibuffer-match-face-4) + (face :tag "Other face")))) + +(defun ivy--minibuffer-face (n) + "Return Nth face from `ivy-minibuffer-faces'. +N wraps around, but skips the first element of the list." + (let ((tail (cdr ivy-minibuffer-faces))) + (nth (mod (+ n 2) (length tail)) tail))) + +(defun ivy--flx-propertize (x) + "X is (cons (flx-score STR ...) STR)." + (let ((str (copy-sequence (cdr x))) + (i 0) + (last-j -2)) + (dolist (j (cdar x)) + (unless (eq j (1+ last-j)) + (cl-incf i)) + (setq last-j j) + (ivy-add-face-text-property j (1+ j) (ivy--minibuffer-face i) str)) + str)) + +(defun ivy--flx-sort (name cands) + "Sort according to closeness to string NAME the string list CANDS." + (condition-case nil + (let* ((bolp (= (string-to-char name) ?^)) + ;; An optimized regex for fuzzy matching + ;; "abc" → "^[^a]*a[^b]*b[^c]*c" + (fuzzy-regex (concat "\\`" + (and bolp (regexp-quote (substring name 1 2))) + (mapconcat + (lambda (x) + (setq x (char-to-string x)) + (concat "[^" x "]*" (regexp-quote x))) + (if bolp (substring name 2) name) + ""))) + ;; Strip off the leading "^" for flx matching + (flx-name (if bolp (substring name 1) name)) + cands-left + cands-to-sort) + + ;; Filter out non-matching candidates + (dolist (cand cands) + (when (string-match-p fuzzy-regex cand) + (push cand cands-left))) + + ;; pre-sort the candidates by length before partitioning + (setq cands-left (cl-sort cands-left #'< :key #'length)) + + ;; partition the candidates into sorted and unsorted groups + (dotimes (_ (min (length cands-left) ivy-flx-limit)) + (push (pop cands-left) cands-to-sort)) + + (nconc + ;; Compute all of the flx scores in one pass and sort + (mapcar #'car + (sort (mapcar + (lambda (cand) + (cons cand + (car (flx-score cand flx-name ivy--flx-cache)))) + cands-to-sort) + (lambda (c1 c2) + ;; Break ties by length + (if (/= (cdr c1) (cdr c2)) + (> (cdr c1) + (cdr c2)) + (< (length (car c1)) + (length (car c2))))))) + + ;; Add the unsorted candidates + cands-left)) + (error cands))) + +(defun ivy--truncate-string (str width) + "Truncate STR to WIDTH." + (truncate-string-to-width str width nil nil t)) + +(defun ivy--format-function-generic (selected-fn other-fn cands separator) + "Transform candidates into a string for minibuffer. +SELECTED-FN is called for the selected candidate, OTHER-FN for the others. +Both functions take one string argument each. CANDS is a list of candidates +and SEPARATOR is used to join them." + (let ((i -1)) + (mapconcat + (lambda (str) + (let ((curr (eq (cl-incf i) ivy--window-index))) + (if curr + (funcall selected-fn str) + (funcall other-fn str)))) + cands + separator))) + +(defun ivy-format-function-default (cands) + "Transform CANDS into a string for minibuffer." + (ivy--format-function-generic + (lambda (str) + (ivy--add-face str 'ivy-current-match)) + #'identity + cands + "\n")) + +(defun ivy-format-function-arrow (cands) + "Transform CANDS into a string for minibuffer." + (ivy--format-function-generic + (lambda (str) + (concat "> " (ivy--add-face str 'ivy-current-match))) + (lambda (str) + (concat " " str)) + cands + "\n")) + +(defun ivy-format-function-line (cands) + "Transform CANDS into a string for minibuffer. +Note that since Emacs 27, `ivy-current-match' needs to have :extend t attribute. +It has it by default, but the current theme also needs to set it." + (ivy--format-function-generic + (lambda (str) + (ivy--add-face (concat str "\n") 'ivy-current-match)) + (lambda (str) + (concat str "\n")) + cands + "")) + +(defalias 'ivy-add-face-text-property + (if (fboundp 'add-face-text-property) + (lambda (start end face &optional object append) + (add-face-text-property start end face append object)) + (lambda (start end face &optional object append) + (funcall (if append + #'font-lock-append-text-property + #'font-lock-prepend-text-property) + start end 'face face object))) + "Compatibility shim for `add-face-text-property'. +Fall back on `font-lock-prepend-text-property' in Emacs versions +prior to 24.4 (`font-lock-append-text-property' when APPEND is +non-nil). +Note: The usual last two arguments are flipped for convenience.") + +(defun ivy--highlight-ignore-order (str) + "Highlight STR, using the ignore-order method." + (when (consp ivy--old-re) + (let ((i 1)) + (dolist (re ivy--old-re) + (when (string-match (car re) str) + (ivy-add-face-text-property + (match-beginning 0) (match-end 0) + (ivy--minibuffer-face i) + str)) + (cl-incf i)))) + str) + +(defun ivy--highlight-fuzzy (str) + "Highlight STR, using the fuzzy method." + (if (and ivy--flx-featurep + (eq (ivy-alist-setting ivy-re-builders-alist) 'ivy--regex-fuzzy)) + (let ((flx-name (ivy--remove-prefix "^" ivy-text))) + (ivy--flx-propertize + (cons (flx-score str flx-name ivy--flx-cache) str))) + (ivy--highlight-default str))) + +(defcustom ivy-use-group-face-if-no-groups t + "If t, and the expression has no subgroups, highlight whole match as a group. + +It will then use the second face (first of the \"group\" faces) +of `ivy-minibuffer-faces'. Otherwise, always use the first face +in this case." + :type 'boolean) + +(defun ivy--highlight-default (str) + "Highlight STR, using the default method." + (unless ivy--old-re + (setq ivy--old-re ivy-regex)) + (let ((regexps + (if (listp ivy--old-re) + (mapcar #'car (cl-remove-if-not #'cdr ivy--old-re)) + (list ivy--old-re))) + start) + (dolist (re regexps) + (ignore-errors + (while (and (string-match re str start) + (> (- (match-end 0) (match-beginning 0)) 0)) + (setq start (match-end 0)) + (let ((i 0) + (n 0) + prev) + (while (<= i ivy--subexps) + (let ((beg (match-beginning i)) + (end (match-end i))) + (when (and beg end) + (unless (and prev (= prev beg)) + (cl-incf n)) + (let ((face + (cond ((and ivy-use-group-face-if-no-groups + (zerop ivy--subexps)) + (cadr ivy-minibuffer-faces)) + ((zerop i) + (car ivy-minibuffer-faces)) + (t + (ivy--minibuffer-face n))))) + (ivy-add-face-text-property beg end face str)) + (unless (zerop i) + (setq prev end)))) + (cl-incf i))))))) + str) + +(defun ivy--format-minibuffer-line (str) + "Format line STR for use in minibuffer." + (let* ((str (ivy-cleanup-string (copy-sequence str))) + (str (if (eq ivy-display-style 'fancy) + (if (memq (ivy-state-caller ivy-last) + ivy-highlight-grep-commands) + (let* ((start (if (string-match "\\`[^:]+:\\(?:[^:]+:\\)?" str) + (match-end 0) 0)) + (file (substring str 0 start)) + (match (substring str start))) + (concat file (funcall ivy--highlight-function match))) + (funcall ivy--highlight-function str)) + str)) + (olen (length str)) + (annot (plist-get completion-extra-properties :annotation-function))) + (add-text-properties + 0 olen + '(mouse-face + ivy-minibuffer-match-highlight + help-echo + (format + (if tooltip-mode + "mouse-1: %s\nmouse-3: %s" + "mouse-1: %s mouse-3: %s") + ivy-mouse-1-tooltip ivy-mouse-3-tooltip)) + str) + (when annot + (setq str (concat str (funcall annot str))) + (ivy-add-face-text-property + olen (length str) 'ivy-completions-annotations str)) + str)) + +(defun ivy-read-file-transformer (str) + "Transform candidate STR when reading files." + (if (ivy--dirname-p str) + (propertize str 'face 'ivy-subdir) + str)) + +(defun ivy--minibuffer-index-bounds (idx len wnd-len) + (let* ((half-height (/ wnd-len 2)) + (start (max 0 + (min (- idx half-height) + (- len (1- wnd-len))))) + (end (min (+ start (1- wnd-len)) len))) + (list start end (- idx start)))) + +(defun ivy--format (cands) + "Return a string for CANDS suitable for display in the minibuffer. +CANDS is a list of candidates that :display-transformer can turn into strings." + (setq ivy--length (length cands)) + (when (>= ivy--index ivy--length) + (ivy-set-index (max (1- ivy--length) 0))) + (if (null cands) + (setf (ivy-state-current ivy-last) "") + (let ((cur (nth ivy--index cands))) + (setf (ivy-state-current ivy-last) (if (stringp cur) + (copy-sequence cur) + cur))) + (let* ((bnd (ivy--minibuffer-index-bounds + ivy--index ivy--length ivy-height)) + (wnd-cands (cl-subseq cands (car bnd) (cadr bnd))) + (case-fold-search (ivy--case-fold-p ivy-text)) + transformer-fn) + (setq ivy--window-index (nth 2 bnd)) + (when (setq transformer-fn (ivy-state-display-transformer-fn ivy-last)) + (with-ivy-window + (with-current-buffer (ivy-state-buffer ivy-last) + (setq wnd-cands (mapcar transformer-fn wnd-cands))))) + (ivy--wnd-cands-to-str wnd-cands)))) + +(defun ivy--wnd-cands-to-str (wnd-cands) + (let ((str (concat "\n" + (funcall (ivy-alist-setting ivy-format-functions-alist) + (condition-case nil + (mapcar + #'ivy--format-minibuffer-line + wnd-cands) + (error wnd-cands)))))) + (put-text-property 0 (length str) 'read-only nil str) + str)) + +(defvar recentf-list) +(defvar bookmark-alist) + +(defcustom ivy-virtual-abbreviate 'name + "The mode of abbreviation for virtual buffer names." + :type '(choice + (const :tag "Only name" name) + (const :tag "Abbreviated path" abbreviate) + (const :tag "Full path" full) + ;; eventually, uniquify + )) +(declare-function bookmark-maybe-load-default-file "bookmark") +(declare-function bookmark-get-filename "bookmark") + +(defun ivy--virtual-buffers () + "Adapted from `ido-add-virtual-buffers-to-list'." + (require 'bookmark) + (unless recentf-mode + (recentf-mode 1)) + (bookmark-maybe-load-default-file) + (let* ((vb-bkm (delete " - no file -" + (delq nil (mapcar #'bookmark-get-filename + bookmark-alist)))) + (vb-list (cond ((eq ivy-use-virtual-buffers 'recentf) + recentf-list) + ((eq ivy-use-virtual-buffers 'bookmarks) + vb-bkm) + (ivy-use-virtual-buffers + (append recentf-list vb-bkm)) + (t nil))) + virtual-buffers) + (dolist (head vb-list) + (let* ((file-name (if (stringp head) + head + (cdr head))) + (name (cond ((eq ivy-virtual-abbreviate 'name) + (file-name-nondirectory file-name)) + ((eq ivy-virtual-abbreviate 'abbreviate) + (abbreviate-file-name file-name)) + (t + (expand-file-name file-name))))) + (when (equal name "") + (setq name + (if (consp head) + (car head) + (file-name-nondirectory (directory-file-name file-name))))) + (unless (or (equal name "") + (get-file-buffer file-name) + (assoc name virtual-buffers)) + (push (cons (copy-sequence name) file-name) virtual-buffers)))) + (when virtual-buffers + (dolist (comp virtual-buffers) + (put-text-property 0 (length (car comp)) + 'face 'ivy-virtual + (car comp))) + (setq ivy--virtual-buffers (nreverse virtual-buffers)) + (mapcar #'car ivy--virtual-buffers)))) + +(defcustom ivy-ignore-buffers '("\\` " "\\`\\*tramp/") + "List of regexps or functions matching buffer names to ignore." + :type '(repeat (choice regexp function))) + +(defvar ivy-switch-buffer-faces-alist '((dired-mode . ivy-subdir) + (org-mode . ivy-org)) + "Store face customizations for `ivy-switch-buffer'. +Each KEY is `major-mode', each VALUE is a face name.") + +(defun ivy--buffer-list (str &optional virtual predicate) + "Return the buffers that match STR. +If VIRTUAL is non-nil, add virtual buffers. +If optional argument PREDICATE is non-nil, use it to test each +possible match. See `all-completions' for further information." + (delete-dups + (nconc + (mapcar + (lambda (x) + (let* ((buf (get-buffer x)) + (dir (buffer-local-value 'default-directory buf)) + (face (if (and dir + (ignore-errors + (file-remote-p dir))) + 'ivy-remote + (cdr (assq (buffer-local-value 'major-mode buf) + ivy-switch-buffer-faces-alist))))) + (if face + (propertize x 'face face) + x))) + (all-completions str #'internal-complete-buffer predicate)) + (and virtual + (ivy--virtual-buffers))))) + +(defvar ivy-views (and nil + `(("ivy + *scratch* {}" + (vert + (file ,(expand-file-name "ivy.el")) + (buffer "*scratch*"))) + ("swiper + *scratch* {}" + (horz + (file ,(expand-file-name "swiper.el")) + (buffer "*scratch*"))))) + "Store window configurations selectable by `ivy-switch-buffer'. + +The default value is given as an example. + +Each element is a list of (NAME VIEW). NAME is a string, it's +recommended to end it with a distinctive snippet e.g. \"{}\" so +that it's easy to distinguish the window configurations. + +VIEW is either a TREE or a window-configuration (see +`ivy--get-view-config'). + +TREE is a nested list with the following valid cars: +- vert: split the window vertically +- horz: split the window horizontally +- file: open the specified file +- buffer: open the specified buffer + +TREE can be nested multiple times to have multiple window splits.") + +(defun ivy-default-view-name () + "Return default name for new view." + (let* ((default-view-name + (concat "{} " + (mapconcat #'identity + (sort + (mapcar (lambda (w) + (let* ((b (window-buffer w)) + (f (buffer-file-name b))) + (if f + (file-name-nondirectory f) + (buffer-name b)))) + (window-list)) + #'string-lessp) + " "))) + (view-name-re (concat "\\`" + (regexp-quote default-view-name) + " \\([0-9]+\\)")) + old-view) + (cond ((setq old-view + (cl-find-if + (lambda (x) + (string-match view-name-re (car x))) + ivy-views)) + (format "%s %d" + default-view-name + (1+ (string-to-number + (match-string 1 (car old-view)))))) + ((assoc default-view-name ivy-views) + (concat default-view-name " 1")) + (t + default-view-name)))) + +(defun ivy--get-view-config () + "Get `current-window-configuration' for `ivy-views'." + (dolist (w (window-list)) + (set-window-parameter w 'ivy-view-data + (with-current-buffer (window-buffer w) + (cond (buffer-file-name + (list 'file buffer-file-name (point))) + ((eq major-mode 'dired-mode) + (list 'file default-directory (point))) + (t + (list 'buffer (buffer-name) (point))))))) + (let ((window-persistent-parameters + (append window-persistent-parameters + (list (cons 'ivy-view-data t))))) + (current-window-configuration))) + +(defun ivy-push-view (&optional arg) + "Push the current window tree on `ivy-views'. + +When ARG is non-nil, replace a selected item on `ivy-views'. + +Currently, the split configuration (i.e. horizontal or vertical) +and point positions are saved, but the split positions aren't. +Use `ivy-pop-view' to delete any item from `ivy-views'." + (interactive "P") + (let* ((view (ivy--get-view-config)) + (view-name + (if arg + (ivy-read "Update view: " ivy-views) + (ivy-read "Name view: " nil + :initial-input (ivy-default-view-name))))) + (when view-name + (let ((x (assoc view-name ivy-views))) + (if x + (setcdr x (list view)) + (push (list view-name view) ivy-views)))))) + +(defun ivy-pop-view-action (view) + "Delete VIEW from `ivy-views'." + (setq ivy-views (delete view ivy-views)) + (setq ivy--all-candidates + (delete (car view) ivy--all-candidates)) + (setq ivy--old-cands nil)) + +(defun ivy-pop-view () + "Delete a view to delete from `ivy-views'." + (interactive) + (ivy-read "Pop view: " ivy-views + :preselect (caar ivy-views) + :action #'ivy-pop-view-action + :caller 'ivy-pop-view)) + +(defun ivy-source-views () + "Return the name of the views saved in `ivy-views'." + (mapcar #'car ivy-views)) + +(ivy-set-sources + 'ivy-switch-buffer + '((original-source) + (ivy-source-views))) + +(defun ivy-set-view-recur (view) + "Set VIEW recursively." + (cond ((window-configuration-p view) + (set-window-configuration view) + (dolist (w (window-list)) + (with-selected-window w + (ivy-set-view-recur + (window-parameter w 'ivy-view-data))))) + ((eq (car view) 'vert) + (let* ((wnd1 (selected-window)) + (wnd2 (split-window-vertically)) + (views (cdr view)) + (v (pop views)) + (temp-wnd)) + (with-selected-window wnd1 + (ivy-set-view-recur v)) + (while (setq v (pop views)) + (with-selected-window wnd2 + (when views + (setq temp-wnd (split-window-vertically))) + (ivy-set-view-recur v) + (when views + (setq wnd2 temp-wnd)))))) + ((eq (car view) 'horz) + (let* ((wnd1 (selected-window)) + (wnd2 (split-window-horizontally)) + (views (cdr view)) + (v (pop views)) + (temp-wnd)) + (with-selected-window wnd1 + (ivy-set-view-recur v)) + (while (setq v (pop views)) + (with-selected-window wnd2 + (when views + (setq temp-wnd (split-window-horizontally))) + (ivy-set-view-recur v) + (when views + (setq wnd2 temp-wnd)))))) + ((eq (car view) 'file) + (let* ((name (nth 1 view)) + (virtual (assoc name ivy--virtual-buffers)) + buffer) + (cond ((setq buffer (get-buffer name)) + (switch-to-buffer buffer nil 'force-same-window)) + (virtual + (find-file (cdr virtual))) + ((file-exists-p name) + (find-file name)))) + (when (and (> (length view) 2) + (numberp (nth 2 view))) + (goto-char (nth 2 view)))) + ((eq (car view) 'buffer) + (switch-to-buffer (nth 1 view)) + (when (and (> (length view) 2) + (numberp (nth 2 view))) + (goto-char (nth 2 view)))) + ((eq (car view) 'sexp) + (eval (nth 1 view))))) + +(defun ivy--switch-buffer-action (buffer) + "Switch to BUFFER. +BUFFER may be a string or nil." + (if (zerop (length buffer)) + (switch-to-buffer + ivy-text nil 'force-same-window) + (let ((virtual (assoc buffer ivy--virtual-buffers)) + (view (assoc buffer ivy-views))) + (cond ((and virtual + (not (get-buffer buffer))) + (find-file (cdr virtual))) + (view + (delete-other-windows) + (let ( + ;; silence "Directory has changed on disk" + (inhibit-message t)) + (ivy-set-view-recur (cadr view)))) + (t + (switch-to-buffer + buffer nil 'force-same-window)))))) + +(defun ivy--switch-buffer-other-window-action (buffer) + "Switch to BUFFER in other window. +BUFFER may be a string or nil." + (if (zerop (length buffer)) + (switch-to-buffer-other-window ivy-text) + (let ((virtual (assoc buffer ivy--virtual-buffers))) + (if (and virtual + (not (get-buffer buffer))) + (find-file-other-window (cdr virtual)) + (switch-to-buffer-other-window buffer))))) + +(defun ivy--rename-buffer-action (buffer) + "Rename BUFFER." + (let ((new-name (read-string "Rename buffer (to new name): "))) + (with-current-buffer buffer + (rename-buffer new-name)))) + +(defun ivy--find-file-action (buffer) + "Find file from BUFFER's directory." + (let* ((virtual (assoc buffer ivy--virtual-buffers)) + (default-directory (if virtual + (file-name-directory (cdr virtual)) + (buffer-local-value 'default-directory + (or (get-buffer buffer) + (current-buffer)))))) + (call-interactively (if (functionp 'counsel-find-file) + #'counsel-find-file + #'find-file)))) + +(defun ivy--kill-buffer-or-virtual (buffer) + (if (get-buffer buffer) + (kill-buffer buffer) + (setq recentf-list (delete + (cdr (assoc buffer ivy--virtual-buffers)) + recentf-list)))) + +(defun ivy--kill-current-candidate () + (setf (ivy-state-preselect ivy-last) ivy--index) + (setq ivy--old-re nil) + (setq ivy--all-candidates (delete (ivy-state-current ivy-last) ivy--all-candidates)) + (let ((ivy--recompute-index-inhibit t)) + (ivy--exhibit))) + +(defun ivy--kill-current-candidate-buffer () + (setf (ivy-state-preselect ivy-last) ivy--index) + (setq ivy--old-re nil) + (setq ivy--all-candidates (ivy--buffer-list "" ivy-use-virtual-buffers nil)) + (let ((ivy--recompute-index-inhibit t)) + (ivy--exhibit))) + +(defun ivy--kill-buffer-action (buffer) + "Kill BUFFER." + (ivy--kill-buffer-or-virtual buffer) + (unless (buffer-live-p (ivy-state-buffer ivy-last)) + (setf (ivy-state-buffer ivy-last) + (with-ivy-window (current-buffer)))) + (ivy--kill-current-candidate-buffer)) + +(defvar ivy-switch-buffer-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "C-k") 'ivy-switch-buffer-kill) + map)) + +(defun ivy-switch-buffer-kill () + "When at end-of-line, kill the current buffer in `ivy-switch-buffer'. +Otherwise, forward to `ivy-kill-line'." + (interactive) + (if (not (eolp)) + (ivy-kill-line) + (ivy--kill-buffer-action + (ivy-state-current ivy-last)))) + +(ivy-set-actions + 'ivy-switch-buffer + '(("f" + ivy--find-file-action + "find file") + ("j" + ivy--switch-buffer-other-window-action + "other window") + ("k" + ivy--kill-buffer-action + "kill") + ("r" + ivy--rename-buffer-action + "rename"))) + +(ivy-set-actions + t + `(("i" ,(lambda (x) (insert (if (stringp x) x (car x)))) "insert") + ("w" ,(lambda (x) (kill-new (if (stringp x) x (car x)))) "copy"))) + +(defun ivy--switch-buffer-matcher (regexp candidates) + "Return REGEXP matching CANDIDATES. +Skip buffers that match `ivy-ignore-buffers'." + (let ((res (ivy--re-filter regexp candidates))) + (if (or (null ivy-use-ignore) + (null ivy-ignore-buffers)) + res + (or (cl-remove-if + (lambda (buf) + (cl-find-if + (lambda (f-or-r) + (if (functionp f-or-r) + (funcall f-or-r buf) + (string-match-p f-or-r buf))) + ivy-ignore-buffers)) + res) + (and (eq ivy-use-ignore t) + res))))) + +(defun ivy-append-face (str face) + "Append to STR the property FACE." + (setq str (copy-sequence str)) + (ivy-add-face-text-property 0 (length str) face str t) + str) + +(defun ivy-switch-buffer-transformer (str) + "Transform candidate STR when switching buffers." + (let ((b (get-buffer str))) + (if (and b (buffer-file-name b)) + (cond + ((and (not (ignore-errors (file-remote-p (buffer-file-name b)))) + (not (verify-visited-file-modtime b))) + (ivy-append-face str 'ivy-modified-outside-buffer)) + ((buffer-modified-p b) + (ivy-append-face str 'ivy-modified-buffer)) + (t str)) + str))) + +(defun ivy-switch-buffer-occur (cands) + "Occur function for `ivy-switch-buffer' using `ibuffer'. +CANDS are the candidates to be displayed." + (unless cands + (setq cands (all-completions ivy-text #'internal-complete-buffer))) + (ibuffer + nil (buffer-name) + `((or ,@(cl-mapcan + (lambda (cand) + (unless (eq (get-text-property 0 'face cand) 'ivy-virtual) + `((name . ,(format "\\_<%s\\_>" (regexp-quote cand)))))) + cands))))) + +;;;###autoload +(defun ivy-switch-buffer () + "Switch to another buffer." + (interactive) + (ivy-read "Switch to buffer: " #'internal-complete-buffer + :keymap ivy-switch-buffer-map + :preselect (buffer-name (other-buffer (current-buffer))) + :action #'ivy--switch-buffer-action + :matcher #'ivy--switch-buffer-matcher + :caller 'ivy-switch-buffer)) + +(ivy-configure 'ivy-switch-buffer + :occur #'ivy-switch-buffer-occur + :display-transformer-fn #'ivy-switch-buffer-transformer) + +;;;###autoload +(defun ivy-switch-view () + "Switch to one of the window views stored by `ivy-push-view'." + (interactive) + (let ((ivy-initial-inputs-alist + '((ivy-switch-buffer . "{}")))) + (ivy-switch-buffer))) + +;;;###autoload +(defun ivy-switch-buffer-other-window () + "Switch to another buffer in another window." + (interactive) + (ivy-read "Switch to buffer in other window: " #'internal-complete-buffer + :matcher #'ivy--switch-buffer-matcher + :preselect (buffer-name (other-buffer (current-buffer))) + :action #'ivy--switch-buffer-other-window-action + :keymap ivy-switch-buffer-map + :caller 'ivy-switch-buffer-other-window)) + +(ivy-configure 'ivy-switch-buffer-other-window + :occur #'ivy-switch-buffer-occur) + +(defun ivy--yank-handle-case-fold (text) + (if (and (> (length ivy-text) 0) + (string= (downcase ivy-text) ivy-text)) + (downcase text) + text)) + +(defun ivy--yank-by (fn &rest args) + "Pull buffer text from current line into search string. +The region to extract is determined by the respective values of +point before and after applying FN to ARGS." + (let (text) + (with-ivy-window + (let ((beg (point)) + (bol (line-beginning-position)) + (eol (line-end-position)) + end) + (unwind-protect + (progn (apply fn args) + (setq end (goto-char (max bol (min (point) eol)))) + (setq text (buffer-substring-no-properties beg end)) + (ivy--pulse-region beg end)) + (unless text + (goto-char beg))))) + (when text + (insert (replace-regexp-in-string + " +" " " + (ivy--yank-handle-case-fold text) + t t))))) + +(defun ivy-yank-word (&optional arg) + "Pull next word from buffer into search string. +If optional ARG is non-nil, pull in the next ARG +words (previous if ARG is negative)." + (interactive "p") + (ivy--yank-by #'forward-word arg)) + +(defun ivy-yank-symbol (&optional arg) + "Pull next symbol from buffer into search string. +If optional ARG is non-nil, pull in the next ARG +symbols (previous if ARG is negative)." + (interactive "p") + ;; Emacs < 24.4 compatibility + (unless (fboundp 'forward-symbol) + (require 'thingatpt)) + (ivy--yank-by #'forward-symbol (or arg 1))) + +(defun ivy-yank-char (&optional arg) + "Pull next character from buffer into search string. +If optional ARG is non-nil, pull in the next ARG +characters (previous if ARG is negative)." + (interactive "p") + (ivy--yank-by #'forward-char arg)) + +(defvar ivy--pulse-overlay nil + "Overlay used to highlight yanked word.") + +(defvar ivy--pulse-timer nil + "Timer used to dispose of `ivy--pulse-overlay'.") + +(defcustom ivy-pulse-delay 0.5 + "Number of seconds to display `ivy-yanked-word' highlight. +When nil, disable highlighting." + :type '(choice + (number :tag "Delay in seconds") + (const :tag "Disable" nil))) + +(defun ivy--pulse-region (start end) + "Temporarily highlight text between START and END. +The \"pulse\" duration is determined by `ivy-pulse-delay'." + (when ivy-pulse-delay + (if ivy--pulse-overlay + (let ((ostart (overlay-start ivy--pulse-overlay)) + (oend (overlay-end ivy--pulse-overlay))) + (when (< end start) + (cl-rotatef start end)) + ;; Extend the existing overlay's region to include START..END, + ;; but only if the two regions are contiguous. + (move-overlay ivy--pulse-overlay + (if (= start oend) ostart start) + (if (= end ostart) oend end))) + (setq ivy--pulse-overlay (make-overlay start end)) + (overlay-put ivy--pulse-overlay 'face 'ivy-yanked-word)) + (when ivy--pulse-timer + (cancel-timer ivy--pulse-timer)) + (setq ivy--pulse-timer + (run-at-time ivy-pulse-delay nil #'ivy--pulse-cleanup)))) + +(defun ivy--pulse-cleanup () + "Cancel `ivy--pulse-timer' and delete `ivy--pulse-overlay'." + (when ivy--pulse-timer + (cancel-timer ivy--pulse-timer) + (setq ivy--pulse-timer nil)) + (when ivy--pulse-overlay + (delete-overlay ivy--pulse-overlay) + (setq ivy--pulse-overlay nil))) + +(defun ivy-kill-ring-save () + "Store the current candidates into the kill ring. +If the region is active, forward to `kill-ring-save' instead." + (interactive) + (if (region-active-p) + (call-interactively 'kill-ring-save) + (kill-new + (mapconcat + #'identity + ivy--old-cands + "\n")))) + +(defun ivy-insert-current () + "Make the current candidate into current input. +Don't finish completion." + (interactive) + (delete-minibuffer-contents) + (let ((end (and ivy--directory + (ivy--dirname-p (ivy-state-current ivy-last)) + -1))) + (insert (substring-no-properties + (ivy-state-current ivy-last) 0 end)))) + +(defun ivy-insert-current-full () + "Insert the full Yank the current directory into the minibuffer." + (interactive) + (insert ivy--directory)) + +(defcustom ivy-preferred-re-builders + '((ivy--regex-plus . "ivy") + (ivy--regex-ignore-order . "order") + (ivy--regex-fuzzy . "fuzzy")) + "Alist of preferred re-builders with display names. +This list can be rotated with `ivy-rotate-preferred-builders'." + :type '(alist :key-type function :value-type string)) + +(defun ivy-rotate-preferred-builders () + "Switch to the next re builder in `ivy-preferred-re-builders'." + (interactive) + (when ivy-preferred-re-builders + (setq ivy--old-re nil) + (setq ivy--regex-function + (let ((cell (assq ivy--regex-function ivy-preferred-re-builders))) + (car (or (cadr (memq cell ivy-preferred-re-builders)) + (car ivy-preferred-re-builders))))))) + +(defun ivy-toggle-fuzzy () + "Toggle the re builder between `ivy--regex-fuzzy' and `ivy--regex-plus'." + (interactive) + (setq ivy--old-re nil) + (if (eq ivy--regex-function 'ivy--regex-fuzzy) + (setq ivy--regex-function 'ivy--regex-plus) + (setq ivy--regex-function 'ivy--regex-fuzzy))) + +(defun ivy--label-and-delete-dups (entries) + "Label ENTRIES with history indices." + (let ((ht (make-hash-table :test 'equal)) + (idx 0) + entry + accum) + (while (setq entry (pop entries)) + (unless (gethash entry ht) + (puthash entry t ht) + (push `(,entry . ,idx) accum)) + (cl-incf idx)) + (nreverse accum))) + +(defvar ivy--reverse-i-search-symbol nil + "Store the history symbol.") + +(defun ivy-reverse-i-search-kill () + "Remove the current item from history" + (interactive) + (if (not (eolp)) + (ivy-kill-line) + (let ((current (ivy-state-current ivy-last))) + (if (symbolp ivy--reverse-i-search-symbol) + (set + ivy--reverse-i-search-symbol + (delete current (symbol-value ivy--reverse-i-search-symbol))) + (ring-remove + ivy--reverse-i-search-symbol + (ring-member ivy--reverse-i-search-symbol (ivy-state-current ivy-last))))) + (ivy--kill-current-candidate))) + +(defvar ivy-reverse-i-search-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "C-k") 'ivy-reverse-i-search-kill) + map)) + +(defun ivy-history-contents (history) + "Copy contents of HISTORY. +A copy is necessary so that we don't clobber any string attributes. +Also set `ivy--reverse-i-search-symbol' to HISTORY." + (setq ivy--reverse-i-search-symbol history) + (cond ((symbolp history) + (ivy--label-and-delete-dups + (copy-sequence (symbol-value history)))) + ((ring-p history) + (ivy--label-and-delete-dups + (when (> (ring-size history) 0) + (ring-elements history)))) + ((sequencep history) + (ivy--label-and-delete-dups + (copy-sequence history))) + (t + (error "Expected a symbol, ring, or sequence: %S" history)))) + +(defun ivy-reverse-i-search () + "Enter a recursive `ivy-read' session using the current history. +The selected history element will be inserted into the minibuffer. +\\ +You can also delete an element from history with \\[ivy-reverse-i-search-kill]." + (interactive) + (cond + ((= (minibuffer-depth) 0) + (user-error + "This command is intended to be called with \"C-r\" from `ivy-read'.")) + ;; don't recur + ((and (> (minibuffer-depth) 1) + (eq (ivy-state-caller ivy-last) 'ivy-reverse-i-search))) + (t + (let ((enable-recursive-minibuffers t) + (old-last ivy-last)) + (ivy-read "Reverse-i-search: " + (ivy-history-contents (ivy-state-history ivy-last)) + :keymap ivy-reverse-i-search-map + :action (lambda (x) + (ivy--reset-state + (setq ivy-last old-last)) + (delete-minibuffer-contents) + (insert (substring-no-properties (car x))) + (ivy--cd-maybe)) + :caller 'ivy-reverse-i-search))))) + +(defun ivy-restrict-to-matches () + "Restrict candidates to current input and erase input." + (interactive) + (delete-minibuffer-contents) + (if (ivy-state-dynamic-collection ivy-last) + (progn + (setf (ivy-state-dynamic-collection ivy-last) nil) + (setf (ivy-state-collection ivy-last) + (setq ivy--all-candidates ivy--old-cands))) + (setq ivy--all-candidates + (ivy--filter ivy-text ivy--all-candidates)))) + +;;* Occur +(defvar-local ivy-occur-last nil + "Buffer-local value of `ivy-last'. +Can't re-use `ivy-last' because using e.g. `swiper' in the same +buffer would modify `ivy-last'.") + +(defvar ivy-occur-mode-map + (let ((map (make-sparse-keymap))) + (define-key map [mouse-1] 'ivy-occur-click) + (define-key map (kbd "RET") 'ivy-occur-press-and-switch) + (define-key map (kbd "j") 'ivy-occur-next-line) + (define-key map (kbd "k") 'ivy-occur-previous-line) + (define-key map (kbd "h") 'backward-char) + (define-key map (kbd "l") 'forward-char) + (define-key map (kbd "f") 'ivy-occur-press) + (define-key map (kbd "g") 'ivy-occur-revert-buffer) + (define-key map (kbd "a") 'ivy-occur-read-action) + (define-key map (kbd "o") 'ivy-occur-dispatch) + (define-key map (kbd "c") 'ivy-occur-toggle-calling) + (define-key map (kbd "q") 'quit-window) + (define-key map (kbd "R") 'read-only-mode) + (define-key map (kbd "C-d") 'ivy-occur-delete-candidate) + map) + "Keymap for Ivy Occur mode.") + +(defun ivy-occur-toggle-calling () + "Toggle `ivy-calling'." + (interactive) + (if (setq ivy-calling (not ivy-calling)) + (progn + (setq mode-name "Ivy-Occur [calling]") + (ivy-occur-press)) + (setq mode-name "Ivy-Occur")) + (force-mode-line-update)) + +(defun ivy--find-occur-buffer () + (let ((cb (current-buffer))) + (cl-find-if + (lambda (b) + (with-current-buffer b + (and (eq major-mode 'ivy-occur-grep-mode) + (equal cb (ivy-state-buffer ivy-occur-last))))) + (buffer-list)))) + +(defun ivy--select-occur-buffer () + (let* ((ob (ivy--find-occur-buffer)) + (ow (cl-find-if (lambda (w) (equal ob (window-buffer w))) + (window-list)))) + (if ow + (select-window ow) + (pop-to-buffer ob)))) + +(defun ivy-occur-next-line (&optional arg) + "Move the cursor down ARG lines. +When `ivy-calling' isn't nil, call `ivy-occur-press'." + (interactive "p") + (let ((offset (cond ((derived-mode-p 'ivy-occur-grep-mode) 5) + ((derived-mode-p 'ivy-occur-mode) 2)))) + (if offset + (progn + (if (< (line-number-at-pos) offset) + (progn + (goto-char (point-min)) + (forward-line (1- offset))) + (forward-line arg) + (when (eolp) + (forward-line -1))) + (when ivy-calling + (ivy-occur-press))) + (ivy--select-occur-buffer) + (ivy-occur-next-line arg) + (ivy-occur-press-and-switch)))) + +(defun ivy-occur-previous-line (&optional arg) + "Move the cursor up ARG lines. +When `ivy-calling' isn't nil, call `ivy-occur-press'." + (interactive "p") + (let ((offset (cond ((derived-mode-p 'ivy-occur-grep-mode) 5) + ((derived-mode-p 'ivy-occur-mode) 2)))) + (if offset + (progn + (forward-line (- arg)) + (when (< (line-number-at-pos) offset) + (goto-char (point-min)) + (forward-line (1- offset))) + (when ivy-calling + (ivy-occur-press))) + (ivy--select-occur-buffer) + (ivy-occur-previous-line arg) + (ivy-occur-press-and-switch)))) + +(defun ivy-occur-next-error (n &optional reset) + "A `next-error-function' for `ivy-occur-mode'." + (interactive "p") + (when reset + (goto-char (point-min))) + (setq n (or n 1)) + (let ((ivy-calling t)) + (cond ((< n 0) (ivy-occur-previous-line (- n))) + (t (ivy-occur-next-line n))))) + +(define-derived-mode ivy-occur-mode fundamental-mode "Ivy-Occur" + "Major mode for output from \\[ivy-occur]. + +\\{ivy-occur-mode-map}" + (setq-local view-read-only nil)) + +(defvar ivy-occur-grep-mode-map + (let ((map (copy-keymap ivy-occur-mode-map))) + (define-key map (kbd "C-x C-q") 'ivy-wgrep-change-to-wgrep-mode) + (define-key map "w" 'ivy-wgrep-change-to-wgrep-mode) + map) + "Keymap for Ivy Occur Grep mode.") + +(defun ivy-occur-delete-candidate () + (interactive) + (let ((inhibit-read-only t)) + (delete-region (line-beginning-position) + (1+ (line-end-position))))) + +(define-derived-mode ivy-occur-grep-mode grep-mode "Ivy-Occur" + "Major mode for output from \\[ivy-occur]. + +\\{ivy-occur-grep-mode-map}" + (setq-local view-read-only nil) + (when (fboundp 'wgrep-setup) + (wgrep-setup))) + +(defun ivy--starts-with-dotslash (str) + (string-match-p "\\`\\.[/\\]" str)) + +(defun ivy--occur-insert-lines (cands) + "Insert CANDS into `ivy-occur' buffer." + (font-lock-mode -1) + (dolist (cand cands) + (setq cand + (if (string-match "\\`\\(.*:[0-9]+:\\)\\(.*\\)\\'" cand) + (let ((file-and-line (match-string 1 cand)) + (grep-line (match-string 2 cand))) + (concat + (propertize file-and-line 'face 'ivy-grep-info) + (ivy--highlight-fuzzy grep-line))) + (ivy--highlight-fuzzy (copy-sequence cand)))) + (add-text-properties + 0 (length cand) + '(mouse-face + highlight + help-echo "mouse-1: call ivy-action") + cand) + (insert (if (string-match-p "\\`.[/\\]" cand) "" " ") + cand ?\n))) + +(defun ivy--occur-default (cands) + "Insert CANDS into the current occur buffer." + (unless cands + (let ((coll (ivy-state-collection ivy-last))) + (when (arrayp coll) + (setq coll (all-completions "" coll (ivy-state-predicate ivy-last)))) + (setq cands (ivy--filter (ivy-state-text ivy-last) coll)))) + (ivy-occur-mode) + (insert (format "%d candidates:\n" (length cands))) + (ivy--occur-insert-lines cands) + (read-only-mode)) + +(defun ivy-occur () + "Stop completion and put the current candidates into a new buffer. + +The new buffer remembers current action(s). + +While in the *ivy-occur* buffer, selecting a candidate with RET or +a mouse click will call the appropriate action for that candidate. + +There is no limit on the number of *ivy-occur* buffers." + (interactive) + (if (not (window-minibuffer-p)) + (user-error "No completion session is active") + (let* ((caller (ivy-state-caller ivy-last)) + (occur-fn (or (plist-get ivy--occurs-list caller) + #'ivy--occur-default)) + (buffer + (generate-new-buffer + (format "*ivy-occur%s \"%s\"*" + (if caller + (concat " " (prin1-to-string caller)) + "") + ivy-text)))) + (with-current-buffer buffer + (funcall occur-fn ivy--old-cands) + (setf (ivy-state-text ivy-last) ivy-text) + (setq ivy-occur-last ivy-last)) + (ivy-exit-with-action + (lambda (_) + (pop-to-buffer buffer) + (setq next-error-last-buffer buffer) + (setq-local next-error-function #'ivy-occur-next-error)))))) + +(defun ivy-occur-revert-buffer () + "Refresh the buffer making it up-to date with the collection. + +Currently only works for `swiper'. In that specific case, the +*ivy-occur* buffer becomes nearly useless as the original buffer +is updated, since the line numbers no longer match. + +Calling this function is as if you called `ivy-occur' on the +updated original buffer." + (interactive) + (let ((caller (ivy-state-caller ivy-occur-last)) + (ivy-last ivy-occur-last)) + (let ((inhibit-read-only t) + (line (line-number-at-pos))) + (erase-buffer) + (funcall (or (plist-get ivy--occurs-list caller) + #'ivy--occur-default) nil) + (goto-char (point-min)) + (forward-line (1- line))) + (setq ivy-occur-last ivy-last))) + +(declare-function wgrep-change-to-wgrep-mode "ext:wgrep") + +(defun ivy-wgrep-change-to-wgrep-mode () + "Forward to `wgrep-change-to-wgrep-mode'." + (interactive) + (if (require 'wgrep nil 'noerror) + (wgrep-change-to-wgrep-mode) + (error "Package wgrep isn't installed"))) + +(defun ivy-occur-read-action () + "Select one of the available actions as the current one." + (interactive) + (let ((ivy-last ivy-occur-last)) + (ivy-read-action))) + +(defun ivy-occur-dispatch () + "Call one of the available actions on the current item." + (interactive) + (let* ((state-action (ivy-state-action ivy-occur-last)) + (actions (if (symbolp state-action) + state-action + (copy-sequence state-action)))) + (unwind-protect + (progn + (ivy-occur-read-action) + (ivy-occur-press)) + (setf (ivy-state-action ivy-occur-last) actions)))) + +(defun ivy-occur-click (event) + "Execute action for the current candidate. +EVENT gives the mouse position." + (interactive "e") + (let ((window (posn-window (event-end event))) + (pos (posn-point (event-end event)))) + (with-current-buffer (window-buffer window) + (goto-char pos) + (ivy-occur-press)))) + +(declare-function swiper--cleanup "swiper") +(declare-function swiper--add-overlays "swiper") +(defvar ivy-occur-timer nil) + +(defun ivy--occur-press-update-window () + (cond + ((memq (ivy-state-caller ivy-occur-last) + (append '(swiper swiper-isearch) ivy-highlight-grep-commands)) + (let ((window (ivy-state-window ivy-occur-last)) + (buffer (ivy-state-buffer ivy-occur-last))) + (when (buffer-live-p buffer) + (cond ((or (not (window-live-p window)) + (equal window (selected-window))) + (save-selected-window + (setf (ivy-state-window ivy-occur-last) + (display-buffer buffer)))) + ((not (equal (window-buffer window) buffer)) + (with-selected-window window + (switch-to-buffer buffer))))))) + + ((memq (ivy-state-caller ivy-occur-last) + '(counsel-describe-function counsel-describe-variable)) + (setf (ivy-state-window ivy-occur-last) + (selected-window)) + (selected-window)))) + +(defun ivy--occur-press-buffer () + (let ((buffer (ivy-state-buffer ivy-last))) + (if (buffer-live-p buffer) + buffer + (current-buffer)))) + +(defun ivy-occur-press () + "Execute action for the current candidate." + (interactive) + (ivy--occur-press-update-window) + (when (save-excursion + (beginning-of-line) + (looking-at "\\(?:./\\| \\)\\(.*\\)$")) + (let* ((ivy-last ivy-occur-last) + (ivy-text (ivy-state-text ivy-last)) + (str (buffer-substring + (match-beginning 1) + (match-end 1))) + (offset (or (get-text-property 0 'offset str) 0)) + (coll (ivy-state-collection ivy-last)) + (action (ivy--get-action ivy-last)) + (ivy-exit 'done)) + (with-ivy-window + (with-current-buffer (ivy--occur-press-buffer) + (save-restriction + (widen) + (funcall action + (if (and (consp coll) + (consp (car coll))) + (assoc str coll) + (substring str offset))))) + (if (memq (ivy-state-caller ivy-last) + (append '(swiper swiper-isearch) ivy-highlight-grep-commands)) + (with-current-buffer (window-buffer (selected-window)) + (swiper--cleanup) + (swiper--add-overlays + (ivy--regex ivy-text) + (line-beginning-position) + (line-end-position) + (selected-window)) + (when (timerp ivy-occur-timer) + (cancel-timer ivy-occur-timer)) + (setq ivy-occur-timer + (run-at-time 1.0 nil 'swiper--cleanup)))))))) + +(defun ivy-occur-press-and-switch () + "Execute action for the current candidate and switch window." + (interactive) + (ivy-occur-press) + (select-window (ivy--get-window ivy-occur-last))) + +(defun ivy--marked-p () + (member (ivy-state-current ivy-last) ivy-marked-candidates)) + +(defun ivy--unmark (cand) + (setcar (member cand ivy--all-candidates) + (setcar (member cand ivy--old-cands) + (substring cand (length ivy-mark-prefix)))) + (setq ivy-marked-candidates + (delete cand ivy-marked-candidates))) + +(defun ivy--mark (cand) + (let ((marked-cand (concat ivy-mark-prefix cand))) + (setcar (member cand ivy--all-candidates) + (setcar (member cand ivy--old-cands) marked-cand)) + (setq ivy-marked-candidates + (append ivy-marked-candidates (list marked-cand))))) + +(defun ivy-mark () + "Mark the selected candidate and move to the next one. + +In `ivy-call', :action will be called in turn for all marked +candidates. + +However, if :multi-action was supplied to `ivy-read', then it +will be called with `ivy-marked-candidates'. This way, it can +make decisions based on the whole marked list." + (interactive) + (unless (ivy--marked-p) + (ivy--mark (ivy-state-current ivy-last))) + (ivy-next-line)) + +(defun ivy-unmark () + "Unmark the selected candidate and move to the next one." + (interactive) + (when (ivy--marked-p) + (ivy--unmark (ivy-state-current ivy-last))) + (ivy-next-line)) + +(defun ivy-unmark-backward () + "Move to the previous candidate and unmark it." + (interactive) + (ivy-previous-line) + (ivy--exhibit) + (when (ivy--marked-p) + (ivy--unmark (ivy-state-current ivy-last)))) + +(defun ivy-toggle-marks () + "Toggle mark for all narrowed candidates." + (interactive) + (dolist (cand ivy--old-cands) + (if (member cand ivy-marked-candidates) + (ivy--unmark cand) + (ivy--mark cand)))) + +(defconst ivy-help-file (let ((default-directory + (if load-file-name + (file-name-directory load-file-name) + default-directory))) + (if (file-exists-p "ivy-help.org") + (expand-file-name "ivy-help.org") + (if (file-exists-p "doc/ivy-help.org") + (expand-file-name "doc/ivy-help.org")))) + "The file for `ivy-help'.") + +(defvar org-hide-emphasis-markers) + +(defun ivy-help () + "Help for `ivy'." + (interactive) + (let ((buf (get-buffer "*Ivy Help*")) + (inhibit-read-only t)) + (unless buf + (setq buf (get-buffer-create "*Ivy Help*")) + (cl-letf (((symbol-function #'help-buffer) (lambda () buf))) + (describe-mode)) + (with-current-buffer buf + (goto-char (point-min)) + (insert "* describe-mode\n") + (goto-char (point-min)) + (insert-file-contents ivy-help-file) + (org-mode) + (setq-local org-hide-emphasis-markers t) + (view-mode) + (goto-char (point-min)) + (let ((inhibit-message t)) + (org-cycle '(64))))) + (if (eq this-command 'ivy-help) + (switch-to-buffer buf) + (with-ivy-window + (pop-to-buffer buf))) + (view-mode) + (goto-char (point-min)))) + +(declare-function ffap-url-p "ffap") +(defvar ffap-url-fetcher) + +(defun ivy-ffap-url-p (string) + "Forward to `ffap-url-p'." + (require 'ffap) + (ffap-url-p string)) + +(defun ivy-ffap-url-fetcher (url) + "Calls `ffap-url-fetcher'." + (require 'ffap) + (funcall ffap-url-fetcher url)) + +(ivy-configure 'read-file-name-internal + :sort-fn #'ivy-sort-file-function-default + :display-transformer-fn #'ivy-read-file-transformer) + +(ivy-configure 'internal-complete-buffer + :display-transformer-fn #'ivy-switch-buffer-transformer) + +(provide 'ivy) + +;;; ivy.el ends here diff --git a/elpa/ivy-20200319.1247/ivy.elc b/elpa/ivy-20200319.1247/ivy.elc new file mode 100644 index 0000000000000000000000000000000000000000..a94b9169d2f160a5cca497bf4266c883ec5e091d GIT binary patch literal 202406 zcmeFa3tL>rl`agDjV1iVaqcsjnVhXwWMD>(dtbU6$Ynr)Bof^sq1cXbq6Ql1QPbV- zi)8%eobRun_g$;1cJ194(L#*oc}|=N*n8K#R;_!j^_%Sno4=TunVJ91Z+;VOwof~a zX8lke8m(aaw06)7Ue&w3M!OY6mE~Bzyl(VQf?Bf~v^)LAY2*7^AD?^6^YU@`q|pnG z&`L1q)qBC=S*v#1I0z2g2fco`(K_zk#@BAIAJh&H>xY5sC0t#OR)^X+Y@>};wlVwQlX8k0IWc?rW{Xpw|u#YOP?u9yHsvOebb4y`Wy} zHXHSB&_6-JDAsLW_ zeW>omEFOmVhx%cRf5|P=20xbZj~^@e$B!(`-__4P(ozxLL?{uVdKBOEUM6^f>QTji zi8f=@h(qsXjH)pjjT8SRs>bLwu6i#MR87!X68SGtH9==d*?)d=E9k7^kF$cR6?9hd$5}zu3OcL!4s_Ft2# zy&S66G}TVMYOQ>4?V)NNQ|()?S~p**zkOOf7<9Y!R=;@MZ4WxdTC)KZ-mQN-XmnAeS!_1;gT||~VjC#7 zSvv#1ZZ^6B5x#BUuzt|2b?e#y%Lc7RGbrq|4!ZSIv|MYF()1e#_~QVCs97gjSuO-? z(j_Utt9q+ZZynU7r=!{dXhY#H2t%>iK6n}Ei=%coc!AazP*dNS3E2MmQW~%`I<55& zPJ%`JhXM9_9D2LE6fEx74qmcrP?Tol_@uwI6s&pg3OB=AvR}oDt)b7lDOq@Z(&*Rm zuKr!Wj+%WmG@;?cTKDBpyOnaST90z=?l&|7x8#Hw(cP8+Sp{^01S-Yv@OqN|1B_Jg%X>!jXo^wY*L$a8k5%ZXJJ@+#f; z+TC&eayN?M+pPX!%>NbMVtvc zV_(+^WWj#BdH5D{s>*-4X6&9#no-aiobK1VfT1urZ66Mr?I4~w%lK_(xsU&jj&j3e zLt~HJ$dkcI4mC5~ETi+yGI^U>9v!`tS+3NQ)sX+LBHKS8#^V35Q#>$p&q3bV$@m_0!IsTedRDhyL+7N z2QP}v`m1`gn4GVV$7n%O@}z!nL>os9%s`7~`#h{4)dtP++mxA;ZApc-SB+ky Ur z*v+%uwFmuPD4>XCIBsD zJ4^QoT8!)-v4>L}xdvN-;$hGQc5}^`W{0gqSGZM7 z4ub-Q65I@LVmRb(d;K#^2CD!$LB`{4Fo$NP19$j9%F&G!m2vUhFJQdS>V3=w%009N z9YKM=dxK5~oCDsmC89}{&e(hF7YNM_l zHu_K%=926NCT`fG;#jzVgsXt@#Yw#-T1&jSP1UDqss}A4HWV9#DW}VwvN0p4ztyHr z^aL2KKp`5_aw9P7BQm>#SCTOT5c(~)>aXSK*N(u$m)B zbg!ZQz$xi~eIxR2^rX@*+L8VOdm?lO4xjZ@_$2)TdFuCwUf4Nw4)yOkxA$5#0MSY9 zRRiPeK_3q-3(w|@-s=Wt!=t;`60Ll%-j|Ud);my5pq*CmV)Ozm1jV2hY&rl!AFpa? zn0T?*paw=w15vV^EC<0|E|UcP(DWvI(Mp z&EtwDMFoYf8ckR-2CB_URa0D6>R-s%0ZaCqkJdZSA~%J7_G|mv2kq0O}YN1KW z{8}A5q{w&+=B_bx>RFauBBwv|iPk1CT9k;b;L%anKwPwAx(6Ov3LCn;Q z%Z-K{#yB*y)ov~Hg*VDdRoF45tUl^_>Md2l%XD%rs|3h2^dU%bi+N z@jHR(DlWmuSAwOkRJFE`oUI@u4CIFeSw_$aS8t+pptG_F2QUgrAH~q&&uU4e}zSc@hxl>PSMsE1aD| z*}NQlL1M?_rN^1Xh+xAvR-ptYgO6#e0a+Px%V6-dvPXA<$0*!=-ROaSxpwzj(zgXQ z47-6b^=mHyMK!|>qt)X9Z9zg}x{xF=KeVvdvQmn0RDA0X1z6h59RS&f6nI$fQqG6Y;xY=eJos~AG$b@%<&ejdc4yETQ@F!#x$=+IAUCFlIYg-AHfEdz0rXTM z0x4I6r-PPqITof{$D$rufOHFC?!}t%`hXJyAWcQ){)-$E$ki>5sFR|v72vP8In;D) zDB+*{hMm6zV|^I%?9(rTXFrV3bN2Ith1&d?MnpnrN=1ZWTTfvlGu3uP7#T%u}j zaqLhI2dmpZ81yF=+}}UkFT!>Tq-)SfevsUZVjX(>GYCawUfB({x;E&yfrEMwb*8Mj z107Tm2+SNus|{8xcHZu#kt0Ax`!%2jCP*>qzC{~c&bOI>DjMFRL(65oO#@WlIm&hl z`Us(6nju*3){+4*v=#`7{K0X;Kn!Lqw+m#-^sGX~UY`z+S(Kp417ANi#D?Rf8t&VU z4`Z@a%4jyU0hLF0M3$)u`$yh__wMg5fv+>Ke3I2Z+H1Waf)=He z@aI~dgpH)eXg$#)l^hV-lqS{>K?_VtP!83)!9T3#SQOL-!``j;2i?}lrpQ3%alc)l zk=WmA?rb6QcY;7eV9@6@+GB}oui6bd!5x7*;2eWxrf>?khxz%Pqu|A2N>y=oJN=WT zg#bPmP#R*q4Y<P5?dX1HRxLPZNaM&ZZ>6jbpBEUf}uT3bdH(1I^) zW>^YKvGAGEYVd&U3bw*1rC(C{aSG5s%=3dz)dA-asLE|AzkoRe~xh^jcecJ(Sf!NO0C&X`4QIUQGrqbqg> z&`MO?dX`JorEi3BPs#yh+u`Avkr19Re)8&QhfI=4_GS*)2TqQB8;SmFcz3`-g^nZr zlQv}6Mr+=+!=nI&l4>PI=mNWQo~cutWOpMobW9G;>v-@Uij%6`?Vl4^cx4 z!{hVLovXG6ize_Fl+RJgy@$6aWvBSV5B3Udf+mk)@FhmFXZM^tG*k|g1BpFDm1@X2oR?xW>-_ovEN7UL85L9b_p8scn^#?-6u&)Omx|orGSk0PB|@!nI*_g*^Pt z^*D(gvaO{gI+f{y-KQImp51-?^x^hXtjkV+fihyVcDjF9(?!h5jcpiTvDoAQJi$;U z(|Jz_p+e8ncqepHpf(dwc~vl;YiGXG9P~t}G^m%HoH4{=aH3f^Ljw&p>RC~M0by`N zLVgYN;}4I}Fi(682^73O&dhCfY80A8VxHW_U4U% zGop?;79*i(Wz|5@2;!_Z@rlr5iVOiv6pJPY8nJja*y#7E#84VXXfVu$lEY_@pFiE) zCV3WBM~`Oc18a{L4$>V;IfM#7-r*!KIiG@tZC%eM^k3L#*dW{82Gs4fW>JT{1O*AK zXkgMnez;GaHoa)DX$BZ=`FVQ{LhEsu!enG$1IQr@K^;l6DkMPAoU?jg3XAe>ZGJw$ zf5cf3zFN9 z=lbk=uw@F&;yvyZfH=#)7Ry=>0wJd(W=uY2aR}~~l!vw8Wx?^AplS&mv>u^Z8z_9A zK+bN!whk9F9H0)poblVRB+H7!!?ko z-*Wu7)fd2Kj&T$@4vz_sqm>Gv2UZhxCtm=~1{?~hh=M=X&rYGQwyJL)vs5a|^^<;p z(-0Vh>`j_dz+DEbq`WA(O;HQ;4fvswy}+Smg!A&tC=Zr-Bg|Ol4f(1}J95RwULui} z^=ge@D|5+4%b=Yo(@uo(M45In7jC4M-nj8wj?qqRuf=E?u!*s~6Qgf%DJHS^Y2;1j zE{?w8WgL6!Mc<%hcQr@fV1!9#gk>ym*|JT$Uap1v^447gGA-D9K-m@^NZE(E7IIgDObhl-P_~7q(!#S` z3-(G-wyeG6lYRT8wD47~1$$j6Th`nb`X*OcZwmb__g1e6)y!MP)D%rlVN@vg;41;c zC`3SF0+38P#Ze$E`~ZRiWbZ>VjbFnTt5rO01G^MqWl`-0T5vB=P#?6o{vD%a`T;5? zx;Tq|RoV=3RKjXCVS^|p#-YMqOS^^du<6k0N!Poj7m=+Ep19EM)Oy*Tk__4NcY}dsG^cJ-)I4szp=_7em zR1L9{=uE>#o^t*TbZpQuxL2kKzu4i7`c{OSS#7^@1VP0w^h)v8EO5kirxN`fMFIf1f;E_lI{eGLSD4?!=JEY!07t%x# zSGkO~P1_uLohvWLWmFCSL+~}nj}`57;gba0<w@djbYniM+Y}aqKIOJdZ2F;tsQQ+=FXph@(_nlt z>;TInKf?kK8-L-4h2Z4u5FRX;<>&kD!?U!%RUI$|tdJ>ORc@p4+e#+SRL+u`vBY_9%uE@?2^I6g{wa?Xo{Z2!0Hf-?3mzaa?ow; zW4mG5&>@}Fo1LKWYprrxJ8m3^r9f{p)?2T>3Cd6vsYV&Rih4vu0aUoOiSgoNu#nra z0>>!t3h+@+JBe6^_RS_@Ph8kghb9UhaFkC6%b6#)HZV75R)s!25|nRpRx~ zXaV4<*On!sj1Ldo1<1#ul7CSA;{M|Y+r^Ei_kzs_#V?12KvSbwJkT~%Rjh~sRxS`B z534md_t_kHGjbG=scAc<{6u{jTfunJ ziugkC?2T)`$E?fORS0(TA35m2&JEZe_X5r7SgD9QC@+0seVqpmRoh^qo&KLpxvaER z)6fhe=)tb2+&-$~#wu3s2p81?jJ~v#6E_iz2 zl4^DbJQc^ghA`=eN|-=grtB&inCt<4LX2N{4d2IOaY~`gt*$kTqT5OVM&Xj~Q_wys zlm_7tC|1KUpr`|x1do{|;Vx9dVB-Lnx1m;OLdRK9HFbeXv-D&y&?gATM9y-0#>XFP z9f+sSF_4`6(5Z6>bXT{;b^^T%17MWO_tPUj8N|(+j#^T8l6eWFY|lZp9O>!JX(7;S z<{VfR&^XZ7i4DO&j$9%zT|F;Mr~2cm;X18)`LLb#b!qSoQ!*7$9;&UbR7794m_xPR zU?#wLTFNeuz&Q-IKAfkeE(q&sLnAQve=EF$wRZ5n5><5xF9z@4T*s2`B1KvmT7IwiV@))*|T^j-SBn$3t0WS#cuATP{?2v36 zu&Tq(=O zwE(qs#Ebm#Qg~HxJco@Tpv9ktR@6BrFVLoAnE>OikX@TG{Jk#V1>xLv_P%j>)r0h?RC!1Iy{-|i%|mo1-D=G;0-wPjBY=vvM0AyNk zPEE%$0lr-!yEdcnw<~l(D0l6=Z~P4_vjcPlgHGN7r;^TXJgkT3<-=*bo*K+q$?oFi z;cl_3Uz#-uSFG~Ty;2>ieUx!b0BnCX2-9UahWk1fe!n0%%Mji(%4R$<2g*rQUU>(g zEb|%<#nE}8_^69098-g_)Vh2)mToQ$ONT>tQMjPvQVS)boH|hlG69k^3nJ*blm%re za6wqsQM_+p_Kc!YvRaMb0Wj;t#zXVDd1`f1nHrq6+U3Ku_H%gvJ!A-t%CL!#0%$Xm z2@suKlTl2ymbf5Hn}NJLF`q zR4K(H&HH8~6QDY~CZnKQOI#4D%|PBaRC^}QsFJ)B6Q`Nkc&I)%|I7e+Q)6lg?0D%K zY>C}>Y5en$6*HLGf~1TC4LwDv&?He6rY>p zP@mwb;aIC(K5jNH%a;br!&b;@QW*)$W+W4!IlCsKaI==UAViyiylwU)RbRGWdkZ>aXo ziva3(qO=oOoM3S|x5q3(d^0rzqPk8E*=g0whwikm%Y*P?3**XaI8sCHjb;Lrr={%r z2&Cs+X46s^g!Z(d_pPN4eKX@K(k8wGb%-~+@woil{vvw!YkH73_3VCLp0?U_ba}u& zY-?Ptj8<6Np-h1E+_DIm=Nv{%kqg4O9n1Sh>7Kz6VJO~-zRyl=EOf7w&#S*4jx#zn zZXa&q@?n0s&&vbwK%|=o%M2O``|?o{3N7Sxyn$u=FnEiP6h9LB2S*_lrwI zI6VonDI@H@U*_3CATdUwxV+;sWLJfs>1eyETd~O}#EjT3j__Q$>q)Mq3!ekKJntLy zJv(a*L+iV+v${o^0PW}2d}`i-sX<+<*{!@hIM;qI56FjXt%!Rz`ckzS$plU+yCwqO zIR{29aY5KN19{(o?b%up20D5d+I%y!v7FKQZ&#SucGH8kMw0n&fNK-7=CV}!(U7?n zVPz1=V+6Bf)@l;&wxI%z$xc8!CoP*I7lm!JEbkk*J(Fu3ua;G%b}{!{yUgRE``mX* z5%pwh$VQ#ZhiY_kd8m5G;ELc?t0Rq69L5AZ?JWf%xtzNqiq98>V)p;OA=opv#<1nR z6TSn}8V|ka<~THp)YJg1)h-`~O^~ZgL(D_A);L*R9jUW7Bbfln*)SKEx#D@fA=E`?e&bKUxg)>9Qwfn35j(2WoB9xV zb?xq6o?Pj5c6mo&$UGZYfa^!`;QnwXoB*$wT_QOE$P?kK7QJE@gnzH4_YVG^i558s z!gF1jOT*bAH_N10cK$?%&w=Dzlw?B46n&Nk3522^j|l5OV7fFD`zwy$VAPdR$Syot z{+tA#AzqvYLj4R^`U1^55^O$3E-uM;gg4t;JDVH3+riWAKRw@hx?Oy@vAcOc*m<UePrqX6XWOhA{BirMhZ|3V=TEj!7dcXbXOExm26vxsJlqbx z*m<<|_>17q^SgJE@oRVc%Uzpi=lLUkLs!K+&vzbd;j8q9-&UIGkuw1q)#%4kgfu+8UBpKd?e4Ys!L20Qm2J$||!JbeCOcc*Cb_n`l$8%0e0 z$+K+8$n4tLLjc%}VQgf=fD!}8hkJ#Mbv|6dkH|h;#Y1c#KEOj_A3nrG**+l44^#Y@ z7Un*}Q`J3PLn!%@d%BJ%*Vh~}TQU`pt@tsXTz7MOM|gA{&iw#SX^)@aDeduxcuITx z6d~r*9)Bche{2^&##7qiPw

_)|Qk{rwD2X@5V*Q`+Az@RauVPY6Yy_V>?tN@w^> zJf;2p3!bFExqs2{oJ{1Hlo45+Ss8E)7_*YO9re`)Gc81ntd3L*)d&Fq@7 zrDCLWKoI<)G7<>?%DN2@Xe&#a0F8-{PSHzTnG5viTrmCrJ_`(f&|E4A61tDXWoss< z&zcwi4DW1ssI_c_oV9F_kTn}ofi=v9b7sF{r0})$4&$2K0bA3{Gi&C$!J2W5-Kas|VJcS94tDw3@?e&Z>7*?MWTs3^3-L zrpMHrQhP{wM$Hk;0HJq4{V2#;su>`u%K@Ryi#PlK{Aw`~Xk?_-T>i&c6djs1Cb}x)p{=x43 zzsc^+{p;KO@3VjX2ZPr|COdGG|6uSg&ixK?bN^uQdPsJDmh(jfuw8hq!QdHw#pz5C zh{Gn;i&s}xrc?z{o|ojkOytXe^UU8XSr6jRt{W_oiTj=<@FQ$sUIGamE+ltKvm^+Y z@A69wzz!+{VCS^RTouSQQDoSC@NCM6k$H28MdhuLIq`RfdBt;veZ{k3V6~RYo%mas zSp4DGSo}>!7Qcj*#cyS1@rSar_=5~Bekn_fKa{D(A1Pal2gBInuVL1fFGo5h$_FEb z;%{Ye`G>jy@N@kLKb6hJA3mdtN1xRlpTUEvrOAnrUtqS-W(`TFk-iJzQjjDR8BmdS zQM0}aA0{d6!G=i!+1^Qe&_r(USHPM`@7_E^E?A`aV1|06b~t#6RHjHUitNE>?Ey4_ zEQ^$7^JzoeW2TOORd1fO(a-GMqVUvL5@rc&PaS|}a%=EEH<;z^^NAqk@dp6CV;v~GP=aby0lW@ay zQ?8iI$nXzf7J9a5#V^@nPJ1ChA`|R82Bn%y!@}!BR&^=Z%cY_B)alW+8`r5S(?z_dI4 z#%bew=*RTgq`g5{XGsL6sdxwsm2&X3-XC;Za$=a3O3w>~Pb_z*-8z(%r~b+!UpY$Q zOm*6gR^J?&nyB7IT9xm`8nSKkI~K7dVu0xRslto@66Snzdmn1k@OSJJi6W_o z1v~yr=tQA)g|79+zq`ixrGmD@@Hco@{+gvhfnsQ|j?)346B6rXow2CL~Hgd@|`X|i2(_^;7 z22(Su^(?Jy0Sr0gS_e!XjkGvtr~B{Z|}v|FBZP}&%M3H<$uS|r3L(0 zK&C(Dk7G_LLUR~2(JN~Kt_zF*fx`Izf3EHA^V3K0ggYteoZjsk3BplWk~Dt1L8XwW18SBNvff^ zATu$&x2TAJQ2)+CwI$zf^Yate(&^T(AT0%F8HVR?bNG}6%2!*q^0Zz9I%)I)KKu3l z>pIw=5;NWFBA(Ql`82=9CT|~*8mE&Ea5d3wSP9LXUoao-LeMypLu!vvyA`|!j2b-0 zJeX%pCkv!lKU|)FjPu-m-RRYC1D?sM;W*`1hJ2c^UFHav!;*HKITUVP$MDtJ)QLr~ z)JQC9&tazd2sf|=yjH7bVqU@8;UNy0!9yYjfD<2dk-W?x^g(oBR%zI-rvcqwE z31gBz1z}3BV0-z1GUyd=6?DFg}n`ZXC?p$pw^P@I_j}IFOH52(`E$ z^hG=&wp3h?rqe@d*Tv_kP4;*xBw~-iAeKs&R$jxiq3`X`5KyWJ=FNIx5pI)>;|9ns zvVw9;aOKW|445G7=~$VEws~;ATU+=E?uN2?sd~$xgM$Ge^Atv&gC-dKVmc3C0`ep( zB+>{}8#Mc}nt(31s*X>z?of#Hjf*)2tf#nkuuiAlY#czSfQp{T9VvKQM~!0$?1w3_ zFv|hhftCVAu@Ez{ySNWRwJ3W^0YM z1IGlmnOqxg|2=-7f@=?gN*s!mggTO>DyS6z@2 z_)0lJFa*%0%Bn}|+K@wqDt4CVx542;KBJ;SSWwvrVdh*mTO1?dQio18+5vU-(Q%~` z>l!8yg&j}joqK7>M;zM5$fj8h#_g0HtW?cxlGV}d3WkghoSq=OJY|K7cCTMQzP^^Ji)d3%nScRS8 zPy(JB7>=Yc^ym!aS{n5K7_AMpYLj1++M& z@-2w&s@%DLW3MGTpP%xT&^jm>O4p6fM;y!Ue=JT%uJ z(mdBBhAQxFWB-zpdy3x&FK)zfgDhks1eW& zMRXHMh4)%G9Rz<6TbNyxMp_a;S)dChAG*}`Yd4b*aM*r+~P+vY?#zDqsoL9{E1$yT;ERcDEg6Jh} z7f0=){8?D6v#q5EweKKNvRDBowec+01{MY!6@KQpqYcAs<+-Lu(BpRqyRY{HkCb3L5@<9v!xK3XEH1e?16s;86oG{{3J%;H6VLORFIWOR?1g_g^DtylUy4)Tb;C zA(~@#EY>5P^71_XfUnFx88FU=WJU;Deh8K%dssOw;`o26+VA~Ew5yOe{)}T@{;|W! zM8sG33R?!V5MQNDn2GYG(@V(QiPMBPfhM}ZNq|=g3b!CNaD8x0x^*b+Y~p}q1>4UX z00^xU+I1l_1Y!zh$sT`b{FY0q zto~S(%d>kCbkGp9IawmUY9aWVlgmS|!EH8?JYZK-ph%jB2Mw59UMP?GyM^1qK7h2n z4|m64#L+Q>hJ+GL9J6T-BQJ-EX!k>P;|95-*EW!I7+wPbzz$OV&XEs|n%It#qBf@d zCWStyI$4GGRBmF7AU{;5C;zO3K=Xo&XnM!^Agg@Jbm2m`ZyI`RvdODK*}N=~SjE!b zXQn;)go~&fCTV+CEIkqvSBEkwMBHMt4Jwu1Jpg{}wy`W#;0KUAAE2ZziGja z=jOJyw#|y*TphPeLja_gsn879;iDrE0Bv1v8c?ZR*iy^&pEsWB+0PVn5;t|{PG(jL z_veiVAYOZ|#iLfh+IS8=qmigh_50T2O#`Sn2E=0Z!}|W<81UIWEt1;VL0aljWTC_M zf!Vua9m07GBGUiX3^@f1v*e}dgRQMAcIGIl6P5|4x&kxPN>F%)5^h2qF@!KT6;dio z3v>zclUpi$W3GBs;^0pMu(3qM#MxS26e%z^1a}^9eHGM>Kwe+hx`)(Gafv>osZqWS zAA@hvS`oCM$m$C)taHbgvFFa;jeBnQ+u$)8zX()LYl52yckbK;ScIiJckW~WLQ`U} zn_vNSuHAJep91JDEhG?&Vct{uuUR|YKdiwi0XwoVvJ$6{iegbYte>`_P%KKjy`Zqo z_Sb@2&!G5Tgy|PKb5eUN{2BVxTZGo>vRp#`N1VvX9N|sO)14M$n-PE^?#iql=u$^` z&6Xz)A`nqR+`AHu-8f+k%{7#vy)*Aq=-&QvXBQV>wzh}&k~&jkY7$9E5LzrJSI~*w zu@9;7s$!pnwIxmgdNUT`Ujk{UZ4$o|&-@sc?{95!hh5Rn#}oy!M6oiB#}$w_KElfR z85ywInqUhT-z_;+o8DMj#2c2v87vw<=&7WHu#A%r?TV~jdZGX( zpd-O3F zjfg=Y%c2Y^2Rkk3K>K%T%F}est#vJ1>)!NLVGTe1Q72%tyO3 za%`g614HAhKY{JOG~J2u?3CPlIY84LieRy@3GfA+JCo;HPzVYS$xHjM^zb!KArm&3 z!A~|Kih~MNTJ???$9qLic%K+cC?!*D`zKtzy8oAfrN8t6pJTex+Y_Kr&-7_RG%gwPXw}sMF21VKs+qjcnNL ztDEa>xt_(!Ix=Su+HbdEBxo6f3^?^vVXld0A;IZd(Bd%!^=dS+{3ouBjbAlv^j~HQG$zs^dZ{JO=8s8X)=Ez=++`xPm@`y z62X?J?yThM{QI~%VR)aY|F@`9-Vlj(eGPxdzbAs`B~qaj5k5h_GLPymWd+&Mi)5*< z=dsII;*$6lu5+N^6yC+K)jhSpi^4ZTgRD+0?bcF2E;syL0j%=P@TN!kqm@uX^S}ZT zoo}mPu~#e6*o^`UPPyN1(?>JVCYPe;SU$TpVly3ry?`qrEc16k5qQ;c=5T3~faszz z+omf30V!qAg#DLy4l}ufGCWwr9jFWoPd)7FHG+XMqSt;zSixK9d3m2YGc(_Kpnm5S4{*zzEVo{hzVjRM<^b zy1`oTwlow6X3lUO9B!9d5Ot=)v4trA9X;G+OUJyn1|)di^$4rfK}vb2-x6#pK%q#^ zAOe9ezRnT}$nmfz!K&y4VcO99&_&ZO#`1Ior(+zbsIn%~w!p(w3=udQz~(rAKj-#g z&L8heQ{k}$4WI> z8y!)h!o&!|5(fLQvyfdeMbcf#+L%po7{IiN!nEhxdbO1ijZLl6AbPvN59b|Yt^!vm%rvI6bDl?R5(KD1glJO%3sx22)H3dc^^~{D zGp_uI28^jsjhT0if{hMQB38IS^Kyu+{2~@0VBIzy0NMwta(4{zVz+kKXycNR)z&ro z^;3a@@!i9UbgtsC(GN~rz106HsRTw+_J*QXBURl!!}&FTk^8NQyR>x+)QQOO>?c|} zV>oNpPkU?gG>|P?pPD6zE~hY)foKxbrSA=fFue@pi1E_~(`FBxXb7(XFNj_Ol%J;# z!BI-lulQHhaozudM>UD#cjR&1VN9+Y3Zt-$@HS!Prd1aW(fi3tKWEW`ZTJ@cDc$rY zL47)%Jq-4xW@1`uj*uvzlyHgiR>0}@udZXlvL00amOogr6G=w~B{SUXKty2@@8f0) ztc-BU6Xc?*R|G32A~QycFQLKbljlrdE>|og4p#C_Ky(`?g0!_qn=))11`a9aw(78N z$YBw8iLRCQtY7cjgP(YJHR5nxvdpkE@+ zm7s3Wz%oG@|4=$A&3z>0V97&k<_6BK57;t#{Qv_@_V#A3+~ebiJUZXv;X@htw-|Vo zARts!Mk8}D2}?jEQ}xORFq%{%wt!i%s9e{97!|7x6(11Oh_R4Z0+v)hKiLTwcwo+R$55`q1y*B|tfNk&0rR|9%^` zVKH4U;Qj%Wk8tD?RDU=S*IhI@uL1}(fmA!nz1l!r#Cd6BSi#~AT-89_H6%(4J=s&x}8#0C>|DrjvPX~@Ehn%8LPREP>_-P@KY$# ztq(UyLr5$uxXlR?`TLn!BD~oTH&)h-zfB_VScV7@#LJK_w07gh6TCHKu@u2q2V_bl zENKN#AjfJXdw_2w&ZX%48SSx@{DtK~9;512X`DkLA7zWl$5NHTQ0eOIuI&nRFfM(3 zWA8|)R}YQobyWP0KQ@#L)QR(t6E!5WU*2$~Mv=x|b8$4?Ty9oo*Tpd^{SG4p7&TEA z8Tl3t*KY(Zo*`&)B;=R9Sy}|wHHQ9>zzW^b_<&b(#+x-j7bRR+MYcJLo5ZDcJ2V=X5ug{dca)_(i zsVRIV)cl7K>Z?)kfR1={%&c`^f&+E>44|Or_Lc^}Ef8OI+8tPLL>tl|juI0Zc?`Wj zDnnF61E!o#4}cNxoYX*XhqB?=k2&T!;Aug<2Czp#7W(N7TjvIH$H&OSBDvAAoeqSim* zV5E3pSkw~jH0uCY@qB>!{1__XlwU=|X=|(FT8p4zcI@m28^iz{(cDKH_x1{4oPYw% zA?LBRXLSw|p@ie)8O6WyE&L#-oP0L7WN~-BB?i{i3nwK-=Q(|Z_2J!uw^gd~J*;lksUCE=ZUeZ^!~*qE4B{*schw5+{s^9vV{e>U#Lxv71gFGme2g+dy{E%u!2CIckhqx7;TvJFNYPX z63&2u$55MrA{<2rLS3KTSO@D|ia!M(4n%zAPk4xaG$Y)sB9p>8(7QF1RKhTnoI(uV zS%rV$bjEJwqacuz$%Au?9B#VgIhSG@S8>Ukmv^Z_Bx~h!YK9NPOA{EweGH5|=;C2u z8LfYTsIupsCm1x-FuXQe12mJCQHMy3MJ$3Ko31=|38u-~A;Woa#2A>l4wT-Y#(bQ} z2_BJt|AMrDLG9M0Ua?q!;cc>Z9@!pH9$5NCP%0%9bI5mLn?B*6;uJvBK3)j1RM!CD zg;YxUH43HzSt_M~;i2AJ)#lGxD6Jz-uOKLjbo@HBwgc%H(dsFxA?CU#nn5cg_y&iT z5*RyFX;?*BwTb%vC~)dLN>t-g|+Q&6}EPc&RjLZlh8k1|g_ zM>yZ{dA+S~zS;kjKFcH5n-T2Jf~PGa=j z=t;|QX)+k)Oz+r()PDdbjVOWv@`;*JqjH#w&Bp6<#;GHViD=0H<|7gVf@-&*JH|mb zcX^4w+&AkzhzcwUOCfYv43MEN4M6Q=qnrgjgYV`&uS$L}#z(93(;JEDO%2}tZME42 z?hQBL8mD7+_jKop^>9y&wmX_<{4hT`nbVtiQH!SXrzd_^qO#nm&R_RU4-;ftOxS{Q zOhz@4Yi0C6DwUm??&o}Tj8Mw+1BVgyK-CtP{u3}O19;=eI|zb@4%Ej8ZqVX)1InwuEiocI z^l3#TAkbUDBTxIdbPMf6D|BT!5%!(~ zAHjBtP53A7#9E9IM_@OF zdWp^wcj=_e>=k^9?;1vkFjR`SO?#L<>}9Hk%r=$Srpg2|I9&3gIu)g1NKJ?6KrP+; zkfV=qDec!wvp-TWEtMHvFG_xjADC8@z@L&xKiDoRxRwoD)ROUEtRIA=Z}x)YI=Tq_90 zqVk59I3fl(BSAdDA#!~6u zP$~HY%Mg`C6No1H!5b=ybMRx=g}p^#GIQ+{90MMN3h_+D)~mBO*c-76499Xb16DWdbNAm0F%-AtCf@a}SpHqkv%$RD! zDEt+aiE$YLF>l&a$9R}vaTB&0SKd$%R**7>mEFx)xM6&&us1}YlbPyHX9-gFSdR^5 zDyM-l9EdO>K;|M<8f5Ck99-E3lO>gg@cwj6FPuyh$5hcQpeHlu^s0xxXvtc7q?9x8 ziJ{1*xPUC2F>cP0!-Tli>-XTVO|&C#(iY&)>6p-3FHdk7dh)NIfAb$}%m0r5OVmkY z%TV`J#-{u{UqaSJm&`Z`cXX|WXp)rlSO%|qy9E*_3VarH!o;G8rdUg(Q&y4^LI#he zey(@b9N}o;@F|8E0B($G6c7yXS0oYmhYf#=5l)mv$ZLh?icuCBB4m9r{sXP0Cbo`i*uWnkNZo`1zMR-WI>3rJ+mLEju1mL; zJo-BW3Ukh5MM5(KF9=I25W`5O2u~_8N)gx;PwV)HxBB3PIOV2~R(Vl2qG$&TGBy!| z9kRU9Z0I0|G4U86tB*8#vA`tFiZYpLkF6RcN46}7Vv1S9ZA>WdY8k2^%5A~jod?@R zt!2HZm7oIKQ@X7&83GW7diy@TRYcn1+We}Cb)XiWae~5zGMxiiI z7%i_Nni~;9>L-L_Auu9xG{=sAZ{d#8uk9m}0A2p*HA;=W^&WMsHR&Y}48{m{YUs}3 z3!*y&jOZiuP7%KOqU^VkI3Q8-E-Zvf_TgMnvNyd#_}y$O6;c;-k0}!<2DqFKU=hV{ zSgyr=9~x1Wnxz25TLOz{9&W znd|q|cTe;y>f;cQIT96%a{{;lKv6c1n9Ns|dFr*J8KyCWoS}$&gLSH(km2INul$N! z6a#K&`HMfGSQLHoujH=c=Ny!@6P0Fv^((wez%h`kQZr|u%nq0)RuCvw$BObHnu+1q zZN?spjiB=PnNR-LCxP7M{eFfFTr8J{%716+n9K;Fz%t12r8zh|02%I|V5LvMWhgZS z2&MV}wT$w%p?sVyI}6!NF@SOhsq_1EsBEkzN+eE?0T6`DUTKf$Kp~4YvoT}HAS&c4&RJ`IHV_uQ6nrq}py}R?J z3BWUqj3Lu`m2je*Mfr+I)1~+af=l6Q3RL`94wC|!>C|yMf_`i)ph`7f(QLp}e5En& z9U?k_nh?myD5z4Xvg#%XYF^?1rz7<*)<^ewet90szvJ;t_F9N4hjE5w9zDK1!ZD?l zt>l_hQ3r2v3=v?$cmRo{Bpj2rHSIlkiJUn0e0d;X)PUZbcXVt7Y7rC&Y&ErZ;V{Du zJ(d)5Yb}(3I#=F9f&O%A6hCxV(;gRZ6R{B$y#fhuv(Q{tS(mjJocGUEuz((cq;Q?$L zDL|~(8y})N97{xOO(4YM8;FX?t??JxZ*aB(FkQK^Zok*F-xZBh%4I_kL4(7;;~kUr z#+9oaOI66i|Hj8Kx$=aa{-2pytC6BqiGLVc5;0eA65sq}0cFr$RGInYGXQszJQroE zykUtaLPo9~up2y6|G+=u*!r+>*9BXRj3lLTGHsM$77;Kx2PqgqNx-TAH7Ub_C^-ea zv@T$mb`A%}E`o76u~xw{i-!t-oz{D7)vBU$Mr!M?EyNV15x?l*? z8?mbFfTw66L|DcWJfl?Qy1SYgsmAUQNGr(6b+$W_sA$C8zvwILw?U zsH_b|B6q3e1HYq`ga}Fj9uwOxPk&kk+U${4G8WxLRDRHuRr!}PpXBYKxvFNH+Zo#& z?_WeE@zxuv^BQ40mm`TmW2 zyF`T4jIcWX)QO`RAn>&RJ(#H`HIr7%v=M)dHVZqLQU$2jYYxjgt~uN)QzUxyGmN7A z^Izbnn(M(<^8}p(CpzLPNKJV})btJr!J3VEuXtuATri)GLl_eg2e^2A8W|kUtj5k~ zjz#{>`VEPv7QHFF3-K~3zWXLvP0uWtKptXYF`zzu%9zS3L+WCt=p`Eu#A6vLCyL{X zx*L`4F_ef)@Q`;wrEht~}lJc1yOQL7a34y9i-iN?0g zRiVu47Z)x5$VH4azC)%s@W8m%V+P0qb9RKE+0lc28e55@r!%lOBqXyLTfEHTTn4u` zS4rtdEsVRvmX`hbxUvZ?+;a8HwYxO7EQg$AhWy)cWyNxyWLEs~xUvbC8yXOAZu{fP zmbunts-)a_2V=`pzA6)^yRwAZvBe1_<;;+Q+Y!HJ^eUG*>T+h(K=qYz#o_t%S@0h` z$LGeyFjHEt);eDdOJBsqf~BWIvM~102&&N_HPwcoGlRq6TO!&nBdx<%L)_$EurtMG zNTUUB&&A&B25$8R`m1O{NZUuoCKkn5_H)s`Ut&QTC%`hAcpG5k;7^KREZP&?fAAEn zK}0`fQieLT&uf_!n=t+4jI?V|^WtXW8N3ErPn}!n4YdY8bugibrn=_RYy#7-Ny2zU zwXq&VYbH57t}3A~H40N8tp;nN5$E4%V?-$W5Uoj+5W0TB<{Y64HJlod350KVSNl4evKmUX~RFg4#+QyD`8~WQK#_Z zUYjcX(@sEM+XyiBLmK#~8m`();WAip8Rxo5G%(+{astcj(&H7|M-~Px-wYA76bj`v zCpMiKB9+?sOVy}^@Q`jhk?YOegyB%~EW(75fU6oYhVa@me*`uv5Ld&E#ve-*dD0JW zHrXsj+=gHJ_OwBwqNI$*4)X!nj_;N!V(TIa=H&iG%$Y3W9-!s_iNiv*|-nei5q zHAp~!U=hgY1>|`K(;%{L(ofu-SKh*t@X#)D_DC=4)RsWp#|u0Zsi8ppkbE5^O_=kp z&1w{e>(9h_1-2X!w|~hJ32 znMJ;a<$~u8*1E)CdKBoXbtwOI=Gv?%*MBN&%S9b?#GRO%ZlG}}v7@(rBH+2+nFL&= zOPG+N+a*NY@i8kn=)4tFxiJuL;8=}^tiO=V!i3eWe;#GjIpC@BFLw z&Y*7ODbB2S9^MeC<{iRYrYq~jeSe27k`;T^6=`|xx|||Xa>ItQx3%=*`FU3-)5P1Yk%Ym$ zrOUyU`keqSUJ$dcUs+i(3mF%s3|1?W`v>7wvk$*zQMV7sI6$_62DcE(4n2$SY;8?) z0EpR@)J|VT_;7QP7^0M2UBmND1#G6y@IuBkgr=bPi_DaVLC*mkcp(Kt0vr}J;DT^v zjkX(DjNp6Ci&-ri1xh&>nEKPDfQi`m>Z2AGQNbR}e$kTV;nr zNb|*LRqOTINI1wl*rI^t2Wtq{eIHgM7W(rr|#hKfiToB7g*iufxv)twtG+D>yc) zTD7twX^No0j7qCH#j4|t7sU6MVSX6w8pwG2JKRo(k{e9m+WdTg{}$m?^6yBDL>|yO zO&ILbUy>3mh5r^oe2^&-#f&c7gtLaaRlfh`H|Pu(f3Sy8Fz7C_N>O!k?Jjf`owf#p zHac*L)*~^9aJdtK@#=@#l;Q8Jo;NovPu*KZ%tLWB2%*A$ihNc~!76;@KJ^_EPG9dL z(b`E}F+Zl-p5^&xbtW?JHY8A*tXmqD1_Ne;nhW7*&_!K@3c?j+Mte!~A$SOOsIFn~ zi5-6`>^*+%wXP}SB*JDn;-(w zO7KKn4Y~7aW_5|fWDb^HZN4*pi9zA_HiUH*|CtC#aj*&bNOv`-xW}#jHdCva#ZK+! z!-tnLmR%k2KyqfU&0PO6&nA4zM7Za*s_2(99}AmF5eP>WvFAx&j&A%wsx0v>I7;KkX|16ph9VMpTME znnhH!sA9ZC=%&HZz*{cBAJqMz1k9y$BIBZ9;fxoDT_8-0o+4w`D30!bt5tYIE3ABS z8%+XhmgAXEitrQB7*1-Bjlqqo%iG)>HUXy80)C=!lH5W)K9nUjfG!sXiECLHt>{^> z?n#AHl8-Pwa#VO&pSwoJ0=CKxI)HFO@((MG?`V0q2{2AMo!J~9RaEgC8YsL_LDtAvw7&FekhU%CjP<%u7f*fvovm`Cy{aMU~ z(8;(e`yp*uLNl8Y+n5_tOyOnm^Hef84TG#q4WL-5w==r>Pwdb;i#=n&z{*^MuY=S7m}%r(%I4o*-=lIlMsxlA?D5jU-z;K+0uF z)d1@!$)p{8Y8x1h#Whi+ZOv{kk04Qziu>1Y-00$OCteWC11aIAwV-I=jxe$p=VHhf z^bl7Z%X^)^cdVm%LO@)S4LCD`F4wUG{gX65h?$yfI5*Ec=KxBbmFQ_vA_^G=F$}MO zETTmdTyaz{R2XJ~AF*{1gb3GV>{7%0-zo05`~CK*r;=F3I;1-l!Zb2QJv`D_<7hFw z6OcNEK@QC(BNRq@!)Gd+j_jx*(5iyR(kPn7BBeV^ENcae)Se)#J#5W(0{bcy;;9WG zL~yb(^BrMCc!#rfx@X!N-e$&`2J{3^n)NDzWID@9c{RA}-KBC(<@Dgt3ovLCboWM) zGFgkCs|{3}dQ=Mq%V*6IiaooyrBhmTcCdg^+j47c>DU9_)Y&B|))2~HiL^s1p z8Pb&!Ls6JT$Okjg>utr}+39|}iBp1fYT(O}C*EQd5)8p8DF7Nr`cnM=n@N{_VGth8=i*?{B|nbOXIyQO@j)fOT$N&$lb1YT6y4 zU8N$I3;qtNfVj}`g18?hmMfUETI)ag*v!wdbVQ=$o!|!UgS-7FuIxo;hIS@OsZIX67%v?D_=|s$TTnxF-FMj}QCy{~T#QE8H1lI1I z4bv-tEVR`tWS!0gb@>mI1%40?a0ZSxTz~|D07_1tOCmsr^)8gXIJ}IS)nQB|+?Hp6 zf~iy%aD!9-wwwntSMBJi)+r9UO|%Z*FmGwSYZJ1%V~_dB^CDH=66;u1$w~3L`in5Z%E^{oo}-PLcc3EJjeUN~+7}PaovOWH;fokyJ6U5+Y=iDkgX_ z!*ACrwbYM5dO`P+v!=oHU?kv<5tN&`z4mRvw=5;&bf0Zv$(Qwdhsq5Jkj25%LtOM~ z!yFqzL>L?{coo`*Qn`sU%DA9l&^B@A$O)Bk0Sd-Q9y=l%MjR33gTu$~sW>?@^noBB z-sBR5ZQ>pv=Y(84NPcb65EYlD_#XP;MFO5@iz!r`7daD11E)hJTm}=?i~P}lp;jDI zw&X=z2&(uKFYvF7d{&$Vrl$A8_E}W12{Y)Hq7%L_$b@gK+-ZM1rpCMbM@V$M=ZMWW zz|FvKgabahQV`wV1(LXQJ{1-wxStMif!*9Koh1y+&2Tj>uSaU`B%_Vs4ucXqzf{d$ z&$&|^QD)q5qm~m9Hk-N@!k1+p-AWzR;Uz0hq-iIAgZR~I!zB+v9_rRRWk_OEoJ3tP zv)s8O;=NAaO}M}z+js!|E9`E1n+eg)V-v6!fsc$ohLep9d2s>885|DjBE&1u8D*$A z9N`8xl3PmIoe;Nql`2F5{y<81l??*1Rb|RQvs_uJB~B|Dby-;(IAK`oACI5a zozX%two%g(a#@^9pvTbRw$q9RGpVFN&!X40M)97P*GLR+4S8HK?Q!E$Ji z%tlGh!bwsl3&VVhN``q2H%c>Vxh?D1j`-(1(n;__1R;6gl@vMS&==YBta?Hk1`rcj z;(XFj$RN46J3OOQ3UR9qt;5>^r~t^~Z6M*st>EWAlcklg~I#!a!S2x1lO zjt~v6oQLO=xEiM{G;&1y!#Gk+hQi{T#^D#XM@9$o5eZv3FvKhMzgtPlATmyMf_n#k z=Pw&r($~SIx$!xc|`MXm7>?^T1dw8=A4S+g@5nhPWnCKe>>YJFGiNY@^B6vX- zS?)W6#4FL3Du_`5jsF-BbdCBWWC?L`opp%K1DSed%!n;$-?I%!t|3#7cJjuM9w z!;_H$o4t8}oUkZ|tjz5XbT#rE0YDx7fx1JWeJIp?0?~ zQUpn>3!KKeG>RVH8jrBQ5$oV@4SbZr#d(;dTv`PX^Buk4;r#y0S<59PN(TX}+hQXZ zGqPEDYZZoIa10!W1YvE^$A!$3;gicrH58c_#%ALoONxNLu{r+3x8$YrfU6& zXyM1yFJ=8&i{zdxyOgOe+aYfp1(XGMCKdUn>tof@D@eWR)@SP2VB|bW_T@JfbO5_B zWJbGGU58w{!k|*r1)&2gYLC>x0FDNypxXyXPf{;Be+16sD4VdVhsZ`uutco`E$CMJ z;2l}R{4e%{WtnxZ1?%<8WO8sVDQqB*k@ecMtr>*~IJj1i)rIuiLg`fzinY{SC?~hP z*V=_RWS+=MsICY822zf|kRAr-?6#=A^Uh+C++Uy?;9yOJNqx0=aMEr-EM?YoOn$9j zI}Qq4h*ku*ShdZKn`E}iMwi!(l>CpbS7Qle|&u_xN-}yD)r@DVvfNJ!UVo8VEsm}%9AdJi5ceR zuz_`|^@m;toEyL3pfsDg&rc9H7;WKa?!#6+xYHdp{;O30`%>JOKXXOC0P;q1OcG|~ zMP^jRrm>wh+svpa39ppMMAz={Xv2uB8RdQ;jxrJMcJQry0}61u0=F=1M3>SY3bQsK zH{Za+Z#d#LD|pcBZ2(RwqU7S-LeD{J_rG~o>-+r4gMG$7UL4BhlAALxc)o)>%-lq6 zy8VtZMn9Z^Zi^%Y&JsFgiqdL!q&^p}~18P0A%nuw{Zob;7-pc-Rm{mb6o$17y4)d*m&6MdySV7zXG{fE zlYk0$lf*9Fg~C_RZF;h`IW@j$&^q;XUYJ{x?pC(w`{y|Jn1_Ka;Iwft!zRMA|43;a+)YX$hA-C?y#O%b&FB#<1nt_7scb!gk~Bu7xo3caeG^BmAH*= z<_W?C)Q*{&6$u+9?f`EFf{asH<3WdJuPf;VBU4vMD- z7w;7|iwk?u=78N)g27<$q!7+)VR3pUfver?3WhJyq zEU1JYNaiD>L0h;T>|;HNP#HJ^g5&1K)1Lah9z)B}Vjd>VbTxU2j6%*T|HT^;*D+wt z0b=_Y^N=@)ye2PxKI6~J+v%00T7FZ6U96>$R-w6AHS)}5`!a(=aJD01q;a|>bp%pM z>e;2CR>D;Z5**&&0V7rx8}LfTKV4PmwCb%MWNTa}?)4N0i#Jf4sy`@Vg2Hd3Qn*?S zOGWrnJ*)NM0XvC3SFi#zP8U6kHKt(B%@&Sg#@RHjdKO-L5A-my ze4-d42i+D_fNCpsBW-v0TIq1bSb0+8#q%^GgJk`paT1E=S`&avqbD*>!$f@>tia3q zUh74>dkn#jYE#KY{o-M*RXlD>jv!g*1sUsxUN%D8M1bPgOlibkBtV#B+?k`ZyBnU} zCiSYR?X}W%ltg13D8{0b5^)D}rr2T$AzMmkXp@skNi&RYyPsZS5N2K96j@crP4*tD zXT)uBW3`ta%o=OrS`qK?gHeIogJa}wL%_$LOr2iqwPw#mVP@0d#=b*@*6*Q(LIO>Z zqlN^lk@CV_uLndu1RHPVFA=gf9i%~md9zIRq>02wvfx&~uLmtB9o(gTn!{F-Boh!V zxdk4Jo5$6|cJpZL9JbNIn8Tf``$z#=tRnbidm1OM1&gqQz#Q`Cl922~+PJyC!nA`x zqPPGdvva3VPVVO82M@M4cXu8?@+h-T-2$cx_ck1GT49)+2|NvRxnNLf_NE_o1vgkh zqg?8zpYf6CR+Q{sRutUt%G6<&A7Qk>z=>Ev_KAPfYHQhIaStfdM_UwTR+Jbu9bq3P z+peaw`b1zp?Dly#XIEBNtuZo0NY1Bn5{0$q;o-=#*tGVl)@aJT4+_@yhneV{_*Eni`J!9KG3Q5}s0-hHPF>299C_X(z;<)Ye-QI&s znSz7_K5%v9o~eTf?}`*}5+@){sDfrMVP;k4(l31Ib946Wp zIanB8TE}%*(zwAetU{*6O(HN67CIqwG1mfJ0_MrEAA{8CeJCA+AvGFo%gdFH27!4H z34VZ3@cRHKNjYB6M_`pk91^hH$HJmh{n|dPMH;Ca}jhvs5mWAy4+0xp4xEzoGf=z+(5iALWAC;Z#nju^1 zGV*@D7?b`G$T89;44vwLit3dn6M>APk)ez#_sqv=&cEY z8_-8EF{kAe3B;t(sLi8lgZ|ynjbpYbq<^~f+>1R>>iv2XIz{vbg_0N_xa*;`ZT zOm*wv;xXq`$-Zz~v4egscAA48ix{X!Ic)s*-=F2)X{nr zi3Z33_kcoSzyN%W-r79Cs33p|5YRDn3eYH%Ln!d(cmCT_u)Ms?S#o<7qQO|gI!Epd z#2vh;Xo9(t^=}9D)IfU>FvG1fluM1$9Rx>ndOP1Z=6kZ!NUwUk2p1fnu zXpzRW8*w(gbxn_iq}>(qb2W1!P8!E2P5c{&Ep*%E#NdcqP|gj9OG%*afSMPNj zsu=phBtLzdeM*jd!Jggzn z#sFFn&;yefdK3hS>Es+nCp$XJ-6t!75jnBe3bui`(%@QMi>jA)7ddsXac0MJr@yFf zH!#7&f+f1&o4*G5tVXLzMW`?WYixi%97BEcaEqI%7Np0Uo6n!Rr2>9sbT*cd55tlH zU8!_fsa`9*c9q&I4Sr;K^~`{f3jj82EO@GMT7|fvi9_FcrX&}Y)It*1dg7rzKWOO* z^8%j=dGC!Ei>zM@Lq6^o@g?9JcXsh2~9JLRi$0(l`|i;dAcz zt8qudj=M!wH14D~2N3o(e3Ui9Yq-|pkyA8zV1!V?<|;hAKhE13kB9AQ9+kwAmng{N z83b)X8-$Cni0$3#Lxq^47r{7C5R0dnIc!iuZEir4x8AGz5PU|ycjwX0?#{-8qND&0 z?r-nhyT7aFGZ_CG)f#)eje>1=+;rf5ej&B2((CM&qUFHOcJRNFh!dLPM0 zEV=y{@*^y`tSMeisALBdNBH=$ew)*ZZZL6-Z`b7;@+Q+TsY8K?A1C;9O+I~~pDK0= zaT%XJl22Fp30i&JmYDk?^Cn{iI76lQW4z;1#MQY^Ka`?S1`%Lp=RV97gV5MGdAxvC7>P=k%GWsh^Q?HTK+WhH(sg= z2Y;v>C0}`!zgdG*i}j*G6mm8|?^^Md>;-Ewv<_ow14AC*MivC;|AAv#1CeXLE+UK! z=0Ni(xW@b|;c1Mq@{jd1dVV;X5!|9d0VXO$^#t?uKX8iniofuMLRu(Tjba}~@1$^I ze6d(E<+}JZ#NWtE3pkePu{{7PvahJBvD~NsWt5^&hGU^Fr&F^78v%(@Ermog6P$`~ zsgzM$Eaz0~owW}1HV?rQUb&%FAH}Q5Im~>X&RNI>EcIf|gGp6=0*2kDuLV;fOsVLmwn5y z`H=T%!NSIHnsAx2WRYxS65&Xx!x3$Xq({bG50|PDYDRU+k}W33%0JiFOv zy@LowBo;ZBxd6FXTx1}z4FMcGwwxf4WE6v>NFo^Lvj6(~{Z)1M=`%AD;3UucJiD=& zIn$?4pYH1Fy8Nmt(j1gz6qno~mQEB@`d(PciiqWaUsB*0}OiD2Lv7u9%Za!K(J3=Df~=`O8O z3}_e%4r-wv!b3THA5*V3m=M{Uz-AQqgA}^@BmTG0S@;n#gzbDQU*g^*{s{xU*SxcU zp+hXfujV?a8`?EU00$F3Z;yKDES&!-!#S_Ndha18o3T^q?ob#>jBzXwQ38(S6w;E- zeFVIH3zrbw!}?EqU0QdFp88BNl_GG9$+DnK%eTNrjFcWG+RJ`Qq0cvQXW^1&lv43> z>1#_W9t)NgLmDp<5FNtyO4NaDf127k;+K{t#$GkmOkqP>z5A$8f5O77-vV7>w)M<0 z?gC;3VS8-$`+8TiM*U2#GjvIJe{b!d*i?oFvqJ;rc)Z^cs6F-~g-SMhy?{Ns^KQyX z&r?U$oOE`Zl~&ddg{u0d>RWtK$`1IpHYK~?9io}*s~|g|-_iRo+lI)*@|`(ivhTTW zr*w@i>3o)#JKE><%HGY)1~VZ4N{9sOMf9U-pQEoI%OEr~QXO*w>62K^->N5hxqi#u zj8B!~sfyaXytThC$fkJRT!RgXX%$E0o**#mxAyeM!*@3Xon?WEZgIHOIdj+ceegz+ z(a`d^QZ+E8holr^Fqu1(E3w+MixHhNvqZanW+7{!Z~`|F>};Pa@As5@LPei-U`$2}`G! z$!Fv=&Fg$L7U3JDM>q!2B5BKuDz)uHrVtBT;;1pqS%^450Ep~nA&B7bb*?Twy3~QI zMVWl@Dj>T*YLjuGpVLo=bLcxO_d-KD$nVP+?m|gE9|JB|eNYE?z#2BT>tLpSf+X!w zAJ9aygEy?5rSq9^yOT4r_uvvZq!gXVD8+B+2$Sf}W2IxjJ{GH>yDdr*D{R?(SZCD_ z0C@6A26$xXe*LK(JFO=-5Q~=KJ&Gwl7#zHfJ&eyGVB$Rt^C#9iKm#!A%QZl}_tRa} z%i#6D-@J5olDQW_t~shbU%Pn~qmaFLxRGUXUs*?q6eTj{Lwxdt>QFeCA3s0u;Dl(D zQx`6G=2fR{rtilWHaDJdpeNjqeP`u2pWMWZgr(`~4RsI%KHh7ad3Oz&{1=<~5FF;z zIHb+P*fx9RJ@EnxhPT4?=Dl-0+o>Xp9i@%Adh}u^ZeRhtb%!HIc1Vf58pB$Xrjt3c z8tIyy_;Qd%sOWVfgyho^r^H8>Z>t|Q+mV~tr$p>3TOFjBupoC=1kn-Vjd7>>SO*xm zM|%XHXOFhK)*ZhdMTQ246Isj2_Nf@ZbKN4cAlNkN=s}@4?>`^v~-AkW((2+ zu_jM=)@4V6@t}sch}W7MWNj0I3sj?fKV0f$0OPG5>+jSH`#o=8= z4k6AQj1=Dcy{~h!-ap?-ucnbjCY)ZKLF}K{I?#*5pW?vJd)^5fB%=I#@oCLSpj?CW z_ybR*{&*F)!TY<%)zye|e@9xCu$Hpbu_)XP^StuO%@41w+!^X2nf$bP&hk9=(BtI{ zEpTFY?SNGlu^R^->BLzLqwSDvZEugfo3OoS&C)U*Ak7l8;sNMTW_w#(T^?p^Bifab zSRynfJk<|TKoiJHyl86*GGa~0zTE2E|O}zyR z0Ru!-;hiPyG(%>aDx*R;PW&`E;l`=0Z!M`bs|v&9A+Aa_u*9ee$8(MWOEU_>P4fu% zL^Z-i`$KGmc0xwJ$i-aZ)y zd;tY+%tqRrExIzaZ)A!QXeN(@-Fq|q)OhU{+ygt(Ye&exnfbc=9cQ? zq>;5TbdLiDOGD1O5ug0Ccg`!~KdPkfVa(Sg>Vdy8-O zL_WFFiIb?tNyL|B3_2cnCK=x@W&W)Lv-ixs9sFB(tK`lh6-`i7D{Fv)OJ1zZ#l=-K zXw^N}4Bg&@%gP;U9ancs6&I7ztNzSy)l=t#__MSQejVWF0wro8kd~0oEN+!5qnG9X zrj0COx|6IG774@K%8ga`-ax5*XW6`BgnC%z;JP<|*;LJbwYn|u6+iR}YdwD@{J>JG zey^vTo;!(2uG^bC37HJ^7iXE`z{)vHfMqqO@cnv@xUsTlfBSR)NqbME{gzxvW>|iE zQkToYoTACF^!19lcjy4xtID}|_>Ruit2+FVH%(z{z1}WAR&%5xtLnLT`P-d4%irGI zB0p->gZZm-O7=~S<9PzWtNz>)e+P5tc~E!mXYUqo^HXW@>^zb8CGR%>YO$)TnmfKQ zb$x7x*!)NZvsw>|x!0gw`Wz_tcs)?ETxCy_buu;{(1SNtPPTy(=z2qSKcKe(J4n7Z z*+lS-YLfrTObiBdKX_+l?(KIz;7a-N#LTI8uItmSiLh)Cmo(q<_QX3k=5O+e2UYdt z{I9Z)vW75dF018lCSE@^|7%OoE}hk`-GTOs@~-{8H}QH%)E2&*}H4 z=k+)qYe_Eu!yfwigbX8P@t*!*LuF|EEy^z@S{aFl&<)|R=BQfonvII}%+aT2`ZJ4> z+r?n<`xrBt>~hgv69tm!0&06M5tc)x;GsIfBmP6qcvT6`Y6M@xVwb7}=Uz?|UsHMD zR<7$^&7;2&Mb3%SU z*jd|KCrQYbXQ3XO>pTR&XZrW9mpIjSKoWCgPG}>#$Lah5UjO3PB*dP41qidPH_xrJC|h_xBEK zr|#jgbvSco%+yN{?o3n$(Qg)_l8CiHmP#wO^iZ18Q$m?=D%&mD-oObD zQg&>{`e^k<9*d{CPTSD+@R9^$weY*0;r^F&Rau%iBHeMNj$*eq(3iMR$9S#@roJ zIY;%r$mC;Z!G{H!tf)P`X>#1Z4I}i_CNRVzcifi}_Eawjc@5@-Mu-Mun#Xy8+RA#0 zKcu4|H%i%?o&_$N@Srxc?R|T+Pfs_bbW%$O1bgLaCkJNc6;_Ylk2|9q=Mg0#dephX z#WI{TKQNBORuIhHqp2yv6(se*97IyZQa)x~2@}LYqc-Tv%#4n|UOfJ+cCsht&>5H? zWXv;%o;eCBNjC|<+Ur5>( zH(umg=JD%Xic9fIdylGRv74~Fcb`7qhj;ja;2TrJ2Okr(1bH_B5CWJmms{g2l@V;j zb05t|_iYY_hc2f_up!+ZvnPj}`TzIzU%GHX*PVDv8~~Y`_@@RV{&XZ`6J4r zS6`^zqc{+HNI-8HB6$ay#X`Z`d+>^2ZBtGHc~8+50=Gr==`^>c3EBB3Sp9VGohV|F*NhU|L9*6-)nu#sf!O`Y<@w7euV`HJSHry@weFq28t$DBRwis# zY~Z55t+Dmy<|WJ5o0D^I@Q?s-@!z`h*YulxF{@K~a^fhp`hQZJ~#br(|$I;D-qV3T>l0G}Y zCz}d98jIm1`-AyqE;~!qWrp)s7|ua^IB&<{yg6<-Z-(KRc)_&$`wvi12+p7*Y@t|4 z;Y5}Tn%^tlw$(TvtG`G#HJH84rEv7@^t3vZp40ROy*t^+dhZ*7 z27hpa>Vs*uz7PAXiut>I?tMOOu`MOlHrWM3d*~P~MBvr5&2ss`dpVe%zo)Bzv)&#~ zn4jRUjK|nZz6GOwhN032k6xdcdjpgAg5G#u_tAa7wx2d8IG>FEY&PbBUgd^3lXqmKu^RO3q~dV&37e;+Tq(axDCPGNJM( ze4v2n0H6edw-9pDulz|1H~H1yr@sLx+)crX%G{iP+?#DQ5W8t$yZTyM^XJ zuTlPaVs>VAfky>O_O_v&ZqrkAVDJ?CdL=e3pG`;|v(4=6{N$%6KQmsix;Z;}Qq{xD zZzg7$os*wA=jy#Zs|{F|Cso6}d(L^g<3rC$bSqANs=J;~IA<#+Pu{aTtx5L_O|X7E z&cF5hv*rxy|8CYJRsYfA%N8YR>Ud^Dra3X$ z4z24MF;+6VHl{g;jJ%ZLX2iua4l-oA(4kR9!9bZTM~+P&GElynf>{PbX3%FXQhBUZ zo+#P{Dp=M4(FdK9|6K$?PL>@&<8Dyx+1T5r|3-Nw@207kZBuLZCibhR$tVQ*YLbcT z7lj&`IR&$TwQQpIf-SFelfv7EBB#C&S%)nYrtE|e8T&CPy9UqiEMUzcspi_QQo1!d zD+jouT}6X}%{yeYv#@w(U!eO8GH)RKPz+)HsVd?Q2P7;CIlJcNQ+znlxXyK4Aj({6 zWmGJxKoKt~go4zX76Rk9fi!DOPu9*}Zf(D5pS5n9j?|opxMb@CgUS8@YPQ8Y1lxtu zX<{a!3-54m<1wHU=)q8yHu0j`6j%dR*)C?Lc>CUrL0^@Z4)876*!MTq_8vZp$=mGS z;UDc{=KWj>NmHVe)A~31NER6%1L=c#;b5H^As|Zz-x%bS&6><}+h2jcu^!#B=A(5S zkv@aeiTP9_nYAz5%?&L^dT$MO^k=&(86)HXkjcibj)u~V+N$Fa{=BuPBuUJWawLW~ zAF?Am;p5-1Dk8+^KMl?8X~u$5Xq)Erth%)Jcgr(%xWydxGd)1ERY}gNuZ| zgqWr#8BVI5)~W#o=N)F#jwy5s;^$`Xu#i~e%*){y*@sG|Dwi5uWLJz`-yASb3M1WoD6a@L$!p}K1Dyfm_vNuV6S4S#BTxN@&@?A5f>L`SC>7fwF$iuu><&7Y z*MUuYr<@+ja3x$dHbh6wHRjK;ffyqr%e)d^k4)Ng55dc9>==lOK?sEZ#l&$F4;5cy z26mHr~{8-d4WE6lr3_z=T6 zDy-CYZ*w+;VDS68ocDWHa8nPM1+WW9^)3cp5Cg0WuSDpbBZpH4QAdq0oLN8rra=H_!m`9y3uj&yKzYVqiPy_~MP-S#Dj3hnd-xrqaon&j4!ud-rXb;ZYYXnX zAAP4Wmc(GhtY!k<()7e|tHi84$U;$1j+YMm+QJ6%cpr|sL!x~$m@C%*lqf60n45T= zgmD*q`Txq!%@%@}jfO)580mKPHx_R<>aNk3bGi%79 z4tMqdN_&t)h>g6-MiqOGGY5{pl`O_l#~vB$0W)$q2`?_!N87zSnXbL6O7d@~ja6ID9q^ zOj)y!CIHv+RhA!;yvSDo{*>p_lk(LRy$5K|>0kLfRyXa=9jV6LD+5D~^18a|YQAv1 zn5j4sWI@I%Aa4a{gRIK#j5VO@2v-jc75Xg)6!=sntZ91JnZQH%r>l%DSpMJQFDHvS ztp@Z?N*ZQIoQKRXbN}fEAph(gk-X;kyWckvMxo{*@LZESAp!zc9i$AcURfkv3F=u)j3Q@h}aN;P{_-0nc`VhIG)4o(32{bk7LP zGh!-KVM*YPu~^Lz&#-_JTu1l@$uKF36@)3=_;&@DB3pbo&|8ys)=Cgqw8MI;V{NO% zgo}T&%@Mcmh8PTl3ivU>;DIAq;0_`H9Or;3K?60mw;!Gu8a^ZbN4#qTJp=A$%u=~v zx$6o1`=RoND%~nM=gBwAQ%8@Y!1f4Ov)dAl=nUg#azjc}i(w>WXtv}9dV%q8O>dE`}?=b+^4^TH1<8q%yIzS{# z>X}_#C-$UueNyiwC#_r&Rn4<`%cw7K_sC-Vtaoy@$t9_G(dHF1qb~`uLP|{dI6I0B zjuign;ZLPbY$9C8pH0N_3^eVsP}v%J{iuy^SRsprQ&ug2!bDnHUJN1bxs-kq2-EdT znQtM=n6e0>9CSlrU6v2wI3=c8dtz#$LgA>U%7bKZvHk2C1p=wm0rqi{jokQx zV!4lE<49B8Dxu7#MbB`~B>ThTgA;$=TI-mpD(d=Hxkj|_(Y1;^wWo@8VzM)~7~6ik zv3}{qQWSl~a4(UhRf0M->tc-9J~q%jU{aA4KinY0=o0d;+LAF=K&h`;1{3d(xGAu$ z7wsV){Dd(Fdt2N<7+NQ<-Pgg3y?_hF{XQ zhi{gAgya>xwPL$(f>la~OIwF*mMLRCu`O)N2qC7f3XO^O6}L31iQEuK z6OqcIv6YXng{&;OmeL$3i&==V9rPg%K96!e*V$ituK0HNEJ}xLeCJQ7&PY!0iCLaC zyw&E@Jw~NqQ)!51TuBt8v1we*h{m0DhYR`8Q+gVwQ(16`VDBjUqNl-(8$Uo-DbA~$ zoPjyc9sm4CMq~)iN*Lzp#ZHN_2?P=d5L=5?FMuaPS+KtXNYdowaujI0@lLbr_??pP zJ#y@Q{VJ4$od(!tCIxj6VOOP64 zP}YCr)cko5#li)qMj&9kczpyad1_6C59)3?!32!Jp$TMZX8Dx5(?oP9rtDp%B|zpj zzGd17R)fN2+qHe5Ff0pQYcBBGeBzrP+C_uuN-tqr z9j=3iw3KgFE^~;WSO3U-rg*~NHE0n1npfUVvKS1pv2C{J#t#1k)j8VI^G#@qt$8u* zT+2=5Su<>!V1 z4T@>%3?=6rImqqOLg(S$6M9S~6qH>u_gD=b(!5K?rO}(Qv}s7e+S|-d#J(o0ZnPsr zC*rHQAgkeNOZz&8cN{rm!5A;*PWlNQSsJxzSVj(up%{w%3@FUu1}CbkwMvd5nP@T9-5(hXw`Y z2JW&~#G{7H$G6?*5>F4~%J&cJpR>gnx_+0#l_^D$8dGT|8-E&HXbmfFg9VKqe<><1O-Ri7~$n6RbTBCtjUGDRyeiHLUyGh>cfy-ImI5h!96_cWPUH5dz3 z{}57@(KG*nNxyvOx(qm;zv#~-9a4S3lt#wyF>6qEC!@un6e%rQ;Nn}JMHG!0zS`y{ z2=}AJ1bQvF*HC{?5 zWM}W`wgn_PQbQBr@kxm)>D$6Dn+uzpe#Nyi`oiwuV%K9~gx0pndlT3JQHNMFNXV?S zTf$qMiG`by*`3*!#Jhe5S#e=wn?FR|;3?hNBmJrk$4YH`++MD|4hH>_swxRxAeRbO zzgZT(D6fXajp(W{ucTjMbACmnBOF6EV#TJ#LKV%s!;eP_2yvJd)yH(}rJ-G$&^7++ zLS{x-P^BNC@`FqLN&e6@dopIHFE+7}A!9IlXvHer;jgfPAx*V$BfQ8P z7>u#C+>gDTh0`N>BOo!KxIW!*ql2Z*_u+P8_69=ZmirPTG!U$k1cXW>*1|qF?gLdQ zA=BbLS%&x@Nh~q==+uF=w?@Bz9{;ww%Gh`u8B#7EgYTLW_j$HVKTK509Wxf%f0NYh z>gA8G-BkUFyFov1ersKQdvoOo?tBHYyCp0bwlOh~eQ5T>i z{!`YHqHmI4Exc;cv(HU~t{RAw5FVS-;9WXULQl&xXUi@B4hhnCg9CtVAt(^h(~a%< zVpUvpzeRl^nfXFOH?88Gm8H8YztJkVaz&B7=fS+!{Ir%bkS*R>p;FIB%9FTsTP4o; z&b^1Et_$sKjoqF?^Hwc0>}h7Vk+5P0m!<*a_(((h#-OKbI>p)P(@)E8R<0amPdRYxuFK7oG5Q@QQ0# z+V6UL2ZuxNUzK8DbAr~R`={BUTi7*zsqCLFlUaXC8Ra!X&W?LCm)z}W8T zWsEDGyJRLf5H%ravgi>ekaTX`E115ODwRF3zl(wmP~a}?P$hcpt3bo@`;o$M%cWnl zu9L4%m2&n8O%?hpG(NFlI2S-E1gh`Jzw?khH85B23#Z@tjq~qyzIsZc5Vd*Y87m)b z(1x<9Jb`YFV&RKB&)n|GRnA2udogXgBuR*XT;uuN~YJY@^l1$e9;AOQ}iqt)ptVt%PX^ysU$d-6G zLD9|V9q3rJY~PW-HYaE2UNg+X>yy|n=Wd7+Awm1SYqrFDI)8ik;s|yus#`Ejbs)F_ zTV;i)6?&LiUA+~O#LrF%{@$^&bFzN22(y0~{k$8c!Dwb@x&HtWCnDB=)k!)6BjaGYW@b8{92hhbG#M^ku9AQB5< zxD120AvfB08S?BsyRG#CrO(<7)<_!#(T$#kI`~F6l9OD}y+=745 z)W(RgAEZ8;x9rQ!b;zxe&cmp^`AACW=4gRpUs`4>9i3rY?P&*<-b+*np{5&D!o=Z zad6*TltDH+hBsT%R6jKQP{TN~Zx$8KO{J+7-#_muuBnZ-a?KJ+2jTC%&L4Mh<*GPQ z02xw&X=D9)=h>PvPs<3PP8&mj_b_IPd^lN=0ZTLjSU{6uC}1(`qW*zPDsPEHTo!Q< zvjn9{CNUL9DBZ!Zx4JqpxqL;RD4J&7^N0SFm_QDhXp#g-Hs`@!7IK45;US%v+rQ@%sYuWc%^rg`i9gQmv3%SAIpFbg5GC7*mBzh#I3u0QVuI ziP&J+Uw-RhI|{Wfo3`@%ku^)om*mow`?r_&%Zx}=swkXC+l4lP)Q+I07$$`cMH*Ne zV3#4ntLkDA&?3E3d9;n+>|t>~AO=`{pnE_CJhSpC`3Z%1-q-^aEbB9qV7q`7 zl`@%r*5dlhaqoU-^%O67d0){%CYjT#R$o9I6jG&;!Uh)GH=XFo*rJdP$a8N)@^LgR z5+&Iwg$nS|4&W7)8geNkq-YKddd%F~@Rzn(6;ll&5kVeM1r$;j#-M)zi*j3p5sNsn z6*??x*;8T3m6=YvNMzH3R29AdPS@MkS&Y z<1@3WaVg}t|L8i3PVBCc2Zqa^#-F-VlO}U6B4;gt()b5D@rH3x_R43Sj?x*{D-yuZr6gW|HcD zQ~zS8lm2h%m%i~?vITxvuwRMe@CMnhFpdZKn7oy-xCNR8-KDcA3p&Ey#@;#W;Z*FR z-Ge zvX7SI#vR{_VGb=vbp0#zH)+st=Agc166uI^D5;>444XqGyA}vrj+o5w46@9T0xI)V zcdnS?5-TsHP|>(sFtY{w8VnM@xJtZW6l(ye$Q3|apW}0Y2txGr7*_r0*xuV;lh=8x9407 zgqJPskW8@gr^g+GJ(ZohhWFWWx*k_WM(8_3qEISR2%ij*jGt^HfRW-82(FCi$U6r0 z-{_o@#N6=8Ue%2f^GgsxfX1Kyal*M<;R}($ODx*v({I0ho~@b*kG=uzEDNgo&orlo z(9s3|Xay;m=`{6rTQl2X*15|km}6_G71E|l zvTRcJWFZ>acf&`R%m%BgzemH8n1o{DA1E5>pU`xSw&PNjfUH7nv$n7o(g?~J9;I;B z$#wdYX(7J&{h5cW+h6{eEsK5CPQjT@UI@=Vo2Q7C-$^da+=FWC^6XTWH7LcKPgo&4~WhFaY==YT_Na67OA4MP%de)9B5Cv=JY z0qdjyFI*HgFO+KWAI*`qy3N!}kx?zY{ikqYL;R!Crh}hFBK0Twkjlx44O?Un`s`Dy zAI_+o;CTUY1U^f_pqe(^yfOxm-rwqn4Np!$OMTS5Hg99nlU&31+jpNm58;{9my#NH zEirU^cA|vc%wljh;o(4gJF5X@YbPWDsGm3{kwU_Z4BiaH;YoT#KW~LAo&b$2<@dss z8s01V0+1Z8kWALERNoI*gs1j4KbU{#fA@!EnSVdAttWp*$d4FQQGcW&f9g?zhv|!BQcXC>Bx!RntpL;S|qU5;- zQ19rQ7@8Y38KI3bB4PxT7Dud0y4LXZgMiWkDz|>9yYpudc0z7P6iK2<^^i{322b$x zZjkl);U0ip@*OwOmi8~}JI}V8-!h~Lr~Wgn{)XXrwDEWsDQ=rA8;B61%Vx&A0T~gGw*q} z-?Rjd=7|r`$HVxmemfcjs}_QbY;Qa> zlJJ!Kj_$Sj6S^eC!(_15s()b++zoZBNOwT`WF!S&k;eYtBMGSOdSDg|Ut?HOc9SoMz0#NwSIL@pp(?_n^aqR>;b5rN zEe4inYxu$Op0h!PQBu&8jna=J6RZel$bIpMk2n!2^(px4ZRoR$o(`I>XFlFaoLqm7|e@WT0r+U}GR9Z!istr*)J2LDGgA>0i@z z35DY8%<^?a4rJ@u%X7!BT$wxOvIFu%J3MMqPcQ?8DM&}TEEX5Sq%43$8=fPOK@07* zi><~?8L^K#z1v<7gB#ib8tGU3gcWJ&AQvviyzJH31H;L7^qBDLNzUxX7!a$uZ7we+ zYmkMFl#=V1R*HW~*t7Y)fuM$S_(v{ONx7(Q>XPKJq@wbfFzdP3Oz#m#OV4_rwvAqt zJqsBU$<*!i^q9w3y!hA+J2jLY(Yk~yuNH-ZoMZcGNukS&&-SPsDd6%0O3P4JJXSj0 zKi7HuYz^GK80V#6lfap`-5H4k5(ie8v2CY@{5@>bz{V&SXZFwP-T+Osh=n{N6m`a) z5h2&{%s`cEAPX0Ju9lu&Cf(L2R=!hPJMeXoV?=+O-UJu0!G!r46LqxYX>Z~LCanYk zx-4Z$=&i0!Do|@+ih+oyEYLti9{d+fL?Ho}fTd0rcEK{E+V_6=&PEmT1E91220^*` z!>~Qb`SggjQak&G5e5Hn72rGSh(Sy2JJe@Emt2QZ14&9}Ko&x+*tDzlH@dZ+ed8Yg z^yimiK&ELTJkO&s=a-^tvm_M*)JjqBP0at4fBOd$^Oi6Uh)E4!QfKY1m;yzvHnE-K zdXpC{bjZhwJ{jKj>~C(*+YSTlrM~NWUOFGzlfYlRN-_P808Z70Np>5w=yog$b@KWo zD7U)T0pYu9p|0AD{Ry~btumZ-|Bm&e&{4htbC|EMpN4z=N{a`QFYZcWFalj!cpsK-cCWOl$m_(%9UB;;`4oSY_rr*&E!KhJ~uB5 zSABPqBsyKkll@xH)Vd=0k}F<+%G1^{vwD{w31iKFto=u&0cKq5s|#5M2J`eV{f$%> zxT#DV(u@?oWG6z{IG#i{6W-AW$*IHc@^XP57UV|=>GoQ=-e?1QT)%~fSo%c^mDk0! z$HZL7$!je*&9}%-i96e_DZ?9qqUbTm;-35JoWc}z*bE!?8e86__bD zJa{28En@_&`S5Fse;_Xq=MR=AT`+ale^?L2kIp%um7-aVLg8tJqCxJ9GYGQyzm!o< zdEs73CnYiN+5>=guve@)DP3#+G@m?^^@C#hY-?RUs#StAeqwH5+`rpkSpIT`Y<7QR z0_=N(H}TV4jC=S{E<6S{d$+Ju0qY_~PzQJG#^-J;$hD+wm4h=lNc)nHb?OX1*zzcx zbL=e0ux;fD_1PCSyu?vCl9M&h&)Q@Sj0&P6e0@dLzo`;NcGxAu{5G}?(dJPKaB~6< zzg8ntt8+^To2QmE?F1Ppp)IhGT?{UAG|IcG_MT-pz!|v>oGfKYYknFPN|!=%*5~LM zjT%<9WFwfG8|^cBrBL2;7m3U-X4wdeuE7`JIpSVL>IG<{J7C}}MK9~cqiod;oX<`< zb>?1{kg~j}uE=Ya7|+p5{Azm$DsEXyd@|xS*>yCt5AzJG88D|VFAU5X{mRC0dzquG z+)viNB3NvncYP#2<69%fscU>knz}_p<9m3hJld<+foP$d_4T)6)9E{t%jJI8b$=+jAra z79#iQGd;3ZpxEQEX^m7~1fwk(RgAg(t!NXCy+gbQ2{*C5E={=ajC=c z&v?O2e+b;Vs*mGwWTx#dcz@L;#DWX1bD&&TeO*8^m{hyozTK$LLFMJfaGdaO!LKzn z&(uNqn!V@tJ3pE~qaLOI=p}m-^Y3y)`APa7`r^4R^H;I-yML|c&z_oJ4B2R`;2A}+ z5Zd{#KYuprKWF)>;$EsX6)HH!{v_h(oiI}x@}ZsBJKN3k=lI85MXUv*@x_*#tP?cN8bxE$KM=tECn_O1KMh$qcxPm4k!ESj{$_z}@PNjKT{FnNU2CeO~j|9t;o z17yCOj8RT94<#He9905JVt{?T8P(}rMUVw9m)U_ch$%HfEITl=oZu7LUn1~u;ip{Z z&tc$V8>^o*NAL|HmVdgx|L77i$*P86RSp`qvhc+hRN3Brw07ysFE9C{S{eZ|gYL5P zPjwCaNwL;07XsKjNQdzN;)hp~O-OW!*78y(`BAO>$gqiNv;Sb59bV~1^@@4abnnqJ z*WrUy4EfG>W~jlSK#aHH_xgrqW_)Is(JX2qh>UppgsGA%oWcV;+ZJ(}9D?!>s>@OS z>dUU~oQ}BNEq$0)iu$i&h=SF6!U5_Ek{uV&fw3I%RsV0+QZ0TyF}p0jgz126iM}68 zY0gr%)%3DHPJ3V|*hyvW;`@{ybl0#)@j>0Yfj?5JQ5zHp8MgsV(&g?FFzzSJd6)tUZOCR7Dj|GeeHq4i+0P|C2v(EFvt#SV;#)*7nP=MLW)m+M*!*K(GF6 z$KgZ9F4kOi%rUgO$%Q0V4-tZ~0!SDkZXXS@S&AdmS&2^A@Hpv~06S>M2E`k*VuNJ* zg%F=(Hj!<_wFmn4m-EpdkQk$HqW?ROZb!6nr71sSpc|1Cf(pD zlAH~D@i_kz7D=mn?vLTX5mkBh@`oR;-03j1QBl#PKi^Tlh1p6eOq#<4c}pfN$WBHu z*A1sHOkZAB&<(^1Yz~Tq*4S1-o8w>3FH%Uqe%nAl{VP|X^B(&vqd|XIFk}1THU{Zv zHaWB3S-gMd?peU)6fMw5cjN| zDXvNhh=FO?ww0jG%XHqlQkVJnHl}M)*^7F z-^n)Qp-U$&_hO-7Xzq(wlYp>r0&07RE!UThIR*ZL3E97vMNyphm;>YHVVyH*0L4u& zSV+>iU8(c7`?_XOyUx5U@H0CgK{Gl*Zicd6c8EAMNk@tK>(JHjRe`(A{Y(ol>T?>B0Y|GnaKejT!6SY9&*obaAnhX6? zcuK4`ANg%{Oq#Dpl+`4zwe!2i-y`xzJ$3)ItN?Z@4d4h8kI4%lP7ZZ@CYGJAhhJ!Lp(g z$Q{cBvdPvH&=ZVr>W8l@m9D92-3Jq@H_|g)t#ZVb{nDbvyYKvjFN5k6T^qdfo|GPl zwCGFS!ehS4gqyC0u4DEvg>vZ3lXZ{}C-H3aNNHKLH^T@8NY9@u&WZC^Yg!XKDo_5D z-w|7@o^6Kt^L+Fk_d<`lFYAsLW|Au8!FKSjW#EGY1{|)1fBH8}T#Q;zs>}KFr=qu& zffd!6Nxb3^4ArK46SC}SMl2DYj_$r+;#a$*SHYuhd(=KgQ`CGRw#5_Z@fhz)dSqol z4sZZnA^k?)fWs@6L1&(L2PamhD_^`W@&&$Wo7&iImoyCGAW{grW(<>kt5%JAyT$9(KN|uK}+@6siWz*IqGC`k0ffh}LtDk*1;lJ59!pyI0=$ zQ=D+~es8i~3rzgx+jMQG?Ui;dVvnbHQqR)$5I7dm zF;P`cm%lhoB2Cn5*BF;VGyr<84I_$cjhGx5R^h*AuD%UaRAFs+G+W2~rp!p^`vsy;S5p_EMIfiF21lxrZB;^5(2 zDr(N0O{<9RTvg{$UBwHS?c=>&J`_E#=RJLjrQooM3nJ<``kY@U_6|6z$v33i6hKvZ za=J!iM1Y6bX+^8|qcG>zCqS2y5OD!q2y1HrR-f zx9u4S(GBy~ba?ifon<# z>bbQ4hztr}XDeg+?><(Ld zq8GbBITg7MH4mN~GDGR79W=NMo*!~DWSx)3J{-CnQS3xgE4=JPA8#sBX3_tp$y_7-=WH?fRI%ep))i>!ZnoNB;6oq9v6>5+}wWs)9@*PFu5V?nQt=7V6nk# zQCFuKL~`UQKa#N>?&yR)3T7HxBBAzFKrzNLo-4CHH+YcF1DiF&i zmBle{?ChlQrxxBVZ~=qwnQJCklhvE{o`C-H874Geeo+_~?6!#^{NKc9qGc%H>Ll_l z?Gl+vV4bKtTz;^#9ygNnWnyDAUlwv3W-v5$+6Dw|n>x(f623&QSWCDbmB&1IlP#Rw z72RS`Sxtb`%Z9?Rr!%{8uZ3-92X~C8vN4<`k0v7xC-=KN{-E=RF^6{;p4xihLf}A@ z!NDzJ$(eg|+F7N}x+p#?>9X_T!}ePi@;uIcNT zVMe$iV>3U60KpWf5J1Ay>`akK$AGh32nwHeoC@@q`NOi?^k%Njy{3IqO`6JNiCfwF zMZZJ|a}Ht}WIrMm7j8erm_5llkb)n3NwqfEaaPyzd=u+xQkoI7o{77 zHbudb^+1PszyS~@|ld(#NW+p zaydW1;o8mIuZUC8(2Z~E&I+=r9~qq{VYmt*doWmxsgotKgX7>apgGrBB(Y&tX4dv> z>6%K(57$X=Ve*j8>N*M`=J+_r6x>KDuFs#yTwlHf;b-M7vw;Oh#dw?N557v zv@z@p@i}Otr@t5s*l0)$@L#Gf_&2Jd$yOKm@MJjd5gvz07U(HEu&PqJtHE>dzQ| z1ePFfM~g-f!PJkb$v7uwMU%0xRT(=(>yAuIGez0OMki=ch>XXCVlznxe41__)e#Oa zq^rHzjwu^XFsSlIjxo10`O?-V2wT9TTbsG`-h~ch4zeOenMt}PTb-(qdw8Y-6+gcG z5%jm6Eje+dDbu|wW}sf3;sn2w1( zx#YAGE;Ek?qAO5}waj?`HVy7(0ZB>xeLWatU)QQj$3_tTFYEq)0-gQO#Brmy|1mO< zZxQtwo9o#6&s|z0ZgLd5{Z==*4*r50>&JGZ$*Ck7EvhFI$7f7q?`zaG9ofrThl6Rp z$f_v#4wleB`TUF7kuM>W9`;iGiU@8O@=0KPI?o$5Ae)D}xH11&+Ve2KXpw13K7*yKt-G{s;>>USg)QkDp<0_`y22Gqswd?*1=fFx}1ih8uSmJi;p1~EXNlkwb35JLDq zEyki3clNfv+LG;ef9EMhWC#-%h$>in0(%5iLRN*P^{2c0nIE{@?ZxZ>luNp6aWZlP zws#8hbtu#<~$-z^#J$Bvh#lgSG^b|(Sxu^FI!85VQt-c>= zfLdI{i(&g;J1!KRY;vi1Ncs5b4fnw(cs9AXH#cDyeuIrEjwSqL_$1zs z9s-*(9c9d@1kVUPt!`Uamf3C00AukWRb?^WgvL!gwq-}*=pi>1Nh9pFf%i$E4XTPT zj1fWAz)hsN$RKAATHTH*c0fKo-F6aJev*;<1P03=_1nuIx)`pZYi8qoJ8P4~ypO|a z4crR4)+Tj|j0^BM70A*}B$f)Ps}_Cqmq0i=%zSL9&j;e6a@jon>JgYyNW=p^LnP4E zH0A}e4O}wq>WJR1?I@+P#^F&p?Es+LINf}xK2M5Yd4z5n99`L4FpTu(9+Gs`YG-*c zS^SA1rLdoiC^^3M8$qzmpyY+OLwZajlGN_%!B_HKqH0A1^~1x5@Io5VIj7`vUt zSi#-Q4wC23ZtqwI081T0{en1I&4yLNR|(SRPh3Vq&nFR5%Y<*E=Frm4*%wRS_LdF$ z)gT^2!A5Vn*a`fasjE(#$_%e}jJcr~>>KCmbZRr1&9WZRoFzj%)%J+&Drti3%8>l1 zY0`DuHV9;%2CCIk`59AZdL-uhnC_?B=g4p|rKDERKWBn(+s0121qNfYEiNbDs_mX& z`>;%~FHOzaUW;TrX;d5l67%TGoVMsQp_B&T9G$yJM8~F2-R55d{v!;z)Pw*dscA-c zq1_Y%74seqkaFQFmW^ShFZsG(86zM4Fa4yHDz)m5DdQ^v{Mo)5TE3&?Ok`{dcPQ`U z>iuy-I9hAMA$R-1zNeZ?q4JaXZg4w?($H`&oejYhL~MoA#gK2>MK3S))Eyve+V&&K zI~76Jw)bTelR<`MCD6x!)hyr#k$PFtcz6a~r&XZ~dyK;uIasjO*l-*mANeD=Y-GlV zShZsJo>)q+lig#x_|6!UFe*pTf1;qw8XNkFl>-7jpT5gw2}I3B#E?xNw!m2kQGDrBim2@ zFKJorn{^h|5*%)1P7#-^Kc%=4`;Ep}9w|2>>8n!+Jz+#(kFhj@RpDa1`E90DLFu@#TEXlwW|mxQV94tg<*T?t^~lOXf5 z8P^RrfG|dG3>D;6!CmjEeb7{|)&ZCC-pJifuh{gZ5nbH`#!T~;|c9DG%6Q4xQfP>f#J z(1?Fzw79#?DmO3;CI}!E(RCalU(sdkdeV|YabCe1@{Ex`OZ21mcudMVN`-8A=lEgCSW?g zde`fu+9b_V#1764ML;gj*gb zQiJ~6{zB8C+i8b}NIq@QS2BNMp41>l#pvPQzuh2E%*5$tXuFht^|0Mw;xz208Vv&vm*X97NX36T3fFN8x%j{ApM?l6IbSvwf&!~6cFQp@QZJq$X=?IoIo z=CwiHQGNJ9VwN03)y!#QrFa^p*vy3TgKaV9s);c?+uVO}Eq4P75&=K3e(ZBJ0B2;A z7SpLX7=fdEP;@9d&$oglsttJv*TC8A?6X%$QP@hNME-SiAs9v`WG&29qh3+;0?M^y zmw#7sNxp-BE#0KYWG8p1Xsv}RJk`P9P?_3qb%`@5)Xpm1Ff3^z-odCC!pksYR zV6tsELk3tcCrf?P&hNX={fsDoxS-qw|ahan*^P z;p{I)cm_UAuIpr1@C%%QlA(chd@X8X_ZAhO?1N#Yb|PYmrBR}TJBRbo7^@cojWowyXFB;=j3r`oFsYU;RD zk(?7Er+(7(1Q$kZm(o#(*TN*~MqG;G14#i=@Mf3tMR(T0$98&Y%OZ&f>8acAd?t&OO)67@iEE!ImyM2q(C5#e zKc^4p!e$$X7||U84lGo9G=#&9CNGNzi!W8v%a;T1BrCH%E$h$pJt+a*A5Ki)GcCZI z2s|Pdu5b7F)SY|nR7fk|)(_0aF6qNJUYrbeE%fEmAl zlS7vDR(|h?k9YPrwyioSRzvelxaUa=9lo1y+~mnHeaR6x&YEU3uje%E$v|#0m>8Oz znfQc{O1oe5zOSo&rRuly>=rZavL0$1c9sP*3z=|O8`kYdexZB%H@cmC*qUSA>Oa@| zu4v^cE|!{HI5m0w z`0u%5&z$;Hg93QR^Lc@wfnw=K1HBSS!)!uED0&4-9BCBlm{Xqg<8Fb|XI{&*j7tdR zzj_X2qVnc(OnUmgGoBk;p?RQS&245cWX3SpErVqG0;@q|YKXdJBfVLOX!5B!HaL_+ zQ^IG}WgD)YZ2%_=7%xhu-OrktQ+Ie@$;lSd;SMKRa~Hlqhh3mzTL2z==kmDb;^LPs zFDe~Y7@Iq&BM|849RVN$Fo}H=>ct7fENeL5#~^80A`MRrs5pLlnKjY?M=-S7WSSxe z{u_mhx3q?+4MLWsK=qTCCoh{361NZ^WqTz=>N@`uiD(j9xTLFP=c?n9D9aKmfb{AR z6GxtY`4NQ|0*fGih9B|Mo7e8$2>Vf&?E4tTn+h0(&D`utsmNk$VGd&Aq@f!mzk4QZ zvwG#KD{!$OlUL;CXdIo5{asRFa-Id#y?_9oj>yAbiAxnSU@zA>`apJQVNJI0!)BR)CMDAd0Gf`@!g2eX5-qu5C zrzCwUR1Y;?wYAB_G`?E^@Z9RQ{&(y&7qsz%PvXqX%;`W`m?oM{IhO3zt(G0W1S9Ge zuXBFst5vn<;ZvvhTp4dJ?ek%qB1Aly#i~WnI&8@?QzmbFuRG{kF~rl$y^9&Kgq1jw zPRxm84M!()crIfZo$UOMGpVCO8j@{4J2;1LZWbcyw7?RyM;7wC;!$kpatIW2(Qe!n zY^^IZ-NAD)GnE2N+q=hT+;{#joshLXqV#id<{z34-7L0&zIi*$$-*y56=2hO)Wq}} zW*%rGTOl0dzA6hH4uafH5ZaE+9i=sW?r@yEA~k)iLY@|q;HjfLu~an(e$Li{p0(WY z@RJ=fPm$~G5NCqvT+#MkxNy<-!cn@a zcoKP2BruxO@(q15mKYgdO1X1{z#M~7Bdrd}(-y9&(ZU61XJ-k7jOXI`8%)+tV#?in zm+#!`tbBaULNBvmrdwBj#Yxw>eET*(iZQ0=1inj_A)d$^R&EHIRX$Y=p3U=L6u_vO z8)QuTS`IJ)zK32+TGw|S?7~$5$b{iM*djA2zJo_wPwW7`KYmWmf^`+zv}0*Eh{e0# zjD76jfD&wXd>c|0TVZSaIkH!`RS5u*fv|tIDSD*Yu=rd6N2Y8H1tq)|)Q;>l4Bn-(Engq8mqMnTMx-;- zMwY?2Hz;DnHK3A1C(m81uQY3|654V>)IZcrbdRGU6%G}!3kFfdK%eBK>FL)`PhSx) zk=9sYvd(5el6?z03I^zb3c^E`?&mgM*aToSN`Xz2H02inN=Loac66$v%=(a23_n;K zY6-_nR=>Un2Jc@Kzkt}gWcD#PSy}L(Uw8?VU&xz!lN!+u%+od@tQ7CKcDNmxLMlCd zV2>dBG`%HzSpfmA-1FR_#=z1MxJL-XB^=u!b&mLN z^X>7>*+w+}*hV^Nl#>g^#b7psaerX?syVXF{D9hI8-tC|jQ7anE+|?}YeODnVyyA$ zsZ*zbu9byBDy+mt2|wSqSX^=QCIwBNzqfbeb&EW;&^r1l$)|0Hqr&!tn1hO0MV+Rk zd)J?-TQYrApj5%%LY9nhK>u-K zYI4T9ljXO9{)D@uULDlPDNOf~P+}^j{e$Q5Ij#GPv0jNg!htt-Bb>{rYN`1#8Wq5O zr=T&9D2&GoJ`g=|sH*T#Yzn!A!Kc1TFf2HcmR(L**)M*7>C2y7T3uay|5E&T?tMY@ zWlL(3m0wyzT2q`iB3l~2h}2WXghVHddl5jaux)Z+4DA*>ESh;BLDS>ir42kb_yU}K z7jab|?Cd-~*xL1adJEoLd8wm01(Q#P4?Pnoex(& z?tJ?3wI%)?9c#`I&C0Z7X{MD{b}%T>)3o@}$i0x6r8;})uYvKPu-YnQ_QmD(byreSLlcXNnk z(ajE*;`Yy{p9OV1xS33SC&g7f#Pk)*K*p8hjjz9X{Fv|;s_BGZ<=9=x179NJ>LfEY zqI*t^v;eSdT(f&xUv+fjVGxcvBsmbK#V(^$l)ampyyN)h@;iU_qC2N88Ny99bIdLH znQ6Mxp$V5her$E~Gz=0u^fJ-Y`dGek>KzVoPlGUh;baio<5&+4eIm}28~%c!rWH?d zh%&vAk;R}Ba;Qi;YMd&9P5?1PIjACZqBiIR?iG<%0hB45D+B>~vBpmqz~YoJbr9=~ zPX9!`2vj`Pg7)V1VwM`b-%FeV8>W4Vu_P^|!N$H~(s;+;wmH9gK6KN`*Fqr8#-EIR z;SPyF<6YzE74ZcBHvvHo$$JO@Hb_iFO@J-AI@ow7*XQ|`{AJsw?glo}FNy@M zy%4gei=7>|X-6Ixx3BEX==Q`*qS2SOfu+#*z^b&J>Hl=4j8HME$btc@nKAiH#Z8 zcnN!5y)6HI2NX&S!D}kJzC=<-!pva*#Jb-T-&XcD^ug4F^ip1WCE|GD@%<~y`dzsxXk9-jyAKjRKOmIrv-r4Df_pNczfVk=)$Q5D z)Uw)9_R3uHb*bn*M}W5OK&doExvtDbmcB}p*6ATroHt-dQ&&QSn~uMsTu>aO&FN2p3FuXYJxhVz{UW3%1YMaZEJH&SCyIi4dT(qoy46 z%-L?sr4On#0}R^<8@juUND>pv9b*y_=A(s;z4U0f7dP$EkQOvt-p>JaC` z&K_kSo9lc(^ghbZV01iv)aq0B25hn@y8M*s6S$6T~8MA@K!(S38d_@Kx^&~ycstv8kiOLmXe+E=zb6Wxq`9;xK^6@?UL7k+a?ZRxjO>XdybAJY^!-zdNUv z{KfHQEi4A$T{V&dg6n9APkGj!#)4t7&P_l^|-3CFpP>5)%nqB+dc#93L-P zW|rt?&MFQ?0nT`v?1UtEaD`KK+;TCpWHftpEiD^_p5*=_TZ#)Yv&I<5qciY>6^OXE(d&yoy zqaZEn;~j?bl`^Vsk-TVaZ~xMXr4F9hgG(LCyNMArqt)e5IdO^7cYEKCX~X5MZ9V9VnZ~9xFMyGSp8c`DO#&7tOq-(@bWbqgYRn@?VO){0$f<{&UOja6I zR_0ok8Ap%8cRYrPe@VGWin>$xj0?#sQ+KEBPO`r!L2BK*E&g=V^4~=z(q{^q=B$^% zRphrqczHXt<~G&m6lc7II}O)5T{G>nUTmCNiA?hO|>kH ziE(`@#ud6WG7lzcsxj`9n=uG1ZJ;R^u~2_eEM5HaC#$PKIAxs1(y@tMM&V6|An3HR z1*(E1eP(MIGa4Rjhh+;E25;3N$q$`{Gy9!0B*hACQ=}A+l&s>Hk(FJ3q!+I>?0|NT@F(}6;avvw9LDsr9sLV$cn+t zsXuYGkn&jnZ)dkh@?R!aHj`ctW4Y_3JTilaLK#z1m>dbwZH`U)PX9CIz^IDhdljQqO6q~r!XiCSm}93@4o6I^bFzR*E#}P z<0LKN`Hk~p|AEizbc!d#Im6HH0+l5RTqu*mxr~6m4}@;LLB@HH45jecP}%_jaBPy|!|FGzp}6|515zmwB{4ja><04x{Q!igFE4W>TPY zMaRGDf|=o*3W*DsH&0mE9uXjr`efq1MSa$G$MjW1Pql#lC#SC+yP_N33?_u+19Z-6 zveWRkbAgRi?hBt-**-gURKj`TW9hcKQ{Tj=sBlF-8N|Y-22&(_BUU?%jDKX1k$&$2 ziRC&Aw-+qeJjDdA`Q)19amd7)tTf_Fic1tKIA@1It%-S)S*s_PF%Z3F^TLszXxN0*%lL|xZm&gf^UpGY~dBwY2Ij#pIXD8N$dLdumwQ2Tf(+@YdlxGeCp)84N9Ej7Z^y{r-gu4%yVe z#WB6pAQ83nnhpx_NLpG;`;iZX9FLN}h*IJxGfG4Ne+sYu^M(T24I?|A2=#QMcDo^? zK@&lWT9!pXb0~u{ms40W?%?J$!$hZ}EQx2@+5A_&RB$Z~Nl+y*ZNZ*F6#MXTCYvf` zqX$D#!6NGBO-!I2F4dhW4nTl9{52<57uMsDzS+aah6E@HGJ3Ddk-*>SW<jA-ISeYR?ucw($$Z?ha z&1XXko=-?fp!5aJSh;11>~`F^VY+8?Yir1B6t%!DHF*#G*THFSGONW0dQ4IOoL}%m zUOv@aw>(FDFX|8MM_(+)Bruc#U&>mcOTEwe8HgCcnOzw?1gIfbqg{HS&uY!^LYd3I z@Dl^Myc`~t_w?;c_GA|Q_?&LnJ4<|*?Y?&alsD)NNqlQbDVRSpNv`!%OWb?8(DflT z;9s71A+ptsvAsYhl>injDA*o@fM`Ni6gH!XCSMi8!xzn)A5}o^C7a0@;KE{jTq7Uy zz?bahC7Vg)4|;?O6);}PgK(f zO{+QU0Iq~O$o;x=*DT4BFs^*^!3Qf?Vf|mUw&$`>q!gSo8EiccCzrPw6-e8L>0vR- zH(|)kY65Cca*0_G*x!!zv^0^NS5v|{+g6u768MXDcGo^vw(TA1m=rm-FKo%qxvuo8 zo;DdVvDS>UkRvU7QouMS)WOIW6v4W{5Hl>svagmFM;dLjFd{#+;GxBFMK@c}X0?I^ z*W&%cT4MAusi}SZ=W;IKsSsi{xHz(Il9H^uzzqJW>zI%8kVUONVXEubSt{gAEtTLY zUC;UHYh(qmdzge+M*9p;)fZ5zy2*ZslIY>QJVBtI~g&eo8ltULI}T7 z?nVi?(hvQ6n!>oIM-p__C+;j*!&FFqolVh7jGdP8sdD&7ZmgQT4R>saxa0$DKCwtrM>Cx#N z6y}s?Vo;Q|=TgxmH+J78yEj^N8cb%i{-y+=hvg52zq7>E>bAk+rubaH%^xY8>E1=X zG_UIlNuGPOcSB{wzt2zo|KiUe*~Rq!FUFE(z_XN+N`y5|6*pf9KI>S5CT4VfC5Z6A zq>iA=qws{>j2qurc32F#%2xAIGaS$Nf5Jp#XeXO$S)cxa=J6dY7XPe?#ETkfIgB^h zHHIemJItXGc-+Ktjexcx$+EMIH>hN+lh5OMq7{R)q)gMFDsBwliy~xqHZ2V0 zy^b20lQUY^eL<5Qtu=7KBeyWV?RlISLabHLLIg3Bn^A~jw8!{YTHV-Oy27HcZX!!vdBi4)GT@5|IE~KPgMAIe8$_5_Vn$V+;rj>FOT8E^mBS0Gb=CX% zHsq5T;`le&RFEnb&ps7#4suDZ!>@B5>@k|pCxxpKcWBxIE zuTTv5wEQqIDAoN;Zcf8zEG~GBcAmQMtm%oVowTlymL|Em!t^*PON`B>4INpzm1H4w zCxDtDTo%Dtl2;*En(wS!U-|5|J0*n^5VF~;=a9mMtYG8NNwyc-pfdK2oiCxgrk58g z#pVvR5EZNHC^{m5%W5hsO6553)&(yeCeF$f+x~H2Y5yIoZf;0W)iCyEanIU}w@AaS2)wj(k+RXqa(X8I+6Y<}LOZzJO`j-w=t(bjIA=nzUV(LXIXHab zf<0eqL@#8w(!+)w(@{AeSEesw#T_@)PPEhl2z{`0>&}v8c*#&h$oF!;=e2SMm^Vw; z6a`>*2qvr&@S5@4RDbycN>vB?&~N%WN){pT-vD`e9wX+#jH}LKrms`OlF4vjY@qu# z_)=%-A#quRP-I@%0fI!(bX!SU8c|=PeWo+T8A=0ejKMoJ7=4pA_sQdcB16zN=Dmy; z)K(WDI5X^XRa$hr7Muh<4o<`KZpIwpjzb!3aBJzaQjEc05rc~Amz*_tDDD>tY%FnweQmq0)RN{QoQ|G0EwK_wM9C^3 zVEL7+X86m^ai&i+v4o94IfB&l*E2ON%&WT)jkTGdZ#&~_I-~8>2D!+F`h}IbHi&4xXdzRZY9Yu~y@$}SahML5mavyYSesU}L zpj%g<2IPZBO;>NxrLy5DxYnJWOHS>Ek8AxBw!ye4$Rz+AV{XX!qg=%ODqC)<+bD!b zn=~j!ZiC(z%5+^BnQXf!+{fW!x$bM|fh3Vg3Uf|fu#JR7uI&P*SbqY$mtDw6_ zXvyB8+PuKR5Em?Kv*M5siRj(AN6rDQ;#1?Oz^{fHXE&u{=^j3jqy-Qp?Gos9Gs%uz zc#W10d~Mmp!4ociGF(&GDCgU|d0!-a_14kG9_Tp)Bti;Q3cx9E#58$}*r;?{JB4$a zz(h63f2obWjMP?Xh1e(?^}KcJJLjoos1plhhuwr9eKoatM7L z*!FMT7w#GacOax~l?80-{`k5qIXQ^XOUjIm29{Nfs@7*tEys%cnsgE+JD1sz$6czJ z&A?-HcMl(;8Yb#Zv6K3VgP5Zr2j`NW_G5w$$St z3bET0l{VU<9aSgs%m#SUV=bu9Lbu2R7t|`i88FW;9)M5LA)q?~Ah}_wg8->Z61BM5 zZY0Z`*$$rWN)=83PLYK&osO|Kd>a)Tf|=oYV=|7-?d)9{!?4Ja|M2k99eT*10$|O` zZ_<2YoH32w)O`9+7LbbaqWN7R=*9-Wk=UpyYIeqj7^kwERnHbC3AZ&F|TZlYiu=ROGst z2`Z|RR3rnyj-IGh8v!`9D6ycD?EwU?T&=UFOe3(nxzHJwR zo+qyEi!EWdl1#Ia*=RLS?FVC?mgknCGC`D@shuvj;;*&2}^S*^SH)^ynUKtS>fXHcT^PMKJzUtGEH z-VPZoIGeVWMV~Bt}vx&$*W-2JDmN4+_2P`^!je*yI^vo$G`r!GE-9LQv`afup{)giU}{*#k}gk6S7L>S)vJ zb$;=zNzKUnaeXvC-X)rBGVi^o#pXY+6y6Jy|50_A5b7~j3uvIisXhLD51Uo!GTq&W zC#vy4%kf!ZKXr4_116*JJCyM zixLc5ytzs3OrM%NIp;p2^F8RRiKEdu8bU>mp$Qxh*1+7g9f)>odtDPxhB9bX#xVZX zt<~RXuDLvTCk|EJLc*hk65RGv?cu_)XWCp1tDalojCF?+Q6GJzCJJ6WmAYwx#x~be z2J7VTRts-()-w72`_YyaJ%8D)C%MG9cn?T;CbYMrjrA(dhXAas*3PYroLIAgKpm#+ z>qdCZeMo&SL0%JTDG|w{jO7qSIEUW9ev?u@f4FktZ7y?9dC?$5?eA}}*Qv;1u#U&L zbuGV96zz@_U*#I7i1SkJ1D5c%YIqQkl$43N-UQV0-pEdwfv~5) ztBq~?d|u>cW^(pdI3sZSQo zlSg-UFd*oS%StfM4+GJA6REuz!PffY0xUaR?_5*hI`2CfRN13RctA(FL>qxVA7#yJ z!9J})m;`e0C02wu4^odgBw#iOCn3Mn&qX5SgR+^hW_QTIE{9)%%N^MkvNqVP1 zYf?Eyo9gmcE&AMYD(+lkrulhkb@sV(^1^{2izes9d@vJ+ZuWcj8NmhNfthW-qF=@7 zU9&iX&+&NZAfNoF9-5wC`6s*&a#cWvf^cnG`T4R|2167Vd>bmy-11%6YeCt&D0ydy zRtn#NQSu}Hq3iw0Yv=6<5r-CapNO@Rd;)|o3j==>WmG_?p|8x&p56G3a=;u3~oANIVH(G4vJk8d$Djve^7oeG*$3uO(Q@j$BVwA@ zB|K9l@YfL}gzutt+%MXtfir?)sU4_HJFFKf__`iqDa_qCF9Zhv$E3 zZowxB@BdSiUrg!d!v~vx>a0GuT3tg!-xrqu-4tlm$?@j#iVO=*Iq0mWSn{~eYxd5j zd*B1Bbe8f8x^|1LJ~U=jbs>ejm)H0AJFEBWp7VD*K%}>(ZPwN4Bojc7_ULKN}-GZYM4vpMXn;%Bwez7gjX1O_&G=`O!iifjHPvt>| z+lQ^3|9e+PaJlg~;xs`l5=irEqUK|w$@er%pX+RrHD)9sPLc8Pv2m#lP*u>9BdMwl zz{fbQh66+}iC(iOeFej%m5hNMul2@rE^nfVJe^3?Cl{p(7<~sRAahYJm>K&8)rpJVu#2XE>Y~n1u9#UFzE--(_uGSsHy(aiq zQMjHn_RplVV)yE6XSN6if|R*=^GW>G8}!bs_-~nyRMs7l%fIc0vGoU9$c7+!uYBqa zw5I+mj7>=a$-D$xISNKV0Fx8gY=efp$JJHS`@mD%4PUq%ox~K#57N9Gd`G_*(r)u$ zGkMK5zg!(owF*5RNjNTXB=E=CFyOOasdndwp014N*qt?aplzj5XR)f~i7` zj2$T=&0Cm2%Yr6-ZZ5*nyq99aTHEqp*NUN~Ilup7KU@N$^nZfs0_;=`C zD|Xr&o&7}n-u#rL{}vQNUI&zDbo166R7BKVFPo#@0TTuHq#dB+xh=Q*VE+u5d~vtM z5jr2zy-^G!6y-QRitOowTVoj6_oHWu?KsP)GB{`IYUaG_4;SU&?#||+%x8u;m-)W4 z`o4NbbVLe}AGlLKW~cMvzDQh-~{{=qe(RNV9!Zq)H(gg!-E}k+`#|s+~G{Y+;IRF`0F-;&17if&b{q8?$PnDoV~Vk`5!_&y&;<-^0PWJ{`(r$lO^E-l6@c@>IjY-A_A z9xVEFdM0dQopc1~c5mROsd5p19$(^bn(mKUO*?OIq=Ur{Aw}ruzZ9i|uEY;@K^L8{ z1)ggDkfg!*&~K~v^B4xb@*z4cBY|vjR<#z9RTMc$4x(mzlr_l|(VeHb-9teOU`b!C z^w8VwHe}aYyx{v!px!UjhmT(Q&g&019^JXSfx6KD*NazqxO?yjSkR3F9n(Q5r- z|00MC5H_%hLK*! zP7472{sSSnN97uAGm_;TIwgZ*7>dm{KE-i)>o4u)kox~WKxu2QYl+1#*svHgyiaF_ zZ=ORn1R$>U2nq^T6h264X#sD;1u%jfZ0%kkYEGOcWyhq#3-e~OhMN_Ov}rsO_LPL1 z>cD-0UxOFY=ETX2HHU zg)d+;wvf!sT8o-y?zI-!G?o!{5-UA$bd?cR+IPa-Tun-?OJaKp(~tXOGign_2@x*o z+ct|SFwTS0QqHy=$47j>?s2W0PS>VYRKRe!*u3;h;^0j?GoIfVN0Dq78Jh4Yh;{i? z=Z{h5wZ5WrFkK1RV8IzEHgE4zO4><#j9;DA@4pbr`D1qhlgak|Eh#ne+r&(_o5Q6+kG8VK5Vh#K^gO)Kn zsotf3XX&F^($-nN;6V7lD}pp*JX#JZ&n*!~%Kae!|CdN4`Ye`61_QSLj6~8*U(KT` zIk0&^>-05blhV*a0j1m}dgVk?N_pXQqDpzK{hhBQuavelqT_^?@^D)|`5KZ-X;GhF zAii|U14)n>kU;U(1ewy3HW|{)byS|acda+b->Qg>bOaJz08$XbQwTe^%bS;|*Lwf6 z0}9Y9{N-@_GNoFM6^Y8*-;P{VnlDGqiG(9*2t%nI!+%B_aLTUaeaZfDD{CubNm0F# z{E7Vu&UPTqQh1U)_Li$`EgPS)a*o>2afqHPiGU!(M#jn|&0V%L+8&Hl5ZhH!d!rj? zo_qd>dY-?yI`OUNe<+{=KReAb9PXJc!~Kv$lrawbNroE^UIw{@Vys{stFNm6&Y!lx zAlp%p6~F&imF>#(nl(22x9aGE8g*M!uBy?T%mrWc~EL`KR!7H@FX?(Q7yGxMLZ z({fxx6OShOZd8Hi6xq%)C3+47Bp_SY0EyanS3dd4ty?&UB*e`l<|H@oI=xLLu!uWN z5$XXk;sByX`MQ+67Af*{39d+TS)?oi8|3TpFbWcXW3#faZ3!R$hxhhd5?(dRi1ive zzSMRoT?msDVD|heKw;Yu`kdA<6;+-k)_}dKfSZ8~9RY=LRzYNjEeX?w>(Wl2dNu8S z!IDQvkY;z7X4ef7?i(3N;PcU>umGvwX~r^`^v|h*mAC7UKFt_HZb&lsqIJ1P;GguT zKZPq&i3E{F;I+g4c6d9v^wk8UZ~zcP29Uhi z`fwzA(y2wNZ1u8Z6&JlszzpY0ke%+A&%L+obN$i#Ci+CfPTKbY6;*5@+ttlNv$1`2 z5N3+QlzOxa^HlLH1F(hmHlFOxmDyt*he1;bbc_(D=0LJ8i{S?vrF@jCwdK&ItE4i; zd!abCctcT5y(Ow(-gRa^;q<~26zMH3Tjld)igj+BPN;=y?vR(P`*kTm^PZRMyURcYae5f zy0C$Kr(m53$8db6w~M+=w*TJFF18qqRVm&*m0Bto@}IUj>5Rwo;$SY@v#OQ?Jo>9p7J%^JQaLYt4u zs9b!S(A?|la!IXe1qFolylua%7N>c?1uFSRVF5PP>edmqs_Yw;M7gnb4;NI_!c5$P zLED&&tf{Dkj#3X|x0?e|s#4s*(jON`GL1m4z%(iG0qwT%U6UT-#$h%eO#HGZHE~L-F^d5kOf;m3%+_@B) zH~`uaU^xM6oKI!PM@h>xZ>mmZLVL~=$(=l0E2<0;Y8ZbIE&7zyz~1Clu@GMGPfd)o zaTVA`6_&a!a{O*Fl(NyIZ$}@b+HQVg-m=>4#Kb&KyQ!0DwjE>P0N=bHj@wAl~eHuEsh~!|1H6X8~53G5^_^e58{OCxo+L9GcVRhV8S)yN4~u2^BRgRsB9ZwY&;-W zMCDq%b<2jzan?M$%w1%$CGo?E?-ROd8qm7=z+!zF$)Z?__qdb=%>V8#< z6De8Vg%E*lExi_IT{Ss`m~rSF68NQQa@;+t{e9efq{#w>4HLUBrt)|XmgO|rZmAMp z-VlyaTeX=vrXtHzuom0KfA_HMU1#AYP0G54Y1Y&0A#5x{z_M#KjfIZCnWfrxaIt19zf5<<|71<1kow}~#p_K+h3(*fK} zO`3$p;xZl$1>CeH;HG)cd!Sc@d#deIORMPix^af(*u%U_sDBfxVw+s5L#a1ax{=jG z4wY5W7AAv{D+ZhZK zf_NkBRbT&`4!~(=4-uJe<(#Jw$6bfOJ9LnDXw%D`C13ZJ&@LZLpMHf+fodDo3iujd zbZ3UWv#+eE2ZlGx7YR>W+6_93kY2hmG;$rORAI}-u6p*B@)ab3rkiwNxTL3ST;^#w z(JFB0SnH@>gjFqhu?&%U)CdhbtSO!G1syLQ6njb6hM1IobxLMN7FD1SQ$pS89RhJC z%cJ`s@|WM}U{@q!E%pY=iV;UjD6N0xOuIozz#qc%792Rm-al{%|Sn7JaZ`LIBoq8ZMtS<=H4t^MnB=M`vK~8qg7GsmKvVGA0fYM71 z`5jGor#mTU=!S!bA%XNdJo)LdM6&k`6tPhI2hKPU>mY2~KN72Slq5T}KRI(A$*Dgm z=dzJv5Jv*$wK>BJq5^4yOZ)3}e%Ye=5hsSC1g7c91C~0L^so{y17_=AsbjGHGzwV3L|UKr z22~y|XbmS7rfrR89Li6N!7o$8;)tly@bWQ{vo}JA2Jv_KZmJHOWQERzGDA4BdSy4? z8hkD*3NxW)cnAtsAnMUaNU5Ao8OOLcURjWDys+k6JHuF?GW64f zFU`5;N2zTSp?kH7hQP+;c|C48^GG+80LCIijm&vvjf zMKkcT{RPSTx>@!ghcoACDWp~ z(c)E^D-C(b!<(57zy{OK?_yt`mPY0_c-h|xyGvsRqLkUOAuFrh-~N21j+{#VK61t; zYn3ko!7Y;AV$X1R1XOk*dLKNg52U*+nWt{f*=`Y-s3m70!wofshG`4}%TuWEtuVwR zT=r{{8;InJ#CJTU<=#gsxsR$;U(*CMLx^8(Vr$;CzP?_vno({BIfdIhEpw4=eBCgO z+FdO_^(AN%q$yVnN4D_?aB;rsI=L-S zEM*?n$gw>tzda)}xA&M9f9Rp1Y(#?VK$twf>v*`af9md}B*i`4ArjpsnVjU1qBJUC z&vI|}TB(OFKuC|{%FZ6Z0-)YYoGR~iR>=waN$VNR4>_ryNg7W^PU^=*_CB*w<|a=| zf3oPN2;m1wayHWiBSoD``EeZ(aw%L}Y@S{J;udGP!LcJYZ&DXfBgb zDb0R?ZYGD1sH%K`b)F_XJP(DrFz0-svxJZkH$TZJ{cWKjnR$+’, instead of highlighting the selected candidate + with the ‘ivy-current-match’ face (see + ‘ivy-format-functions-alist’). Or take the customization of + actions, say after the candidate function is selected. ‘RET’ uses + ‘counsel-describe-function’ to describe the function, whereas ‘M-o + d’ jumps to that function’s definition in the code. The ‘M-o’ + prefix can be uniformly used with characters like ‘d’ to group + similar actions. + +Discoverability +............... + + Ivy displays easily discoverable commands through the hydra + facility. ‘C-o’ in the minibuffer displays a hydra menu. It opens + up within an expanded minibuffer area. Each menu item comes with + short documentation strings and highlighted one-key completions. + So discovering even seldom used keys is simply a matter of ‘C-o’ in + the minibuffer while in the midst of the Ivy interaction. This + discoverability minimizes exiting Ivy interface for documentation + look-ups. + + +File: ivy.info, Node: Installation, Next: Getting started, Prev: Introduction, Up: Top + +2 Installation +************** + +Install Ivy automatically through Emacs’s package manager, or manually +from Ivy’s development repository. + + Emacs 24.3 is the oldest version to run Ivy. Emacs 24.4 is the +oldest version that runs Ivy with fancy faces display. + +* Menu: + +* Installing from Emacs Package Manager:: +* Installing from the Git repository:: + + +File: ivy.info, Node: Installing from Emacs Package Manager, Next: Installing from the Git repository, Up: Installation + +2.1 Installing from Emacs Package Manager +========================================= + +‘M-x’ ‘package-install’ ‘RET’ ‘ivy’ ‘RET’ + + Ivy is installed as part of ‘ivy’ package, which is available from +two different package archives, GNU ELPA and MELPA. For the latest +stable version, use the GNU ELPA archives using the above M-x command. + + For current hourly builds, use the MELPA archives. In MELPA, Ivy is +split into three packages: ‘ivy’, ‘swiper’ and ‘counsel’; you can simply +install ‘counsel’ which will bring in the other two as dependencies. +See the code below for adding MELPA to the list of package archives: + + (require 'package) + (add-to-list 'package-archives + '("melpa" . "https://melpa.org/packages/")) + + After this do ‘M-x’ ‘package-refresh-contents’ ‘RET’, followed by +‘M-x’ ‘package-install’ ‘RET’ ‘counsel’ ‘RET’. + + For package manager details, see *note (emacs)Packages::. + + +File: ivy.info, Node: Installing from the Git repository, Prev: Installing from Emacs Package Manager, Up: Installation + +2.2 Installing from the Git repository +====================================== + +Why install from Git? +..................... + + • No need to wait for MELPA’s hourly builds + • Easy to revert to previous versions + • Contribute to Ivy’s development; send patches; pull requests + +Configuration steps +................... + + First clone the Swiper repository with: + + cd ~/git && git clone https://github.com/abo-abo/swiper + cd swiper && make compile + + Second, add these lines to the Emacs init file: + + (add-to-list 'load-path "~/git/swiper/") + (require 'ivy) + + Then, update the code with: + + git pull + make + + +File: ivy.info, Node: Getting started, Next: Key bindings, Prev: Installation, Up: Top + +3 Getting started +***************** + +First enable Ivy completion everywhere: + + (ivy-mode 1) + + Note: ‘ivy-mode’ can be toggled on and off with ‘M-x’ ‘ivy-mode’. + +* Menu: + +* Basic customization:: + + +File: ivy.info, Node: Basic customization, Up: Getting started + +3.1 Basic customization +======================= + +Here are some basic settings particularly useful for new Ivy users: + + (setq ivy-use-virtual-buffers t) + (setq ivy-count-format "(%d/%d) ") + + If you want, you can go without any customizations at all. The above +settings are the most bang for the buck in terms of customization. So +users that typically don’t like customize a lot are advised to look at +these settings first. + + For more advanced customizations, refer to ‘M-x describe-variable’ +documentation. + + +File: ivy.info, Node: Key bindings, Next: Completion Styles, Prev: Getting started, Up: Top + +4 Key bindings +************** + +* Menu: + +* Global key bindings:: +* Minibuffer key bindings:: + + +File: ivy.info, Node: Global key bindings, Next: Minibuffer key bindings, Up: Key bindings + +4.1 Global key bindings +======================= + +Here is a list of commands that are useful to be bound globally, along +with some sample bindings: + +Ivy-based interface to standard commands +........................................ + + (global-set-key (kbd "C-s") 'swiper-isearch) + (global-set-key (kbd "M-x") 'counsel-M-x) + (global-set-key (kbd "C-x C-f") 'counsel-find-file) + (global-set-key (kbd "M-y") 'counsel-yank-pop) + (global-set-key (kbd " f") 'counsel-describe-function) + (global-set-key (kbd " v") 'counsel-describe-variable) + (global-set-key (kbd " l") 'counsel-find-library) + (global-set-key (kbd " i") 'counsel-info-lookup-symbol) + (global-set-key (kbd " u") 'counsel-unicode-char) + (global-set-key (kbd " j") 'counsel-set-variable) + (global-set-key (kbd "C-x b") 'ivy-switch-buffer) + (global-set-key (kbd "C-c v") 'ivy-push-view) + (global-set-key (kbd "C-c V") 'ivy-pop-view) + +Ivy-based interface to shell and system tools +............................................. + + (global-set-key (kbd "C-c c") 'counsel-compile) + (global-set-key (kbd "C-c g") 'counsel-git) + (global-set-key (kbd "C-c j") 'counsel-git-grep) + (global-set-key (kbd "C-c L") 'counsel-git-log) + (global-set-key (kbd "C-c k") 'counsel-rg) + (global-set-key (kbd "C-c m") 'counsel-linux-app) + (global-set-key (kbd "C-c n") 'counsel-fzf) + (global-set-key (kbd "C-x l") 'counsel-locate) + (global-set-key (kbd "C-c J") 'counsel-file-jump) + (global-set-key (kbd "C-S-o") 'counsel-rhythmbox) + (global-set-key (kbd "C-c w") 'counsel-wmctrl) + +Ivy-resume and other commands +............................. + + ‘ivy-resume’ resumes the last Ivy-based completion. + + (global-set-key (kbd "C-c C-r") 'ivy-resume) + (global-set-key (kbd "C-c b") 'counsel-bookmark) + (global-set-key (kbd "C-c d") 'counsel-descbinds) + (global-set-key (kbd "C-c g") 'counsel-git) + (global-set-key (kbd "C-c o") 'counsel-outline) + (global-set-key (kbd "C-c t") 'counsel-load-theme) + (global-set-key (kbd "C-c F") 'counsel-org-file) + + You can also enable ‘counsel-mode’ to make some global key binding +remapping for you. + + +File: ivy.info, Node: Minibuffer key bindings, Prev: Global key bindings, Up: Key bindings + +4.2 Minibuffer key bindings +=========================== + +Ivy includes several minibuffer bindings, which are defined in the +‘ivy-minibuffer-map’ keymap variable. The most frequently used ones are +described here. + + ‘swiper’ or ‘counsel-M-x’ add more key bindings through the ‘keymap’ +argument to ‘ivy-read’. These keys, also active in the minibuffer, are +described under their respective commands. + + A key feature of ‘ivy-minibuffer-map’ is its full editing capability +where the familiar ‘C-a’, ‘C-f’, ‘M-d’, ‘M-DEL’, ‘M-b’, ‘M-w’, ‘C-k’, +‘C-y’ key bindings work the same as in ‘fundamental-mode’. + +* Menu: + +* Key bindings for navigation:: +* Key bindings for single selection, action, then exit minibuffer: Key bindings for single selection action then exit minibuffer. +* Key bindings for multiple selections and actions, keep minibuffer open: Key bindings for multiple selections and actions keep minibuffer open. +* Key bindings that alter the minibuffer input:: +* Other key bindings:: +* Hydra in the minibuffer:: +* Saving the current completion session to a buffer:: + + +File: ivy.info, Node: Key bindings for navigation, Next: Key bindings for single selection action then exit minibuffer, Up: Minibuffer key bindings + +4.2.1 Key bindings for navigation +--------------------------------- + + • ‘C-n’ (‘ivy-next-line’) selects the next candidate + • ‘C-p’ (‘ivy-previous-line’) selects the previous candidate + • ‘M-<’ (‘ivy-beginning-of-buffer’) selects the first candidate + • ‘M->’ (‘ivy-end-of-buffer’) selects the last candidate + • ‘C-v’ (‘ivy-scroll-up-command’) scrolls up by ‘ivy-height’ lines + • ‘M-v’ (‘ivy-scroll-down-command’) scrolls down by ‘ivy-height’ + lines + + -- User Option: ivy-wrap + Specifies the wrap-around behavior for ‘C-n’ and ‘C-p’. When + ‘ivy-wrap’ is set to ‘t’, ‘ivy-next-line’ and ‘ivy-previous-line’ + will cycle past the last and the first candidates respectively. + + Wrap-around behavior is off by default. + + -- User Option: ivy-height + Use this option to adjust the minibuffer height, which also affects + scroll size when using ‘C-v’ and ‘M-v’ key bindings. + + ‘ivy-height’ is 10 lines by default. + + +File: ivy.info, Node: Key bindings for single selection action then exit minibuffer, Next: Key bindings for multiple selections and actions keep minibuffer open, Prev: Key bindings for navigation, Up: Minibuffer key bindings + +4.2.2 Key bindings for single selection, action, then exit minibuffer +--------------------------------------------------------------------- + +Ivy can offer several actions from which to choose which action to run. +This "calling an action" operates on the selected candidate. For +example, when viewing a list of files, one action could open it for +editing, one to view it, another to invoke a special function, and so +on. Custom actions can be added to this interface. The precise action +to call on the selected candidate can be delayed until after the +narrowing is completed. No need to exit the interface if unsure which +action to run. This delayed flexibility and customization of actions +extends usability of lists in Emacs. + +‘C-m’ or ‘RET’ (‘ivy-done’) +........................... + + Calls the default action and then exits the minibuffer. + +‘M-o’ (‘ivy-dispatching-done’) +.............................. + + Presents valid actions from which to choose. When only one action + is available, there is no difference between ‘M-o’ and ‘C-m’. + +‘C-j’ (‘ivy-alt-done’) +...................... + + When completing file names, selects the current directory candidate + and starts a new completion session there. Otherwise, it is the + same as ‘ivy-done’. + +‘TAB’ (‘ivy-partial-or-done’) +............................. + + Attempts partial completion, extending current input as much as + possible. ‘TAB TAB’ is the same as ‘C-j’ (‘ivy-alt-done’). + + Example ERT test: + + (should + (equal (ivy-with + '(progn + (ivy-read "Test: " '("can do" "can't, sorry" "other")) + ivy-text) + "c ") + "can")) + +‘C-M-j’ (‘ivy-immediate-done’) +.............................. + + Exits with _the current input_ instead of _the current candidate_ + (like other commands). + + This is useful e.g. when you call ‘find-file’ to create a new + file, but the desired name matches an existing file. In that case, + using ‘C-j’ would select that existing file, which isn’t what you + want - use this command instead. + +‘C-'’ (‘ivy-avy’) +................. + + Uses avy to select one of the candidates on the current candidate + page. This can often be faster than multiple ‘C-n’ or ‘C-p’ + keystrokes followed by ‘C-m’. + + +File: ivy.info, Node: Key bindings for multiple selections and actions keep minibuffer open, Next: Key bindings that alter the minibuffer input, Prev: Key bindings for single selection action then exit minibuffer, Up: Minibuffer key bindings + +4.2.3 Key bindings for multiple selections and actions, keep minibuffer open +---------------------------------------------------------------------------- + +For repeatedly applying multiple actions or acting on multiple +candidates, Ivy does not close the minibuffer between commands. It +keeps the minibuffer open for applying subsequent actions. + + Adding an extra meta key to the normal key chord invokes the special +version of the regular commands that enables applying multiple actions. + +‘C-M-m’ (‘ivy-call’) +.................... + + Is the non-exiting version of ‘C-m’ (‘ivy-done’). + + Instead of closing the minibuffer, ‘C-M-m’ allows selecting another + candidate or another action. For example, ‘C-M-m’ on functions + list invokes ‘describe-function’. When combined with ‘C-n’, + function descriptions can be invoked quickly in succession. + +‘C-M-o’ (‘ivy-dispatching-call’) +................................ + + Is the non-exiting version of ‘M-o’ (‘ivy-dispatching-done’). + + For example, during the ‘counsel-rhythmbox’ completion, press + ‘C-M-o e’ to en-queue the selected candidate, followed by ‘C-n C-m’ + to play the next candidate - the current action reverts to the + default one after ‘C-M-o’. + +‘C-M-n’ (‘ivy-next-line-and-call’) +.................................. + + Combines ‘C-n’ and ‘C-M-m’. Moves to next line and applies an + action. + + Comes in handy when opening multiple files from + ‘counsel-find-file’, ‘counsel-git-grep’, ‘counsel-ag’, + ‘counsel-rg’, or ‘counsel-locate’ lists. Just hold ‘C-M-n’ for + rapid-fire default action on each successive element of the list. + +‘C-M-p’ (‘ivy-previous-line-and-call’) +...................................... + + Combines ‘C-p’ and ‘C-M-m’. + + Similar to the above except it moves through the list in the other + direction. + +‘ivy-resume’ +............ + + Recalls the state of the completion session just before its last + exit. + + Useful after an accidental ‘C-m’ (‘ivy-done’). + + +File: ivy.info, Node: Key bindings that alter the minibuffer input, Next: Other key bindings, Prev: Key bindings for multiple selections and actions keep minibuffer open, Up: Minibuffer key bindings + +4.2.4 Key bindings that alter the minibuffer input +-------------------------------------------------- + +‘M-n’ (‘ivy-next-history-element’) +.................................. + + Cycles forward through the Ivy command history. + + Ivy updates an internal history list after each action. When this + history list is empty, ‘M-n’ inserts symbol (or URL) at point into + the minibuffer. + +‘M-p’ (‘ivy-previous-history-element’) +...................................... + + Cycles forward through the Ivy command history. + +‘M-i’ (‘ivy-insert-current’) +............................ + + Inserts the current candidate into the minibuffer. + + Useful for copying and renaming files, for example: ‘M-i’ to insert + the original file name string, edit it, and then ‘C-m’ to complete + the renaming. + +‘M-j’ (‘ivy-yank-word’) +....................... + + Inserts the sub-word at point into the minibuffer. + + This is similar to ‘C-s C-w’ with ‘isearch’. Ivy reserves ‘C-w’ + for ‘kill-region’. See also ‘ivy-yank-symbol’ and ‘ivy-yank-char’. + +‘S-SPC’ (‘ivy-restrict-to-matches’) +................................... + + Deletes the current input, and resets the candidates list to the + currently restricted matches. + + This is how Ivy provides narrowing in successive tiers. + +‘C-r’ (‘ivy-reverse-i-search’) +.............................. + + Starts a recursive completion session through the command’s + history. + + This works just like ‘C-r’ at the bash command prompt, where the + completion candidates are the history items. Upon completion, the + selected candidate string is inserted into the minibuffer. + + +File: ivy.info, Node: Other key bindings, Next: Hydra in the minibuffer, Prev: Key bindings that alter the minibuffer input, Up: Minibuffer key bindings + +4.2.5 Other key bindings +------------------------ + +‘M-w’ (‘ivy-kill-ring-save’) +............................ + + Copies selected candidates to the kill ring. + + Copies the region if the region is active. + + +File: ivy.info, Node: Hydra in the minibuffer, Next: Saving the current completion session to a buffer, Prev: Other key bindings, Up: Minibuffer key bindings + +4.2.6 Hydra in the minibuffer +----------------------------- + +‘C-o’ (‘hydra-ivy/body’) +........................ + + Invokes the hydra menu with short key bindings. + + When Hydra is active, minibuffer editing is disabled and menus +display short aliases: + +Short Normal Command name +------------------------------------------------ +‘o’ ‘C-g’ ‘keyboard-escape-quit’ +‘j’ ‘C-n’ ‘ivy-next-line’ +‘k’ ‘C-p’ ‘ivy-previous-line’ +‘h’ ‘M-<’ ‘ivy-beginning-of-buffer’ +‘l’ ‘M->’ ‘ivy-end-of-buffer’ +‘d’ ‘C-m’ ‘ivy-done’ +‘f’ ‘C-j’ ‘ivy-alt-done’ +‘g’ ‘C-M-m’ ‘ivy-call’ +‘u’ ‘C-c C-o’ ‘ivy-occur’ + + Hydra reduces key strokes, for example: ‘C-n C-n C-n C-n’ is ‘C-o +jjjj’ in Hydra. + + Hydra menu offers these additional bindings: + +‘c’ (‘ivy-toggle-calling’) +.......................... + + Toggle calling the action after each candidate change. It modifies + ‘j’ to ‘jg’, ‘k’ to ‘kg’ etc. + +‘m’ (‘ivy-rotate-preferred-builders’) +..................................... + + Rotate the current regexp matcher. + +‘>’ (‘ivy-minibuffer-grow’) +........................... + + Increase ‘ivy-height’ for the current minibuffer. + +‘<’ (‘ivy-minibuffer-shrink’) +............................. + + Decrease ‘ivy-height’ for the current minibuffer. + +‘w’ (‘ivy-prev-action’) +....................... + + Select the previous action. + +‘s’ (‘ivy-next-action’) +....................... + + Select the next action. + +‘a’ (‘ivy-read-action’) +....................... + + Use a menu to select an action. + +‘C’ (‘ivy-toggle-case-fold’) +............................ + + Toggle case folding (match both upper and lower case characters for + lower case input). + + Hydra menu also offers bindings for marking multiple candidates: + +Key Command name +-------------------------------- +‘m’ ‘ivy-mark’ +‘u’ ‘ivy-unmark’ +‘DEL’ ‘ivy-unmark-backward’ +‘t’ ‘ivy-toggle-marks’ + + The action is called on each marked candidate one by one. + + +File: ivy.info, Node: Saving the current completion session to a buffer, Prev: Hydra in the minibuffer, Up: Minibuffer key bindings + +4.2.7 Saving the current completion session to a buffer +------------------------------------------------------- + +‘C-c C-o’ (‘ivy-occur’) +....................... + + Saves the current candidates to a new buffer and exits completion. + + The new buffer is read-only and has a few useful bindings defined. + +‘RET’ or ‘f’ (‘ivy-occur-press’) +................................ + + Call the current action on the selected candidate. + +‘mouse-1’ (‘ivy-occur-click’) +............................. + + Call the current action on the selected candidate. + +‘j’ (‘next-line’) +................. + + Move to next line. + +‘k’ (‘previous-line’) +..................... + + Move to previous line. + +‘a’ (‘ivy-occur-read-action’) +............................. + + Read an action and make it current for this buffer. + +‘o’ (‘ivy-occur-dispatch’) +.......................... + + Read an action and call it on the selected candidate. + +‘q’ (‘quit-window’) +................... + + Bury the current buffer. + + Ivy has no limit on the number of active buffers like these. + + Ivy takes care of naming buffers uniquely by constructing descriptive +names. For example: ‘*ivy-occur counsel-describe-variable "function$*’. + + +File: ivy.info, Node: Completion Styles, Next: Customization, Prev: Key bindings, Up: Top + +5 Completion Styles +******************* + +Ivy’s completion functions rely on a regex builder - a function that +transforms a string input to a string regex. All current candidates +simply have to match this regex. Each collection can be assigned its +own regex builder by customizing ‘ivy-re-builders-alist’. + + The keys of this alist are collection names, and the values are one +of the following: + • ‘ivy--regex’ + • ‘ivy--regex-plus’ + • ‘ivy--regex-ignore-order’ + • ‘ivy--regex-fuzzy’ + • ‘regexp-quote’ + + A catch-all key, ‘t’, applies to all collections that don’t have +their own key. + + The default is: + + (setq ivy-re-builders-alist + '((t . ivy--regex-plus))) + + This example shows a custom regex builder assigned to file name +completion: + + (setq ivy-re-builders-alist + '((read-file-name-internal . ivy--regex-fuzzy) + (t . ivy--regex-plus))) + + Here, ‘read-file-name-internal’ is a function that is passed as the +second argument to ‘completing-read’ for file name completion. + + The regex builder resolves as follows (in order of priority): + 1. ‘re-builder’ argument passed to ‘ivy-read’. + 2. ‘collection’ argument passed to ‘ivy-read’ is a function and has an + entry on ‘ivy-re-builders-alist’. + 3. ‘caller’ argument passed to ‘ivy-read’ has an entry on + ‘ivy-re-builders-alist’. + 4. ‘this-command’ has an entry on ‘ivy-re-builders-alist’. + 5. ‘t’ has an entry on ‘ivy-re-builders-alist’. + 6. ‘ivy--regex’. + +* Menu: + +* ivy--regex-plus:: +* ivy--regex-ignore-order:: +* ivy--regex-fuzzy:: + + +File: ivy.info, Node: ivy--regex-plus, Next: ivy--regex-ignore-order, Up: Completion Styles + +5.1 ivy–regex-plus +================== + +‘ivy--regex-plus’ is Ivy’s default completion method. + + ‘ivy--regex-plus’ matches by splitting the input by spaces and +rebuilding it into a regex. + + As the search string is typed in Ivy’s minibuffer, it is transformed +into valid regex syntax. If the string is ‘"for example"’, it is +transformed into + + "\\(for\\).*\\(example\\)" + + which in regex terminology matches ‘"for"’ followed by a wild card +and then ‘"example"’. Note how Ivy uses the space character to build +wild cards. To match a literal white space, use an extra space. So to +match one space type two spaces, to match two spaces type three spaces, +and so on. + + As Ivy transforms typed characters into regex strings, it provides an +intuitive feedback through font highlights. + + Ivy supports regexp negation with ‘"!"’. For example, ‘"define key ! +ivy quit"’ first selects everything matching ‘"define.*key"’, then +removes everything matching ‘"ivy"’, and finally removes everything +matching ‘"quit"’. What remains is the final result set of the negation +regexp. + + Since Ivy treats minibuffer input as a regexp, the standard regexp +identifiers work: ‘"^"’, ‘"$"’, ‘"\b"’ or ‘"[a-z]"’. The exceptions are +spaces, which translate to ‘".*"’, and ‘"!"’ that signal the beginning +of a negation group. + + +File: ivy.info, Node: ivy--regex-ignore-order, Next: ivy--regex-fuzzy, Prev: ivy--regex-plus, Up: Completion Styles + +5.2 ivy–regex-ignore-order +========================== + +‘ivy--regex-ignore-order’ ignores the order of regexp tokens when +searching for matching candidates. For instance, the input ‘"for +example"’ will match ‘"example test for"’. + + +File: ivy.info, Node: ivy--regex-fuzzy, Prev: ivy--regex-ignore-order, Up: Completion Styles + +5.3 ivy–regex-fuzzy +=================== + +‘ivy--regex-fuzzy’ splits each character with a wild card. Searching +for ‘"for"’ returns all ‘"f.*o.*r"’ matches, resulting in a large number +of hits. Yet some searches need these extra hits. Ivy sorts such large +lists using ‘flx’ package’s scoring mechanism, if it’s installed. + + ‘C-o m’ toggles the current regexp builder. + + +File: ivy.info, Node: Customization, Next: Commands, Prev: Completion Styles, Up: Top + +6 Customization +*************** + +* Menu: + +* Faces:: +* Defcustoms:: +* Actions:: +* Packages:: + + +File: ivy.info, Node: Faces, Next: Defcustoms, Up: Customization + +6.1 Faces +========= + +‘ivy-current-match’ +................... + + Highlights the currently selected candidate. + +‘ivy-minibuffer-match-face-1’ +............................. + + Highlights the background of the match. + +‘ivy-minibuffer-match-face-2’ +............................. + + Highlights the first (modulo 3) matched group. + +‘ivy-minibuffer-match-face-3’ +............................. + + Highlights the second (modulo 3) matched group. + +‘ivy-minibuffer-match-face-4’ +............................. + + Highlights the third (modulo 3) matched group. + +‘ivy-confirm-face’ +.................. + + Highlights the "(confirm)" part of the prompt. + + When ‘confirm-nonexistent-file-or-buffer’ set to ‘t’, then + confirming non-existent files in ‘ivy-mode’ requires an additional + ‘RET’. + + The confirmation prompt will use this face. + + For example: + + (setq confirm-nonexistent-file-or-buffer t) + + Then call ‘find-file’, enter "eldorado" and press ‘RET’ - the + prompt will be appended with "(confirm)". Press ‘RET’ once more to + confirm, or any key to continue the completion. + +‘ivy-match-required-face’ +......................... + + Highlights the "(match required)" part of the prompt. + + When completions have to match available candidates and cannot take + random input, the "(match required)" prompt signals this + constraint. + + For example, call ‘describe-variable’, enter "waldo" and press + ‘RET’ - "(match required)" is prompted. Press any key for the + prompt to disappear. + +‘ivy-subdir’ +............ + + Highlights directories when completing file names. + +‘ivy-remote’ +............ + + Highlights remote files when completing file names. + +‘ivy-virtual’ +............. + + Highlights virtual buffers when completing buffer names. + + Virtual buffers correspond to bookmarks and recent files list, + ‘recentf’. + + Enable virtual buffers with: + + (setq ivy-use-virtual-buffers t) + +‘ivy-modified-buffer’ +..................... + + Highlights modified buffers when switching buffer. + +‘ivy-modified-outside-buffer’ +............................. + + Highlights buffers modified outside Emacs when switching buffer. + + This takes precedence over ‘ivy-modified-buffer’. + + +File: ivy.info, Node: Defcustoms, Next: Actions, Prev: Faces, Up: Customization + +6.2 Defcustoms +============== + + -- User Option: ivy-count-format + A string that specifies display of number of candidates and current + candidate, if one exists. + + The number of matching candidates by default is shown as a right- + padded integer value. + + To disable showing the number of candidates: + + (setq ivy-count-format "") + + To also display the current candidate: + + (setq ivy-count-format "(%d/%d) ") + + The ‘format’-style switches this variable uses are described in the + ‘format’ documentation. + + -- User Option: ivy-display-style + Specifies highlighting candidates in the minibuffer. + + The default setting is ‘'fancy’ in Emacs versions 24.4 or newer. + + Set ‘ivy-display-style’ to ‘nil’ for a plain minibuffer. + + -- User Option: ivy-on-del-error-function + Specifies what to do when ‘DEL’ (‘ivy-backward-delete-char’) fails. + + This is usually the case when there is no text left to delete, + i.e., when ‘DEL’ is typed at the beginning of the minibuffer. + + The default behavior is to quit the completion after ‘DEL’ – a + handy key to invoke after mistakenly triggering a completion. + + +File: ivy.info, Node: Actions, Next: Packages, Prev: Defcustoms, Up: Customization + +6.3 Actions +=========== + +* Menu: + +* What are actions?:: +* How can different actions be called?:: +* How to modify the actions list?:: +* Example - add two actions to each command:: +* Example - define a new command with several actions:: + + +File: ivy.info, Node: What are actions?, Next: How can different actions be called?, Up: Actions + +6.3.1 What are actions? +----------------------- + +An action is a function that is called after you select a candidate +during completion. This function takes a single string argument, which +is the selected candidate. + +Window context when calling an action +..................................... + + Currently, the action is executed in the minibuffer window context. + This means e.g. that if you call ‘insert’ the text will be + inserted into the minibuffer. + + If you want to execute the action in the initial window from which + the completion started, use the ‘with-ivy-window’ wrapper macro. + + (defun ivy-insert-action (x) + (with-ivy-window + (insert x))) + + +File: ivy.info, Node: How can different actions be called?, Next: How to modify the actions list?, Prev: What are actions?, Up: Actions + +6.3.2 How can different actions be called? +------------------------------------------ + + • ‘C-m’ (‘ivy-done’) calls the current action. + • ‘M-o’ (‘ivy-dispatching-done’) presents available actions for + selection, calls it after selection, and then exits. + • ‘C-M-o’ (‘ivy-dispatching-call’) presents available actions for + selection, calls it after selection, and then does not exit. + + +File: ivy.info, Node: How to modify the actions list?, Next: Example - add two actions to each command, Prev: How can different actions be called?, Up: Actions + +6.3.3 How to modify the actions list? +------------------------------------- + +Currently, you can append any amount of your own actions to the default +list of actions. This can be done either for a specific command, or for +all commands at once. + + Usually, the command has only one default action. The convention is +to use single letters when selecting a command, and the letter ‘o’ is +designated for the default command. This way, ‘M-o o’ should be always +equivalent to ‘C-m’. + + +File: ivy.info, Node: Example - add two actions to each command, Next: Example - define a new command with several actions, Prev: How to modify the actions list?, Up: Actions + +6.3.4 Example - add two actions to each command +----------------------------------------------- + +The first action inserts the current candidate into the Ivy window - the +window from which ‘ivy-read’ was called. + + The second action copies the current candidate to the kill ring. + + (defun ivy-yank-action (x) + (kill-new x)) + + (defun ivy-copy-to-buffer-action (x) + (with-ivy-window + (insert x))) + + (ivy-set-actions + t + '(("i" ivy-copy-to-buffer-action "insert") + ("y" ivy-yank-action "yank"))) + + Then in any completion session, ‘M-o y’ invokes ‘ivy-yank-action’, +and ‘M-o i’ invokes ‘ivy-copy-to-buffer-action’. + +* Menu: + +* How to undo adding the two actions:: +* How to add actions to a specific command:: + + +File: ivy.info, Node: How to undo adding the two actions, Next: How to add actions to a specific command, Up: Example - add two actions to each command + +6.3.4.1 How to undo adding the two actions +.......................................... + +Since ‘ivy-set-actions’ modifies the internal dictionary with new data, +set the extra actions list to ‘nil’ by assigning ‘nil’ value to the ‘t’ +key as follows: + + (ivy-set-actions t nil) + + +File: ivy.info, Node: How to add actions to a specific command, Prev: How to undo adding the two actions, Up: Example - add two actions to each command + +6.3.4.2 How to add actions to a specific command +................................................ + +Use the command name as the key: + + (ivy-set-actions + 'swiper + '(("i" ivy-copy-to-buffer-action "insert") + ("y" ivy-yank-action "yank"))) + + +File: ivy.info, Node: Example - define a new command with several actions, Prev: Example - add two actions to each command, Up: Actions + +6.3.5 Example - define a new command with several actions +--------------------------------------------------------- + + (defun my-action-1 (x) + (message "action-1: %s" x)) + + (defun my-action-2 (x) + (message "action-2: %s" x)) + + (defun my-action-3 (x) + (message "action-3: %s" x)) + + (defun my-command-with-3-actions () + (interactive) + (ivy-read "test: " '("foo" "bar" "baz") + :action '(1 + ("o" my-action-1 "action 1") + ("j" my-action-2 "action 2") + ("k" my-action-3 "action 3")))) + + The number 1 above is the index of the default action. Each action +has its own string description for easy selection. + +* Menu: + +* Test the above function with ivy-occur:: + + +File: ivy.info, Node: Test the above function with ivy-occur, Up: Example - define a new command with several actions + +6.3.5.1 Test the above function with ‘ivy-occur’ +................................................ + +To examine each action with each candidate in a key-efficient way, try: + + • Call ‘my-command-with-3-actions’ + • Press ‘C-c C-o’ to close the completion window and move to an + ivy-occur buffer + • Press ‘kkk’ to move to the first candidate, since the point is most + likely at the end of the buffer + • Press ‘oo’ to call the first action + • Press ‘oj’ and ‘ok’ to call the second and the third actions + • Press ‘j’ to move to the next candidate + • Press ‘oo’, ‘oj’, ‘ok’ + • Press ‘j’ to move to the next candidate + • and so on... + + +File: ivy.info, Node: Packages, Prev: Actions, Up: Customization + +6.4 Packages +============ + +‘org-mode’ +.......... + + ‘org-mode’ versions 8.3.3 or later obey ‘completing-read-function’ + (which ‘ivy-mode’ sets). Try refiling headings with similar names + to appreciate ‘ivy-mode’. + +‘magit’ +....... + + Uses ivy by default if Ivy is installed. + +‘find-file-in-project’ +...................... + + Uses ivy by default if Ivy is installed. + +‘projectile’ +............ + + Projectile requires this setting for ivy completion: + + (setq projectile-completion-system 'ivy) + +‘helm-make’ +........... + + Helm-make requires this setting for ivy completion. + + (setq helm-make-completion-method 'ivy) + +automatically integrated packages +................................. + + Ivy re-uses the following packages if they are installed: ‘avy’, + ‘amx’ or ‘smex’, ‘flx’, and ‘wgrep’. + + +File: ivy.info, Node: Commands, Next: API, Prev: Customization, Up: Top + +7 Commands +********** + +* Menu: + +* File Name Completion:: +* Buffer Name Completion:: +* Counsel commands:: + + +File: ivy.info, Node: File Name Completion, Next: Buffer Name Completion, Up: Commands + +7.1 File Name Completion +======================== + +Since file name completion is ubiquitous, Ivy provides extra bindings +that work here: + +‘C-j’ (‘ivy-alt-done’) +...................... + + On a directory, restarts completion from that directory. + + On a file or ‘./’, exit completion with the selected candidate. + +‘DEL’ (‘ivy-backward-delete-char’) +.................................. + + Restart the completion in the parent directory if current input is + empty. + +‘//’ (‘self-insert-command’) +............................ + + Switch to the root directory. + +‘~’ (‘self-insert-command’) +........................... + + Switch to the home directory. + +‘/’ (‘self-insert-command’) +........................... + + If the current input matches an existing directory name exactly, + switch the completion to that directory. + +‘M-r’ (‘ivy-toggle-regexp-quote’) +................................. + + Toggle between input as regexp or not. + + Switch to matching literally since file names include ‘.’, which is + for matching any char in regexp mode. + -- User Option: ivy-extra-directories + Decide if you want to see ‘../’ and ‘./’ during file name + completion. + + Reason to remove: ‘../’ is the same as ‘DEL’. + + Reason not to remove: navigate anywhere with only ‘C-n’, ‘C-p’ and + ‘C-j’. + + Likewise, ‘./’ can be removed. + +History +....... + + File history works the same with ‘M-p’, ‘M-n’, and ‘C-r’, but uses + a custom code for file name completion that cycles through files + previously opened. It also works with TRAMP files. + +* Menu: + +* Using TRAMP:: + + +File: ivy.info, Node: Using TRAMP, Up: File Name Completion + +7.1.1 Using TRAMP +----------------- + +‘~’ (tilde) +........... + + Move to the home directory. Either the local or the remote one, + depending on the current directory. The boolean option + ‘ivy-magic-tilde’ decides whether the binding to do this is ‘~’ or + ‘~/’. + +‘//’ (double slash) +................... + + Move to the root directory. Either the local or the remote one, + depending on the current directory. Here, you can also select a + TRAMP connection method, such as ‘ssh’ or ‘scpx’. + +‘/ C-j’ +....... + + Move the the local root directory. + +‘~~’ +.... + + Move to the local home directory. + + From any directory, with the empty input, inputting ‘/ssh:’ and +pressing ‘C-j’ (or ‘RET’, which is the same thing) completes for host +and user names. + + For ‘/ssh:user@’ input, completes the domain name. + + ‘C-i’ works in a similar way to the default completion. + + You can also get sudo access for the current directory by inputting +‘/sudo::’ ‘RET’. Using ‘/sudo:’ (i.e. single colon instead of double) +will result in a completion session for the desired user. + + Multi-hopping is possible, although a bit complex. + +Example : connect to a remote host ‘cloud’ and open a file with ‘sudo’ there +............................................................................ + + • ‘C-x C-f’ ‘/ssh:cloud|sudo:root:/’. + + +File: ivy.info, Node: Buffer Name Completion, Next: Counsel commands, Prev: File Name Completion, Up: Commands + +7.2 Buffer Name Completion +========================== + + -- User Option: ivy-use-virtual-buffers + When non-nil, add ‘recentf-mode’ and bookmarks to + ‘ivy-switch-buffer’ completion candidates. + + Adding this to Emacs init file: + + (setq ivy-use-virtual-buffers t) + will add additional virtual buffers to the buffers list for recent + files. Selecting such virtual buffers, which are highlighted with + ‘ivy-virtual’ face, will open the corresponding file. + + +File: ivy.info, Node: Counsel commands, Prev: Buffer Name Completion, Up: Commands + +7.3 Counsel commands +==================== + +The main advantages of ‘counsel-’ functions over their basic equivalents +in ‘ivy-mode’ are: + + 1. Multi-actions and non-exiting actions work. + 2. ‘ivy-resume’ can resume the last completion session. + 3. Customize ‘ivy-set-actions’, ‘ivy-re-builders-alist’. + 4. Customize individual keymaps, such as ‘counsel-describe-map’, + ‘counsel-git-grep-map’, or ‘counsel-find-file-map’, instead of + customizing ‘ivy-minibuffer-map’ that applies to all completion + sessions. + + +File: ivy.info, Node: API, Next: Variable Index, Prev: Commands, Up: Top + +8 API +***** + +The main (and only) entry point is the ‘ivy-read’ function. It takes +two required arguments and many optional arguments that can be passed by +a key. The optional ‘:action’ argument is highly recommended for +features such as multi-actions, non-exiting actions, ‘ivy-occur’ and +‘ivy-resume’. + +* Menu: + +* Required arguments for ivy-read:: +* Optional arguments for ivy-read:: +* Example - counsel-describe-function:: +* Example - counsel-locate:: +* Example - ivy-read-with-extra-properties:: + + +File: ivy.info, Node: Required arguments for ivy-read, Next: Optional arguments for ivy-read, Up: API + +8.1 Required arguments for ‘ivy-read’ +===================================== + +‘prompt’ +........ + + A prompt string normally ending in a colon and a space. + ‘ivy-count-format’ is prepended to it during completion. + +‘collection’ +............ + + Either a list of strings, a function, an alist or a hash table. + + If a function, then it has to be compatible with ‘all-completions’. + + +File: ivy.info, Node: Optional arguments for ivy-read, Next: Example - counsel-describe-function, Prev: Required arguments for ivy-read, Up: API + +8.2 Optional arguments for ‘ivy-read’ +===================================== + +‘predicate’ +........... + + Is a function to filter the initial collection. It has to be + compatible with ‘all-completions’. Tip: most of the time, it’s + simpler to just apply this filter to the ‘collection’ argument + itself, e.g. ‘(cl-remove-if-not predicate collection)’. + +‘require-match’ +............... + + When set to a non-nil value, input must match one of the + candidates. Custom input is not accepted. + +‘initial-input’ +............... + + This string argument is included for compatibility with + ‘completing-read’, which inserts it into the minibuffer. + + It’s recommended to use the ‘preselect’ argument instead of this. + +‘history’ +......... + + Name of the symbol to store history. See ‘completing-read’. + +‘preselect’ +........... + + Determines which one of the candidates to initially select. + + When set to an integer value, select the candidate with that index + value. + + When set to any other non-nil value, select the first candidate + matching this value. Comparison is first done with ‘equal’. If + this fails, and when applicable, match ‘preselect’ as a regular + expression. + + Every time the input becomes empty, the item corresponding to + ‘preselect’ is selected. + +‘keymap’ +........ + + A keymap to be composed with ‘ivy-minibuffer-map’. This keymap has + priority over ‘ivy-minibuffer-map’ and can be modified at any later + stage. + +‘update-fn’ +........... + + Is the function called each time the current candidate changes. + This function takes no arguments and is called in the minibuffer’s + ‘post-command-hook’. See ‘swiper’ for an example usage. + +‘sort’ +...... + + When non-nil, use ‘ivy-sort-functions-alist’ to sort the collection + as long as the collection is not larger than ‘ivy-sort-max-size’. + +‘action’ +........ + + Is the function to call after selection. It takes a string + argument. + +‘unwind’ +........ + + Is the function to call before exiting completion. It takes no + arguments. This function is called even if the completion is + interrupted with ‘C-g’. See ‘swiper’ for an example usage. + +‘re-builder’ +............ + + Is a function that takes a string and returns a valid regex. See + ‘Completion Styles’ for details. + +‘matcher’ +......... + + Is a function that takes a regex string and a list of strings and + returns a list of strings matching the regex. Any ordinary Emacs + matching function will suffice, yet finely tuned matching functions + can be used. See ‘counsel-find-file’ for an example usage. + +‘dynamic-collection’ +.................... + + When non-nil, ‘collection’ will be used to dynamically generate the + candidates each time the input changes, instead of being used once + statically with ‘all-completions’ to generate a list of strings. + See ‘counsel-locate’ for an example usage. + +‘caller’ +........ + + Is a symbol that uniquely identifies the function that called + ‘ivy-read’, which may be useful for further customizations. + + +File: ivy.info, Node: Example - counsel-describe-function, Next: Example - counsel-locate, Prev: Optional arguments for ivy-read, Up: API + +8.3 Example - ‘counsel-describe-function’ +========================================= + +This is a typical example of a function with a non-async collection, +which is a collection where all the strings in the collection are known +prior to any input from the user. + + Only the first two arguments (along with ‘action’) are essential - +the rest of the arguments are for fine-tuning, and could be omitted. + + The ‘action’ argument could also be omitted - but then ‘ivy-read’ +would do nothing except returning the string result, which you could +later use yourself. However, it’s recommended that you use the ‘action’ +argument. + + (defun counsel-describe-function () + "Forward to `describe-function'." + (interactive) + (ivy-read "Describe function: " + (let (cands) + (mapatoms + (lambda (x) + (when (fboundp x) + (push (symbol-name x) cands)))) + cands) + :keymap counsel-describe-map + :preselect (ivy-thing-at-point) + :history 'counsel-describe-symbol-history + :require-match t + :action (lambda (x) + (describe-function + (intern x))) + :caller 'counsel-describe-function)) + + Here are the interesting features of the above function, in the order +that they appear: + + • The ‘prompt’ argument is a simple string ending in ": ". + • The ‘collection’ argument evaluates to a (large) list of strings. + • The ‘keymap’ argument is for a custom keymap to supplement + ‘ivy-minibuffer-map’. + • The ‘preselect’ is provided by ‘ivy-thing-at-point’, which returns + a symbol near the point. Ivy then selects the first candidate from + the collection that matches this symbol. To select this + pre-selected candidate, a ‘RET’ will suffice. No further user + input is necessary. + • The ‘history’ argument is for keeping the history of this command + separate from the common history in ‘ivy-history’. + • The ‘require-match’ is set to ‘t’ since it doesn’t make sense to + call ‘describe-function’ on an un-interned symbol. + • The ‘action’ argument calls ‘describe-function’ on the interned + selected candidate. + • The ‘caller’ argument identifies this completion session. This is + important, since with the collection being a list of strings and + not a function name, the only other way for ‘ivy-read’ to identify + "who’s calling" and to apply the appropriate customizations is to + examine ‘this-command’. But ‘this-command’ would be modified if + another command called ‘counsel-describe-function’. + + +File: ivy.info, Node: Example - counsel-locate, Next: Example - ivy-read-with-extra-properties, Prev: Example - counsel-describe-function, Up: API + +8.4 Example - ‘counsel-locate’ +============================== + +This is a typical example of a function with an async collection. Since +the collection function cannot pre-compute all the locatable files in +memory within reasonable limits (time or memory), it relies on user +input to filter the universe of possible candidates to a manageable size +while also continuing to search asynchronously for possible candidates. +Both the filtering and searching continues with each character change of +the input with rapid updates to the collection presented without idle +waiting times. This live update will continue as long as there are +likely candidates. Eventually updates to the minibuffer will stop after +user input, filtering, and searching have exhausted looking for possible +candidates. + + Async collections suit long-running shell commands, such as ‘locate’. +With each new input, a new process starts while the old process is +killed. The collection is refreshed anew with each new process. +Meanwhile the user can provide more input characters (for further +narrowing) or select a candidate from the visible collection. + + (defun counsel-locate-function (str) + (or + (ivy-more-chars) + (progn + (counsel--async-command + (format "locate %s '%s'" + (mapconcat #'identity counsel-locate-options " ") + (counsel--elisp-to-pcre + (ivy--regex str)))) + '("" "working...")))) + + ;;;###autoload + (defun counsel-locate (&optional initial-input) + "Call the \"locate\" shell command. + INITIAL-INPUT can be given as the initial minibuffer input." + (interactive) + (ivy-read "Locate: " #'counsel-locate-function + :initial-input initial-input + :dynamic-collection t + :history 'counsel-locate-history + :action (lambda (file) + (with-ivy-window + (when file + (find-file file)))) + :unwind #'counsel-delete-process + :caller 'counsel-locate)) + + Here are the interesting features of the above functions, in the +order that they appear: + + • ‘counsel-locate-function’ takes a string argument and returns a + list of strings. Note that it’s not compatible with + ‘all-completions’, but since we’re not using that here, might as + well use one argument instead of three. + • ‘ivy-more-chars’ is a simple function that returns e.g. ‘'("2 + chars more")’ asking the user for more input. + • ‘counsel--async-command’ is a very easy API simplification that + takes a single string argument suitable for + ‘shell-command-to-string’. So you could prototype your function as + non-async using ‘shell-command-to-string’ and ‘split-string’ to + produce a collection, then decide that you want async and simply + swap in ‘counsel--async-command’. + • ‘counsel-locate’ is an interactive function with an optional + ‘initial-input’. + • ‘#'counsel-locate-function’ is passed as the ‘collection’ argument. + • ‘dynamic-collection’ is set to t, since this is an async + collection. + • ‘action’ argument uses ‘with-ivy-window’ wrapper, since we want to + open the selected file in the same window from which + ‘counsel-locate’ was called. + • ‘unwind’ argument is set to ‘#'counsel-delete-process’: when we + press ‘C-g’ we want to kill the running process created by + ‘counsel--async-command’. + • ‘caller’ argument identifies this command for easier customization. + + +File: ivy.info, Node: Example - ivy-read-with-extra-properties, Prev: Example - counsel-locate, Up: API + +8.5 Example - ‘ivy-read-with-extra-properties’ +============================================== + +This is another example to show how to associate additional values to +each displayed strings. + + (defun find-candidates-function (str pred _) + (let ((props '(1 2)) + (strs '("foo" "foo2"))) + (cl-mapcar (lambda (s p) (propertize s 'property p)) + strs + props))) + + (defun find-candidates () + (interactive) + (ivy-read "Find symbols: " + #'find-candidates-function + :action (lambda (x) + (message "Value: %s" (get-text-property 0 'property x) + )))) + + Here are the interesting features of the above function: + + • ‘find-candidates-function’ builds up a list of strings and + associates "foo" with the value 1 and "foo2" with 2. + • ‘find-candidates’ is an interactive function. + • ‘#'find-candidates’ is passed as the ‘collection’ argument. + • ‘action’ gets passed the selected string with the associated value. + It then retrieves that value and displays it. + + +File: ivy.info, Node: Variable Index, Next: Keystroke Index, Prev: API, Up: Top + +Variable Index +************** + +[index] +* Menu: + +* ivy-alt-done: Key bindings for single selection action then exit minibuffer. + (line 30) +* ivy-alt-done <1>: File Name Completion. (line 12) +* ivy-avy: Key bindings for single selection action then exit minibuffer. + (line 64) +* ivy-backward-delete-char: File Name Completion. (line 19) +* ivy-call: Key bindings for multiple selections and actions keep minibuffer open. + (line 16) +* ivy-confirm-face: Faces. (line 34) +* ivy-count-format: Defcustoms. (line 6) +* ivy-current-match: Faces. (line 9) +* ivy-dispatching-call: Key bindings for multiple selections and actions keep minibuffer open. + (line 26) +* ivy-dispatching-done: Key bindings for single selection action then exit minibuffer. + (line 24) +* ivy-display-style: Defcustoms. (line 24) +* ivy-done: Key bindings for single selection action then exit minibuffer. + (line 19) +* ivy-extra-directories: File Name Completion. (line 45) +* ivy-height: Key bindings for navigation. + (line 21) +* ivy-immediate-done: Key bindings for single selection action then exit minibuffer. + (line 53) +* ivy-insert-current: Key bindings that alter the minibuffer input. + (line 23) +* ivy-kill-ring-save: Other key bindings. (line 9) +* ivy-match-required-face: Faces. (line 53) +* ivy-minibuffer-grow: Hydra in the minibuffer. + (line 45) +* ivy-minibuffer-map: Minibuffer key bindings. + (line 6) +* ivy-minibuffer-match-face-1: Faces. (line 14) +* ivy-minibuffer-match-face-2: Faces. (line 19) +* ivy-minibuffer-match-face-3: Faces. (line 24) +* ivy-minibuffer-match-face-4: Faces. (line 29) +* ivy-minibuffer-shrink: Hydra in the minibuffer. + (line 50) +* ivy-modified-buffer: Faces. (line 88) +* ivy-modified-outside-buffer: Faces. (line 93) +* ivy-next-action: Hydra in the minibuffer. + (line 60) +* ivy-next-history-element: Key bindings that alter the minibuffer input. + (line 9) +* ivy-next-line-and-call: Key bindings for multiple selections and actions keep minibuffer open. + (line 36) +* ivy-occur: Saving the current completion session to a buffer. + (line 9) +* ivy-occur-click: Saving the current completion session to a buffer. + (line 21) +* ivy-occur-dispatch: Saving the current completion session to a buffer. + (line 41) +* ivy-occur-press: Saving the current completion session to a buffer. + (line 16) +* ivy-occur-read-action: Saving the current completion session to a buffer. + (line 36) +* ivy-on-del-error-function: Defcustoms. (line 31) +* ivy-partial-or-done: Key bindings for single selection action then exit minibuffer. + (line 37) +* ivy-prev-action: Hydra in the minibuffer. + (line 55) +* ivy-previous-history-element: Key bindings that alter the minibuffer input. + (line 18) +* ivy-previous-line-and-call: Key bindings for multiple selections and actions keep minibuffer open. + (line 47) +* ivy-read-action: Hydra in the minibuffer. + (line 65) +* ivy-remote: Faces. (line 71) +* ivy-restrict-to-matches: Key bindings that alter the minibuffer input. + (line 40) +* ivy-resume: Key bindings for multiple selections and actions keep minibuffer open. + (line 55) +* ivy-reverse-i-search: Key bindings that alter the minibuffer input. + (line 48) +* ivy-rotate-preferred-builders: Hydra in the minibuffer. + (line 40) +* ivy-subdir: Faces. (line 66) +* ivy-toggle-calling: Hydra in the minibuffer. + (line 34) +* ivy-toggle-case-fold: Hydra in the minibuffer. + (line 70) +* ivy-toggle-regexp-quote: File Name Completion. (line 41) +* ivy-use-virtual-buffers: Buffer Name Completion. + (line 6) +* ivy-virtual: Faces. (line 76) +* ivy-wrap: Key bindings for navigation. + (line 14) +* ivy-yank-word: Key bindings that alter the minibuffer input. + (line 32) + + +File: ivy.info, Node: Keystroke Index, Prev: Variable Index, Up: Top + +Keystroke Index +*************** + +[index] +* Menu: + +* /: File Name Completion. (line 35) +* / C-j: Using TRAMP. (line 24) +* //: File Name Completion. (line 25) +* // <1>: Using TRAMP. (line 17) +* <: Hydra in the minibuffer. + (line 50) +* >: Hydra in the minibuffer. + (line 45) +* ~: File Name Completion. (line 30) +* ~ <1>: Using TRAMP. (line 9) +* ~~: Using TRAMP. (line 29) +* a: Hydra in the minibuffer. + (line 65) +* a <1>: Saving the current completion session to a buffer. + (line 36) +* c: Hydra in the minibuffer. + (line 34) +* C: Hydra in the minibuffer. + (line 70) +* C-': Key bindings for single selection action then exit minibuffer. + (line 64) +* C-c C-o: Saving the current completion session to a buffer. + (line 9) +* C-j: Key bindings for single selection action then exit minibuffer. + (line 30) +* C-j <1>: File Name Completion. (line 12) +* C-m: Key bindings for single selection action then exit minibuffer. + (line 19) +* C-M-j: Key bindings for single selection action then exit minibuffer. + (line 53) +* C-M-m: Key bindings for multiple selections and actions keep minibuffer open. + (line 16) +* C-M-n: Key bindings for multiple selections and actions keep minibuffer open. + (line 36) +* C-M-o: Key bindings for multiple selections and actions keep minibuffer open. + (line 26) +* C-M-p: Key bindings for multiple selections and actions keep minibuffer open. + (line 47) +* C-o: Hydra in the minibuffer. + (line 9) +* C-r: Key bindings that alter the minibuffer input. + (line 48) +* DEL: File Name Completion. (line 19) +* f: Saving the current completion session to a buffer. + (line 16) +* j: Saving the current completion session to a buffer. + (line 26) +* k: Saving the current completion session to a buffer. + (line 31) +* m: Hydra in the minibuffer. + (line 40) +* M-i: Key bindings that alter the minibuffer input. + (line 23) +* M-j: Key bindings that alter the minibuffer input. + (line 32) +* M-n: Key bindings that alter the minibuffer input. + (line 9) +* M-o: Key bindings for single selection action then exit minibuffer. + (line 24) +* M-p: Key bindings that alter the minibuffer input. + (line 18) +* M-r: File Name Completion. (line 41) +* M-w: Other key bindings. (line 9) +* mouse-1: Saving the current completion session to a buffer. + (line 21) +* o: Saving the current completion session to a buffer. + (line 41) +* q: Saving the current completion session to a buffer. + (line 46) +* RET: Key bindings for single selection action then exit minibuffer. + (line 19) +* RET <1>: Saving the current completion session to a buffer. + (line 16) +* s: Hydra in the minibuffer. + (line 60) +* S-SPC: Key bindings that alter the minibuffer input. + (line 40) +* TAB: Key bindings for single selection action then exit minibuffer. + (line 37) +* w: Hydra in the minibuffer. + (line 55) + + + +Tag Table: +Node: Top1189 +Node: Introduction3100 +Node: Installation5623 +Node: Installing from Emacs Package Manager6073 +Node: Installing from the Git repository7187 +Node: Getting started8007 +Node: Basic customization8314 +Node: Key bindings8909 +Node: Global key bindings9101 +Node: Minibuffer key bindings11575 +Node: Key bindings for navigation12807 +Node: Key bindings for single selection action then exit minibuffer14014 +Node: Key bindings for multiple selections and actions keep minibuffer open16661 +Node: Key bindings that alter the minibuffer input19053 +Node: Other key bindings20998 +Node: Hydra in the minibuffer21376 +Node: Saving the current completion session to a buffer23794 +Node: Completion Styles25206 +Node: ivy--regex-plus26957 +Node: ivy--regex-ignore-order28443 +Node: ivy--regex-fuzzy28811 +Node: Customization29308 +Node: Faces29494 +Node: Defcustoms31923 +Node: Actions33217 +Node: What are actions?33543 +Node: How can different actions be called?34361 +Node: How to modify the actions list?34932 +Node: Example - add two actions to each command35592 +Node: How to undo adding the two actions36551 +Node: How to add actions to a specific command37003 +Node: Example - define a new command with several actions37419 +Node: Test the above function with ivy-occur38307 +Node: Packages39149 +Node: Commands40114 +Node: File Name Completion40299 +Node: Using TRAMP42095 +Node: Buffer Name Completion43597 +Node: Counsel commands44212 +Node: API44859 +Node: Required arguments for ivy-read45457 +Node: Optional arguments for ivy-read45976 +Node: Example - counsel-describe-function49402 +Node: Example - counsel-locate52260 +Node: Example - ivy-read-with-extra-properties56010 +Node: Variable Index57218 +Node: Keystroke Index64265 + +End Tag Table + + +Local Variables: +coding: utf-8 +End: diff --git a/elpa/ivy-gitlab-readme.txt b/elpa/ivy-gitlab-readme.txt new file mode 100644 index 00000000..46813085 --- /dev/null +++ b/elpa/ivy-gitlab-readme.txt @@ -0,0 +1 @@ +Provides an Ivy interface to Gitlab diff --git a/elpa/magit-20200330.1311/AUTHORS.md b/elpa/magit-20200401.2225/AUTHORS.md similarity index 100% rename from elpa/magit-20200330.1311/AUTHORS.md rename to elpa/magit-20200401.2225/AUTHORS.md diff --git a/elpa/magit-20200330.1311/LICENSE b/elpa/magit-20200401.2225/LICENSE similarity index 100% rename from elpa/magit-20200330.1311/LICENSE rename to elpa/magit-20200401.2225/LICENSE diff --git a/elpa/magit-20200330.1311/dir b/elpa/magit-20200401.2225/dir similarity index 100% rename from elpa/magit-20200330.1311/dir rename to elpa/magit-20200401.2225/dir diff --git a/elpa/magit-20200330.1311/git-rebase.el b/elpa/magit-20200401.2225/git-rebase.el similarity index 100% rename from elpa/magit-20200330.1311/git-rebase.el rename to elpa/magit-20200401.2225/git-rebase.el diff --git a/elpa/magit-20200330.1311/git-rebase.elc b/elpa/magit-20200401.2225/git-rebase.elc similarity index 100% rename from elpa/magit-20200330.1311/git-rebase.elc rename to elpa/magit-20200401.2225/git-rebase.elc diff --git a/elpa/magit-20200330.1311/magit-apply.el b/elpa/magit-20200401.2225/magit-apply.el similarity index 100% rename from elpa/magit-20200330.1311/magit-apply.el rename to elpa/magit-20200401.2225/magit-apply.el diff --git a/elpa/magit-20200330.1311/magit-apply.elc b/elpa/magit-20200401.2225/magit-apply.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-apply.elc rename to elpa/magit-20200401.2225/magit-apply.elc diff --git a/elpa/magit-20200330.1311/magit-autoloads.el b/elpa/magit-20200401.2225/magit-autoloads.el similarity index 100% rename from elpa/magit-20200330.1311/magit-autoloads.el rename to elpa/magit-20200401.2225/magit-autoloads.el diff --git a/elpa/magit-20200330.1311/magit-autorevert.el b/elpa/magit-20200401.2225/magit-autorevert.el similarity index 100% rename from elpa/magit-20200330.1311/magit-autorevert.el rename to elpa/magit-20200401.2225/magit-autorevert.el diff --git a/elpa/magit-20200330.1311/magit-autorevert.elc b/elpa/magit-20200401.2225/magit-autorevert.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-autorevert.elc rename to elpa/magit-20200401.2225/magit-autorevert.elc diff --git a/elpa/magit-20200330.1311/magit-bisect.el b/elpa/magit-20200401.2225/magit-bisect.el similarity index 100% rename from elpa/magit-20200330.1311/magit-bisect.el rename to elpa/magit-20200401.2225/magit-bisect.el diff --git a/elpa/magit-20200330.1311/magit-bisect.elc b/elpa/magit-20200401.2225/magit-bisect.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-bisect.elc rename to elpa/magit-20200401.2225/magit-bisect.elc diff --git a/elpa/magit-20200330.1311/magit-blame.el b/elpa/magit-20200401.2225/magit-blame.el similarity index 100% rename from elpa/magit-20200330.1311/magit-blame.el rename to elpa/magit-20200401.2225/magit-blame.el diff --git a/elpa/magit-20200330.1311/magit-blame.elc b/elpa/magit-20200401.2225/magit-blame.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-blame.elc rename to elpa/magit-20200401.2225/magit-blame.elc diff --git a/elpa/magit-20200330.1311/magit-bookmark.el b/elpa/magit-20200401.2225/magit-bookmark.el similarity index 100% rename from elpa/magit-20200330.1311/magit-bookmark.el rename to elpa/magit-20200401.2225/magit-bookmark.el diff --git a/elpa/magit-20200330.1311/magit-bookmark.elc b/elpa/magit-20200401.2225/magit-bookmark.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-bookmark.elc rename to elpa/magit-20200401.2225/magit-bookmark.elc diff --git a/elpa/magit-20200330.1311/magit-branch.el b/elpa/magit-20200401.2225/magit-branch.el similarity index 100% rename from elpa/magit-20200330.1311/magit-branch.el rename to elpa/magit-20200401.2225/magit-branch.el diff --git a/elpa/magit-20200330.1311/magit-branch.elc b/elpa/magit-20200401.2225/magit-branch.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-branch.elc rename to elpa/magit-20200401.2225/magit-branch.elc diff --git a/elpa/magit-20200330.1311/magit-clone.el b/elpa/magit-20200401.2225/magit-clone.el similarity index 100% rename from elpa/magit-20200330.1311/magit-clone.el rename to elpa/magit-20200401.2225/magit-clone.el diff --git a/elpa/magit-20200330.1311/magit-clone.elc b/elpa/magit-20200401.2225/magit-clone.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-clone.elc rename to elpa/magit-20200401.2225/magit-clone.elc diff --git a/elpa/magit-20200330.1311/magit-commit.el b/elpa/magit-20200401.2225/magit-commit.el similarity index 100% rename from elpa/magit-20200330.1311/magit-commit.el rename to elpa/magit-20200401.2225/magit-commit.el diff --git a/elpa/magit-20200330.1311/magit-commit.elc b/elpa/magit-20200401.2225/magit-commit.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-commit.elc rename to elpa/magit-20200401.2225/magit-commit.elc diff --git a/elpa/magit-20200330.1311/magit-core.el b/elpa/magit-20200401.2225/magit-core.el similarity index 100% rename from elpa/magit-20200330.1311/magit-core.el rename to elpa/magit-20200401.2225/magit-core.el diff --git a/elpa/magit-20200330.1311/magit-core.elc b/elpa/magit-20200401.2225/magit-core.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-core.elc rename to elpa/magit-20200401.2225/magit-core.elc diff --git a/elpa/magit-20200330.1311/magit-diff.el b/elpa/magit-20200401.2225/magit-diff.el similarity index 100% rename from elpa/magit-20200330.1311/magit-diff.el rename to elpa/magit-20200401.2225/magit-diff.el diff --git a/elpa/magit-20200330.1311/magit-diff.elc b/elpa/magit-20200401.2225/magit-diff.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-diff.elc rename to elpa/magit-20200401.2225/magit-diff.elc diff --git a/elpa/magit-20200330.1311/magit-ediff.el b/elpa/magit-20200401.2225/magit-ediff.el similarity index 100% rename from elpa/magit-20200330.1311/magit-ediff.el rename to elpa/magit-20200401.2225/magit-ediff.el diff --git a/elpa/magit-20200330.1311/magit-ediff.elc b/elpa/magit-20200401.2225/magit-ediff.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-ediff.elc rename to elpa/magit-20200401.2225/magit-ediff.elc diff --git a/elpa/magit-20200330.1311/magit-extras.el b/elpa/magit-20200401.2225/magit-extras.el similarity index 100% rename from elpa/magit-20200330.1311/magit-extras.el rename to elpa/magit-20200401.2225/magit-extras.el diff --git a/elpa/magit-20200330.1311/magit-extras.elc b/elpa/magit-20200401.2225/magit-extras.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-extras.elc rename to elpa/magit-20200401.2225/magit-extras.elc diff --git a/elpa/magit-20200330.1311/magit-fetch.el b/elpa/magit-20200401.2225/magit-fetch.el similarity index 100% rename from elpa/magit-20200330.1311/magit-fetch.el rename to elpa/magit-20200401.2225/magit-fetch.el diff --git a/elpa/magit-20200330.1311/magit-fetch.elc b/elpa/magit-20200401.2225/magit-fetch.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-fetch.elc rename to elpa/magit-20200401.2225/magit-fetch.elc diff --git a/elpa/magit-20200330.1311/magit-files.el b/elpa/magit-20200401.2225/magit-files.el similarity index 100% rename from elpa/magit-20200330.1311/magit-files.el rename to elpa/magit-20200401.2225/magit-files.el diff --git a/elpa/magit-20200330.1311/magit-files.elc b/elpa/magit-20200401.2225/magit-files.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-files.elc rename to elpa/magit-20200401.2225/magit-files.elc diff --git a/elpa/magit-20200330.1311/magit-git.el b/elpa/magit-20200401.2225/magit-git.el similarity index 100% rename from elpa/magit-20200330.1311/magit-git.el rename to elpa/magit-20200401.2225/magit-git.el diff --git a/elpa/magit-20200330.1311/magit-git.elc b/elpa/magit-20200401.2225/magit-git.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-git.elc rename to elpa/magit-20200401.2225/magit-git.elc diff --git a/elpa/magit-20200330.1311/magit-gitignore.el b/elpa/magit-20200401.2225/magit-gitignore.el similarity index 100% rename from elpa/magit-20200330.1311/magit-gitignore.el rename to elpa/magit-20200401.2225/magit-gitignore.el diff --git a/elpa/magit-20200330.1311/magit-gitignore.elc b/elpa/magit-20200401.2225/magit-gitignore.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-gitignore.elc rename to elpa/magit-20200401.2225/magit-gitignore.elc diff --git a/elpa/magit-20200330.1311/magit-imenu.el b/elpa/magit-20200401.2225/magit-imenu.el similarity index 100% rename from elpa/magit-20200330.1311/magit-imenu.el rename to elpa/magit-20200401.2225/magit-imenu.el diff --git a/elpa/magit-20200330.1311/magit-imenu.elc b/elpa/magit-20200401.2225/magit-imenu.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-imenu.elc rename to elpa/magit-20200401.2225/magit-imenu.elc diff --git a/elpa/magit-20200330.1311/magit-log.el b/elpa/magit-20200401.2225/magit-log.el similarity index 100% rename from elpa/magit-20200330.1311/magit-log.el rename to elpa/magit-20200401.2225/magit-log.el diff --git a/elpa/magit-20200330.1311/magit-log.elc b/elpa/magit-20200401.2225/magit-log.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-log.elc rename to elpa/magit-20200401.2225/magit-log.elc diff --git a/elpa/magit-20200330.1311/magit-margin.el b/elpa/magit-20200401.2225/magit-margin.el similarity index 100% rename from elpa/magit-20200330.1311/magit-margin.el rename to elpa/magit-20200401.2225/magit-margin.el diff --git a/elpa/magit-20200330.1311/magit-margin.elc b/elpa/magit-20200401.2225/magit-margin.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-margin.elc rename to elpa/magit-20200401.2225/magit-margin.elc diff --git a/elpa/magit-20200330.1311/magit-merge.el b/elpa/magit-20200401.2225/magit-merge.el similarity index 100% rename from elpa/magit-20200330.1311/magit-merge.el rename to elpa/magit-20200401.2225/magit-merge.el diff --git a/elpa/magit-20200330.1311/magit-merge.elc b/elpa/magit-20200401.2225/magit-merge.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-merge.elc rename to elpa/magit-20200401.2225/magit-merge.elc diff --git a/elpa/magit-20200330.1311/magit-mode.el b/elpa/magit-20200401.2225/magit-mode.el similarity index 100% rename from elpa/magit-20200330.1311/magit-mode.el rename to elpa/magit-20200401.2225/magit-mode.el diff --git a/elpa/magit-20200330.1311/magit-mode.elc b/elpa/magit-20200401.2225/magit-mode.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-mode.elc rename to elpa/magit-20200401.2225/magit-mode.elc diff --git a/elpa/magit-20200330.1311/magit-notes.el b/elpa/magit-20200401.2225/magit-notes.el similarity index 100% rename from elpa/magit-20200330.1311/magit-notes.el rename to elpa/magit-20200401.2225/magit-notes.el diff --git a/elpa/magit-20200330.1311/magit-notes.elc b/elpa/magit-20200401.2225/magit-notes.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-notes.elc rename to elpa/magit-20200401.2225/magit-notes.elc diff --git a/elpa/magit-20200330.1311/magit-obsolete.el b/elpa/magit-20200401.2225/magit-obsolete.el similarity index 100% rename from elpa/magit-20200330.1311/magit-obsolete.el rename to elpa/magit-20200401.2225/magit-obsolete.el diff --git a/elpa/magit-20200330.1311/magit-obsolete.elc b/elpa/magit-20200401.2225/magit-obsolete.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-obsolete.elc rename to elpa/magit-20200401.2225/magit-obsolete.elc diff --git a/elpa/magit-20200330.1311/magit-patch.el b/elpa/magit-20200401.2225/magit-patch.el similarity index 100% rename from elpa/magit-20200330.1311/magit-patch.el rename to elpa/magit-20200401.2225/magit-patch.el diff --git a/elpa/magit-20200330.1311/magit-patch.elc b/elpa/magit-20200401.2225/magit-patch.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-patch.elc rename to elpa/magit-20200401.2225/magit-patch.elc diff --git a/elpa/magit-20200330.1311/magit-pkg.el b/elpa/magit-20200401.2225/magit-pkg.el similarity index 79% rename from elpa/magit-20200330.1311/magit-pkg.el rename to elpa/magit-20200401.2225/magit-pkg.el index d7483934..80b729e6 100644 --- a/elpa/magit-20200330.1311/magit-pkg.el +++ b/elpa/magit-20200401.2225/magit-pkg.el @@ -1,4 +1,4 @@ -(define-package "magit" "20200330.1311" "A Git porcelain inside Emacs." +(define-package "magit" "20200401.2225" "A Git porcelain inside Emacs." '((emacs "25.1") (async "20180527") (dash "20180910") diff --git a/elpa/magit-20200330.1311/magit-process.el b/elpa/magit-20200401.2225/magit-process.el similarity index 99% rename from elpa/magit-20200330.1311/magit-process.el rename to elpa/magit-20200401.2225/magit-process.el index c7780b07..2d9807bc 100644 --- a/elpa/magit-20200330.1311/magit-process.el +++ b/elpa/magit-20200401.2225/magit-process.el @@ -166,6 +166,8 @@ itself from the hook, to avoid further futile attempts." '("^\\(Enter \\)?[Pp]assphrase\\( for \\(RSA \\)?key '.*'\\)?: ?$" ;; Match-group 99 is used to identify the "user@host" part. "^\\(Enter \\)?[Pp]assword\\( for '?\\(https?://\\)?\\(?99:[^']*\\)'?\\)?: ?$" + "Please enter the passphrase for the ssh key" + "Please enter the passphrase to unlock the OpenPGP secret key" "^.*'s password: ?$" "^Yubikey for .*: ?$" "^Enter PIN for .*: ?$") diff --git a/elpa/magit-20200330.1311/magit-process.elc b/elpa/magit-20200401.2225/magit-process.elc similarity index 89% rename from elpa/magit-20200330.1311/magit-process.elc rename to elpa/magit-20200401.2225/magit-process.elc index 18c4d6b00e02116e957baa31ff85c0be035736af..ef8438d984c013fb60c203dd0325d83167245dd9 100644 GIT binary patch delta 599 zcmaKoPiPZS5XRYk+eX(0u?MT3HZ_{AP~Cm+?VlG4v6k3_)<&ujkg73xHKlD5cejm# zSdm&(YEiZ#DQfj1iU$jWH!mUxda-&@FFAOKf}mc!`R}#r)!WQ4-}n1wUN+>%ALPY% zZIhW%p7XiJO9A(^pvbjK&i5-tZ+SRW{xkCZqBg=$wQKGF+YZXwcxkkpA6c>Kukcc) zH>3GH@A2TT{P6Z|34eu9EqjHemWsotwpvuNsHKMs$qjIO%hGDaG%$u>M^r`FF=2|e zO30-))RL-)_`?3g`#DyCbu zkZs%H_uNl}4GceyWz}YC{o}y+SV=*aux_0ACX3iM)Po~(6EO@y*;PF+)YOF+C#MBh z;08{=5nORo=h?TSAQ)CnWn{!m7Y9%wFl15GF3XzFHNBQU~_Vy;2m{a0$d}{SqQ31AqRJq}Z0D zhqsa&A${YQh|6r~U5Lqw%cvfH*}Wdl-C2qt%b{@a{#M~+J8uFr6slLj}0M<^0Y$FPHiIZ+ziXCk}0$ zYfrSw)6m@26{czhbk^Q%OoY!AzU*!3>~<~$a#T3eeYON36Tz^p?+f+T{9P-qEX- z4E>E>Y(H|Dlgcz69UCMP(qg5)lgPOo)y5K$RTZ7|`g9ggo86qOGgzEiE|Ja+UeDH| RmT~w#w@^xy&$7@&*FSCrlPCZH diff --git a/elpa/magit-20200330.1311/magit-pull.el b/elpa/magit-20200401.2225/magit-pull.el similarity index 100% rename from elpa/magit-20200330.1311/magit-pull.el rename to elpa/magit-20200401.2225/magit-pull.el diff --git a/elpa/magit-20200330.1311/magit-pull.elc b/elpa/magit-20200401.2225/magit-pull.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-pull.elc rename to elpa/magit-20200401.2225/magit-pull.elc diff --git a/elpa/magit-20200330.1311/magit-push.el b/elpa/magit-20200401.2225/magit-push.el similarity index 100% rename from elpa/magit-20200330.1311/magit-push.el rename to elpa/magit-20200401.2225/magit-push.el diff --git a/elpa/magit-20200330.1311/magit-push.elc b/elpa/magit-20200401.2225/magit-push.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-push.elc rename to elpa/magit-20200401.2225/magit-push.elc diff --git a/elpa/magit-20200330.1311/magit-reflog.el b/elpa/magit-20200401.2225/magit-reflog.el similarity index 100% rename from elpa/magit-20200330.1311/magit-reflog.el rename to elpa/magit-20200401.2225/magit-reflog.el diff --git a/elpa/magit-20200330.1311/magit-reflog.elc b/elpa/magit-20200401.2225/magit-reflog.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-reflog.elc rename to elpa/magit-20200401.2225/magit-reflog.elc diff --git a/elpa/magit-20200330.1311/magit-refs.el b/elpa/magit-20200401.2225/magit-refs.el similarity index 100% rename from elpa/magit-20200330.1311/magit-refs.el rename to elpa/magit-20200401.2225/magit-refs.el diff --git a/elpa/magit-20200330.1311/magit-refs.elc b/elpa/magit-20200401.2225/magit-refs.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-refs.elc rename to elpa/magit-20200401.2225/magit-refs.elc diff --git a/elpa/magit-20200330.1311/magit-remote.el b/elpa/magit-20200401.2225/magit-remote.el similarity index 100% rename from elpa/magit-20200330.1311/magit-remote.el rename to elpa/magit-20200401.2225/magit-remote.el diff --git a/elpa/magit-20200330.1311/magit-remote.elc b/elpa/magit-20200401.2225/magit-remote.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-remote.elc rename to elpa/magit-20200401.2225/magit-remote.elc diff --git a/elpa/magit-20200330.1311/magit-repos.el b/elpa/magit-20200401.2225/magit-repos.el similarity index 100% rename from elpa/magit-20200330.1311/magit-repos.el rename to elpa/magit-20200401.2225/magit-repos.el diff --git a/elpa/magit-20200330.1311/magit-repos.elc b/elpa/magit-20200401.2225/magit-repos.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-repos.elc rename to elpa/magit-20200401.2225/magit-repos.elc diff --git a/elpa/magit-20200330.1311/magit-reset.el b/elpa/magit-20200401.2225/magit-reset.el similarity index 100% rename from elpa/magit-20200330.1311/magit-reset.el rename to elpa/magit-20200401.2225/magit-reset.el diff --git a/elpa/magit-20200330.1311/magit-reset.elc b/elpa/magit-20200401.2225/magit-reset.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-reset.elc rename to elpa/magit-20200401.2225/magit-reset.elc diff --git a/elpa/magit-20200330.1311/magit-section.el b/elpa/magit-20200401.2225/magit-section.el similarity index 100% rename from elpa/magit-20200330.1311/magit-section.el rename to elpa/magit-20200401.2225/magit-section.el diff --git a/elpa/magit-20200330.1311/magit-section.elc b/elpa/magit-20200401.2225/magit-section.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-section.elc rename to elpa/magit-20200401.2225/magit-section.elc diff --git a/elpa/magit-20200330.1311/magit-sequence.el b/elpa/magit-20200401.2225/magit-sequence.el similarity index 100% rename from elpa/magit-20200330.1311/magit-sequence.el rename to elpa/magit-20200401.2225/magit-sequence.el diff --git a/elpa/magit-20200330.1311/magit-sequence.elc b/elpa/magit-20200401.2225/magit-sequence.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-sequence.elc rename to elpa/magit-20200401.2225/magit-sequence.elc diff --git a/elpa/magit-20200330.1311/magit-stash.el b/elpa/magit-20200401.2225/magit-stash.el similarity index 100% rename from elpa/magit-20200330.1311/magit-stash.el rename to elpa/magit-20200401.2225/magit-stash.el diff --git a/elpa/magit-20200330.1311/magit-stash.elc b/elpa/magit-20200401.2225/magit-stash.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-stash.elc rename to elpa/magit-20200401.2225/magit-stash.elc diff --git a/elpa/magit-20200330.1311/magit-status.el b/elpa/magit-20200401.2225/magit-status.el similarity index 100% rename from elpa/magit-20200330.1311/magit-status.el rename to elpa/magit-20200401.2225/magit-status.el diff --git a/elpa/magit-20200330.1311/magit-status.elc b/elpa/magit-20200401.2225/magit-status.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-status.elc rename to elpa/magit-20200401.2225/magit-status.elc diff --git a/elpa/magit-20200330.1311/magit-submodule.el b/elpa/magit-20200401.2225/magit-submodule.el similarity index 100% rename from elpa/magit-20200330.1311/magit-submodule.el rename to elpa/magit-20200401.2225/magit-submodule.el diff --git a/elpa/magit-20200330.1311/magit-submodule.elc b/elpa/magit-20200401.2225/magit-submodule.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-submodule.elc rename to elpa/magit-20200401.2225/magit-submodule.elc diff --git a/elpa/magit-20200330.1311/magit-subtree.el b/elpa/magit-20200401.2225/magit-subtree.el similarity index 100% rename from elpa/magit-20200330.1311/magit-subtree.el rename to elpa/magit-20200401.2225/magit-subtree.el diff --git a/elpa/magit-20200330.1311/magit-subtree.elc b/elpa/magit-20200401.2225/magit-subtree.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-subtree.elc rename to elpa/magit-20200401.2225/magit-subtree.elc diff --git a/elpa/magit-20200330.1311/magit-tag.el b/elpa/magit-20200401.2225/magit-tag.el similarity index 100% rename from elpa/magit-20200330.1311/magit-tag.el rename to elpa/magit-20200401.2225/magit-tag.el diff --git a/elpa/magit-20200330.1311/magit-tag.elc b/elpa/magit-20200401.2225/magit-tag.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-tag.elc rename to elpa/magit-20200401.2225/magit-tag.elc diff --git a/elpa/magit-20200330.1311/magit-transient.el b/elpa/magit-20200401.2225/magit-transient.el similarity index 100% rename from elpa/magit-20200330.1311/magit-transient.el rename to elpa/magit-20200401.2225/magit-transient.el diff --git a/elpa/magit-20200330.1311/magit-transient.elc b/elpa/magit-20200401.2225/magit-transient.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-transient.elc rename to elpa/magit-20200401.2225/magit-transient.elc diff --git a/elpa/magit-20200330.1311/magit-utils.el b/elpa/magit-20200401.2225/magit-utils.el similarity index 100% rename from elpa/magit-20200330.1311/magit-utils.el rename to elpa/magit-20200401.2225/magit-utils.el diff --git a/elpa/magit-20200330.1311/magit-utils.elc b/elpa/magit-20200401.2225/magit-utils.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-utils.elc rename to elpa/magit-20200401.2225/magit-utils.elc diff --git a/elpa/magit-20200330.1311/magit-wip.el b/elpa/magit-20200401.2225/magit-wip.el similarity index 100% rename from elpa/magit-20200330.1311/magit-wip.el rename to elpa/magit-20200401.2225/magit-wip.el diff --git a/elpa/magit-20200330.1311/magit-wip.elc b/elpa/magit-20200401.2225/magit-wip.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-wip.elc rename to elpa/magit-20200401.2225/magit-wip.elc diff --git a/elpa/magit-20200330.1311/magit-worktree.el b/elpa/magit-20200401.2225/magit-worktree.el similarity index 100% rename from elpa/magit-20200330.1311/magit-worktree.el rename to elpa/magit-20200401.2225/magit-worktree.el diff --git a/elpa/magit-20200330.1311/magit-worktree.elc b/elpa/magit-20200401.2225/magit-worktree.elc similarity index 100% rename from elpa/magit-20200330.1311/magit-worktree.elc rename to elpa/magit-20200401.2225/magit-worktree.elc diff --git a/elpa/magit-20200330.1311/magit.el b/elpa/magit-20200401.2225/magit.el similarity index 100% rename from elpa/magit-20200330.1311/magit.el rename to elpa/magit-20200401.2225/magit.el diff --git a/elpa/magit-20200330.1311/magit.elc b/elpa/magit-20200401.2225/magit.elc similarity index 100% rename from elpa/magit-20200330.1311/magit.elc rename to elpa/magit-20200401.2225/magit.elc diff --git a/elpa/magit-20200330.1311/magit.info b/elpa/magit-20200401.2225/magit.info similarity index 100% rename from elpa/magit-20200330.1311/magit.info rename to elpa/magit-20200401.2225/magit.info diff --git a/elpa/magit-20200330.1311/magit.info-1 b/elpa/magit-20200401.2225/magit.info-1 similarity index 100% rename from elpa/magit-20200330.1311/magit.info-1 rename to elpa/magit-20200401.2225/magit.info-1 diff --git a/elpa/magit-20200330.1311/magit.info-2 b/elpa/magit-20200401.2225/magit.info-2 similarity index 100% rename from elpa/magit-20200330.1311/magit.info-2 rename to elpa/magit-20200401.2225/magit.info-2 diff --git a/elpa/racket-mode-20200329.1841/dir b/elpa/racket-mode-20200402.1703/dir similarity index 100% rename from elpa/racket-mode-20200329.1841/dir rename to elpa/racket-mode-20200402.1703/dir diff --git a/elpa/racket-mode-20200329.1841/racket-bug-report.el b/elpa/racket-mode-20200402.1703/racket-bug-report.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-bug-report.el rename to elpa/racket-mode-20200402.1703/racket-bug-report.el diff --git a/elpa/racket-mode-20200329.1841/racket-bug-report.elc b/elpa/racket-mode-20200402.1703/racket-bug-report.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-bug-report.elc rename to elpa/racket-mode-20200402.1703/racket-bug-report.elc diff --git a/elpa/racket-mode-20200329.1841/racket-cmd.el b/elpa/racket-mode-20200402.1703/racket-cmd.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-cmd.el rename to elpa/racket-mode-20200402.1703/racket-cmd.el diff --git a/elpa/racket-mode-20200329.1841/racket-cmd.elc b/elpa/racket-mode-20200402.1703/racket-cmd.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-cmd.elc rename to elpa/racket-mode-20200402.1703/racket-cmd.elc diff --git a/elpa/racket-mode-20200329.1841/racket-collection.el b/elpa/racket-mode-20200402.1703/racket-collection.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-collection.el rename to elpa/racket-mode-20200402.1703/racket-collection.el diff --git a/elpa/racket-mode-20200329.1841/racket-collection.elc b/elpa/racket-mode-20200402.1703/racket-collection.elc similarity index 99% rename from elpa/racket-mode-20200329.1841/racket-collection.elc rename to elpa/racket-mode-20200402.1703/racket-collection.elc index df43aa9fdedc724d57465355b1b344f0a67501ff..7fe3c5653baf962cbc3ea8fb88fb0a32092e205a 100644 GIT binary patch delta 24 fcmdn%u-9ROFB`X+nS!#3t+G{xnfc}jwx^N+VT=cQ delta 24 fcmdn%u-9ROFB`Y1xq`BZt+G{xsm109wx^N+VTuQO diff --git a/elpa/racket-mode-20200329.1841/racket-common.el b/elpa/racket-mode-20200402.1703/racket-common.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-common.el rename to elpa/racket-mode-20200402.1703/racket-common.el diff --git a/elpa/racket-mode-20200329.1841/racket-common.elc b/elpa/racket-mode-20200402.1703/racket-common.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-common.elc rename to elpa/racket-mode-20200402.1703/racket-common.elc diff --git a/elpa/racket-mode-20200329.1841/racket-complete.el b/elpa/racket-mode-20200402.1703/racket-complete.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-complete.el rename to elpa/racket-mode-20200402.1703/racket-complete.el diff --git a/elpa/racket-mode-20200329.1841/racket-complete.elc b/elpa/racket-mode-20200402.1703/racket-complete.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-complete.elc rename to elpa/racket-mode-20200402.1703/racket-complete.elc diff --git a/elpa/racket-mode-20200329.1841/racket-custom.el b/elpa/racket-mode-20200402.1703/racket-custom.el similarity index 98% rename from elpa/racket-mode-20200329.1841/racket-custom.el rename to elpa/racket-mode-20200402.1703/racket-custom.el index f78fcd61..7d04d15b 100644 --- a/elpa/racket-mode-20200329.1841/racket-custom.el +++ b/elpa/racket-mode-20200402.1703/racket-custom.el @@ -143,7 +143,7 @@ Set to nil to disable the mode line completely." (defcustom racket-xp-highlight-unused-regexp "^[^_]" "Only give `racket-xp-unused-face' to unused bindings that match this regexp. -The default is to highlight indentifiers that do not start with +The default is to highlight identifiers that do not start with an underline, which is a common convention." :tag "Racket Xp Mode Do Not Highlight Unused Regexp" :type 'regexp @@ -252,7 +252,9 @@ Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters." :safe #'integerp :group 'racket-repl) -(defcustom racket-images-system-viewer "display" +(defcustom racket-images-system-viewer (if (eq system-type 'darwin) + "open" + "display") "Which system image viewer program to invoke upon M-x `racket-view-last-image'." :tag "Images System Viewer" diff --git a/elpa/racket-mode-20200329.1841/racket-custom.elc b/elpa/racket-mode-20200402.1703/racket-custom.elc similarity index 59% rename from elpa/racket-mode-20200329.1841/racket-custom.elc rename to elpa/racket-mode-20200402.1703/racket-custom.elc index 8b8db2cf3464601717244822926a6e58d1eb9312..d9c22f877abd55120b69ab6f088d0cc61ec44fd6 100644 GIT binary patch delta 66 zcmcc6#`vX;aYMW4<_^(n9zBiBGzE>+LWSbW;*!){-IB_JR0Z{v#G>-dJWU0q{DRax VB?YCF%;JKa#7ZU2%{)pjiU2QJ7Qp}j delta 31 mcmey;#(1HPaYMT(W8UU=(P|z}rIgI#f}F%krOgIPE{XudrV9}O diff --git a/elpa/racket-mode-20200329.1841/racket-debug.el b/elpa/racket-mode-20200402.1703/racket-debug.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-debug.el rename to elpa/racket-mode-20200402.1703/racket-debug.el diff --git a/elpa/racket-mode-20200329.1841/racket-debug.elc b/elpa/racket-mode-20200402.1703/racket-debug.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-debug.elc rename to elpa/racket-mode-20200402.1703/racket-debug.elc diff --git a/elpa/racket-mode-20200329.1841/racket-describe.el b/elpa/racket-mode-20200402.1703/racket-describe.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-describe.el rename to elpa/racket-mode-20200402.1703/racket-describe.el diff --git a/elpa/racket-mode-20200329.1841/racket-describe.elc b/elpa/racket-mode-20200402.1703/racket-describe.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-describe.elc rename to elpa/racket-mode-20200402.1703/racket-describe.elc diff --git a/elpa/racket-mode-20200329.1841/racket-edit.el b/elpa/racket-mode-20200402.1703/racket-edit.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-edit.el rename to elpa/racket-mode-20200402.1703/racket-edit.el diff --git a/elpa/racket-mode-20200329.1841/racket-edit.elc b/elpa/racket-mode-20200402.1703/racket-edit.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-edit.elc rename to elpa/racket-mode-20200402.1703/racket-edit.elc diff --git a/elpa/racket-mode-20200329.1841/racket-eldoc.el b/elpa/racket-mode-20200402.1703/racket-eldoc.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-eldoc.el rename to elpa/racket-mode-20200402.1703/racket-eldoc.el diff --git a/elpa/racket-mode-20200329.1841/racket-eldoc.elc b/elpa/racket-mode-20200402.1703/racket-eldoc.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-eldoc.elc rename to elpa/racket-mode-20200402.1703/racket-eldoc.elc diff --git a/elpa/racket-mode-20200329.1841/racket-font-lock.el b/elpa/racket-mode-20200402.1703/racket-font-lock.el similarity index 89% rename from elpa/racket-mode-20200329.1841/racket-font-lock.el rename to elpa/racket-mode-20200402.1703/racket-font-lock.el index 317f56a4..f5b437cf 100644 --- a/elpa/racket-mode-20200329.1841/racket-font-lock.el +++ b/elpa/racket-mode-20200402.1703/racket-font-lock.el @@ -53,9 +53,7 @@ ;; We don't put any comment syntax on these -- that way things ;; like indent and nav work within the sexp. They are solely ;; font-locked as comments, here. - (,#'racket--font-lock-sexp-comments - (1 font-lock-comment-delimiter-face t) - (2 font-lock-comment-face t)) + (,#'racket--font-lock-sexp-comments) ;; #<< here strings ;; @@ -157,7 +155,7 @@ 1 font-lock-function-name-face) ;; let identifiers - (,#'racket--font-lock-let-identifiers . font-lock-variable-name-face) + (,#'racket--font-lock-let-identifiers) ;; module and module* (,(rx (syntax open-parenthesis) @@ -248,19 +246,36 @@ doesn't really fit that.") Note that our syntax table intentionally does not mark these as comments. As a result, indent and nav work within the sexp. -Instead we merely font-lock them to look like comments." - (when (re-search-forward (rx (group-n 1 "#;" (* " ")) - (group-n 2 (not (any " ")))) - limit t) - (unless (racket--string-or-comment-p ;issues 388, 408 - (match-beginning 1)) - (ignore-errors - (let ((md (match-data))) - (goto-char (match-beginning 2)) - (forward-sexp 1) - (setf (elt md 5) (point)) ;set (match-end 2) - (set-match-data md) - t))))) +Instead we merely font-lock them to look like comments. + +See https://docs.racket-lang.org/srfi/srfi-std/srfi-62.html for a +discussion of s-expression comments. We try to handle nesting +like \"#; #; 1 2\". For more examples see the issue 432 section +of example/example.rkt." + (while (re-search-forward (rx "#;") limit t) + (if (racket--string-or-comment-p (match-beginning 0)) + (goto-char (match-end 0)) ;issues 388, 408 + (racket--region-set-face (match-beginning 0) (match-end 0) + 'font-lock-comment-delimiter-face t) + ;; Font-lock and count any additional successive prefixes + (goto-char (match-end 0)) + (forward-comment (buffer-size)) + (let ((num-prefixes 1)) + (while (looking-at (rx "#;")) + (cl-incf num-prefixes) + (racket--region-set-face (match-beginning 0) (match-end 0) + 'font-lock-comment-delimiter-face t) + (goto-char (match-end 0)) + (forward-comment (buffer-size))) + ;; Font-lock as many successive sexprs as prefixes + (dotimes (_ num-prefixes) + (let ((beg (point))) + (forward-sexp 1) + (racket--region-set-face beg (point) + 'font-lock-comment-face t) + (put-text-property beg (point) 'font-lock-multiline t) + (forward-comment (buffer-size))))))) + nil) (defun racket--string-or-comment-p (pos) (let ((state (syntax-ppss pos))) diff --git a/elpa/racket-mode-20200329.1841/racket-font-lock.elc b/elpa/racket-mode-20200402.1703/racket-font-lock.elc similarity index 96% rename from elpa/racket-mode-20200329.1841/racket-font-lock.elc rename to elpa/racket-mode-20200402.1703/racket-font-lock.elc index fa0ade3606f3c1f2a5d923e9aaef46fc12153c1a..b546ffa7e2f9f2a8fea9e8415d3d2b775e978cb4 100644 GIT binary patch delta 818 zcmbVKOKTKC5Z>JhAz8f`K}aH4W^+(O&(3tuKB9uRAfg9JU=NO%$xP2~yYqME|M5|@ksT^iI=xqTKmhA0CG&>kPX_qx_SLV0QA@u*8sOnl}9x3dl zWj8s~E0n9s_C=S`;yFc`vNCnUZN%)U&`AN(DR@f#KZ38i$rh&D3&q>-Rn|^^0d?@! zS%C+Uh=qn^6ccP}DE6=!kARRM)gtDKlx{*`hxb8pqPQph0l~Q#d$Teq+L|4{fvT0= zIa$2?bho455(tPdX{pw7|a@zU+(I(zlx08MU1b+cL C^7Xd> delta 445 zcmYjNKT9J)6i+e|4S0p6g7{1%o!%# z1E-tBaYUpab|c7a?XXG4nn6RalwXP^sH>gZSv@`x6-y1&qssIj<|C@tOGn>dUNDAk zLxop=)rOu^z`m*9diKU`q(Xzw ztWd{WGGQS{53nfua22+OgLsfZ+=Cil zt+kFJjhv$>OuPF|KS@u*vkxc6iZbVmKN<`>q*}EFsDluQO?`gjm&ZhN8P&hLS0<3_r~A#~SP%$b PPd)r3)LahK{v&(>&Q5~w diff --git a/elpa/racket-mode-20200329.1841/racket-imenu.el b/elpa/racket-mode-20200402.1703/racket-imenu.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-imenu.el rename to elpa/racket-mode-20200402.1703/racket-imenu.el diff --git a/elpa/racket-mode-20200329.1841/racket-imenu.elc b/elpa/racket-mode-20200402.1703/racket-imenu.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-imenu.elc rename to elpa/racket-mode-20200402.1703/racket-imenu.elc diff --git a/elpa/racket-mode-20200329.1841/racket-indent.el b/elpa/racket-mode-20200402.1703/racket-indent.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-indent.el rename to elpa/racket-mode-20200402.1703/racket-indent.el diff --git a/elpa/racket-mode-20200329.1841/racket-indent.elc b/elpa/racket-mode-20200402.1703/racket-indent.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-indent.elc rename to elpa/racket-mode-20200402.1703/racket-indent.elc diff --git a/elpa/racket-mode-20200329.1841/racket-keywords-and-builtins.el b/elpa/racket-mode-20200402.1703/racket-keywords-and-builtins.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-keywords-and-builtins.el rename to elpa/racket-mode-20200402.1703/racket-keywords-and-builtins.el diff --git a/elpa/racket-mode-20200329.1841/racket-keywords-and-builtins.elc b/elpa/racket-mode-20200402.1703/racket-keywords-and-builtins.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-keywords-and-builtins.elc rename to elpa/racket-mode-20200402.1703/racket-keywords-and-builtins.elc diff --git a/elpa/racket-mode-20200329.1841/racket-logger.el b/elpa/racket-mode-20200402.1703/racket-logger.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-logger.el rename to elpa/racket-mode-20200402.1703/racket-logger.el diff --git a/elpa/racket-mode-20200329.1841/racket-logger.elc b/elpa/racket-mode-20200402.1703/racket-logger.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-logger.elc rename to elpa/racket-mode-20200402.1703/racket-logger.elc diff --git a/elpa/racket-mode-20200329.1841/racket-mode-autoloads.el b/elpa/racket-mode-20200402.1703/racket-mode-autoloads.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-mode-autoloads.el rename to elpa/racket-mode-20200402.1703/racket-mode-autoloads.el diff --git a/elpa/racket-mode-20200329.1841/racket-mode-pkg.el b/elpa/racket-mode-20200402.1703/racket-mode-pkg.el similarity index 79% rename from elpa/racket-mode-20200329.1841/racket-mode-pkg.el rename to elpa/racket-mode-20200402.1703/racket-mode-pkg.el index c6209680..9faad32a 100644 --- a/elpa/racket-mode-20200329.1841/racket-mode-pkg.el +++ b/elpa/racket-mode-20200402.1703/racket-mode-pkg.el @@ -1,4 +1,4 @@ -(define-package "racket-mode" "20200329.1841" "Major mode for Racket language." +(define-package "racket-mode" "20200402.1703" "Major mode for Racket language." '((emacs "25.1") (faceup "0.0.2") (pos-tip "20191127.1028")) diff --git a/elpa/racket-mode-20200329.1841/racket-mode.el b/elpa/racket-mode-20200402.1703/racket-mode.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-mode.el rename to elpa/racket-mode-20200402.1703/racket-mode.el diff --git a/elpa/racket-mode-20200329.1841/racket-mode.elc b/elpa/racket-mode-20200402.1703/racket-mode.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-mode.elc rename to elpa/racket-mode-20200402.1703/racket-mode.elc diff --git a/elpa/racket-mode-20200329.1841/racket-mode.info b/elpa/racket-mode-20200402.1703/racket-mode.info similarity index 98% rename from elpa/racket-mode-20200329.1841/racket-mode.info rename to elpa/racket-mode-20200402.1703/racket-mode.info index 933c7871..5d81cb8c 100644 --- a/elpa/racket-mode-20200329.1841/racket-mode.info +++ b/elpa/racket-mode-20200402.1703/racket-mode.info @@ -2220,7 +2220,7 @@ File: racket-mode.info, Node: racket-xp-highlight-unused-regexp, Prev: racket- Only give *note racket-xp-unused-face:: to unused bindings that match this regexp. - The default is to highlight indentifiers that do not start with an + The default is to highlight identifiers that do not start with an underline, which is a common convention.  @@ -2690,38 +2690,38 @@ Node: racket-path-from-emacs-to-racket-function70369 Node: racket-path-from-racket-to-emacs-function71056 Node: racket-xp-after-change-refresh-delay71858 Node: racket-xp-highlight-unused-regexp72290 -Node: REPL variables72706 -Node: racket-repl-buffer-name-function73049 -Node: racket-history-filter-regexp74065 -Node: racket-images-inline74418 -Node: racket-images-keep-last74665 -Node: racket-images-system-viewer74915 -Node: racket-pretty-print75211 -Node: Other variables75419 -Node: racket-indent-curly-as-sequence75755 -Node: racket-indent-sequence-depth76138 -Node: racket-pretty-lambda76828 -Node: racket-smart-open-bracket-enable77235 -Node: racket-logger-config77691 -Node: Experimental debugger variables78486 -Node: racket-debuggable-files78732 -Node: Showing informationx79426 -Node: racket-show-functions79622 -Node: Faces80379 -Node: All80482 -Node: racket-keyword-argument-face80922 -Node: racket-selfeval-face81132 -Node: racket-here-string-face81391 -Node: racket-xp-def-face81600 -Node: racket-xp-use-face81833 -Node: racket-xp-unused-face82057 -Node: racket-logger-config-face82320 -Node: racket-logger-topic-face82570 -Node: racket-logger-fatal-face82814 -Node: racket-logger-error-face83062 -Node: racket-logger-warning-face83314 -Node: racket-logger-info-face83571 -Node: racket-logger-debug-face83819 +Node: REPL variables72705 +Node: racket-repl-buffer-name-function73048 +Node: racket-history-filter-regexp74064 +Node: racket-images-inline74417 +Node: racket-images-keep-last74664 +Node: racket-images-system-viewer74914 +Node: racket-pretty-print75210 +Node: Other variables75418 +Node: racket-indent-curly-as-sequence75754 +Node: racket-indent-sequence-depth76137 +Node: racket-pretty-lambda76827 +Node: racket-smart-open-bracket-enable77234 +Node: racket-logger-config77690 +Node: Experimental debugger variables78485 +Node: racket-debuggable-files78731 +Node: Showing informationx79425 +Node: racket-show-functions79621 +Node: Faces80378 +Node: All80481 +Node: racket-keyword-argument-face80921 +Node: racket-selfeval-face81131 +Node: racket-here-string-face81390 +Node: racket-xp-def-face81599 +Node: racket-xp-use-face81832 +Node: racket-xp-unused-face82056 +Node: racket-logger-config-face82319 +Node: racket-logger-topic-face82569 +Node: racket-logger-fatal-face82813 +Node: racket-logger-error-face83061 +Node: racket-logger-warning-face83313 +Node: racket-logger-info-face83570 +Node: racket-logger-debug-face83818  End Tag Table diff --git a/elpa/racket-mode-20200329.1841/racket-parens.el b/elpa/racket-mode-20200402.1703/racket-parens.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-parens.el rename to elpa/racket-mode-20200402.1703/racket-parens.el diff --git a/elpa/racket-mode-20200329.1841/racket-parens.elc b/elpa/racket-mode-20200402.1703/racket-parens.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-parens.elc rename to elpa/racket-mode-20200402.1703/racket-parens.elc diff --git a/elpa/racket-mode-20200329.1841/racket-ppss.el b/elpa/racket-mode-20200402.1703/racket-ppss.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-ppss.el rename to elpa/racket-mode-20200402.1703/racket-ppss.el diff --git a/elpa/racket-mode-20200329.1841/racket-ppss.elc b/elpa/racket-mode-20200402.1703/racket-ppss.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-ppss.elc rename to elpa/racket-mode-20200402.1703/racket-ppss.elc diff --git a/elpa/racket-mode-20200329.1841/racket-profile.el b/elpa/racket-mode-20200402.1703/racket-profile.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-profile.el rename to elpa/racket-mode-20200402.1703/racket-profile.el diff --git a/elpa/racket-mode-20200329.1841/racket-profile.elc b/elpa/racket-mode-20200402.1703/racket-profile.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-profile.elc rename to elpa/racket-mode-20200402.1703/racket-profile.elc diff --git a/elpa/racket-mode-20200329.1841/racket-repl-buffer-name.el b/elpa/racket-mode-20200402.1703/racket-repl-buffer-name.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-repl-buffer-name.el rename to elpa/racket-mode-20200402.1703/racket-repl-buffer-name.el diff --git a/elpa/racket-mode-20200329.1841/racket-repl-buffer-name.elc b/elpa/racket-mode-20200402.1703/racket-repl-buffer-name.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-repl-buffer-name.elc rename to elpa/racket-mode-20200402.1703/racket-repl-buffer-name.elc diff --git a/elpa/racket-mode-20200329.1841/racket-repl.el b/elpa/racket-mode-20200402.1703/racket-repl.el similarity index 99% rename from elpa/racket-mode-20200329.1841/racket-repl.el rename to elpa/racket-mode-20200402.1703/racket-repl.el index d2e37354..c10e3c53 100644 --- a/elpa/racket-mode-20200329.1841/racket-repl.el +++ b/elpa/racket-mode-20200402.1703/racket-repl.el @@ -601,6 +601,8 @@ without the #; prefix." (defun racket-eval-last-sexp () "Eval the previous sexp asynchronously and `message' the result." (interactive) + (unless (racket--repl-live-p) + (user-error "No REPL session available")) (racket--cmd/async (racket--repl-session-id) `(eval diff --git a/elpa/racket-mode-20200329.1841/racket-repl.elc b/elpa/racket-mode-20200402.1703/racket-repl.elc similarity index 97% rename from elpa/racket-mode-20200329.1841/racket-repl.elc rename to elpa/racket-mode-20200402.1703/racket-repl.elc index 88ee1ba512af811d77e31e77062b717870cc6539..65cc2521f4cac8dd92c2def3c19941ef461cd878 100644 GIT binary patch delta 266 zcmey=%5=1iX+wcGyF!eSfe9zWN-i6S@`!gOgFaeDY?eXEasNxmYYu(7%?*$m`?s*><2W|U~@o8G#|5> KspaH#P16DE)<)C- diff --git a/elpa/racket-mode-20200329.1841/racket-show.el b/elpa/racket-mode-20200402.1703/racket-show.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-show.el rename to elpa/racket-mode-20200402.1703/racket-show.el diff --git a/elpa/racket-mode-20200329.1841/racket-show.elc b/elpa/racket-mode-20200402.1703/racket-show.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-show.elc rename to elpa/racket-mode-20200402.1703/racket-show.elc diff --git a/elpa/racket-mode-20200329.1841/racket-smart-open.el b/elpa/racket-mode-20200402.1703/racket-smart-open.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-smart-open.el rename to elpa/racket-mode-20200402.1703/racket-smart-open.el diff --git a/elpa/racket-mode-20200329.1841/racket-smart-open.elc b/elpa/racket-mode-20200402.1703/racket-smart-open.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-smart-open.elc rename to elpa/racket-mode-20200402.1703/racket-smart-open.elc diff --git a/elpa/racket-mode-20200329.1841/racket-stepper.el b/elpa/racket-mode-20200402.1703/racket-stepper.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-stepper.el rename to elpa/racket-mode-20200402.1703/racket-stepper.el diff --git a/elpa/racket-mode-20200329.1841/racket-stepper.elc b/elpa/racket-mode-20200402.1703/racket-stepper.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-stepper.elc rename to elpa/racket-mode-20200402.1703/racket-stepper.elc diff --git a/elpa/racket-mode-20200329.1841/racket-unicode-input-method.el b/elpa/racket-mode-20200402.1703/racket-unicode-input-method.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-unicode-input-method.el rename to elpa/racket-mode-20200402.1703/racket-unicode-input-method.el diff --git a/elpa/racket-mode-20200329.1841/racket-unicode-input-method.elc b/elpa/racket-mode-20200402.1703/racket-unicode-input-method.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-unicode-input-method.elc rename to elpa/racket-mode-20200402.1703/racket-unicode-input-method.elc diff --git a/elpa/racket-mode-20200329.1841/racket-util.el b/elpa/racket-mode-20200402.1703/racket-util.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-util.el rename to elpa/racket-mode-20200402.1703/racket-util.el diff --git a/elpa/racket-mode-20200329.1841/racket-util.elc b/elpa/racket-mode-20200402.1703/racket-util.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-util.elc rename to elpa/racket-mode-20200402.1703/racket-util.elc diff --git a/elpa/racket-mode-20200329.1841/racket-visit.el b/elpa/racket-mode-20200402.1703/racket-visit.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-visit.el rename to elpa/racket-mode-20200402.1703/racket-visit.el diff --git a/elpa/racket-mode-20200329.1841/racket-visit.elc b/elpa/racket-mode-20200402.1703/racket-visit.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-visit.elc rename to elpa/racket-mode-20200402.1703/racket-visit.elc diff --git a/elpa/racket-mode-20200329.1841/racket-wsl.el b/elpa/racket-mode-20200402.1703/racket-wsl.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-wsl.el rename to elpa/racket-mode-20200402.1703/racket-wsl.el diff --git a/elpa/racket-mode-20200329.1841/racket-wsl.elc b/elpa/racket-mode-20200402.1703/racket-wsl.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-wsl.elc rename to elpa/racket-mode-20200402.1703/racket-wsl.elc diff --git a/elpa/racket-mode-20200329.1841/racket-xp-complete.el b/elpa/racket-mode-20200402.1703/racket-xp-complete.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-xp-complete.el rename to elpa/racket-mode-20200402.1703/racket-xp-complete.el diff --git a/elpa/racket-mode-20200329.1841/racket-xp-complete.elc b/elpa/racket-mode-20200402.1703/racket-xp-complete.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-xp-complete.elc rename to elpa/racket-mode-20200402.1703/racket-xp-complete.elc diff --git a/elpa/racket-mode-20200329.1841/racket-xp.el b/elpa/racket-mode-20200402.1703/racket-xp.el similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-xp.el rename to elpa/racket-mode-20200402.1703/racket-xp.el diff --git a/elpa/racket-mode-20200329.1841/racket-xp.elc b/elpa/racket-mode-20200402.1703/racket-xp.elc similarity index 100% rename from elpa/racket-mode-20200329.1841/racket-xp.elc rename to elpa/racket-mode-20200402.1703/racket-xp.elc diff --git a/elpa/racket-mode-20200329.1841/racket/command-server.rkt b/elpa/racket-mode-20200402.1703/racket/command-server.rkt similarity index 97% rename from elpa/racket-mode-20200329.1841/racket/command-server.rkt rename to elpa/racket-mode-20200402.1703/racket/command-server.rkt index 8b2920a7..4d695b9d 100644 --- a/elpa/racket-mode-20200329.1841/racket/command-server.rkt +++ b/elpa/racket-mode-20200402.1703/racket/command-server.rkt @@ -174,11 +174,10 @@ (define/contract (eval-command str) (-> string? string?) - (define results - (call-with-values (λ () - ((current-eval) (string->namespace-syntax str))) - list)) - (~a (map ~v results) "\n")) + (call-with-values (λ () + ((current-eval) (string->namespace-syntax str))) + (λ vs + (apply ~a #:separator "\n" (map ~v vs))))) ;;; find-collection diff --git a/elpa/racket-mode-20200329.1841/racket/commands/check-syntax.rkt b/elpa/racket-mode-20200402.1703/racket/commands/check-syntax.rkt similarity index 100% rename from elpa/racket-mode-20200329.1841/racket/commands/check-syntax.rkt rename to elpa/racket-mode-20200402.1703/racket/commands/check-syntax.rkt diff --git a/elpa/racket-mode-20200329.1841/racket/commands/coverage.rkt b/elpa/racket-mode-20200402.1703/racket/commands/coverage.rkt similarity index 100% rename from elpa/racket-mode-20200329.1841/racket/commands/coverage.rkt rename to elpa/racket-mode-20200402.1703/racket/commands/coverage.rkt diff --git a/elpa/racket-mode-20200329.1841/racket/commands/describe.rkt b/elpa/racket-mode-20200402.1703/racket/commands/describe.rkt similarity index 100% rename from elpa/racket-mode-20200329.1841/racket/commands/describe.rkt rename to elpa/racket-mode-20200402.1703/racket/commands/describe.rkt diff --git a/elpa/racket-mode-20200329.1841/racket/commands/find-module.rkt b/elpa/racket-mode-20200402.1703/racket/commands/find-module.rkt similarity index 100% rename from elpa/racket-mode-20200329.1841/racket/commands/find-module.rkt rename to elpa/racket-mode-20200402.1703/racket/commands/find-module.rkt diff --git a/elpa/racket-mode-20200329.1841/racket/commands/help.rkt b/elpa/racket-mode-20200402.1703/racket/commands/help.rkt similarity index 100% rename from elpa/racket-mode-20200329.1841/racket/commands/help.rkt rename to elpa/racket-mode-20200402.1703/racket/commands/help.rkt diff --git a/elpa/racket-mode-20200329.1841/racket/commands/macro.rkt b/elpa/racket-mode-20200402.1703/racket/commands/macro.rkt similarity index 100% rename from elpa/racket-mode-20200329.1841/racket/commands/macro.rkt rename to elpa/racket-mode-20200402.1703/racket/commands/macro.rkt diff --git a/elpa/racket-mode-20200329.1841/racket/commands/module-names.rkt b/elpa/racket-mode-20200402.1703/racket/commands/module-names.rkt similarity index 100% rename from elpa/racket-mode-20200329.1841/racket/commands/module-names.rkt rename to elpa/racket-mode-20200402.1703/racket/commands/module-names.rkt diff --git a/elpa/racket-mode-20200329.1841/racket/commands/profile.rkt b/elpa/racket-mode-20200402.1703/racket/commands/profile.rkt similarity index 100% rename from elpa/racket-mode-20200329.1841/racket/commands/profile.rkt rename to elpa/racket-mode-20200402.1703/racket/commands/profile.rkt diff --git a/elpa/racket-mode-20200329.1841/racket/commands/requires.rkt b/elpa/racket-mode-20200402.1703/racket/commands/requires.rkt similarity index 100% rename from elpa/racket-mode-20200329.1841/racket/commands/requires.rkt rename to elpa/racket-mode-20200402.1703/racket/commands/requires.rkt diff --git a/elpa/racket-mode-20200329.1841/racket/debug-annotator.rkt b/elpa/racket-mode-20200402.1703/racket/debug-annotator.rkt similarity index 100% rename from elpa/racket-mode-20200329.1841/racket/debug-annotator.rkt rename to elpa/racket-mode-20200402.1703/racket/debug-annotator.rkt diff --git a/elpa/racket-mode-20200329.1841/racket/debug.rkt b/elpa/racket-mode-20200402.1703/racket/debug.rkt similarity index 100% rename from elpa/racket-mode-20200329.1841/racket/debug.rkt rename to elpa/racket-mode-20200402.1703/racket/debug.rkt diff --git a/elpa/racket-mode-20200329.1841/racket/elisp.rkt b/elpa/racket-mode-20200402.1703/racket/elisp.rkt similarity index 100% rename from elpa/racket-mode-20200329.1841/racket/elisp.rkt rename to elpa/racket-mode-20200402.1703/racket/elisp.rkt diff --git a/elpa/racket-mode-20200329.1841/racket/error.rkt b/elpa/racket-mode-20200402.1703/racket/error.rkt similarity index 100% rename from elpa/racket-mode-20200329.1841/racket/error.rkt rename to elpa/racket-mode-20200402.1703/racket/error.rkt diff --git a/elpa/racket-mode-20200329.1841/racket/example/example.rkt b/elpa/racket-mode-20200402.1703/racket/example/example.rkt similarity index 94% rename from elpa/racket-mode-20200329.1841/racket/example/example.rkt rename to elpa/racket-mode-20200402.1703/racket/example/example.rkt index 7973a534..9ab85051 100644 --- a/elpa/racket-mode-20200329.1841/racket/example/example.rkt +++ b/elpa/racket-mode-20200402.1703/racket/example/example.rkt @@ -138,6 +138,24 @@ comment "#;" (whatever) +;; Issue 432 + +#; #; 'comment-me 'comment-me 'but-not-me + +#;#; 'comment-me 'comment-me 'but-not-me + +#; #; #; 'comment-me 'comment-me 'comment-me 'but-not-me + +#;#;#; 'comment-me 'comment-me 'comment-me 'but-not-me + +#; ;; comment +;; comment +#; #| comment |# +'comment-me +'comment-me +'but-not-me + + (define x #<")) :maintainer '("François-Xavier Bois") :url "http://web-mode.org") diff --git a/elpa/web-mode-20200301.1948/web-mode-autoloads.el b/elpa/web-mode-20200403.1616/web-mode-autoloads.el similarity index 100% rename from elpa/web-mode-20200301.1948/web-mode-autoloads.el rename to elpa/web-mode-20200403.1616/web-mode-autoloads.el diff --git a/elpa/web-mode-20200403.1616/web-mode-pkg.el b/elpa/web-mode-20200403.1616/web-mode-pkg.el new file mode 100644 index 00000000..7e945127 --- /dev/null +++ b/elpa/web-mode-20200403.1616/web-mode-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "web-mode" "20200403.1616" "major mode for editing web templates" '((emacs "23.1")) :commit "d93489709fcc13a5b2c50d7282990acdb80e30e0" :keywords '("languages") :authors '(("François-Xavier Bois ")) :maintainer '("François-Xavier Bois") :url "http://web-mode.org") diff --git a/elpa/web-mode-20200301.1948/web-mode.el b/elpa/web-mode-20200403.1616/web-mode.el similarity index 99% rename from elpa/web-mode-20200301.1948/web-mode.el rename to elpa/web-mode-20200403.1616/web-mode.el index 583e0632..8d879e36 100644 --- a/elpa/web-mode-20200301.1948/web-mode.el +++ b/elpa/web-mode-20200403.1616/web-mode.el @@ -4,7 +4,7 @@ ;; Copyright 2011-2020 François-Xavier Bois ;; Version: 16.0.29 -;; Package-Version: 20200301.1948 +;; Package-Version: 20200403.1616 ;; Author: François-Xavier Bois ;; Maintainer: François-Xavier Bois ;; Package-Requires: ((emacs "23.1")) @@ -1579,6 +1579,7 @@ shouldn't be moved back.)") "session" "t" "telephone_field" "telephone_field_tag" "time_tag" "translate" "url_field" "url_field_tag" "url_options" "video_path" "video_tag" "simple_form_for" + "javascript_pack_tag" "stylesheet_pack_tag" "csp_meta_tag" )))) @@ -1800,7 +1801,7 @@ shouldn't be moved back.)") "implements" "import" "in" "instanceof" "interface" "let" "new" "of" "package" "private" "protected" "public" "return" "set" "static" "super" "switch" - "throw" "try" "typeof" "var" "void" "while" "with" "yield")))) + "throw" "try" "type" "typeof" "var" "void" "while" "with" "yield")))) (defvar web-mode-javascript-constants (regexp-opt @@ -6020,6 +6021,13 @@ another auto-completion with different ac-sources (e.g. ac-php)") ;;---- FONTIFICATION ----------------------------------------------------------- +;; 1/ after-change +;; 2/ extend-region +;; 3/ propertize +;; 4/ font-lock-highlight +;; 5/ highlight-region +;; 6/ post-command + (defun web-mode-font-lock-highlight (limit) ;;(message "font-lock-highlight: point(%S) limit(%S) change-beg(%S) change-end(%S)" (point) limit web-mode-change-beg web-mode-change-end) (cond @@ -9067,9 +9075,7 @@ another auto-completion with different ac-sources (e.g. ac-php)") (defun web-mode-line-number (&optional pos) (setq pos (or pos (point))) - (+ - (count-lines 1 pos) - (if (= (current-column) 0) 1 0))) + (+ (count-lines 1 pos) (if (= (web-mode-column-at-pos pos) 0) 1 0))) (defun web-mode-block-is-control (pos) (save-excursion @@ -9820,7 +9826,7 @@ Pos should be in a tag." (defun web-mode-lify-region () "Transform current REGION in an html list (

  • line1
    • ...)" (interactive) - (let (beg end) + (let (beg end lines) (save-excursion (when mark-active (setq beg (region-beginning) @@ -10201,6 +10207,8 @@ Prompt user if TAG-NAME isn't provided." (put-text-property beg-inside end-inside 'invisible t)) )))) +;;---- COMMENT ------------------------------------------------------------------ + (defun web-mode-toggle-comments () "Toggle comments visbility." (interactive) @@ -11066,19 +11074,6 @@ Prompt user if TAG-NAME isn't provided." (web-mode-set-content-type "jsx")) )) -(defun web-mode-on-after-change (beg end len) - ;;(message "after-change: pos=%d, beg=%d, end=%d, len=%d, ocmd=%S, cmd=%S" (point) beg end len this-original-command this-command) - ;;(backtrace) - ;;(message "this-command=%S" this-command) - (when (eq this-original-command 'yank) - (setq web-mode-fontification-off t)) - (when (or (null web-mode-change-beg) (< beg web-mode-change-beg)) - (setq web-mode-change-beg beg)) - (when (or (null web-mode-change-end) (> end web-mode-change-end)) - (setq web-mode-change-end end)) - ;;(message "on-after-change: fontification-off(%S) change-beg(%S) change-end(%S)" web-mode-fontification-off web-mode-change-beg web-mode-change-end) - ) - (defun web-mode-auto-complete () "Autocomple at point." (interactive) @@ -11196,9 +11191,12 @@ Prompt user if TAG-NAME isn't provided." (cond ((and (eq char ?\=) (not (looking-at-p "[ ]*[\"']"))) - (if (= web-mode-auto-quote-style 2) - (insert "''") - (insert "\"\"")) + (cond ((= web-mode-auto-quote-style 2) + (insert "''")) + ((= web-mode-auto-quote-style 3) + (insert "{}")) + (t + (insert "\"\""))) (if (looking-at-p "[ \n>]") (backward-char) (insert " ") @@ -11254,12 +11252,23 @@ Prompt user if TAG-NAME isn't provided." )) +;; NOTE: after-change triggered before post-command + +(defun web-mode-on-after-change (beg end len) + ;;(message "after-change: pos=%d, beg=%d, end=%d, len=%d, ocmd=%S, cmd=%S" (point) beg end len this-original-command this-command) + ;;(backtrace) + (when (eq this-original-command 'yank) + (setq web-mode-fontification-off t)) + (when (or (null web-mode-change-beg) (< beg web-mode-change-beg)) + (setq web-mode-change-beg beg)) + (when (or (null web-mode-change-end) (> end web-mode-change-end)) + (setq web-mode-change-end end)) + ;;(message "on-after-change: fontification-off(%S) change-beg(%S) change-end(%S)" web-mode-fontification-off web-mode-change-beg web-mode-change-end) + ) + (defun web-mode-on-post-command () + ;;(message "post-command: cmd=%S, state=%S, beg=%S, end=%S" this-command web-mode-expand-previous-state web-mode-change-beg web-mode-change-end) (let (ctx n char) - - ;;(message "this-command=%S (%S)" this-command web-mode-expand-previous-state) - ;;(message "%S: %S %S" this-command web-mode-change-beg web-mode-change-end) - (when (and web-mode-expand-previous-state (not (member this-command web-mode-commands-like-expand-region))) (when (eq this-command 'keyboard-quit) diff --git a/elpa/web-mode-20200301.1948/web-mode.elc b/elpa/web-mode-20200403.1616/web-mode.elc similarity index 97% rename from elpa/web-mode-20200301.1948/web-mode.elc rename to elpa/web-mode-20200403.1616/web-mode.elc index b075d1fa343b4409fdde8302a964247db1c4fef0..3aefa6fa08cf07a273f75e87b7df666f51b639a9 100644 GIT binary patch delta 2306 zcmaJ?eQ;FO72kW$Nmv3Cpur>%l57%-Y&7!Tz3*#bm~pMe)~U5%DIa-E3}FdiNK!UX zz=nV`MT>QW4th;m)S-OHSB#^bWBZ5ARIxg>(P z$L_u7-gADx^Y!l8ak1jvixne_Pt8j;u5aJmp6}SWuD7qPx4q-;w!Zex##CdzZ);aB zzc!cqpVN+fZ`+1kUwfqV%%W4LXFN0O&Bo>6+74v{aahPqK!3}K2L(9VGh642O%Q08 z-k&e-6p(RUx^;p0xJhPwb91|R4_qrCca>;H@NCQQPMJfi#5Htuji{V$^@`2ML$0x7a;pc;)EPPU|Tab z1~X~@hy>sWW67}e0S!MZ|6C>m$L#x={DsJvr*}dvZ5@@j0=U|y7haG`fbtZ5^rC!Q zNZ+Ngm*gRV?1VP<5Y(FQrC}mH^|JhY31qZIfB2Q$SAl`!rA@`w66?DHH%(Z4O1t9?fB;P9{2>bYn#`4;Un-Ymwx|ESScWIJ#zE#F8glz&&!`Hi&W@D0<-A@Rhg=&i2DRF1c1zIRJwal#{s%V%nC9 zB%Rv{H(}%wHSB^T5^c)~%&YgqwpF3B?dlmbc~O%%Og9~c>83u%|6XcZ*gf%{sl4@h z6E?Dv73%nB^Qw|fd>4zFSEnGl$%Y#k$Zt%wcCG8q7V&&t00` z4QUWI-Tfd;1CgQrJs^beX<#q(3zjc^9}Y^P>A=HqSxDES9~pQ+3YX>%!JabV(da=~ zS}FpnJ`T@Ha8GDZf2GUW+8iG0#ozwQGp=~Z>oEw9SB~sgFZ#6d2 z$8W=|5^&sN&a8QeX81gmnqQyi5-fZN?oSGBMs`9S{rv)zNqXZ$xEEL0P=0f$m9sqR z5*v8yM+aI*X|fy}qHOXqv9N^Q#kHts`71*07L?h%Jj;@^fOT}g8T}8`h<@`rFH75G z`PVtOcHE3%C|S+#i0i;D*~X%06-4btC2{M%$p5}*NQe9>hzM_Eq@*^D+iZzM&ekQU z8Yu931>R6O4&ON*-@Cau3SB(&`0P`lo$+fw)V|eF=#FtJHkiuvs=(pfacm5uiyXen z4HQWVhkn#U|L?z3wDBSm=d(%Nm?Uwv7#1^V-@9@g1?T(4;1UDC4%*+~hW|9)2!=^n zV`<_uX^Z)bdcd~Uuu&nOk?gSdN)@e{oWYhQiu4UIz`9opbH!d4{Jk;8yHdC4+S75Z z&dNfP(RC-3$DOj6wY8rrUlO-xQL2ot?B$8b-d>TI$RE9Bwg)e-(27qcV;Li)4!%*9%W$D`so-7>162TYp_@FQ%>`$aEXx0CjJr^PLe#@ z&NktfrF0y+b~b(@rgBIso$6lKwK84SbQAMs^Dx5jA8ME8q<2-OYbHk(fm{iKV`X~-c9hlBR+!sx@ON02F^a4Xe zI4lF-bp8Mj@N4YSSD+hbVITsG}^94iHI(P{7rtYg-IesTcM@SCj6 z-h=q0)EP7X5bl?*XI?vmLy{-L=EG=Y5SS@P@J~FGbv(ul`zi{&@fZ&?v-=oQ1pI~LcwE}HdG9zo%y~X`0#AbDTZKyS=qWX$Cvl4DAI7<6 z#|V}Zi?grAz~<>2&pB}#e;L)IFhS3s!RJvb%e*-THT2RS@pl4z=8eZNy@6|{N#CRT vf8dw+ndOAVBW>6Fcvec~QTqklQCc6U%y^OJ^lt3gyl!p-) z{>v&gvyDtKwp=r+?yP}8^T;Er)CIBiE3SriKKV1Xr2)g(`Tpb7=65fJ>HhOa)J1&w zE%n_sf|Gjrw*w%Kx?!pnbrN&el@J2CVq~)@UUxN2eyv&;i_rq#Z=i!89e^8dL{|*U z`=?)krVB8zG1FdHNN9ELciTa@gV5Q?*B_@@{K+9el%r>w7j249zXqSxflmCfU%)$P zih1ChZ^JbxWk+27OE3y`G3MSQ@J9tfkqhs@E(N;i7afE-{^$a%<1gNYORF)7LvH^S zY->iB1m)7+Jps$^nYFrP1G~6n0^3q0q7li=NG0nR^<#$$yjnt?{)Qf^=binyx|xhi z@>1pxV`DuA(u>{^JdY-FKDigqVWc(N`*69En=`!iewfsh=lXnQCPX%W70V zx7&}8V@LIx)prly@4w$fbA9h7yc6S4^R7*}09C*rY{n*337^=4N~xGX{V8rxqOaJB zuYfXK^E7^`AT06)&*0-g!qL2A6Wj5=Iu-FHyYQA8<#_!8d<|5{dK@<)S(E$uzHzMe zPpnssJT-xRS72y@GEZ(jfxoL3Zl=xj8$VVxe&Z6V=9MRLW;NL;Cy8(TGm`H)g$=y_ z6h2x@Cd&Egk4>W%9{xL?Ret8rRg3>N(uX|s4}6$bl?vE!WyzXwFr|ZNBD>ULMG;dd zruuxHmakdU(~XL6;FgtaR1Qcn8WxEfE=&BVHs>q|G{JF*KB z`VFM2E2}mR(tsID?XXy5y|&_XSE`!aNrz>-)ls8lGI`$EW_e4-IPnf+i3o?YquAUQ zm&@s^sHuyaTV_fn*?)n$AP04E4(jw*pqb5??2M~RCR1Ypb@u;&mOGT5P(bsp2U4na zQ8`_CCq09UE9uHM=dyI8d9b82fnHMezY|tklU|$-R!MB$tJDyNQiI6>B&FcpQk5sY zNcJn8DR(*t7`1U$>BSl1SND`rBfqGOJO(rF7%WrAU~S5crPz>B;VOx?uCrlr#=%@` zO}F&Ysx)2?R;BTJSydLVhpHq#a9Tv zdQVV7-quYW0488T`Of#iCH|bJohY--Z-0iK2d#bY7>$8({-ZJ42BGnHZKpRtM(w3L zXdGPZKiWYr33|xuo~7AoMLhN#87a2NN1vyQB~8GSJE>L48zK|wMVccC9nXK6jwwjA z|MC@inoQ#N?V{%(jQq8`X*mw*Wfg56;lW8gSb8pQqXX0qGWD)Bpeg