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:9fb33b3c7fb99ce3be40c50dc4e36e760cebe989
Branches Tags
larstvei:main
...
compare: larstvei:2b5f461de63071a8011c2dd6d10846831fc37731
Branches Tags
larstvei:main

5 Commits
9fb33b3c7f ... 2b5f461de6

Author SHA1 Message Date
larstvei
2b5f461de6 Adjust scheme setup 2025-09-02 17:14:31 +02:00
larstvei
916c2b8446 Smaller font 
Maybe I'll need to change back when I am back to my other computer
 2025-09-01 07:06:51 +02:00
larstvei
68a22385a1 Small tweaks to fonts 2025-08-31 20:31:55 +02:00
larstvei
14064915ea Remove menu bar as well 2025-08-31 20:31:55 +02:00
larstvei
d19a91f485 Only start server when it's not already running 2025-08-31 20:31:55 +02:00
1 changed files with 19 additions and 16 deletions
Show Stats Expand all files Collapse all files

33
init.org
View File

@ -168,12 +168,14 @@
(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))
(server-start)))) (unless (server-running-p)
(server-start)))))
#+end_src #+end_src
@ -368,6 +370,7 @@
(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))
@ -471,7 +474,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-15")) (set-face-attribute 'default nil :font "Source Code Pro-13"))
#+end_src #+end_src
@ -485,8 +488,8 @@
:defer t :defer t
:hook (text-mode . mixed-pitch-mode) :hook (text-mode . mixed-pitch-mode)
:config :config
(when (member "Source Serif Pro" (font-family-list)) (when (member "Source Serif 4" (font-family-list))
(set-face-attribute 'variable-pitch nil :family "Source Serif Pro"))) (set-face-attribute 'variable-pitch nil :family "Source Serif 4")))
#+end_src #+end_src
@ -1632,22 +1635,22 @@
(use-package geiser-gambit (use-package geiser-gambit
:config :config
(defun geiser-r5rs--enter (_remote) (defconst geiser-r5rs-minimum-version "v4.9.0")
"Clear the debugger on entry.
The REPL starts in a debug mode. Exit it on entry."
",d")
(defun geiser-r5rs--parameters () (defun geiser-r5rs--arglist ()
"Return a list with all parameters needed to start Gambit scheme-r5rs." "Return a list of arguments given to gsi.
(list "-:d-,r5rs" Ensures R5RS and support for Geiser."
(expand-file-name "geiser/gambit.scm" geiser-gambit-scheme-dir) `("-:d-,r5rs"
,(expand-file-name "geiser/gambit.scm" geiser-gambit-scheme-dir)
"-")) "-"))
(define-geiser-implementation (r5rs gambit) (define-geiser-implementation
(arglist geiser-r5rs--parameters) (r5rs gambit)
(enter-command geiser-r5rs--enter)) (minimum-version geiser-r5rs-minimum-version)
(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))