BirDt/theurgy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Dashboard centering and slime

Browse source
This commit is contained in:
BirDt_ 2025-09-29 04:43:53 +08:00
parent 4f681f35d6
commit 445f4ccf64
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
screens/dashboard.el
View file

@ -175,10 +175,10 @@
(setopt grid-revert-on-width-change t) (setopt grid-revert-on-width-change t)
(enlight-content (enlight-content
(concat (concat
(grid-make-box `(:align center :content ,enlight-theurgy-logo :width 40)) (grid-make-box `(:align center :content ,enlight-theurgy-logo :width ,(if (equal system-type 'android) 40 80)))
"\n\n" "\n\n"
(grid-make-box `( :content ,(propertize "Theurgy Emacs" 'face 'variable-pitch-serif-text) (grid-make-box `( :content ,(propertize "Theurgy Emacs" 'face 'variable-pitch-serif-text)
:width 40 :align center)) :width ,(if (equal system-type 'android) 40 80) :align center))
"\n\n" "\n\n"
(grid-make-box (grid-make-box
(dashboard-content)) (dashboard-content))

5
workflows/lisp-custom.el
View file

@ -36,6 +36,11 @@
(define-key paredit-mode-map (kbd "RET") nil) (define-key paredit-mode-map (kbd "RET") nil)
(define-key paredit-mode-map (kbd "C-j") 'paredit-newline)))) (define-key paredit-mode-map (kbd "C-j") 'paredit-newline))))
;; Slimey
(use-package slime
:config
(setq inferior-lisp-program "sbcl"))
;; SICP my beloved ;; SICP my beloved
(use-package sicp (use-package sicp
:ensure t) :ensure t)