;;; init-session.el --- configure session -*- lexical-binding: t -*-
;; Author: Franck Cuny <franck@fcuny.net>

;;; Commentary:

;; configure sesson

;;; Code:

(require 'init-util)

(setq create-lockfiles nil)                      ;; don't use a lock file
(setq confirm-kill-emacs #'yes-or-no-p)          ;; ask before killing emacs
(setq minibuffer-message-timeout 0.5)            ;; How long to display an echo-area message

(setq ring-bell-function 'ignore)                ;; really no bell
(setq tab-always-indent 'complete)               ;; when using TAB, always indent
(setq visible-bell nil)                          ;; no bell

(setq indent-tabs-mode nil)                      ;; turn off tab indentation

(setq delete-by-moving-to-trash t)               ;; delete files by moving them to the trash

(use-package electric
  :defer t
  :init
  (electric-pair-mode    1))

;; bytecomp.el
(setq byte-compile-verbose nil)

;; startup.el
(setq initial-buffer-choice t)
(setq initial-major-mode 'fundamental-mode)
(setq initial-scratch-message "")

(setq user-full-name "Franck Cuny")
(setq user-mail-address "franck@fcuny.net")
(setq add-log-mailing-address "franck@fcuny.net")

(setq history-length 200)
(setq history-delete-duplicates t)
(setq completion-ignored-extensions
      '(".class"
        ".cp"
        ".elc"
        ".fmt"
        ".git/"
        ".pyc"
        ".so"
        "~"))

;; paragraphs.el
(setq sentence-end-double-space nil)

;; switch to view-mode whenever you are in a read-only buffer (e.g.
;; switched to it using C-x C-q).
(setq view-read-only t)

;; window.el
(setq switch-to-buffer-preserve-window-point t)

;; warnings.el
(setq warning-minimum-log-level :error)

(use-package savehist
  :unless noninteractive
  :custom
  (savehist-additional-variables
   '(file-name-history
     kmacro-ring
     compile-history
     compile-command))
  (savehist-autosave-interval 60)
  (savehist-file (user-data "history"))
  (savehist-ignored-variables
   '(load-history
     flyspell-auto-correct-ring
     org-roam-node-history
     magit-revision-history
     org-read-date-history
     query-replace-history
     yes-or-no-p-history
     kill-ring))
  (savehist-mode t)
  :config
  (savehist-mode 1))

(use-package saveplace
  :unless noninteractive
  :custom
  (save-place-file (user-data "places"))
  :config
  (save-place-mode 1))

(provide 'init-session)

;;; init-session.el ends here