;;; init.el for GCPC

;; Time-stamp: <2023-06-17 09:32:53 oj14ozun>

;; Convenience
(show-paren-mode t)
(electric-pair-mode t)
(setq set-mark-command-repeat-pop t
      enable-recursive-minibuffers t
      tab-always-indent 'complete
      completion-styles '(basic initials partial-completion substring)
      completion-ignore-case t
      save-interprogram-paste-before-kill t
      mouse-yank-at-point t)

;; Haskell
(require 'haskell)
(setq haskell-completing-read-function #'completing-read
      haskell-interactive-mode-read-only nil
      haskell-process-show-debug-tips nil
      haskell-doc-prettify-types nil)
(add-hook 'haskell-mode-hook 'haskell-doc-mode)
(add-hook 'haskell-mode-hook 'interactive-haskell-mode)

;; Bindings
(defun kill-region-or-word ()
  (interactive)
  (call-interactively
   (if (region-active-p)
       #'kill-region
     #'backward-kill-word)))
(global-set-key (kbd "C-w") #'kill-region-or-word)
(global-set-key [remap suspend-frame] #'quit-window)
(global-set-key (kbd "C-z") #'ignore)
(global-set-key (kbd "M-r") #'raise-sexp)
(global-set-key (kbd "M-(") #'delete-pair)
(global-set-key (kbd "M-z") #'zap-up-to-char)
(global-set-key (kbd "C-x <backspace>") #'delete-region)

;; Printing
(setq printer-name
      (cond
       ((string-match-p "\\`cip[156]" (system-name)) "ps1acip")
       ((string-match-p "\\`cip[28]" (system-name)) "ps2acip")))
(defalias 'print-this #'ps-print-buffer-with-faces)