mirror of
https://codeberg.org/hako/Rosenthal.git
synced 2026-02-20 19:14:20 +00:00
9d90607a02
* modules/rosenthal/examples/emacs/init-editing.el (emacs): Disable ‘cua-mode’. * modules/rosenthal/examples/emacs/init.el: Add it to initial-scratch-message.
45 lines
1.1 KiB
EmacsLisp
45 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.
|
||
\n")
|
||
(scheme-mode)
|
||
(geiser-repl-import-module "(gnu)")
|
||
(geiser-repl-import-module "(nonguix)")
|
||
(geiser-repl-import-module "(rosenthal)")
|
||
(delete-window)
|
||
(display-splash-screen))
|