diff options
Diffstat (limited to 'emacs/inits/01-basic.el')
| -rw-r--r-- | emacs/inits/01-basic.el | 48 |
1 files changed, 36 insertions, 12 deletions
diff --git a/emacs/inits/01-basic.el b/emacs/inits/01-basic.el index fab9724..f1511a3 100644 --- a/emacs/inits/01-basic.el +++ b/emacs/inits/01-basic.el @@ -1,4 +1,4 @@ -;; Time-stamp: <2022-05-04 21h32 CDT (hobbies)> +;; Time-stamp: <2023-08-07 09h15 CEST (anker)> ;; ----------------------------------------------------------------------------- ;; Interface @@ -29,18 +29,42 @@ (enlarge-window-horizontally (- (+ 1 fill-column) ww))))) (global-set-key (kbd "C-c 3") (lambda () - (interactive) - (split-window-horizontally) - (enlarge-to-fill))) + (interactive) + (split-window-horizontally) + (enlarge-to-fill))) (add-to-list 'custom-theme-load-path "~/.emacs.d/themes/") -(when (eq 'x (window-system)) - (load-theme 'acme t) - (set-face-attribute 'font-lock-comment-face nil :slant 'italic) +(use-package circadian + :ensure t + :config + (setq calendar-latitude 52.34 + calendar-longitude 4.87 + circadian-themes '(("07:30" . acme) + ("15:00" . modus-operandi) + (:sunset . nord))) + (circadian-setup)) + +;; (defun my-disable-bold-fonts () +;; (interactive) +;; (mapc +;; (lambda (face) +;; (set-face-attribute face nil :weight 'normal)) +;; (face-list))) + +;; (my-disable-bold-fonts) + +(when 't + (setq my-font "PxPlus IBM VGA 9x16-24") + (setq my-font "Sudo-22") + (setq my-font "Commit Mono-23") + (set-face-attribute 'fixed-pitch-serif nil :font my-font) + (set-face-attribute 'fixed-pitch nil :font my-font) + (set-face-attribute 'default nil :font my-font) + (set-face-attribute 'font-lock-comment-face nil :font my-font :slant 'italic) ;; (set-face-attribute 'region nil :background "orange") - (set-face-attribute 'default nil :font "Hermit-14") - (set-face-attribute 'variable-pitch nil :font "Frank Ruehl CLM-18")) + (set-face-attribute 'variable-pitch nil :font my-font) + ) (setq-default line-spacing nil) @@ -77,7 +101,7 @@ (show-paren-mode t) (setq-default truncate-lines t - truncate-partial-width-windows nil) + truncate-partial-width-windows nil) (setq scroll-step 1 scroll-margin 5) @@ -123,5 +147,5 @@ initial-buffer-choice t) (add-hook 'after-init-hook - (lambda () - (setq default-directory "~/"))) + (lambda () + (setq default-directory "~/"))) |