diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/ivy-20180911.1701/ivy-overlay.el')
| -rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/ivy-20180911.1701/ivy-overlay.el | 141 |
1 files changed, 141 insertions, 0 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/ivy-20180911.1701/ivy-overlay.el b/configs/shared/emacs/.emacs.d/elpa/ivy-20180911.1701/ivy-overlay.el new file mode 100644 index 000000000000..20d5a2bd1855 --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/ivy-20180911.1701/ivy-overlay.el @@ -0,0 +1,141 @@ +;;; ivy-overlay.el --- Overlay display functions for Ivy -*- lexical-binding: t -*- + +;; Copyright (C) 2016-2018 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 <http://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 + '((t (:background "black" + :foreground "white"))) + "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))) + +(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 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)) + (setq ivy-overlay-at (make-overlay (1- (point)) (line-end-position))) + (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") +(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") + +(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 3)) + (= (point) (point-min)) + (< (- (+ (window-width) (window-hscroll)) (current-column)) + (apply #'max + (mapcar #'string-width + (split-string str "\n")))))) + +(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")) + (let ((cursor-pos (1+ (- (point) (minibuffer-prompt-end)))) + (ivy-window (ivy--get-window ivy-last))) + (setq cursor-type nil) + (with-selected-window ivy-window + (when cursor-type + (setq ivy--old-cursor-type cursor-type)) + (setq cursor-type nil) + (let ((overlay-str + (concat + (buffer-substring (max 1 (1- (point))) (point)) + ivy-text + (if (eolp) + " " + "") + (buffer-substring (point) (line-end-position)) + (ivy-left-pad + str + (+ (if (and (eq major-mode 'org-mode) + (bound-and-true-p org-indent-mode)) + (* org-indent-indentation-per-level (org-current-level)) + 0) + (save-excursion + (goto-char ivy-completion-beg) + (current-column))))))) + (ivy-add-face-text-property cursor-pos (1+ cursor-pos) + 'ivy-cursor overlay-str t) + (ivy-overlay-show-after overlay-str)))))) + +(provide 'ivy-overlay) + +;;; ivy-overlay.el ends here |