emenel/dot-doom
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

updated config

Browse source
This commit is contained in:
Matt Nish-Lapidus 2024-03-25 14:18:11 -04:00
parent a17c6e234d
commit 7fd35f59e6
5 changed files with 96 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

49
config.el
View file

@ -25,7 +25,7 @@
(set-keyboard-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(setq org-directory "~/Library/Mobile Documents/iCloud~md~obsidian/Documents/Primary/org/")
(setq org-directory "~/Library/Mobile Documents/iCloud~md~obsidian/Documents/Primary")
;; Modeline
;; - add current workspace name
@ -62,6 +62,11 @@
(+global-word-wrap-mode +1) ; default to soft word wrap
(delete-selection-mode 1) ; delete stuff!
(setq delete-active-region t) ; delete selected stuff!
(setq shell-file-name (executable-find "bash"))
(setq-default vterm-shell (executable-find "fish"))
(setq-default explicit-shell-file-name (executable-find "fish"))
;; remove org agenda from the splash screen
(assoc-delete-all "Open org-agenda" +doom-dashboard-menu-sections)
@ -82,7 +87,7 @@
window-resize-pixelwise t)))
;; tabs! i like them
(setq-default indent-tabs-mode t)
;; (setq-default indent-tabs-mode t)
(setq-default tab-width 2)
;; import all my customized keybindings based on doom evil mode, but without evil.
@ -102,6 +107,9 @@
(after! smart-tabs-mode
(smart-tabs-insinuate 'c 'javascript 'python))
(after! meow
(meow-vterm-enable))
;; Add consult-line searches to isearch history (both regular and regex) -- can now use meow 'n' to continue search as well as isearch
(advice-add #'consult-line :after
(lambda (&rest _)
@ -147,7 +155,7 @@
"s-M-<left>" 'centaur-tabs-backward))
;; use kitty for terminal-here
(setq terminal-here-mac-terminal-command '("kitty" "@" "launch" "--type" "tab"))
(setq terminal-here-mac-terminal-command '("kitty" "@" "launch" "--type=tab"))
;; set project paths and ignore buffers
(setq projectile-project-search-path '(("~/Source" . 2)))
@ -171,8 +179,8 @@
;; better completions for sly
(after! sly
(setq sly-lisp-implementations
'((sbcl ("sbcl" "--dynamic-space-size" "10000"))
(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" "12000"))
(ciel ("sbcl" "--core" "/Users/emenel/quicklisp/local-projects/CIEL/ciel-core" "--eval" "(in-package :ciel-user)" "--dynamic-space-size" "2600"))))
(setq sly-default-lisp 'sbcl)
(setq sly-complete-symbol-function 'sly-flex-completions))
@ -184,9 +192,9 @@
(defun cl-patterns-helpers-load ()
(interactive)
(sly-eval-async '(cl:namestring (asdf:system-source-directory (asdf:find-system 'cl-patterns)))
(lambda (path)
(load (concat path "res/emacs/cl-patterns-helpers") nil nil nil t)
(load (concat path "res/emacs/cl-patterns-skeletons") nil nil nil t)))
(lambda (path)
(load (concat path "res/emacs/cl-patterns-helpers") nil nil nil t)
(load (concat path "res/emacs/cl-patterns-skeletons") nil nil nil t)))
(define-key sly-mode-map (kbd "C-c p") 'cl-patterns-play-or-end-context-or-select-pdef)
(define-key sly-mode-map (kbd "C-c P") 'cl-patterns-play-or-stop-context-or-select-pdef)
(define-key sly-mode-map (kbd "C-c s") 'cl-patterns-stop-all)
@ -199,7 +207,7 @@
(setq exec-path (append exec-path '("/Applications/SuperCollider.app/Contents/MacOS/")))
;; tidal cycles!
(setq tidal-boot-script-path "~/.cabal/share/aarch64-osx-ghc-9.4.2/tidal-1.9.3/BootTidal.hs")
;; (setq tidal-boot-script-path "~/.cabal/share/aarch64-osx-ghc-9.4.2/tidal-1.9.3/BootTidal.hs")
;; add platformio to ino files
(add-to-list 'auto-mode-alist '("\\.ino\\'" . arduino-mode))
@ -215,4 +223,27 @@
(custom-set-faces!
'(line-number :foreground "#424242"))
;; mu4e
(set-email-account! "matt@emenel.ca"
'((mu4e-sent-folder . "/matt@emenel.ca/Sent")
(mu4e-drafts-folder . "/matt@emenel.ca/Drafts")
(mu4e-trash-folder . "/matt@emenel.ca/Trash")
(mu4e-refile-folder . "/matt@emenel.ca/Archive")
(mu4e-spam-folder . "/matt@emenel.ca/Spam")
(smtpmail-smtp-user . "matt@emenel.ca")
(user-mail-address . "matt@emenel.ca") ;; only needed for mu < 1.4
(mu4e-compose-signature . "---"))
t)
;; (after! mu4e
;; (add-to-list 'mu4e-bookmarks
;; '( :name "Inbox"
;; :query "maildir:/INBOX"
;; :key ?i)
;; '( :name "Inbox Unread"
;; :query "maildir:/INBOX and flag:unread"
;; :key ?o)))
(use-package! kbd-mode)
(server-start)