diff options
Diffstat (limited to 'emacs/inits/01-basic.el')
| -rw-r--r-- | emacs/inits/01-basic.el | 94 |
1 files changed, 47 insertions, 47 deletions
diff --git a/emacs/inits/01-basic.el b/emacs/inits/01-basic.el index bc1bad9..54848c9 100644 --- a/emacs/inits/01-basic.el +++ b/emacs/inits/01-basic.el @@ -1,4 +1,4 @@ -;; Time-stamp: <2021-09-05 20h52 EDT (hobbies)> +;; Time-stamp: <2021-09-27 08h47 EDT (hobbies)> ;; ----------------------------------------------------------------------------- ;; Interface @@ -9,40 +9,40 @@ (fset 'yes-or-no-p 'y-or-n-p) (setq select-enable-clipboard t - select-enable-primary t - save-interprogram-paste-before-kill t - require-final-newline t - visible-bell nil) + select-enable-primary t + save-interprogram-paste-before-kill t + require-final-newline t + visible-bell nil) (setq echo-keystrokes 0.1 - confirm-kill-emacs 'y-or-n-p - disabled-command-function nil - ring-bell-function 'ignore) + confirm-kill-emacs 'y-or-n-p + disabled-command-function nil + ring-bell-function 'ignore) (size-indication-mode t) (defun enlarge-to-fill () - "Stretch the buffer to accomodate `fill-column` many columns." - (interactive) - (let ((ww (window-width))) - (when (< ww (+ 1 fill-column)) - (enlarge-window-horizontally (- (+ 1 fill-column) ww))))) + "Stretch the buffer to accomodate `fill-column` many columns." + (interactive) + (let ((ww (window-width))) + (when (< ww (+ 1 fill-column)) + (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)) ;;; Time-based theming - (if (<= 20 (nth 2 (decode-time))) - (load-theme 'nord t) - (load-theme 'solo-jazz t)) - ;; (load-theme 'solo-jazz t) ;; turns out i just like this one though - ;; (set-face-attribute 'region nil :background "orange") - (set-face-attribute 'default nil :font "Iosevka-18")) + (if (<= 20 (nth 2 (decode-time))) + (load-theme 'nord t) + (load-theme 'solo-jazz t)) + ;; (load-theme 'solo-jazz t) ;; turns out i just like this one though + ;; (set-face-attribute 'region nil :background "orange") + (set-face-attribute 'default nil :font "Iosevka-18")) (blink-cursor-mode 0) (setq cursor-type 'box) @@ -55,11 +55,11 @@ ;; Backups (setq backup-by-copying t - backup-directory-alist '(("." . "/home/user/store/backups/")) - delete-old-versions t - kept-new-versions 6 - kept-old-versions 2 - version-control t) + backup-directory-alist '(("." . "/home/user/store/backups/")) + delete-old-versions t + kept-new-versions 6 + kept-old-versions 2 + version-control t) (setq create-lockfiles nil) @@ -69,14 +69,14 @@ (setq fill-column 80) (setq standard-indent 2) -(setq-default tab-width 2 - indent-tabs-mode t) +(setq-default tab-width 8 + indent-tabs-mode t) (add-hook 'before-save-hook #'whitespace-cleanup) (show-paren-mode t) (setq-default truncate-lines t - truncate-partial-width-windows nil) + truncate-partial-width-windows nil) (setq scroll-step 1) (setq next-line-add-newlines nil) @@ -89,14 +89,14 @@ ;; Basic packages (use-package recentf - :demand t - :config - (setq recentf-max-saved-items 42) - (recentf-mode)) + :demand t + :config + (setq recentf-max-saved-items 42) + (recentf-mode)) (use-package uniquify - :config - (setq uniquify-buffer-name-style 'forward)) + :config + (setq uniquify-buffer-name-style 'forward)) (require 'saveplace) (save-place-mode) @@ -107,19 +107,19 @@ ;; (global-undo-tree-mode 1)) (use-package keyfreq - :ensure t - :config - (setq keyfreq-file "~/.emacs.d/keyfreq" - keyfreq-file-lock "~/.emacs.d/keyfreq.lock") - (keyfreq-mode 1) - (keyfreq-autosave-mode 1)) + :ensure t + :config + (setq keyfreq-file "~/.emacs.d/keyfreq" + keyfreq-file-lock "~/.emacs.d/keyfreq.lock") + (keyfreq-mode 1) + (keyfreq-autosave-mode 1)) ;; ----------------------------------------------------------------------------- ;; Scratch buffer (defun immortal-scratch () - (if (eq (current-buffer) (get-buffer "*scratch*")) - (progn (bury-buffer) nil) t)) + (if (eq (current-buffer) (get-buffer "*scratch*")) + (progn (bury-buffer) nil) t)) (add-hook 'kill-buffer-query-functions 'immortal-scratch) @@ -127,8 +127,8 @@ (defun display-startup-echo-area-message () nil) (setq initial-scratch-message nil - initial-buffer-choice t) + initial-buffer-choice t) (add-hook 'after-init-hook - (lambda () - (setq default-directory "~/"))) + (lambda () + (setq default-directory "~/"))) |