summary refs log tree commit diff stats
path: root/tag-emacs/emacs.d
diff options
context:
space:
mode:
Diffstat (limited to 'tag-emacs/emacs.d')
-rw-r--r--tag-emacs/emacs.d/init.org37
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