diff options
-rw-r--r-- | tag-emacs/emacs.d/init.org | 37 |
1 files changed, 9 insertions, 28 deletions
diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org index b27c54a0..6716c577 100644 --- a/tag-emacs/emacs.d/init.org +++ b/tag-emacs/emacs.d/init.org @@ -842,27 +842,12 @@ point whilst I’m moving about. scroll-preserve-screen-position t mouse-wheel-scroll-amount '(1 ((shift) . 1) ((control))) split-height-threshold 100 + split-width-threshold 120 frame-resize-pixelwise t) (if (boundp 'ns-pop-up-frames) (setq ns-pop-up-frames nil)) #+END_SRC -A dedicated window always keeps the same buffer in view. - -#+BEGIN_SRC emacs-lisp -(defun toggle-window-dedicated () - "Toggle whether the current active window is dedicated or not" - (interactive) - (message - "Window '%s' is %s" - (current-buffer) - (if (let ((window (get-buffer-window (current-buffer)))) - (set-window-dedicated-p window - (not (window-dedicated-p window)))) - "dedicated" - "normal"))) -#+END_SRC - ** winner Undo, for window-based commands. @@ -2235,18 +2220,14 @@ Balanced parentheses in lisps are nice, but all the refactoring and movement commands are much more interesting. #+BEGIN_SRC emacs-lisp -(use-package paredit - :diminish "()" - :commands (paredit-mode) - :init (progn - (add-hook 'lisp-mode-common-hook #'enable-paredit-mode) - (put #'paredit-forward-delete 'delete-selection 'supersede) - (put #'paredit-backward-delete 'delete-selection 'supersede) - (add-hook 'minibuffer-setup-hook #'conditionally-enable-paredit-mode) - (defun conditionally-enable-paredit-mode () - "enable paredit-mode during eval-expression" - (if (eq this-command 'eval-expression) - (paredit-mode 1))))) + (use-package paredit + :diminish "()" + :commands (paredit-mode) + :init (progn + (add-hook 'lisp-mode-common-hook #'enable-paredit-mode) + (put #'paredit-forward-delete 'delete-selection 'supersede) + (put #'paredit-backward-delete 'delete-selection 'supersede) + (add-hook 'eval-expression-minibuffer-setup-hook #'enable-paredit-mode))) #+END_SRC ** smartparens |