;; Time-stamp: <2024-07-08 10h27 CEST (anker)>

(setq time-stamp-active t
      time-stamp-line-limit 3
      time-stamp-format "%Y-%02m-%02d %02Hh%02M %Z (%s)")

(add-hook 'before-save-hook #'time-stamp)

(defun insert-timestamp ()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (unless (search-forward "Time-stamp: "
                            (line-beginning-position (1+ time-stamp-line-limit))
                            t)
      (goto-char (point-min))
      (newline)
      (beginning-of-line 0)
      (comment-dwim nil)
      (insert (concat "Time-stamp: " "<>"))
      (newline))
    (time-stamp)))

(global-set-key (kbd "C-x t") 'insert-timestamp)

(global-set-key (kbd "C-z") 'nil)

(use-package eterm-256color
  :ensure t
  :config
  (add-hook 'term-mode-hook #'eterm-256color-mode)
  (global-set-key (kbd "C-c c") 'ansi-term))

(global-set-key (kbd "C-x e") 'eval-expression)

(global-set-key (kbd "M-i") 'indent-region)

;; -----------------------------------------------------------------------------
;; Killing

(global-set-key (kbd "C-c C-k") 'kill-whole-line)
(global-set-key (kbd "M-z") 'zap-up-to-char)

(defun better-backward-kill-word (arg)
  (interactive "p")
  (if (region-active-p) (kill-region 0 0 t)
    (backward-kill-word arg)))

(global-set-key (kdb "M-h") 'better-backward-kill-word)
(global-set-key (kbd "M-<Backspace>") 'better-backward-kill-word)

;; -----------------------------------------------------------------------------
;; Line entry

(defun vi-open-line-below ()
  "Insert a newline below the current line and put point at beginning."
  (interactive)
  (unless (eolp)
    (end-of-line))
  (newline-and-indent))

(global-set-key (kbd "M-o") 'vi-open-line-below)

;; -----------------------------------------------------------------------------
;; Zoom! Enhance!

(global-set-key (kbd "M-C-+") 'text-scale-increase)
(global-set-key (kbd "M-C--") 'text-scale-decrease)