v1.1.3 bump
+ sp: be quiet + popup: load *eval* rule earlier + evil-anzu: defer, due to long load time + Update makefile + Clean up core.el + line-spacing = 1, less rpadding on nlinum-format + Add *esup* popup rule + Refactor doom macro + Refactor doom-byte-compile + :big [SIZE] + use inconsolata in big-mode + :v TAB -> doom/yas-insert-snippet + eval: use pop-to-buffer instead of doom/popup-buffer + Refactor backspace fn; handle pair deletion issue with sp better + \#bringbackwindowsystem + db: remove unused var + Update init.el
This commit is contained in:
parent
df13257ce8
commit
fc78d46f30
19 changed files with 86 additions and 76 deletions
|
@ -35,7 +35,7 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
|
|||
|
||||
;; Buffer Life and Death ;;;;;;;;;;;;;;;
|
||||
|
||||
(unless (display-graphic-p)
|
||||
(unless window-system
|
||||
(defalias 'wg-workgroup-associated-buffers 'ignore)
|
||||
(defalias 'wg-current-workgroup 'ignore)
|
||||
(defalias 'wg-save-session 'ignore))
|
||||
|
|
|
@ -53,16 +53,16 @@ elisp buffer). Otherwise forward the region to Quickrun."
|
|||
(lines (length (s-lines out))))
|
||||
(if (< lines 5)
|
||||
(princ out t)
|
||||
(with-current-buffer (get-buffer-create "*eval*")
|
||||
;; (rename-buffer (buffer-name old-buf))
|
||||
(read-only-mode -1)
|
||||
(setq-local scroll-margin 0)
|
||||
(emacs-lisp-mode)
|
||||
(erase-buffer)
|
||||
(insert out)
|
||||
(read-only-mode 1)
|
||||
(goto-char (point-min))
|
||||
(doom/popup-buffer (current-buffer))))))
|
||||
(let ((buf (get-buffer-create "*eval*")))
|
||||
(with-current-buffer buf
|
||||
(read-only-mode -1)
|
||||
(setq-local scroll-margin 0)
|
||||
(emacs-lisp-mode)
|
||||
(erase-buffer)
|
||||
(insert out)
|
||||
(read-only-mode 1)
|
||||
(goto-char (point-min)))
|
||||
(pop-to-buffer buf)))))
|
||||
(t (quickrun-region beg end))))
|
||||
|
||||
;;;###autoload (autoload 'doom:eval-region-and-replace "defuns-quickrun" nil t)
|
||||
|
|
|
@ -54,24 +54,22 @@ already there, move it to the true bol."
|
|||
possible, or just one char if that's not possible."
|
||||
(interactive)
|
||||
(let* ((context (sp--get-pair-list-context 'navigate))
|
||||
(open-pair (sp--get-opening-regexp context))
|
||||
(close-pair (sp--get-closing-regexp context))
|
||||
(open-pair-re (sp--get-opening-regexp context))
|
||||
(close-pair-re (sp--get-closing-regexp context))
|
||||
open-len close-len)
|
||||
(cond ;; When in strings (sp acts weird with quotes; this is the fix)
|
||||
;; Also, skip closing delimiters
|
||||
((and (and (sp--looking-back open-pair)
|
||||
((and (and (sp--looking-back open-pair-re)
|
||||
(setq open-len (- (match-beginning 0) (match-end 0))))
|
||||
(and (looking-at close-pair)
|
||||
(setq close-len (- (match-beginning 0) (match-end 0)))))
|
||||
(and (looking-at close-pair-re)
|
||||
(setq close-len (- (match-beginning 0) (match-end 0))))
|
||||
(string= (plist-get (sp-get-thing t) :op)
|
||||
(plist-get (sp-get-thing) :cl)))
|
||||
(delete-backward-char open-len)
|
||||
(delete-char close-len))
|
||||
;; If using tabs (or at bol), just delete normally
|
||||
((or indent-tabs-mode
|
||||
(= (point-at-bol) (point)))
|
||||
(call-interactively 'backward-delete-char-untabify))
|
||||
;; Delete up to the nearest tab column IF only whitespace between
|
||||
;; point and bol.
|
||||
((sp--looking-back-p "^[\\t ]*" (point-at-bol))
|
||||
((sp--looking-back-p "^[\\t ]*" (line-beginning-position))
|
||||
(let ((movement (% (current-column) tab-width))
|
||||
(p (point)))
|
||||
(when (= movement 0)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue