;;; funcs.el --- Spacemacs Completion Layer functions File for Spacemacs ;; ;; Copyright (c) 2012-2018 Sylvain Benner & Contributors ;; ;; Author: Sylvain Benner ;; URL: https://github.com/syl20bnr/spacemacs ;; ;; This file is not part of GNU Emacs. ;; ;;; License: GPLv3 ;; Helm (defun spacemacs/helm-faces () "Describe face." (interactive) (require 'helm-elisp) (let ((default (or (face-at-point) (thing-at-point 'symbol)))) (helm :sources (helm-def-source--emacs-faces (format "%s" (or default "default"))) :buffer "*helm faces*"))) (defun spacemacs//hide-cursor-in-helm-buffer () "Hide the cursor in helm buffers." (with-helm-buffer (setq cursor-in-non-selected-windows nil))) (defun spacemacs//set-dotted-directory () "Set the face of diretories for `.' and `..'" (set-face-attribute 'helm-ff-dotted-directory nil :foreground nil :background nil :inherit 'helm-ff-directory)) (defun spacemacs//helm-make-source (f &rest args) "Function to be used as advice to activate fuzzy matching for all sources." (let ((source-type (cadr args)) (props (cddr args))) ;; fuzzy matching is not supported in async sources (unless (child-of-class-p source-type helm-source-async) (plist-put props :fuzzy-match (eq 'always helm-use-fuzzy)))) (apply f args)) ;; Helm Header line (defun spacemacs//helm-hide-minibuffer-maybe () "Hide minibuffer in Helm session if we use the header line as input field." (when (with-helm-buffer helm-echo-input-in-header-line) (let ((ov (make-overlay (point-min) (point-max) nil nil t))) (overlay-put ov 'window (selected-window)) (overlay-put ov 'face (let ((bg-color (face-background 'default nil))) `(:background ,bg-color :foreground ,bg-color))) (setq-local cursor-type nil)))) (defun helm-toggle-header-line () "Hide the `helm' header if there is only one source." (when helm-no-header (if (> (length helm-sources) 1) (set-face-attribute 'helm-source-header nil :foreground helm-source-header-default-foreground :background helm-source-header-default-background :box helm-source-header-default-box :height helm-source-header-default-height) (set-face-attribute 'helm-source-header nil :foreground (face-attribute 'default :background) :background (face-attribute 'default :background) :box nil :height 0.1)))) ;; helm navigation on hjkl (defun spacemacs//helm-hjkl-navigation (style) "Set navigation on 'hjkl' for the given editing STYLE." (cond ((or (eq 'vim style) (and (eq 'hybrid style) hybrid-mode-enable-hjkl-bindings)) (define-key helm-map (kbd "C-j") 'helm-next-line) (define-key helm-map (kbd "C-k") 'helm-previous-line) (define-key helm-map (kbd "C-S-j") 'helm-follow-action-forward) (define-key helm-map (kbd "C-S-k") 'helm-follow-action-backward) (define-key helm-map (kbd "C-h") 'helm-next-source) (define-key helm-map (kbd "C-S-h") 'describe-key) (define-key helm-map (kbd "C-l") (kbd "RET")) (with-eval-after-load 'helm-files (dolist (keymap (list helm-find-files-map helm-read-file-map)) (define-key keymap (kbd "C-l") 'helm-execute-persistent-action) (define-key keymap (kbd "C-h") 'helm-find-files-up-one-level) ;; rebind `describe-key' for convenience (define-key keymap (kbd "C-S-h") 'describe-key)))) (t (define-key helm-map (kbd "C-j") 'helm-execute-persistent-action) (define-key helm-map (kbd "C-k") 'helm-delete-minibuffer-contents) (define-key helm-map (kbd "C-h") nil) (define-key helm-map (kbd "C-l") 'helm-recenter-top-bottom-other-window)))) ;; Helm Window position (defun spacemacs//display-helm-window (buffer) "Display the Helm window respecting `helm-position'." (let ((display-buffer-alist (list spacemacs-helm-display-help-buffer-regexp ;; this or any specialized case of Helm buffer must be ;; added AFTER `spacemacs-helm-display-buffer-regexp'. ;; Otherwise, `spacemacs-helm-display-buffer-regexp' will ;; be used before ;; `spacemacs-helm-display-help-buffer-regexp' and display ;; configuration for normal Helm buffer is applied for helm ;; help buffer, making the help buffer unable to be ;; displayed. spacemacs-helm-display-buffer-regexp))) (helm-default-display-buffer buffer))) (defun spacemacs//unprevent-minibuffer-escape () "Workaround for a helm-evil incompatibility. See https://github.com/syl20bnr/spacemacs/issues/3700" (when helm-prevent-escaping-from-minibuffer (define-key evil-motion-state-map [down-mouse-1] 'evil-mouse-drag-region))) (defun spacemacs//prevent-minibuffer-escape () "Workaround for a helm-evil incompatibility. See https://github.com/syl20bnr/spacemacs/issues/3700" (when helm-prevent-escaping-from-minibuffer (define-key evil-motion-state-map [down-mouse-1] nil))) ;; Helm Transient state (defun spacemacs//define-helm-action-functions () "Define Spacemacs functions to pick actions." (dotimes (n 10) (let ((func (intern (format "spacemacs/helm-action-%d" n))) (doc (format "Select helm action #%d" n))) (eval `(defun ,func () ,doc (intern) (helm-select-nth-action ,(1- n))))))) (defun spacemacs/helm-ts-edit () "Switch in edit mode depending on the current helm buffer." (interactive) (cond ((string-equal "*helm-ag*" helm-buffer) (helm-ag-edit)) ((string-equal "*Helm Swoop*" helm-buffer) (helm-swoop-edit)))) (defun spacemacs//helm-navigation-ts-on-enter () "Initialization of helm transient-state." ;; faces (spacemacs//helm-navigation-ts-set-face) (setq spacemacs--helm-navigation-ts-face-cookie-minibuffer (face-remap-add-relative 'minibuffer-prompt 'spacemacs-helm-navigation-ts-face))) (defun spacemacs//helm-navigation-ts-set-face () "Set the face for helm header in helm navigation transient-state" (with-helm-window (setq spacemacs--helm-navigation-ts-face-cookie-header (face-remap-add-relative 'helm-header 'spacemacs-helm-navigation-ts-face)))) (defun spacemacs//helm-navigation-ts-on-exit () "Action to perform when exiting helm transient-state." (with-helm-window (face-remap-remove-relative spacemacs--helm-navigation-ts-face-cookie-header)) (face-remap-remove-relative spacemacs--helm-navigation-ts-face-cookie-minibuffer)) (defun spacemacs/helm-transient-state-select-action () "Display the Helm actions page." (interactive) (call-interactively 'helm-select-action) (spacemacs//helm-navigation-ts-set-face)) ;; Ivy (defun spacemacs//ivy-hjkl-navigation (style) "Set navigation on 'hjkl' for the given editing STYLE." (cond ((or (eq 'vim style) (and (eq 'hybrid style) hybrid-mode-enable-hjkl-bindings)) (define-key ivy-minibuffer-map (kbd "C-j") 'ivy-next-line) (define-key ivy-minibuffer-map (kbd "C-k") 'ivy-previous-line) (define-key ivy-minibuffer-map (kbd "C-h") (kbd "DEL")) ;; Move C-h to C-S-h (define-key ivy-minibuffer-map (kbd "C-S-h") help-map) (define-key ivy-minibuffer-map (kbd "C-l") 'ivy-alt-done) (define-key ivy-minibuffer-map (kbd "") 'minibuffer-keyboard-quit)) (t (define-key ivy-minibuffer-map (kbd "C-j") 'ivy-alt-done) (define-key ivy-minibuffer-map (kbd "C-k") 'ivy-kill-line) (define-key ivy-minibuffer-map (kbd "C-h") nil) (define-key ivy-minibuffer-map (kbd "C-l") nil)))) (defun spacemacs//ivy-matcher-desc () (replace-regexp-in-string "ivy--" "" (format "%s" ivy--regex-function))) ;; Ido (defun spacemacs//ido-minibuffer-setup () "Setup the minibuffer." ;; Since ido is implemented in a while loop where each ;; iteration setup a whole new minibuffer, we have to keep ;; track of any activated ido navigation transient-state and force ;; the reactivation at each iteration. (when spacemacs--ido-navigation-ts-enabled (spacemacs/ido-navigation-transient-state/body))) (defun spacemacs//ido-setup () (when spacemacs--ido-navigation-ts-face-cookie-minibuffer (face-remap-remove-relative spacemacs--ido-navigation-ts-face-cookie-minibuffer)) ;; be sure to wipe any previous transient-state flag (setq spacemacs--ido-navigation-ts-enabled nil) ;; overwrite the key bindings for ido vertical mode only (define-key ido-completion-map (kbd "C-") 'ido-select-text) ;; use M-RET in terminal (define-key ido-completion-map "\M-\r" 'ido-select-text) (define-key ido-completion-map (kbd "C-h") 'ido-delete-backward-updir) (define-key ido-completion-map (kbd "C-j") 'ido-next-match) (define-key ido-completion-map (kbd "C-k") 'ido-prev-match) (define-key ido-completion-map (kbd "C-l") 'ido-exit-minibuffer) (define-key ido-completion-map (kbd "C-n") 'ido-next-match) (define-key ido-completion-map (kbd "C-p") 'ido-prev-match) (define-key ido-completion-map (kbd "C-S-h") 'ido-prev-match-dir) (define-key ido-completion-map (kbd "C-S-j") 'next-history-element) (define-key ido-completion-map (kbd "C-S-k") 'previous-history-element) (define-key ido-completion-map (kbd "C-S-l") 'ido-next-match-dir) (define-key ido-completion-map (kbd "C-S-n") 'next-history-element) (define-key ido-completion-map (kbd "C-S-p") 'previous-history-element) ;; ido-other window maps (define-key ido-completion-map (kbd "C-o") 'spacemacs/ido-invoke-in-other-window) (define-key ido-completion-map (kbd "C-s") 'spacemacs/ido-invoke-in-vertical-split) (define-key ido-completion-map (kbd "C-t") 'spacemacs/ido-invoke-in-new-frame) (define-key ido-completion-map (kbd "C-v") 'spacemacs/ido-invoke-in-horizontal-split) ;; initiate transient-state (define-key ido-completion-map (kbd "M-SPC") 'spacemacs/ido-navigation-transient-state/body) (define-key ido-completion-map (kbd "S-M-SPC") 'spacemacs/ido-navigation-transient-state/body)) (defun spacemacs/ido-invoke-in-other-window () "signals ido mode to switch to (or create) another window after exiting" (interactive) (setq ido-exit-minibuffer-target-window 'other) (ido-exit-minibuffer)) (defun spacemacs/ido-invoke-in-horizontal-split () "signals ido mode to split horizontally and switch after exiting" (interactive) (setq ido-exit-minibuffer-target-window 'horizontal) (ido-exit-minibuffer)) (defun spacemacs/ido-invoke-in-vertical-split () "signals ido mode to split vertically and switch after exiting" (interactive) (setq ido-exit-minibuffer-target-window 'vertical) (ido-exit-minibuffer)) (defun spacemacs/ido-invoke-in-new-frame () "signals ido mode to create a new frame after exiting" (interactive) (setq ido-exit-minibuffer-target-window 'frame) (ido-exit-minibuffer)) (defun spacemacs//ido-navigation-ts-set-face () "Set faces for ido navigation transient-state." (setq spacemacs--ido-navigation-ts-face-cookie-minibuffer (face-remap-add-relative 'minibuffer-prompt 'spacemacs-ido-navigation-ts-face))) (defun spacemacs//ido-navigation-ts-on-enter () "Initialization of ido transient-state." (setq spacemacs--ido-navigation-ts-enabled t) (spacemacs//ido-navigation-ts-set-face)) (defun spacemacs//ido-navigation-ts-on-exit () "Action to perform when exiting ido transient-state." (face-remap-remove-relative spacemacs--ido-navigation-ts-face-cookie-minibuffer)) (defun spacemacs//ido-navigation-ts-full-doc () "Full documentation for ido navigation transient-state." " [?] display this help [e] enter dired [j] [k] next/previous match [J] [K] sub/parent directory [h] delete backward or parent directory [l] select match [n] [p] next/previous directory in history [o] open in other window [s] open in a new horizontal split [t] open in other frame [v] open in a new vertical split [q] quit")