pti/emacs-config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add more documentation

Browse source
This commit is contained in:
Peter Tillemans 2024-07-30 16:45:22 +02:00
parent 69ccd6d73e
commit 752611483a
1 changed files with 22 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
init.org
View file

@ -28,7 +28,13 @@ stat /gnu/store/*emacs-next-[23]*.drv | rg Birth | cut -d' ' -f3 | tr -d '-'
It is possible there are more so probably the most recent one is the one to use. It is possible there are more so probably the most recent one is the one to use.
** Inspiration Sources
- [[https://pages.sachachua.com/.emacs.d/Sacha.html][Sacha Chua's Emacs config]]
- [[https://github.com/jwiegley/use-package][GitHub repo for use-package]]
- [[https://github.com/jwiegley/dot-emacs/blob/master/init.org][John Wiegley's .emacs file]]
- [[https://github.com/TheBB/dotemacs/blob/master/init.el][Eivind Fonn's init.el]]
-
* First Things First * First Things First
*** Make tangled file read-only *** Make tangled file read-only
@ -353,7 +359,7 @@ muscle memory.
(lambda (f) (find-font (font-spec :family f))) (lambda (f) (find-font (font-spec :family f)))
fonts)) fonts))
(defun pti-configure-fonts () (defun pti-configure-fonts (&optional frame)
"Set configuration of fonts based on display size." "Set configuration of fonts based on display size."
(defvar pti-font-size (defvar pti-font-size
(if (> (display-pixel-height) 1600) 22 14)) (if (> (display-pixel-height) 1600) 22 14))
@ -1518,16 +1524,24 @@ Configure Geiser and Scheme
*** Copilot Support *** Copilot Support
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package copilot (use-package copilot
:ensure (:host github :repo "zerolfx/copilot.el" :ensure (:host github :repo "zerolfx/copilot.el"
:branch "main" :branch "main"
:files ("dist" "*.el")) :files ("dist" "*.el"))
:hook :bind
(prog-mode . copilot-mode)) (:map evil-insert-state-map
("C-y" . copilot-accept-completion))
:config
(add-to-list 'copilot-indentation-alist '(scheme-mode . 2))
(add-to-list 'copilot-indentation-alist '(emacs-lisp-mode . 2))
(add-to-list 'copilot-indentation-alist '(lisp-mode . 2))
:hook
(prog-mode . copilot-mode)
(org-mode . copilot-mode))
#+END_SRC #+END_SRC
#+RESULTS: #+RESULTS:
: [nil 26279 35677 893347 nil elpaca-process-queues nil nil 951000 nil] : [nil 26280 62042 380168 nil elpaca-process-queues nil nil 930000 nil]
**** TODO move scheme configuration to the scheme section **** TODO move scheme configuration to the scheme section
or leave it here but move it to config, whatever makes most sense at or leave it here but move it to config, whatever makes most sense at