From c2706c74175228dda5e427ebc8c27bcac1b7d10c Mon Sep 17 00:00:00 2001
From: Matt Nish-Lapidus <matt@emenel.ca>
Date: Wed, 30 Oct 2024 17:02:39 -0400
Subject: [PATCH] more linux tweaks

---
 bindings.el |  5 +++--
 config.el   | 19 ++-----------------
 init.el     |  2 +-
 3 files changed, 6 insertions(+), 20 deletions(-)

diff --git a/bindings.el b/bindings.el
index 170a243..a32237b 100644
--- a/bindings.el
+++ b/bindings.el
@@ -392,18 +392,19 @@
       "C-;" #'comment-dwim
       "C-/" #'comment-line
       "C-q" #'kill-emacs
-      "C-<left>" #'beginning-of-visual-line
-      "C-<right>" #'end-of-visual-line
       "C-M-<up>" #'next-window-any-frame
       "C-M-<down>" #'previous-window-any-frame
       "C-<up>" #'backward-paragraph
       "C-<down>" #'forward-paragraph
       "M-<up>" #'drag-stuff-up
       "M-<down>" #'drag-stuff-down
+      "M-<left>" #'drag-stuff-left
+      "M-<right>" #'drag-stuff-right
       "C-M-h" #'windmove-left
       "C-M-j" #'windmove-up
       "C-M-k" #'windmove-down
       "C-M-l" #'windmove-right
+      "M-x" #'execute-extended-command
       "<home>" #'beginning-of-buffer
       "<end>" #'end-of-buffer
       "C-<return>" #'split-window-vertically
diff --git a/config.el b/config.el
index f30281b..77fb91c 100644
--- a/config.el
+++ b/config.el
@@ -51,19 +51,6 @@
 ;; set default frame size on launch
 (setq default-frame-alist '( (left . 0) (top . 0) (height . 48) (width . 160)))
 
-(defun mnl/frame-center ()
-  "Center the current frame."
-  (interactive)
-  (let* ((dw (display-pixel-width))
-         (dh (display-pixel-height))
-         (f  (selected-frame))
-         (fw (frame-pixel-width f))
-         (fh (frame-pixel-height f))
-         (x  (- (/ dw 2) (/ fw 2)))
-         (y  (- (/ dh 2) (/ fh 2))))
-    (message (format "dw %d dh %d fw %d fh %d x %d y %d" dw dh fw fh x y))
-    (set-frame-position f x y)))
-
 ;; some global settings
 (setq tab-always-indent t)              ; don't autocomplete with tab
 (+global-word-wrap-mode +1)             ; default to soft word wrap
@@ -187,8 +174,8 @@
 ;; sly
 (after! sly
   (setq sly-lisp-implementations
-      '((sbcl ("sbcl" "--dynamic-space-size" "4Gb"))))
- ;;       (ciel ("sbcl" "--core" "/Users/emenel/quicklisp/local-projects/CIEL/ciel-core" "--eval" "(in-package :ciel-user)" "--dynamic-space-size" "2600"))))
+        '((sbcl ("sbcl" "--dynamic-space-size" "4Gb"))
+          (sbcl-renderdoc ("renderdoccmd" "capture" "-w" "sbcl"))))
   (setq sly-default-lisp 'sbcl)
   (setq sly-complete-symbol-function 'sly-flex-completions))
 
@@ -276,6 +263,4 @@
 ;; import all my customized keybindings based on doom evil mode, but with meow instead.
 (load! "bindings.el")
 
-(add-hook 'window-setup-hook #'mnl/frame-center)
-
 ;;(unless server-running-p (server-start))
diff --git a/init.el b/init.el
index 9a28cec..f01029e 100644
--- a/init.el
+++ b/init.el
@@ -131,7 +131,7 @@
        ;;nim               ; python + lisp at the speed of c
        nix               ; I hereby Declare "nix geht mehr!"
        ;;ocaml             ; an objective camel
-       (org +pretty)               ; organize your plain life in plain text
+       (org +pretty +dragndrop)               ; organize your plain life in plain text
        (php +tree-sitter)               ; perl's insecure younger brother
        ;;plantuml          ; diagrams for confusing people more
        ;; purescript        ; javascript, but functional