;;; ycp-basic.el -- My config for basic stuff -*- lexical-binding: t -*-

;; Copyright (C) 2023 Free Software Foundation.

;; Author: Yuchen Pei <id@ypei.org>
;; Package-Requires: ((emacs "28.2"))

;; This file is part of dotfiles.

;; dotfiles is free software: you can redistribute it and/or modify it
;; under the terms of the GNU Affero General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.

;; dotfiles is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Affero General Public License for more details.

;; You should have received a copy of the GNU Affero General Public
;; License along with dotfiles.  If not, see
;; <https://www.gnu.org/licenses/>.

;;; Commentary:

;; My config for basic stuff.

;;; Code:


(my-configure
  (my-keybind global-map
    "C-x C-c" nil
    "C-x C-c C-c" #'save-buffers-kill-emacs
    "C-x C-z" nil
    )
  (my-keybind special-event-map
    "<sigusr1>" 'my-quit-emacs)
  (setq auth-source-save-behavior nil)
  (setq use-short-answers t)
  (setq use-dialog-box nil)
  (prefer-coding-system 'utf-8)
  (set-default-coding-systems 'utf-8)
  (set-terminal-coding-system 'utf-8)
  (set-keyboard-coding-system 'utf-8)
  (set-language-environment 'utf-8)
  (setq load-prefer-newer t)
  (setq message-log-max 16384)
  (setq attempt-stack-overflow-recovery nil)
  (setq confirm-kill-processes nil)
  (setq attempt-orderly-shutdown-on-fatal-signal nil)
  ;; Use visible bell instead of beeping
  (setq visible-bell t)
  )

(my-package my-utils
  (:delay 5)
  (my-setq-from-local my-audio-incoming-dir my-video-incoming-dir
                      my-document-incoming-dir)
  (my-keybind global-map
    "C-c <f2>" #'my-rename-file-and-buffer
    "C-c <delete>" #'my-delete-file-and-kill-buffer
    "C-g" #'my-keyboard-quit-dwim
    )
  )

(provide 'ycp-basic)
;;; ycp-basic.el ends here