mirror of
https://codeberg.org/hako/Rosenthal.git
synced 2026-02-20 19:14:20 +00:00
7e6e089e45
* modules/rosenthal/examples/emacs/manifest.scm: Add emacs-evil. * modules/rosenthal/examples/emacs/init.el (initial-scratch-message): Mention it. * modules/rosenthal/examples/guix/config.tmpl (%my-home) [packages]: Adjust accordingly.
46 lines
1.1 KiB
EmacsLisp
46 lines
1.1 KiB
EmacsLisp
;;; -*- lexical-binding: t -*-
|
||
|
||
(setopt custom-file (locate-user-emacs-file "custom.el"))
|
||
(if (not (file-exists-p custom-file))
|
||
(make-empty-file custom-file)
|
||
(load custom-file))
|
||
|
||
;; Tweak garbage collection strategy.
|
||
(use-package gcmh
|
||
:config
|
||
(gcmh-mode 1))
|
||
|
||
;; Set default storage locations for various packages.
|
||
(use-package no-littering
|
||
:config
|
||
(no-littering-theme-backups))
|
||
|
||
(use-package emacs
|
||
:custom
|
||
;; Workaround to use fish as login shell.
|
||
(shell-file-name "/bin/sh"))
|
||
|
||
(load-file (locate-user-emacs-file "init-fonts.el"))
|
||
(load-file (locate-user-emacs-file "init-interface.el"))
|
||
(load-file (locate-user-emacs-file "init-editing.el"))
|
||
(load-file (locate-user-emacs-file "init-miscellaneous.el"))
|
||
|
||
|
||
;;;
|
||
;;; Set up initial screen.
|
||
;;;
|
||
|
||
(progn
|
||
(setopt initial-scratch-message
|
||
"\
|
||
;;; Type your Guile program here and evaluate it.
|
||
;;; `M-x cua-mode' to use Ctrl-C/X/Z for copy, cut, paste.
|
||
;;; `M-x evil-mode' for Vim-like experience.
|
||
\n")
|
||
(scheme-mode)
|
||
(geiser-repl-import-module "(gnu)")
|
||
(geiser-repl-import-module "(nonguix)")
|
||
(geiser-repl-import-module "(rosenthal)")
|
||
(delete-window)
|
||
(display-splash-screen))
|