;; don't use stale .elc files
load-prefer-newer t
;; maximize Emacs on startup
- default-frame-alist '((fullscreen . fullboth))
+ ;; default-frame-alist '((fullscreen . fullboth))
;; disable popup dialogs
use-dialog-box nil
;; disable splash screen
(underline-link-visited border)
(underline-link-symbolic border)
(fg-region unspecified))
+ ef-themes-mixed-fonts t
+ ef-themes-variable-pitch-ui t
+ ef-themes-region nil
;; follow links to version-controlled files without confirming
vc-follow-symlinks t
;; jump from .c to .h files with find-sibling-file
gnus-face-1 'bold
gnus-face-2 'gnus-cite-1
gnus-face-3 'shadow
- gnus-summary-line-format "%1{%U%R%z%}%B%2{%f%} %3{(%&user-date;, %k)%}:%* %s\n"
+ gnus-summary-line-format "%1{%U%R%z%}%B%2{%~(form (replace-regexp-in-string \" via .*\" \"\" (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from)))@%} %3{(%&user-date;, %k)%}:%* %s\n"
gnus-simplify-subject-functions '(gnus-simplify-subject-re)
gnus-treat-display-smileys nil
gnus-secondary-select-methods '((nnimap "gmail"
magit-repository-directories '(("~/checkouts/" . 1))
;; have Dired operations target another visible Dired buffer
dired-dwim-target t
- ;; use zsh in vterm by default
- vterm-shell "/bin/zsh"
vterm-max-scrollback 2048
vterm-kill-buffer-on-exit nil
vterm-use-vterm-prompt-detection-method t
(setq-default indent-tabs-mode nil))
(esy/init-step theme
- "Load the `modus-vivendi' theme."
- (require-theme 'modus-themes)
- (load-theme 'modus-vivendi))
+ "Load and enable a custom theme."
+ ;; (require-theme 'modus-themes)
+ ;; (load-theme 'modus-vivendi)
+ (require 'ef-themes)
+
+ (defun esy/ef-themes-load-random ()
+ (interactive)
+ (let* ((themes (seq-filter
+ (lambda (theme)
+ (not (equal theme (ef-themes--current-theme))))
+ '(
+ ef-autumn
+ ef-bio
+ ef-cherie
+ ef-cyprus
+ ef-dark
+ ef-day
+ ef-duo-dark
+ ef-duo-light
+ ef-elea-dark
+ ef-elea-light
+ ef-frost
+ ef-kassio
+ ef-light
+ ef-night
+ ef-spring
+ ef-summer
+ ef-symbiosis
+ ef-trio-dark
+ ef-trio-light
+ ef-winter
+ )))
+ (n (random (length themes)))
+ (pick (nth n themes))
+ (loaded (if (null pick) (car themes) pick)))
+ (ef-themes--load-theme loaded)
+ (message "Loaded `%s'" loaded)))
+
+ (esy/ef-themes-load-random))
(esy/init-step fonts
"Set up the Iosevka font family."
(backward-word)
(kill-region (point) end))))
+ (defvar duplicate-line-final-position)
+
(defun duplicate-line-stay (arg)
(interactive "p")
(let ((duplicate-line-final-position 0))
(keymap-global-set "C-c l" #'org-store-link)
(keymap-global-set "C-c a" #'org-agenda)
(keymap-global-set "C-c v" #'vterm-other-window)
- (keymap-global-set "C-c p" sweeprolog-prefix-map)
(keymap-global-set "C-c S" #'scratch-buffer)
(keymap-global-set "C-c m" #'esy/emms-map)
(keymap-global-set "C-c !" #'consult-flymake)
(keymap-global-set "C-s-f" #'toggle-frame-fullscreen)
(keymap-global-set "C-s-l" #'esy/pulse-line)
(keymap-global-set "\"" #'insert-pair)
+ (keymap-global-set "<f5>" #'esy/ef-themes-load-random)
(keymap-set ctl-x-map "b" #'consult-buffer)
(keymap-set ctl-x-4-map "b" #'consult-buffer-other-window)
(esy/init-step vterm
"Configure terminal emulation via `vterm'."
(with-eval-after-load 'vterm
+ (when (eq system-type 'darwin)
+ (setq vterm-shell "/bin/zsh"))
(add-to-list 'vterm-tramp-shells '("kubernetes" "/bin/bash"))))
(esy/init-step paredit
(with-eval-after-load 'sweeprolog
(setq sweeprolog-top-level-persistent-history
(locate-user-emacs-file ".sweep_history"))
+ (keymap-global-set "C-c p" sweeprolog-prefix-map)
(add-hook 'sweeprolog-mode-hook #'sweeprolog-electric-layout-mode)
(add-hook 'sweeprolog-top-level-mode-hook #'compilation-shell-minor-mode)))