blob: d5ba07569ab1cb2e2af33de85e40b7ae96ee686c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
;; Disable useless visual elements
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)
;; So we can let the WM make this a floating window
(setq frame-title-format "ec")
;; XDG Directories
(defconst xdg-cache-home
(or (getenv "XDG_CACHE_HOME")
(expand-file-name ".cache" (getenv "HOME"))))
(defconst xdg-config-home
(or (getenv "XDG_CONFIG_HOME")
(expand-file-name ".config" (getenv "HOME"))))
;; Keep the config directory clean
(let ((cache-dir (expand-file-name "ec" xdg-cache-home)))
(setq user-emacs-directory cache-dir
auto-save-list-file-prefix (expand-file-name
"auto-save-list/"
cache-dir)
backup-directory-alist `(("." . ,(expand-file-name
"backups"
cache-dir)))))
;; Themeing
(add-to-list 'custom-theme-load-path (expand-file-name "emacs" xdg-config-home))
(add-to-list 'default-frame-alist '(alpha-background . 90))
(add-hook 'after-make-frame-functions
(lambda (_)
(dolist (face '(default fixed-pitch))
(set-face-attribute face nil
:font "Iosevka Smooth"
:weight 'regular
:height 162))))
(load-theme 'mango t)
;; Set default settings
(with-eval-after-load 'calc
(setopt calc-show-banner nil
initial-buffer-choice (lambda () (get-buffer "*Calculator*")))
(keymap-set calc-mode-map "q" #'delete-frame))
;; Enter ‘full-calc’ mode
(full-calc)
|
