more linux tweaks

This commit is contained in:
Matt Nish-Lapidus 2024-10-30 17:02:39 -04:00
parent b565bd2d45
commit c2706c7417
3 changed files with 6 additions and 20 deletions

View file

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