;; -*- lexical-binding: t; -*-


;;;; standard bindings
(keymap-global-unset "C-z")
(keymap-global-unset "C-x C-z")

(global-set-key (kbd "C-z =") 'text-scale-increase)
(global-set-key (kbd "C-z -") 'text-scale-decrease)
(setopt text-scale-mode-step 1.1)


;;;; UI
(setopt inhibit-startup-message t)

(defun pulse-line (&rest _)
  "Pulse the current line."
  (pulse-momentary-highlight-one-line (point)))

(dolist (command '(scroll-up-command scroll-down-command
                                     recenter-top-bottom other-window))
  (advice-add command :after #'pulse-line))


;;;; insecure passwording
(use-package pinentry
  :init
  (pinentry-start)
  :custom
  (pinentry-popup-prompt-window nil))


;;;; defaults
;; basic editing
(setopt kill-whole-line t
        sentence-end-double-space nil)
(setq-default tab-width 8)
(global-hl-line-mode 1)
(global-visual-line-mode t)

(setopt next-line-add-newlines t)


;;;; buffers
(global-auto-revert-mode 1)
(setopt global-auto-revert-non-file-buffers t
        auto-revert-interval 30)
(setopt scroll-up-aggressively '0.50
        scroll-down-aggressively '0.50)


(provide 'bd--essentials)