larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2025-11-05 09:40:12 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Compare commits

base: larstvei:2b5f461de63071a8011c2dd6d10846831fc37731
Branches Tags
larstvei:main
..
compare: larstvei:9fb33b3c7fb99ce3be40c50dc4e36e760cebe989
Branches Tags
larstvei:main

No commits in common. "2b5f461de63071a8011c2dd6d10846831fc37731" and "9fb33b3c7fb99ce3be40c50dc4e36e760cebe989" have entirely different histories.
2b5f461de6 ... 9fb33b3c7f

1 changed files with 16 additions and 19 deletions
Show Stats Expand all files Collapse all files

35
init.org
View File

@ -168,14 +168,12 @@
(add-hook (add-hook
'after-init-hook 'after-init-hook
(lambda () (lambda ()
(require 'server)
(let ((private-file (concat user-emacs-directory "private.el"))) (let ((private-file (concat user-emacs-directory "private.el")))
(when (file-exists-p private-file) (when (file-exists-p private-file)
(load-file private-file)) (load-file private-file))
(when (file-exists-p custom-file) (when (file-exists-p custom-file)
(load-file custom-file)) (load-file custom-file))
(unless (server-running-p) (server-start))))
(server-start)))))
#+end_src #+end_src
@ -370,7 +368,6 @@
(dolist (mode (dolist (mode
'(tool-bar-mode ; No toolbars, more room for text '(tool-bar-mode ; No toolbars, more room for text
menu-bar-mode ; No menu bar
scroll-bar-mode ; No scroll bars either scroll-bar-mode ; No scroll bars either
blink-cursor-mode)) ; The blinking cursor gets old blink-cursor-mode)) ; The blinking cursor gets old
(funcall mode 0)) (funcall mode 0))
@ -474,7 +471,7 @@
#+begin_src emacs-lisp #+begin_src emacs-lisp
(when (member "Source Code Pro" (font-family-list)) (when (member "Source Code Pro" (font-family-list))
(set-face-attribute 'default nil :font "Source Code Pro-13")) (set-face-attribute 'default nil :font "Source Code Pro-15"))
#+end_src #+end_src
@ -488,8 +485,8 @@
:defer t :defer t
:hook (text-mode . mixed-pitch-mode) :hook (text-mode . mixed-pitch-mode)
:config :config
(when (member "Source Serif 4" (font-family-list)) (when (member "Source Serif Pro" (font-family-list))
(set-face-attribute 'variable-pitch nil :family "Source Serif 4"))) (set-face-attribute 'variable-pitch nil :family "Source Serif Pro")))
#+end_src #+end_src
@ -1635,22 +1632,22 @@
(use-package geiser-gambit (use-package geiser-gambit
:config :config
(defconst geiser-r5rs-minimum-version "v4.9.0") (defun geiser-r5rs--enter (_remote)
"Clear the debugger on entry.
The REPL starts in a debug mode. Exit it on entry."
",d")
(defun geiser-r5rs--arglist () (defun geiser-r5rs--parameters ()
"Return a list of arguments given to gsi. "Return a list with all parameters needed to start Gambit scheme-r5rs."
Ensures R5RS and support for Geiser." (list "-:d-,r5rs"
`("-:d-,r5rs" (expand-file-name "geiser/gambit.scm" geiser-gambit-scheme-dir)
,(expand-file-name "geiser/gambit.scm" geiser-gambit-scheme-dir) "-"))
"-"))
(define-geiser-implementation (define-geiser-implementation (r5rs gambit)
(r5rs gambit) (arglist geiser-r5rs--parameters)
(minimum-version geiser-r5rs-minimum-version) (enter-command geiser-r5rs--enter))
(arglist geiser-r5rs--arglist))
(geiser-activate-implementation 'r5rs) (geiser-activate-implementation 'r5rs)
(setq geiser-repl-add-project-paths nil)
(provide 'geiser-r5rs)) (provide 'geiser-r5rs))