86 changed files with 3734 additions and 22517 deletions
-
2elpa/counsel-0.13.0/counsel-pkg.el
-
68elpa/counsel-0.13.4/counsel-autoloads.el
-
2elpa/counsel-0.13.4/counsel-pkg.el
-
2016elpa/counsel-0.13.4/counsel.el
-
2elpa/cython-mode-0.29.21/cython-mode-pkg.el
-
0elpa/cython-mode-0.29.22/cython-mode-autoloads.el
-
2elpa/cython-mode-0.29.22/cython-mode-pkg.el
-
4elpa/cython-mode-0.29.22/cython-mode.el
-
0elpa/dash-2.18.1/dash-autoloads.el
-
4elpa/dash-2.18.1/dash-pkg.el
-
21elpa/dash-2.18.1/dash.el
-
6elpa/dash-2.18.1/dash.info
-
0elpa/dash-2.18.1/dir
-
2elpa/format-all-0.3.0/format-all-pkg.el
-
37elpa/format-all-0.4.0/format-all-autoloads.el
-
2elpa/format-all-0.4.0/format-all-pkg.el
-
663elpa/format-all-0.4.0/format-all.el
-
47elpa/inheritenv-0.1/inheritenv-autoloads.el
-
2elpa/inheritenv-0.1/inheritenv-pkg.el
-
86elpa/inheritenv-0.1/inheritenv.el
-
124elpa/ivy-0.13.0/colir.el
-
161elpa/ivy-0.13.0/ivy-autoloads.el
-
154elpa/ivy-0.13.0/ivy-overlay.el
-
12elpa/ivy-0.13.0/ivy-pkg.el
-
5056elpa/ivy-0.13.0/ivy.el
-
1954elpa/ivy-0.13.0/ivy.info
-
1elpa/ivy-0.13.1.signed
-
76elpa/ivy-0.13.1/ChangeLog
-
124elpa/ivy-0.13.1/colir.el
-
18elpa/ivy-0.13.1/dir
-
168elpa/ivy-0.13.1/ivy-autoloads.el
-
154elpa/ivy-0.13.1/ivy-overlay.el
-
2elpa/ivy-0.13.1/ivy-pkg.el
-
5056elpa/ivy-0.13.1/ivy.el
-
1954elpa/ivy-0.13.1/ivy.info
-
18elpa/ivy-20210216.1611/dir
-
6elpa/ivy-20210216.1611/elpa.el
-
138elpa/ivy-20210216.1611/ivy-help.org
-
2elpa/ivy-20210311.1638/colir.el
-
0elpa/ivy-20210311.1638/dir
-
0elpa/ivy-20210311.1638/elpa.el
-
0elpa/ivy-20210311.1638/ivy-autoloads.el
-
2elpa/ivy-20210311.1638/ivy-faces.el
-
0elpa/ivy-20210311.1638/ivy-help.org
-
2elpa/ivy-20210311.1638/ivy-overlay.el
-
4elpa/ivy-20210311.1638/ivy-pkg.el
-
22elpa/ivy-20210311.1638/ivy.el
-
111elpa/ivy-20210311.1638/ivy.info
-
2elpa/ivy-hydra-0.13.0/ivy-hydra-pkg.el
-
135elpa/ivy-hydra-0.13.0/ivy-hydra.el
-
0elpa/ivy-hydra-0.13.4/ivy-hydra-autoloads.el
-
2elpa/ivy-hydra-0.13.4/ivy-hydra-pkg.el
-
60elpa/ivy-hydra-0.13.4/ivy-hydra.el
-
2elpa/markdown-mode-20210216.852/markdown-mode-pkg.el
-
0elpa/markdown-mode-20210220.1301/markdown-mode-autoloads.el
-
2elpa/markdown-mode-20210220.1301/markdown-mode-pkg.el
-
6elpa/markdown-mode-20210220.1301/markdown-mode.el
-
12elpa/php-mode-1.23.0/php-mode-pkg.el
-
135elpa/php-mode-1.23.0/php-util-buffer.el
-
3elpa/php-mode-1.24.0/php-align.el
-
3elpa/php-mode-1.24.0/php-face.el
-
39elpa/php-mode-1.24.0/php-local-manual.el
-
16elpa/php-mode-1.24.0/php-mode-autoloads.el
-
3elpa/php-mode-1.24.0/php-mode-debug.el
-
12elpa/php-mode-1.24.0/php-mode-pkg.el
-
57elpa/php-mode-1.24.0/php-mode.el
-
3elpa/php-mode-1.24.0/php-project.el
-
3elpa/php-mode-1.24.0/php.el
-
0elpa/ssh-config-mode-20210401.243/ssh-config-keywords.txt
-
0elpa/ssh-config-mode-20210401.243/ssh-config-mode-autoloads.el
-
2elpa/ssh-config-mode-20210401.243/ssh-config-mode-pkg.el
-
25elpa/ssh-config-mode-20210401.243/ssh-config-mode.el
-
1elpa/swiper-0.13.1.signed
-
14elpa/swiper-0.13.1/.dir-locals.el
-
5518elpa/swiper-0.13.1/ChangeLog
-
2elpa/swiper-0.13.1/swiper-pkg.el
-
4elpa/swiper-0.13.4/swiper-autoloads.el
-
2elpa/swiper-0.13.4/swiper-pkg.el
-
430elpa/swiper-0.13.4/swiper.el
-
26elpa/transient-0.2.0/transient-autoloads.el
-
12elpa/transient-0.2.0/transient-pkg.el
-
0elpa/transient-0.3.0/dir
-
80elpa/transient-0.3.0/transient-autoloads.el
-
12elpa/transient-0.3.0/transient-pkg.el
-
937elpa/transient-0.3.0/transient.el
-
406elpa/transient-0.3.0/transient.info
@ -1,2 +0,0 @@ |
|||
;;; Generated package description from /data/data/com.termux/files/home/.emacs.d/elpa/counsel-0.13.0/counsel.el -*- no-byte-compile: t -*- |
|||
(define-package "counsel" "0.13.0" "Various completion functions using Ivy" '((emacs "24.5") (swiper "0.13.0")) :commit "cd634c6f51458f81898ecf2821ac3169cb65a1eb" :keywords '("convenience" "matching" "tools") :authors '(("Oleh Krehel" . "ohwoeowho@gmail.com")) :maintainer '("Oleh Krehel" . "ohwoeowho@gmail.com") :url "https://github.com/abo-abo/swiper") |
|||
@ -0,0 +1,2 @@ |
|||
;;; Generated package description from counsel.el -*- no-byte-compile: t -*- |
|||
(define-package "counsel" "0.13.4" "Various completion functions using Ivy" '((emacs "24.5") (ivy "0.13.4") (swiper "0.13.4")) :commit "8cf3f1821cbd1c266296bbd5e59582ae6b8b90a6" :authors '(("Oleh Krehel" . "ohwoeowho@gmail.com")) :maintainer '("Oleh Krehel" . "ohwoeowho@gmail.com") :keywords '("convenience" "matching" "tools") :url "https://github.com/abo-abo/swiper") |
|||
elpa/counsel-0.13.4/counsel.el
File diff suppressed because it is too large
View File
File diff suppressed because it is too large
View File
@ -1,2 +0,0 @@ |
|||
;;; Generated package description from /data/data/com.termux/files/home/.emacs.d/elpa/cython-mode-0.29.21/cython-mode.el -*- no-byte-compile: t -*- |
|||
(define-package "cython-mode" "0.29.21" "Major mode for editing Cython files" 'nil :commit "976f5483c6df8570f34076ef25af7e7512dd9347") |
|||
@ -0,0 +1,2 @@ |
|||
;;; Generated package description from cython-mode.el -*- no-byte-compile: t -*- |
|||
(define-package "cython-mode" "0.29.22" "Major mode for editing Cython files" 'nil :commit "3e470fcc3a4e9a33b66d5db6ab761c773888a1ea") |
|||
@ -1,2 +0,0 @@ |
|||
;;; Generated package description from /data/data/com.termux/files/home/.emacs.d/elpa/format-all-0.3.0/format-all.el -*- no-byte-compile: t -*- |
|||
(define-package "format-all" "0.3.0" "Auto-format C, C++, JS, Python, Ruby and 40 other languages" '((emacs "24") (cl-lib "0.5") (language-id "0.4")) :commit "8c8c47a863a397d947999fff4358caf20bafca0a" :keywords '("languages" "util") :authors '(("Lassi Kortela" . "lassi@lassi.io")) :maintainer '("Lassi Kortela" . "lassi@lassi.io") :url "https://github.com/lassik/emacs-format-all-the-code") |
|||
@ -0,0 +1,2 @@ |
|||
;;; Generated package description from format-all.el -*- no-byte-compile: t -*- |
|||
(define-package "format-all" "0.4.0" "Auto-format C, C++, JS, Python, Ruby and 50 other languages" '((emacs "24.3") (inheritenv "0.1") (language-id "0.12")) :commit "caa0269ce89789a702823041ca7b309ddaffb5ce" :authors '(("Lassi Kortela" . "lassi@lassi.io")) :maintainer '("Lassi Kortela" . "lassi@lassi.io") :keywords '("languages" "util") :url "https://github.com/lassik/emacs-format-all-the-code") |
|||
@ -0,0 +1,47 @@ |
|||
;;; inheritenv-autoloads.el --- automatically extracted autoloads |
|||
;; |
|||
;;; Code: |
|||
|
|||
(add-to-list 'load-path (directory-file-name |
|||
(or (file-name-directory #$) (car load-path)))) |
|||
|
|||
|
|||
;;;### (autoloads nil "inheritenv" "inheritenv.el" (0 0 0 0)) |
|||
;;; Generated autoloads from inheritenv.el |
|||
|
|||
(autoload 'inheritenv-apply "inheritenv" "\ |
|||
Apply FUNC such that the environment it sees will match the current value. |
|||
This is useful if FUNC creates a temp buffer, because that will |
|||
not inherit any buffer-local values of variables `exec-path' and |
|||
`process-environment'. |
|||
|
|||
This function is designed for convenient use as an \"around\" advice. |
|||
|
|||
ARGS is as for ORIG. |
|||
|
|||
\(fn FUNC &rest ARGS)" nil nil) |
|||
|
|||
(autoload 'inheritenv "inheritenv" "\ |
|||
Wrap BODY so that the environment it sees will match the current value. |
|||
This is useful if BODY creates a temp buffer, because that will |
|||
not inherit any buffer-local values of variables `exec-path' and |
|||
`process-environment'. |
|||
|
|||
\(fn &rest BODY)" nil t) |
|||
|
|||
(autoload 'inheritenv-add-advice "inheritenv" "\ |
|||
Advise function FUNC with `inheritenv-apply'. |
|||
This will ensure that any buffers (including temporary buffers) |
|||
created by FUNC will inherit the caller's environment. |
|||
|
|||
\(fn FUNC)" nil t) |
|||
|
|||
;;;*** |
|||
|
|||
;; Local Variables: |
|||
;; version-control: never |
|||
;; no-byte-compile: t |
|||
;; no-update-autoloads: t |
|||
;; coding: utf-8 |
|||
;; End: |
|||
;;; inheritenv-autoloads.el ends here |
|||
@ -0,0 +1,2 @@ |
|||
;;; Generated package description from inheritenv.el -*- no-byte-compile: t -*- |
|||
(define-package "inheritenv" "0.1" "Make temp buffers inherit buffer-local environment variables" '((emacs "24.4")) :commit "bc680a2670156cd482edba83d8c81142282174ba" :authors '(("Steve Purcell" . "steve@sanityinc.com")) :maintainer '("Steve Purcell" . "steve@sanityinc.com") :keywords '("unix") :url "https://github.com/purcell/inheritenv") |
|||
@ -0,0 +1,86 @@ |
|||
;;; inheritenv.el --- Make temp buffers inherit buffer-local environment variables -*- lexical-binding: t; -*- |
|||
|
|||
;; Copyright (C) 2021 Steve Purcell |
|||
|
|||
;; Author: Steve Purcell <steve@sanityinc.com> |
|||
;; URL: https://github.com/purcell/inheritenv |
|||
;; Package-Version: 0.1 |
|||
;; Package-Commit: bc680a2670156cd482edba83d8c81142282174ba |
|||
;; Package-Requires: ((emacs "24.4")) |
|||
;; Version: 0.1-pre |
|||
;; Keywords: unix |
|||
|
|||
;; 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 <https://www.gnu.org/licenses/>. |
|||
|
|||
;;; Commentary: |
|||
|
|||
;; There's a fairly common pitfall when Emacs libraries run background |
|||
;; processes on behalf of a user: the library should honour any |
|||
;; environment variables set buffer-locally, but many such libraries run |
|||
;; processes in temporary buffers that do not inherit the calling |
|||
;; buffer's environment. |
|||
|
|||
;; An example is the Emacs built-in command |
|||
;; `shell-command-to-string'. Whatever buffer-local `process-environment' |
|||
;; (or `exec-path') the user has set, that command will always use the |
|||
;; Emacs-wide default. This is *specified* behaviour, but not *expected* |
|||
;; or *helpful*, particularly if one uses a library like |
|||
;; `envrc' with "direnv". |
|||
|
|||
;; `inheritenv' provides a couple of tools for dealing with this |
|||
;; issue: |
|||
|
|||
;; 1. Library authors can wrap code that plans to execute processes in |
|||
;; temporary buffers with the `inheritenv' macro. |
|||
;; 2. End users can modify commands like `shell-command-to-string' using |
|||
;; the `inheritenv-add-advice' macro. |
|||
|
|||
;;; Code: |
|||
|
|||
(require 'cl-lib) |
|||
|
|||
;;;###autoload |
|||
(defun inheritenv-apply (func &rest args) |
|||
"Apply FUNC such that the environment it sees will match the current value. |
|||
This is useful if FUNC creates a temp buffer, because that will |
|||
not inherit any buffer-local values of variables `exec-path' and |
|||
`process-environment'. |
|||
|
|||
This function is designed for convenient use as an \"around\" advice. |
|||
|
|||
ARGS is as for ORIG." |
|||
(cl-letf* (((default-value 'process-environment) process-environment) |
|||
((default-value 'exec-path) exec-path)) |
|||
(apply func args))) |
|||
|
|||
|
|||
;;;###autoload |
|||
(defmacro inheritenv (&rest body) |
|||
"Wrap BODY so that the environment it sees will match the current value. |
|||
This is useful if BODY creates a temp buffer, because that will |
|||
not inherit any buffer-local values of variables `exec-path' and |
|||
`process-environment'." |
|||
`(inheritenv-apply (lambda () ,@body))) |
|||
|
|||
|
|||
;;;###autoload |
|||
(defmacro inheritenv-add-advice (func) |
|||
"Advise function FUNC with `inheritenv-apply'. |
|||
This will ensure that any buffers (including temporary buffers) |
|||
created by FUNC will inherit the caller's environment." |
|||
`(advice-add ,func :around 'inheritenv-apply)) |
|||
|
|||
|
|||
(provide 'inheritenv) |
|||
;;; inheritenv.el ends here |
|||
@ -1,124 +0,0 @@ |
|||
;;; colir.el --- Color blending library -*- lexical-binding: t -*- |
|||
|
|||
;; Copyright (C) 2015-2019 Free Software Foundation, Inc. |
|||
|
|||
;; Author: Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
;; 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 <https://www.gnu.org/licenses/>. |
|||
|
|||
;;; 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 |
|||
@ -1,161 +0,0 @@ |
|||
;;; ivy-autoloads.el --- automatically extracted autoloads |
|||
;; |
|||
;;; Code: |
|||
|
|||
(add-to-list 'load-path (directory-file-name |
|||
(or (file-name-directory #$) (car load-path)))) |
|||
|
|||
|
|||
;;;### (autoloads nil "colir" "colir.el" (0 0 0 0)) |
|||
;;; Generated autoloads from colir.el |
|||
|
|||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "colir" '("colir-"))) |
|||
|
|||
;;;*** |
|||
|
|||
;;;### (autoloads nil "ivy" "ivy.el" (0 0 0 0)) |
|||
;;; Generated autoloads from ivy.el |
|||
|
|||
(autoload 'ivy-resume "ivy" "\ |
|||
Resume the last completion session." t nil) |
|||
|
|||
(autoload 'ivy-read "ivy" "\ |
|||
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. |
|||
|
|||
\(fn 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)" nil nil) |
|||
|
|||
(autoload 'ivy-completing-read "ivy" "\ |
|||
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. 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. |
|||
|
|||
\(fn PROMPT COLLECTION &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HISTORY DEF INHERIT-INPUT-METHOD)" nil nil) |
|||
|
|||
(defvar ivy-mode nil "\ |
|||
Non-nil if Ivy mode is enabled. |
|||
See the `ivy-mode' command |
|||
for a description of this minor mode. |
|||
Setting this variable directly does not take effect; |
|||
either customize it (see the info node `Easy Customization') |
|||
or call the function `ivy-mode'.") |
|||
|
|||
(custom-autoload 'ivy-mode "ivy" nil) |
|||
|
|||
(autoload 'ivy-mode "ivy" "\ |
|||
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} |
|||
|
|||
\(fn &optional ARG)" t nil) |
|||
|
|||
(autoload 'ivy-switch-buffer "ivy" "\ |
|||
Switch to another buffer." t nil) |
|||
|
|||
(autoload 'ivy-switch-view "ivy" "\ |
|||
Switch to one of the window views stored by `ivy-push-view'." t nil) |
|||
|
|||
(autoload 'ivy-switch-buffer-other-window "ivy" "\ |
|||
Switch to another buffer in another window." t nil) |
|||
|
|||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ivy" '("ivy-" "with-ivy-window"))) |
|||
|
|||
;;;*** |
|||
|
|||
;;;### (autoloads nil "ivy-overlay" "ivy-overlay.el" (0 0 0 0)) |
|||
;;; Generated autoloads from ivy-overlay.el |
|||
|
|||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ivy-overlay" '("ivy-"))) |
|||
|
|||
;;;*** |
|||
|
|||
;;;### (autoloads nil nil ("elpa.el" "ivy-pkg.el") (0 0 0 0)) |
|||
|
|||
;;;*** |
|||
|
|||
;; Local Variables: |
|||
;; version-control: never |
|||
;; no-byte-compile: t |
|||
;; no-update-autoloads: t |
|||
;; coding: utf-8 |
|||
;; End: |
|||
;;; ivy-autoloads.el ends here |
|||
@ -1,154 +0,0 @@ |
|||
;;; ivy-overlay.el --- Overlay display functions for Ivy -*- lexical-binding: t -*- |
|||
|
|||
;; Copyright (C) 2016-2019 Free Software Foundation, Inc. |
|||
|
|||
;; Author: Oleh Krehel <ohwoeowho@gmail.com> |
|||
;; 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 <https://www.gnu.org/licenses/>. |
|||
|
|||
;;; 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 (count-lines (point) (window-end nil t)))) |
|||
(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 (org-current-level))) |
|||
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 |
|||
@ -1,12 +0,0 @@ |
|||
(define-package "ivy" "0.13.0" "Incremental Vertical completYon" |
|||
'((emacs "24.5")) |
|||
:commit "cd634c6f51458f81898ecf2821ac3169cb65a1eb" :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: |
|||
5056
elpa/ivy-0.13.0/ivy.el
File diff suppressed because it is too large
View File
File diff suppressed because it is too large
View File
1954
elpa/ivy-0.13.0/ivy.info
File diff suppressed because it is too large
View File
File diff suppressed because it is too large
View File
@ -1 +0,0 @@ |
|||
Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019) <elpasign@elpa.gnu.org> (trust undefined) created at 2020-06-22T16:05:01-0500 using RSA |
|||
@ -1,76 +0,0 @@ |
|||
2020-06-22 Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
Split package ivy into ivy, swiper, counsel |
|||
|
|||
Publishing them in a single package on GNU ELPA has lead to version |
|||
conflicts. |
|||
|
|||
2019-10-16 Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
Merge commit 'cd634c6f51458f81898ecf2821ac3169cb65a1eb' from ivy |
|||
|
|||
2019-07-20 Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
packages/ivy/dir: Use install-info |
|||
|
|||
2019-07-20 Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
Merge commit '85d1e2e779ca92e6ef8e47d08f866b13d4d87aee' from ivy |
|||
|
|||
2019-05-13 Stefan Monnier <monnier@iro.umontreal.ca> |
|||
|
|||
* avy/targets/checkdoc.el, ivy/doc/scripts.el: copyright tweak |
|||
|
|||
2019-05-11 Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
Merge commit '525b2e4887dd839045313f32d3ddeb5cab4c7a7e' from ivy |
|||
|
|||
2018-01-12 Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
Fix bad git subtree merge for ivy |
|||
|
|||
2017-11-30 Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
Merge commit '4a2cee03519f98cf95b29905dec2566a39ff717e' from swiper |
|||
|
|||
2017-04-10 Stefan Monnier <monnier@iro.umontreal.ca> |
|||
|
|||
ivy/targets/obsolete-config.el: Satisfy check_copyright |
|||
|
|||
2017-04-10 Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
Add 'packages/ivy/' from commit |
|||
'f4b433436668ac09f3d1815fbfb4b71f3e0690fa' |
|||
|
|||
git-subtree-dir: packages/ivy git-subtree-mainline: |
|||
6f4e442a66d625f647faa51e88e052c3d93e9657 git-subtree-split: |
|||
f4b433436668ac09f3d1815fbfb4b71f3e0690fa |
|||
|
|||
2017-04-10 Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
Remove ivy 0.9.0 to add it again with subtree |
|||
|
|||
2017-04-09 Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
Merge commit 'af746cad0e9c5d010ea530381111372f7daae55b' from swiper |
|||
|
|||
2017-04-08 Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
Merge commit 'ace01d5603ddf49b025eb811b612af72ec38dcfb' from swiper |
|||
|
|||
2016-07-11 Paul Eggert <eggert@cs.ucla.edu> |
|||
|
|||
Fix some quoting problems in doc strings |
|||
|
|||
Most of these are minor issues involving, e.g., quoting `like this' |
|||
instead of 'like this'. A few involve escaping ` and ' with a preceding |
|||
\= when the characters should not be turned into curved single quotes. |
|||
|
|||
2016-04-25 Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
Merge commit 'db005182ad0fd05c07e8e5c085abe6c750e6c578' from ivy |
|||
|
|||
2016-04-25 Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
Rename swiper -> ivy |
|||
|
|||
@ -1,124 +0,0 @@ |
|||
;;; colir.el --- Color blending library -*- lexical-binding: t -*- |
|||
|
|||
;; Copyright (C) 2015-2019 Free Software Foundation, Inc. |
|||
|
|||
;; Author: Oleh Krehel <ohwoeowho@gmail.com> |
|||
|
|||
;; 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 <https://www.gnu.org/licenses/>. |
|||
|
|||
;;; 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 |
|||
@ -1,18 +0,0 @@ |
|||
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<Return>" 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. |
|||
@ -1,168 +0,0 @@ |
|||
;;; ivy-autoloads.el --- automatically extracted autoloads |
|||
;; |
|||
;;; Code: |
|||
|
|||
(add-to-list 'load-path (directory-file-name |
|||
(or (file-name-directory #$) (car load-path)))) |
|||
|
|||
|
|||
;;;### (autoloads nil "colir" "colir.el" (0 0 0 0)) |
|||
;;; Generated autoloads from colir.el |
|||
|
|||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "colir" '("colir-"))) |
|||
|
|||
;;;*** |
|||
|
|||
;;;### (autoloads nil "ivy" "ivy.el" (0 0 0 0)) |
|||
;;; Generated autoloads from ivy.el |
|||
|
|||
(autoload 'ivy-resume "ivy" "\ |
|||
Resume the last completion session." t nil) |
|||
|
|||
(autoload 'ivy-read "ivy" "\ |
|||
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. |
|||
|
|||
\(fn 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)" nil nil) |
|||
|
|||
(autoload 'ivy-completing-read "ivy" "\ |
|||
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. 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. |
|||
|
|||
\(fn PROMPT COLLECTION &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HISTORY DEF INHERIT-INPUT-METHOD)" nil nil) |
|||
|
|||
(defvar ivy-mode nil "\ |
|||
Non-nil if Ivy mode is enabled. |
|||
See the `ivy-mode' command |
|||
for a description of this minor mode. |
|||
Setting this variable directly does not take effect; |
|||
either customize it (see the info node `Easy Customization') |
|||
or call the function `ivy-mode'.") |
|||
|
|||
(custom-autoload 'ivy-mode "ivy" nil) |
|||
|
|||
(autoload 'ivy-mode "ivy" "\ |
|||
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} |
|||
|
|||
\(fn &optional ARG)" t nil) |
|||
|
|||
(autoload 'ivy-switch-buffer "ivy" "\ |
|||
Switch to another buffer." t nil) |
|||
|
|||
(autoload 'ivy-switch-view "ivy" "\ |
|||
Switch to one of the window views stored by `ivy-push-view'." t nil) |
|||
|
|||
(autoload 'ivy-switch-buffer-other-window "ivy" "\ |
|||
Switch to another buffer in another window." t nil) |
|||
|
|||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ivy" '("ivy-" "with-ivy-window"))) |
|||
|
|||
;;;*** |
|||
|
|||
;;;### (autoloads nil "ivy-hydra" "ivy-hydra.el" (0 0 0 0)) |
|||
;;; Generated autoloads from ivy-hydra.el |
|||
|
|||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ivy-hydra" '("hydra-ivy" "ivy-"))) |
|||
|
|||
;;;*** |
|||
|
|||
;;;### (autoloads nil "ivy-overlay" "ivy-overlay.el" (0 0 0 0)) |
|||
;;; Generated autoloads from ivy-overlay.el |
|||
|
|||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ivy-overlay" '("ivy-"))) |
|||
|
|||
;;;*** |
|||
|
|||
;;;### (autoloads nil nil ("ivy-pkg.el") (0 0 0 0)) |
|||
|
|||
;;;*** |
|||
|
|||
;; Local Variables: |
|||
;; version-control: never |
|||
;; no-byte-compile: t |
|||
;; no-update-autoloads: t |
|||
;; coding: utf-8 |
|||
;; End: |
|||
;;; ivy-autoloads.el ends here |
|||
@ -1,154 +0,0 @@ |
|||
;;; ivy-overlay.el --- Overlay display functions for Ivy -*- lexical-binding: t -*- |
|||
|
|||
;; Copyright (C) 2016-2019 Free Software Foundation, Inc. |
|||
|
|||
;; Author: Oleh Krehel <ohwoeowho@gmail.com> |
|||
;; 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 <https://www.gnu.org/licenses/>. |
|||
|
|||
;;; 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 (count-lines (point) (window-end nil t)))) |
|||
(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 (org-current-level))) |
|||
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 |
|||
@ -1,2 +0,0 @@ |
|||
;; Generated package description from ivy.el -*- no-byte-compile: t -*- |
|||
(define-package "ivy" "0.13.1" "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") |
|||
5056
elpa/ivy-0.13.1/ivy.el
File diff suppressed because it is too large
View File
File diff suppressed because it is too large
View File
1954
elpa/ivy-0.13.1/ivy.info
File diff suppressed because it is too large
View File
File diff suppressed because it is too large
View File
@ -1,18 +0,0 @@ |
|||
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<Return>" 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. |
|||
@ -1,6 +0,0 @@ |
|||
(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) |
|||
@ -1,138 +0,0 @@ |
|||
* Ivy Generic Help |
|||
|
|||
=ivy= is an Emacs incremental completion framework. |
|||
|
|||
- Narrow the list by typing some pattern, |
|||
- Multiple patterns are allowed by separating with a space, |
|||
- Select with ~C-n~ and ~C-p~, choose with ~RET~. |
|||
|
|||
** Help |
|||
|
|||
- ~C-h m~ :: Pop to this generic help buffer. |
|||
|
|||
** Basic Operations |
|||
*** Key bindings for navigation |
|||
|
|||
- ~C-n~ (=ivy-next-line=) :: next candidate. |
|||
- ~C-p~ (=ivy-previous-line=) :: previous candidate. |
|||
- ~C-v~ (=ivy-scroll-up-command=) :: next page. |
|||
- ~M-v~ (=ivy-scroll-down-command=) :: previous page. |
|||
- ~M-<~ (=ivy-beginning-of-buffer=) :: first candidate. |
|||
- ~M->~ (=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. |
|||
@ -1,2 +0,0 @@ |
|||
;;; Generated package description from /data/data/com.termux/files/home/.emacs.d/elpa/ivy-hydra-0.13.0/ivy-hydra.el -*- no-byte-compile: t -*- |
|||
(define-package "ivy-hydra" "0.13.0" "Additional key bindings for Ivy" '((emacs "24.5") (ivy "0.13.0") (hydra "0.15.0")) :commit "cd634c6f51458f81898ecf2821ac3169cb65a1eb" :keywords '("convenience") :authors '(("Oleh Krehel" . "ohwoeowho@gmail.com")) :maintainer '("Oleh Krehel" . "ohwoeowho@gmail.com") :url "https://github.com/abo-abo/swiper") |
|||
@ -1,135 +0,0 @@ |
|||
;;; ivy-hydra.el --- Additional key bindings for Ivy -*- lexical-binding: t -*- |
|||
|
|||
;; Copyright (C) 2015-2019 Free Software Foundation, Inc. |
|||
|
|||
;; Author: Oleh Krehel <ohwoeowho@gmail.com> |
|||
;; URL: https://github.com/abo-abo/swiper |
|||
;; Package-Version: 0.13.0 |
|||
;; Package-Commit: cd634c6f51458f81898ecf2821ac3169cb65a1eb |
|||
;; Version: 0.13.0 |
|||
;; Package-Requires: ((emacs "24.5") (ivy "0.13.0") (hydra "0.15.0")) |
|||
;; Keywords: convenience |
|||
|
|||
;; 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 <https://www.gnu.org/licenses/>. |
|||
|
|||
;;; Commentary: |
|||
|
|||
;; This package provides the `hydra-ivy/body' command, which is a |
|||
;; quasi-prefix map, with many useful bindings. These bindings are |
|||
;; shorter than usual, using mostly unprefixed keys. |
|||
|
|||
;;; Code: |
|||
|
|||
(require 'ivy) |
|||
(require 'hydra) |
|||
|
|||
(defun ivy--matcher-desc () |
|||
"Return description of `ivy--regex-function'." |
|||
(let ((cell (assq ivy--regex-function ivy-preferred-re-builders))) |
|||
(if cell |
|||
(cdr cell) |
|||
"other"))) |
|||
|
|||
(defhydra hydra-ivy (:hint nil |
|||
:color pink) |
|||
" |
|||
^ ^ ^ ^ ^ ^ | ^Call^ ^ ^ | ^Cancel^ | ^Options^ | Action _w_/_s_/_a_: %-14s(ivy-action-name) |
|||
^-^-^-^-^-^-+-^-^---------^-^--+-^-^------+-^-^-------+-^^^^^^^^^^^^^^^^^^^^^^^^^^^^^--------------------------- |
|||
^ ^ _k_ ^ ^ | _f_ollow occ_U_r | _i_nsert | _c_: calling %-5s(if ivy-calling \"on\" \"off\") _C_ase-fold: %-10`ivy-case-fold-search |
|||
_h_ ^+^ _l_ | _d_one ^ ^ | _o_ops | _M_: matcher %-5s(ivy--matcher-desc)^^^^^^^^^^^^ _T_runcate: %-11`truncate-lines |
|||
^ ^ _j_ ^ ^ | _g_o ^ ^ | ^ ^ | _<_/_>_: shrink/grow^^^^^^^^^^^^^^^^^^^^^^^^^^^^ _D_efinition of this menu |
|||
" |
|||
;; arrows |
|||
("h" ivy-beginning-of-buffer) |
|||
("j" ivy-next-line) |
|||
("k" ivy-previous-line) |
|||
("l" ivy-end-of-buffer) |
|||
;; mark |
|||
("m" ivy-mark) |
|||
("u" ivy-unmark) |
|||
("DEL" ivy-unmark-backward) |
|||
("t" ivy-toggle-marks) |
|||
;; actions |
|||
("o" keyboard-escape-quit :exit t) |
|||
("r" ivy-dispatching-done-hydra :exit t) |
|||
("C-g" keyboard-escape-quit :exit t) |
|||
("i" nil) |
|||
("C-o" nil) |
|||
("f" ivy-alt-done :exit nil) |
|||
("C-j" ivy-alt-done :exit nil) |
|||
("d" ivy-done :exit t) |
|||
("g" ivy-call) |
|||
("C-m" ivy-done :exit t) |
|||
("c" ivy-toggle-calling) |
|||
("M" ivy-rotate-preferred-builders) |
|||
(">" ivy-minibuffer-grow) |
|||
("<" ivy-minibuffer-shrink) |
|||
("w" ivy-prev-action) |
|||
("s" ivy-next-action) |
|||
("a" (let ((ivy-read-action-function #'ivy-read-action-by-key)) |
|||
(ivy-read-action))) |
|||
("T" (setq truncate-lines (not truncate-lines))) |
|||
("C" ivy-toggle-case-fold) |
|||
("U" ivy-occur :exit t) |
|||
("D" (ivy-exit-with-action |
|||
(lambda (_) (find-function 'hydra-ivy/body))) |
|||
:exit t)) |
|||
|
|||
(defvar ivy-dispatching-done-columns 2 |
|||
"Number of columns to use if the hint does not fit on one line.") |
|||
|
|||
(defvar ivy-dispatching-done-idle nil |
|||
"When non-nil, the hint will be delayed by this many seconds.") |
|||
|
|||
(defvar ivy-dispatching-done-hydra-exit-keys '(("M-o" nil "back") |
|||
("C-g" nil)) |
|||
"Keys that can be used to exit `ivy-dispatching-done-hydra'.") |
|||
|
|||
(defun ivy-dispatching-done-hydra () |
|||
"Select one of the available actions and call `ivy-done'." |
|||
(interactive) |
|||
(let* ((actions (ivy-state-action ivy-last)) |
|||
(extra-actions ivy-dispatching-done-hydra-exit-keys) |
|||
(doc (concat "action: " |
|||
(mapconcat |
|||
(lambda (x) (format "[%s] %s" (nth 0 x) (nth 2 x))) |
|||
(append (cdr actions) |
|||
extra-actions) ", "))) |
|||
(estimated-len (length doc)) |
|||
(n-columns (if (> estimated-len (window-width)) |
|||
ivy-dispatching-done-columns |
|||
nil)) |
|||
(i 0)) |
|||
(if (null (ivy--actionp actions)) |
|||
(ivy-done) |
|||
(funcall |
|||
(eval |
|||
`(defhydra ivy-read-action (:color teal :columns ,n-columns :idle ,ivy-dispatching-done-idle) |
|||
"action" |
|||
,@(mapcar (lambda (x) |
|||
(list (nth 0 x) |
|||
`(progn |
|||
(setcar (ivy-state-action ivy-last) ,(cl-incf i)) |
|||
(ivy-done)) |
|||
(nth 2 x))) |
|||
(cdr actions)) |
|||
,@extra-actions)))))) |
|||
|
|||
(setq ivy-read-action-function (lambda (_) (ivy-dispatching-done-hydra))) |
|||
|
|||
(provide 'ivy-hydra) |
|||
|
|||
;;; ivy-hydra.el ends here |
|||
@ -0,0 +1,2 @@ |
|||
;;; Generated package description from ivy-hydra.el -*- no-byte-compile: t -*- |
|||
(define-package "ivy-hydra" "0.13.4" "Additional key bindings for Ivy" '((emacs "24.5") (ivy "0.13.4") (hydra "0.15.0")) :commit "8cf3f1821cbd1c266296bbd5e59582ae6b8b90a6" :authors '(("Oleh Krehel" . "ohwoeowho@gmail.com")) :maintainer '("Oleh Krehel" . "ohwoeowho@gmail.com") :keywords '("convenience") :url "https://github.com/abo-abo/swiper") |
|||
@ -1,2 +0,0 @@ |
|||
;;; Generated package description from /home/raphael/.emacs.d/elpa/markdown-mode-20210216.852/markdown-mode.el -*- no-byte-compile: t -*- |
|||
(define-package "markdown-mode" "20210216.852" "Major mode for Markdown-formatted text" '((emacs "25.1")) :commit "377ce39ffe69f058994ac4e98bde8cfb58661406" :authors '(("Jason R. Blevins" . "jblevins@xbeta.org")) :maintainer '("Jason R. Blevins" . "jblevins@xbeta.org") :keywords '("markdown" "github flavored markdown" "itex") :url "https://jblevins.org/projects/markdown-mode/") |
|||
@ -0,0 +1,2 @@ |
|||
;;; Generated package description from markdown-mode.el -*- no-byte-compile: t -*- |
|||
(define-package "markdown-mode" "20210220.1301" "Major mode for Markdown-formatted text" '((emacs "25.1")) :commit "051734091aba17a54af96b81beebdbfc84c26459" :authors '(("Jason R. Blevins" . "jblevins@xbeta.org")) :maintainer '("Jason R. Blevins" . "jblevins@xbeta.org") :keywords '("markdown" "github flavored markdown" "itex") :url "https://jblevins.org/projects/markdown-mode/") |
|||
@ -1,12 +0,0 @@ |
|||
(define-package "php-mode" "1.23.0" "Major mode for editing PHP code" |
|||
'((emacs "24.3")) |
|||
:commit "08c6e0f6719fafa60cf76f741d83524fd84163d6" :keywords |
|||
("languages" "php") |
|||
:authors |
|||
(("Eric James Michael Ritz")) |
|||
:maintainer |
|||
("USAMI Kenta" . "tadsan@zonu.me") |
|||
:url "https://github.com/emacs-php/php-mode") |
|||
;; Local Variables: |
|||
;; no-byte-compile: t |
|||
;; End: |
|||
@ -1,135 +0,0 @@ |
|||
;;; php-util-buffer.el --- Utility function for buffer manipulation -*- lexical-binding: t; -*- |
|||
|
|||
;; Copyright (C) 2020 Friends of Emacs-PHP development |
|||
;; Copyright 2013 The go-mode Authors. All rights reserved. |
|||
|
|||
;; Author: Dominik Honnef |
|||
;; Maintainer: USAMI Kenta <tadsan@zonu.me> |
|||
;; URL: https://github.com/emacs-php/php-mode |
|||
;; Keywords: lisp |
|||
|
|||
;; 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 <https://www.gnu.org/licenses/>. |
|||
|
|||
;;; Commentary: |
|||
|
|||
;; Functions for patching buffer. |
|||
|
|||
;;; Original License: |
|||
|
|||
;; Copyright (c) 2014 The go-mode Authors. All rights reserved. |
|||
|
|||
;; Redistribution and use in source and binary forms, with or without |
|||
;; modification, are permitted provided that the following conditions are |
|||
;; met: |
|||
|
|||
;; * Redistributions of source code must retain the above copyright |
|||
;; notice, this list of conditions and the following disclaimer. |
|||
;; * Redistributions in binary form must reproduce the above |
|||
;; copyright notice, this list of conditions and the following disclaimer |
|||
;; in the documentation and/or other materials provided with the |
|||
;; distribution. |
|||
;; * Neither the name of the copyright holder nor the names of its |
|||
;; contributors may be used to endorse or promote products derived from |
|||
;; this software without specific prior written permission. |
|||
|
|||
;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
|||
;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
|||
;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
|||
;; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
|||
;; OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|||
;; SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
|||
;; LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|||
;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|||
;; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|||
;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
|||
;; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|||
|
|||
;;; Code: |
|||
|
|||
;; gofmt apply-rcs-patch Function |
|||
;; These functions are copied by go-mode(gofmt). |
|||
(defun php-util-buffer--delete-whole-line (&optional arg) |
|||
"Delete the current line without putting it in the `kill-ring'. |
|||
Derived from function `kill-whole-line'. ARG is defined as for that |
|||
function." |
|||
(setq arg (or arg 1)) |
|||
(if (and (> arg 0) |
|||
(eobp) |
|||
(save-excursion (forward-visible-line 0) (eobp))) |
|||
(signal 'end-of-buffer nil)) |
|||
(if (and (< arg 0) |
|||
(bobp) |
|||
(save-excursion (end-of-visible-line) (bobp))) |
|||
(signal 'beginning-of-buffer nil)) |
|||
(cond ((zerop arg) |
|||
(delete-region (progn (forward-visible-line 0) (point)) |
|||
(progn (end-of-visible-line) (point)))) |
|||
((< arg 0) |
|||
(delete-region (progn (end-of-visible-line) (point)) |
|||
(progn (forward-visible-line (1+ arg)) |
|||
(unless (bobp) |
|||
(backward-char)) |
|||
(point)))) |
|||
(t |
|||
(delete-region (progn (forward-visible-line 0) (point)) |
|||
(progn (forward-visible-line arg) (point)))))) |
|||
|
|||
(defun php-util-buffer-apply-rcs-patch (target-buffer patch-buffer) |
|||
"Apply an RCS-formatted diff from `PATCH-BUFFER' to the `TARGET-BUFFER'." |
|||
(let ( |
|||
;; Relative offset between buffer line numbers and line numbers |
|||
;; in patch. |
|||
;; |
|||
;; Line numbers in the patch are based on the source file, so |
|||
;; we have to keep an offset when making changes to the |
|||
;; buffer. |
|||
;; |
|||
;; Appending lines decrements the offset (possibly making it |
|||
;; negative), deleting lines increments it. This order |
|||
;; simplifies the forward-line invocations. |
|||
(line-offset 0) |
|||
(column (current-column))) |
|||
(save-excursion |
|||
(with-current-buffer patch-buffer |
|||
(goto-char (point-min)) |
|||
(while (not (eobp)) |
|||
(unless (looking-at "^\\([ad]\\)\\([0-9]+\\) \\([0-9]+\\)") |
|||
(error "Invalid rcs patch or internal error in php-util-buffer-apply-rcs-patch")) |
|||
(forward-line) |
|||
(let ((action (match-string 1)) |
|||
(from (string-to-number (match-string 2))) |
|||
(len (string-to-number (match-string 3)))) |
|||
(cond |
|||
((equal action "a") |
|||
(let ((start (point))) |
|||
(forward-line len) |
|||
(let ((text (buffer-substring start (point)))) |
|||
(with-current-buffer target-buffer |
|||
(cl-decf line-offset len) |
|||
(goto-char (point-min)) |
|||
(forward-line (- from len line-offset)) |
|||
(insert text))))) |
|||
((equal action "d") |
|||
(with-current-buffer target-buffer |
|||
(goto-char (point-min)) |
|||
(forward-line (1- (- from line-offset))) |
|||
(cl-incf line-offset len) |
|||
(php-util-buffer--delete-whole-line len))) |
|||
(t |
|||
(error "Invalid rcs patch or internal error in php-util-buffer--apply-rcs-patch"))))))) |
|||
(move-to-column column))) |
|||
;; Copy of go-mode.el ends here |
|||
|
|||
(provide 'php-util-buffer) |
|||
;;; php-util-buffer.el ends here |
|||
@ -0,0 +1,39 @@ |
|||
;;; php-local-manual.el --- Tools for local PHP manual -*- lexical-binding: t; -*- |
|||
|
|||
;; Copyright (C) 2020 Friends of Emacs-PHP development |
|||
|
|||
;; Author: Eric James Michael Ritz |
|||
;; Maintainer: USAMI Kenta <tadsan@zonu.me> |
|||
;; URL: https://github.com/emacs-php/php-mode |
|||
;; Keywords: docs, php |
|||
;; Version: 2.0.0 |
|||
;; License: GPL-3.0-or-later |
|||
|
|||
;; 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 <https://www.gnu.org/licenses/>. |
|||
|
|||
;;; Commentary: |
|||
|
|||
;; This package helps you search the locally installed PHP Manual. |
|||
;; If you're only developing online, this feature is probably unnecessary. |
|||
|
|||
;;; Code: |
|||
(require 'php-mode) |
|||
|
|||
(defalias 'php-local-manual-search #'php-search-local-documentation) |
|||
|
|||
;; TODO: move implementation |
|||
;; (define-obsolete-function-alias 'php-search-local-documentation #'php-local-manual-search) |
|||
|
|||
(provide 'php-local-manual) |
|||
;;; php-local-manual.el ends here |
|||
@ -0,0 +1,12 @@ |
|||
(define-package "php-mode" "1.24.0" "Major mode for editing PHP code" |
|||
'((emacs "25.2")) |
|||
:commit "7e1b55354ce41043148ce2d3270b032c318f0f90" :authors |
|||
'(("Eric James Michael Ritz")) |
|||
:maintainer |
|||
'("USAMI Kenta" . "tadsan@zonu.me") |
|||
:keywords |
|||
'("languages" "php") |
|||
:url "https://github.com/emacs-php/php-mode") |
|||
;; Local Variables: |
|||
;; no-byte-compile: t |
|||
;; End: |
|||
@ -1 +0,0 @@ |
|||
Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019) <elpasign@elpa.gnu.org> (trust undefined) created at 2020-12-03T04:05:02-0600 using RSA |
|||
@ -1,14 +0,0 @@ |
|||
;;; Directory Local Variables |
|||
;;; For more information see (info "(emacs) Directory Variables") |
|||
|
|||
((nil |
|||
(bug-reference-bug-regexp . "#\\(?2:[[:digit:]]+\\)") |
|||
(bug-reference-url-format . "https://github.com/abo-abo/swiper/issues/%s") |
|||
(copyright-names-regexp . "Free Software Foundation, Inc\\.") |
|||
(sentence-end-double-space . t)) |
|||
(emacs-lisp-mode |
|||
(indent-tabs-mode . nil) |
|||
(outline-regexp . ";;[;*]+[\s\t]+") |
|||
;; extra config here: https://github.com/abo-abo/oremacs/blob/github/modes/ora-elisp-style-guide.el |
|||
;; (lisp-indent-function . common-lisp-indent-function) |
|||
)) |
|||
5518
elpa/swiper-0.13.1/ChangeLog
File diff suppressed because it is too large
View File
File diff suppressed because it is too large
View File
@ -1,2 +0,0 @@ |
|||
;; Generated package description from swiper.el -*- no-byte-compile: t -*- |
|||
(define-package "swiper" "0.13.1" "Isearch with an overview. Oh, man!" '((emacs "24.5") (ivy "0.13.1")) :keywords '("matching") :authors '(("Oleh Krehel" . "ohwoeowho@gmail.com")) :maintainer '("Oleh Krehel" . "ohwoeowho@gmail.com") :url "https://github.com/abo-abo/swiper") |
|||
@ -0,0 +1,2 @@ |
|||
;;; Generated package description from swiper.el -*- no-byte-compile: t -*- |
|||
(define-package "swiper" "0.13.4" "Isearch with an overview. Oh, man!" '((emacs "24.5") (ivy "0.13.4")) :commit "8cf3f1821cbd1c266296bbd5e59582ae6b8b90a6" :authors '(("Oleh Krehel" . "ohwoeowho@gmail.com")) :maintainer '("Oleh Krehel" . "ohwoeowho@gmail.com") :keywords '("matching") :url "https://github.com/abo-abo/swiper") |
|||
@ -1,26 +0,0 @@ |
|||
;;; transient-autoloads.el --- automatically extracted autoloads |
|||
;; |
|||
;;; Code: |
|||
|
|||
(add-to-list 'load-path (directory-file-name |
|||
(or (file-name-directory #$) (car load-path)))) |
|||
|
|||
|
|||
;;;### (autoloads nil "transient" "transient.el" (0 0 0 0)) |
|||
;;; Generated autoloads from transient.el |
|||
|
|||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "transient" '("current-transient-" "define-" "post-transient-hook" "transient-"))) |
|||
|
|||
;;;*** |
|||
|
|||
;;;### (autoloads nil nil ("transient-pkg.el") (0 0 0 0)) |
|||
|
|||
;;;*** |
|||
|
|||
;; Local Variables: |
|||
;; version-control: never |
|||
;; no-byte-compile: t |
|||
;; no-update-autoloads: t |
|||
;; coding: utf-8 |
|||
;; End: |
|||
;;; transient-autoloads.el ends here |
|||
@ -1,12 +0,0 @@ |
|||
(define-package "transient" "0.2.0" "Transient commands" |
|||
'((emacs "25.1")) |
|||
:commit "a269614c69ad8b2703e6e5093d0017d6afad6cca" :keywords |
|||
("bindings") |
|||
:authors |
|||
(("Jonas Bernoulli" . "jonas@bernoul.li")) |
|||
:maintainer |
|||
("Jonas Bernoulli" . "jonas@bernoul.li") |
|||
:url "https://github.com/magit/transient") |
|||
;; Local Variables: |
|||
;; no-byte-compile: t |
|||
;; End: |
|||
@ -0,0 +1,80 @@ |
|||
;;; transient-autoloads.el --- automatically extracted autoloads |
|||
;; |
|||
;;; Code: |
|||
|
|||
(add-to-list 'load-path (directory-file-name |
|||
(or (file-name-directory #$) (car load-path)))) |
|||
|
|||
|
|||
;;;### (autoloads nil "transient" "transient.el" (0 0 0 0)) |
|||
;;; Generated autoloads from transient.el |
|||
|
|||
(autoload 'transient-insert-suffix "transient" "\ |
|||
Insert a SUFFIX into PREFIX before LOC. |
|||
PREFIX is a prefix command, a symbol. |
|||
SUFFIX is a suffix command or a group specification (of |
|||
the same forms as expected by `transient-define-prefix'). |
|||
LOC is a command, a key vector, a key description (a string |
|||
as returned by `key-description'), or a coordination list |
|||
(whose last element may also be a command or key). |
|||
See info node `(transient)Modifying Existing Transients'. |
|||
|
|||
\(fn PREFIX LOC SUFFIX)" nil nil) |
|||
|
|||
(function-put 'transient-insert-suffix 'lisp-indent-function 'defun) |
|||
|
|||
(autoload 'transient-append-suffix "transient" "\ |
|||
Insert a SUFFIX into PREFIX after LOC. |
|||
PREFIX is a prefix command, a symbol. |
|||
SUFFIX is a suffix command or a group specification (of |
|||
the same forms as expected by `transient-define-prefix'). |
|||
LOC is a command, a key vector, a key description (a string |
|||
as returned by `key-description'), or a coordination list |
|||
(whose last element may also be a command or key). |
|||
See info node `(transient)Modifying Existing Transients'. |
|||
|
|||
\(fn PREFIX LOC SUFFIX)" nil nil) |
|||
|
|||
(function-put 'transient-append-suffix 'lisp-indent-function 'defun) |
|||
|
|||
(autoload 'transient-replace-suffix "transient" "\ |
|||
Replace the suffix at LOC in PREFIX with SUFFIX. |
|||
PREFIX is a prefix command, a symbol. |
|||
SUFFIX is a suffix command or a group specification (of |
|||
the same forms as expected by `transient-define-prefix'). |
|||
LOC is a command, a key vector, a key description (a string |
|||
as returned by `key-description'), or a coordination list |
|||
(whose last element may also be a command or key). |
|||
See info node `(transient)Modifying Existing Transients'. |
|||
|
|||
\(fn PREFIX LOC SUFFIX)" nil nil) |
|||
|
|||
(function-put 'transient-replace-suffix 'lisp-indent-function 'defun) |
|||
|
|||
(autoload 'transient-remove-suffix "transient" "\ |
|||
Remove the suffix or group at LOC in PREFIX. |
|||
PREFIX is a prefix command, a symbol. |
|||
LOC is a command, a key vector, a key description (a string |
|||
as returned by `key-description'), or a coordination list |
|||
(whose last element may also be a command or key). |
|||
See info node `(transient)Modifying Existing Transients'. |
|||
|
|||
\(fn PREFIX LOC)" nil nil) |
|||
|
|||
(function-put 'transient-remove-suffix 'lisp-indent-function 'defun) |
|||
|
|||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "transient" '("transient-"))) |
|||
|
|||
;;;*** |
|||
|
|||
;;;### (autoloads nil nil ("transient-pkg.el") (0 0 0 0)) |
|||
|
|||
;;;*** |
|||
|
|||
;; Local Variables: |
|||
;; version-control: never |
|||
;; no-byte-compile: t |
|||
;; no-update-autoloads: t |
|||
;; coding: utf-8 |
|||
;; End: |
|||
;;; transient-autoloads.el ends here |
|||
@ -0,0 +1,12 @@ |
|||
(define-package "transient" "0.3.0" "Transient commands" |
|||
'((emacs "25.1")) |
|||
:commit "9ca983bab26d1a8e189a8c44471d9575284b268d" :authors |
|||
'(("Jonas Bernoulli" . "jonas@bernoul.li")) |
|||
:maintainer |
|||
'("Jonas Bernoulli" . "jonas@bernoul.li") |
|||
:keywords |
|||
'("bindings") |
|||
:url "https://github.com/magit/transient") |
|||
;; Local Variables: |
|||
;; no-byte-compile: t |
|||
;; End: |
|||
elpa/transient-0.3.0/transient.el
File diff suppressed because it is too large
View File
File diff suppressed because it is too large
View File
Write
Preview
Loading…
Cancel
Save
Reference in new issue