emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Minor refactors across the board

Browse source
This commit is contained in:
Henrik Lissner 2019-07-10 21:27:12 +02:00
parent ead07dea83
commit a201409fdd
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
4 changed files with 7 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

14
modules/completion/ivy/config.el
View file

@ -271,10 +271,10 @@ evil-ex-specific constructs, so we disable it solely in evil-ex."
:hook (ivy-mode . ivy-posframe-mode) :hook (ivy-mode . ivy-posframe-mode)
:config :config
(setq ivy-fixed-height-minibuffer nil (setq ivy-fixed-height-minibuffer nil
ivy-posframe-border-width 10
ivy-posframe-parameters ivy-posframe-parameters
`((min-width . 90) `((min-width . 90)
(min-height . ,ivy-height) (min-height . ,ivy-height)))
(internal-border-width . 10)))
;; default to posframe display function ;; default to posframe display function
(setf (alist-get t ivy-posframe-display-functions-alist) #'+ivy-display-at-frame-center-near-bottom) (setf (alist-get t ivy-posframe-display-functions-alist) #'+ivy-display-at-frame-center-near-bottom)
@ -289,14 +289,8 @@ evil-ex-specific constructs, so we disable it solely in evil-ex."
(not (featurep! +prescient))) (not (featurep! +prescient)))
:defer t ; is loaded by ivy :defer t ; is loaded by ivy
:init :init
(setq ivy-re-builders-alist (setf (alist-get 't ivy-re-builders-alist) #'ivy--regex-fuzzy)
'((counsel-ag . ivy--regex-plus) (setq ivy-initial-inputs-alist nil
(counsel-rg . ivy--regex-plus)
(counsel-grep . ivy--regex-plus)
(swiper . ivy--regex-plus)
(swiper-isearch . ivy--regex-plus)
(t . ivy--regex-fuzzy))
ivy-initial-inputs-alist nil
ivy-flx-limit 10000)) ivy-flx-limit 10000))

2
modules/editor/snippets/autoload/snippets.el
View file

@ -18,7 +18,7 @@ you will be prompted to select one.
If there are conflicting keys across the two camps, the built-in ones are If there are conflicting keys across the two camps, the built-in ones are
ignored. This makes it easy to override built-in snippets with private ones." ignored. This makes it easy to override built-in snippets with private ones."
(when (memq this-command '(yas-expand +snippets/expand-on-region)) (when (eq this-command 'yas-expand)
(let* ((gc-cons-threshold doom-gc-cons-upper-limit) (let* ((gc-cons-threshold doom-gc-cons-upper-limit)
(choices (cl-remove-duplicates choices :test #'+snippets--remove-p))) (choices (cl-remove-duplicates choices :test #'+snippets--remove-p)))
(if (cdr choices) (if (cdr choices)

2
modules/lang/clojure/config.el
View file

@ -1,6 +1,6 @@
;;; lang/clojure/config.el -*- lexical-binding: t; -*- ;;; lang/clojure/config.el -*- lexical-binding: t; -*-
;; `clojure-mode' ;;;###package clojure-mode
(add-hook 'clojure-mode-hook #'rainbow-delimiters-mode) (add-hook 'clojure-mode-hook #'rainbow-delimiters-mode)

3
modules/lang/emacs-lisp/autoload.el
View file

@ -24,8 +24,7 @@ to a pop up buffer."
(setq-local scroll-margin 0) (setq-local scroll-margin 0)
(let (emacs-lisp-mode-hook) (let (emacs-lisp-mode-hook)
(emacs-lisp-mode)) (emacs-lisp-mode))
(prin1 result buf) (pp result buf)
(pp-buffer)
(let ((lines (count-lines (point-min) (point-max)))) (let ((lines (count-lines (point-min) (point-max))))
(if (> lines 1) (if (> lines 1)
(save-selected-window (save-selected-window