2021-05-16 15:40:41 +00:00
|
|
|
;; Load essentials.
|
|
|
|
(load "~/.emacs.d/essential.el")
|
2021-01-28 21:26:52 +00:00
|
|
|
|
2021-05-16 15:40:41 +00:00
|
|
|
;; Packages.
|
2020-12-07 21:09:35 +00:00
|
|
|
(load "~/.emacs.d/packages.el")
|
|
|
|
|
2021-05-16 15:40:41 +00:00
|
|
|
;; Correct bad defaults.
|
|
|
|
(load "~/.emacs.d/tweaks.el")
|
2020-12-07 21:09:35 +00:00
|
|
|
|
2021-05-16 15:40:41 +00:00
|
|
|
;; Additional functions, keybinds.
|
|
|
|
(load "~/.emacs.d/custom.el")
|
|
|
|
|
|
|
|
;; Start an emacs server from this session, if it isn't already running.
|
|
|
|
;; This is useful for stuff like Nyxt where we can launch and emacsclient to
|
|
|
|
;; evaluate forms.
|
|
|
|
(when (not (server-running-p))
|
|
|
|
(server-start))
|
|
|
|
|
|
|
|
;; Tab width.
|
2020-12-10 21:42:07 +00:00
|
|
|
(setq-default tab-width 4)
|
2021-05-16 15:40:41 +00:00
|
|
|
;; Use spaces by default.
|
2021-03-17 11:51:55 +00:00
|
|
|
(setq-default indent-tabs-mode nil)
|
|
|
|
|
2021-05-16 15:40:41 +00:00
|
|
|
;;; Appearance
|
|
|
|
;; The font is set in fontconfig. Usually it's UW Ttyp0 or Gohufont
|
|
|
|
(set-frame-font "monospace 12")
|
|
|
|
(setq default-frame-alist '((font . "monospace 12")))
|
|
|
|
|
|
|
|
;; Highlight current line.
|
2020-12-07 21:09:35 +00:00
|
|
|
(when window-system (global-hl-line-mode t))
|
2021-05-16 15:40:41 +00:00
|
|
|
|
|
|
|
;; Highlight matching parentheses.
|
2020-12-07 21:09:35 +00:00
|
|
|
(show-paren-mode t)
|
|
|
|
|
|
|
|
;; Mode line
|
|
|
|
(line-number-mode t)
|
|
|
|
(column-number-mode t)
|
|
|
|
(setq display-time-24hr-format t)
|
|
|
|
(display-time-mode t)
|
|
|
|
|
|
|
|
;; Electric pair mode
|
|
|
|
(setq electric-pair-pairs '((?\( . ?\))
|
2021-05-16 15:40:41 +00:00
|
|
|
(?\[ . ?\])
|
|
|
|
(?\{ . ?\})
|
|
|
|
(?\" . ?\")))
|
2020-12-07 21:09:35 +00:00
|
|
|
(electric-pair-mode t)
|
|
|
|
|
2020-12-08 14:12:05 +00:00
|
|
|
;; C configuration
|
2020-12-08 21:14:05 +00:00
|
|
|
(setq c-default-style "linux"
|
|
|
|
c-basic-offset 4)
|
2020-12-08 14:12:05 +00:00
|
|
|
|
2021-01-28 21:26:52 +00:00
|
|
|
;; Scheme configuration
|
2021-05-25 19:16:01 +00:00
|
|
|
;; (setq geiser-guile-binary "/usr/bin/guile")
|
2021-05-16 15:40:41 +00:00
|
|
|
;; for ncurses development, uncomment this:
|
|
|
|
;; (setq geiser-guile-binary "/usr/local/bin/guile-ncurses-shell")
|
2021-01-30 23:13:03 +00:00
|
|
|
|
2021-05-25 19:16:01 +00:00
|
|
|
(setq geiser-active-implementations '(chez guile))
|