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(+)

(limited to 'tag-emacs/emacs.d')

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(-)

(limited to 'tag-emacs/emacs.d')

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(-)

(limited to 'tag-emacs/emacs.d')

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