;; Time-stamp: <2022-07-27 11h57 CEST (radix)>

;; -----------------------------------------------------------------------------
;; Interface

(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(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)

(setq echo-keystrokes 0.1
      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)))))

(global-set-key (kbd "C-c 3") (lambda ()
                (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)
  (load-theme 'acme t)
  (set-face-attribute 'font-lock-comment-face nil :slant 'italic)
  ;; (set-face-attribute 'region nil :background "orange")
  (set-face-attribute 'default nil :font "Iosevka Slab-10")
  (set-face-attribute 'variable-pitch nil :font "Frank Ruehl CLM-18"))


(setq-default line-spacing nil)

(blink-cursor-mode 0)
(setq cursor-type 'box)
;; (set-cursor-color "orange")

(set-fringe-style 0)
;; (set-fringe-mode 128)

;; -----------------------------------------------------------------------------
;; 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)

(setq create-lockfiles nil)

;; -----------------------------------------------------------------------------
;; Defaults

(setq fill-column 80)

(setq standard-indent 4)
(setq-default tab-width 4
              indent-tabs-mode nil)
(add-hook 'before-save-hook #'whitespace-cleanup)

(show-paren-mode t)

(setq-default truncate-lines t
          truncate-partial-width-windows nil)
(setq scroll-step 1
      scroll-margin 5)

(setq next-line-add-newlines nil)

(setq enable-dir-local-variables nil)

(setq shell-file-name "bash")

;; -----------------------------------------------------------------------------
;; Basic packages

(use-package recentf
  :demand t
  :config
  (setq recentf-max-saved-items 42)
  (recentf-mode))

(use-package uniquify
  :config
  (setq uniquify-buffer-name-style 'forward))

(use-package tramp
  :config
  (setq tramp-use-ssh-controlmaster-options nil))

(require 'saveplace)
(save-place-mode)

;; (use-package undo-tree
;;   :ensure t
;;   :config (setq undo-tree-visualizer-timestamps t)
;;   (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))

;; -----------------------------------------------------------------------------
;; Scratch buffer

(defun immortal-scratch ()
  (if (eq (current-buffer) (get-buffer "*scratch*"))
      (progn (bury-buffer) nil) t))

(add-hook 'kill-buffer-query-functions 'immortal-scratch)

;; I couldn't understand the config options, so this is the next best thing
(defun display-startup-echo-area-message () nil)

(setq initial-scratch-message nil
      initial-buffer-choice t)

(add-hook 'after-init-hook
      (lambda ()
        (setq default-directory "~/")))