From 3af4144817cde07e4eff1e9c1ba1bbf89cb071e6 Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Thu, 24 Mar 2016 23:09:41 +0100 Subject: Emacs: Improve small screen window-splitting --- tag-emacs/emacs.d/init.org | 1 + 1 file changed, 1 insertion(+) diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org index e30291c0..5f5b2958 100644 --- a/tag-emacs/emacs.d/init.org +++ b/tag-emacs/emacs.d/init.org @@ -842,6 +842,7 @@ 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)) -- cgit 1.4.1 From 94fa9d4f837d1363bf4aaa0f2afb5fbc9a91b81f Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Thu, 24 Mar 2016 23:10:13 +0100 Subject: Emacs: Remove toggle-window-dedicated I don’t think I ever used it --- tag-emacs/emacs.d/init.org | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org index 5f5b2958..a38eede0 100644 --- a/tag-emacs/emacs.d/init.org +++ b/tag-emacs/emacs.d/init.org @@ -848,22 +848,6 @@ point whilst I’m moving about. (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. -- cgit 1.4.1 From ce50593b3cc4898915c260aaf356adf533868e67 Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Thu, 24 Mar 2016 23:11:44 +0100 Subject: Emacs: Simplify paredit eval-expression setup --- tag-emacs/emacs.d/init.org | 20 ++++++++------------ 1 file changed, 8 insertions(+), 12 deletions(-) diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org index a38eede0..395ff53d 100644 --- a/tag-emacs/emacs.d/init.org +++ b/tag-emacs/emacs.d/init.org @@ -2216,18 +2216,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 -- cgit 1.4.1