;;; -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:


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

(global-set-key (kbd "C-x C-b") 'ibuffer)

(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
        initial-major-mode 'eshell-mode
        initial-scratch-message nil)
(tooltip-mode -1)

(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
  :config
  (pinentry-start)
  :custom
  (pinentry-popup-prompt-window nil))

(defun pinentry-toggle ()
  "Stops and starts Pinentry service. Workaround
for a bug I've encountered."
  (interactive)
  (pinentry-stop)
  (pinentry-start))


;;;; 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)
(setopt Man-notify-method 'pushy)


(provide 'bd--essentials)
;;; bd-essentials ends here