;;; init-startup.el
;;; -*- lexical-binding: t -*-

;; mac自动全屏
(when *is-mac*
  (toggle-frame-fullscreen)
  (global-unset-key (kbd "<f12>"))
  (global-set-key (kbd "<f12>") 'toggle-frame-fullscreen))

;; 配置备份文件和自动保存文件目录
(setq backup-directory-alist
      `((".*" . ,(expand-file-name "backup/" user-emacs-directory)))
      backup-by-copying t
      delete-old-versions t
      kept-new-versions 6
      kept-old-versions 2
      version-control t)

(setq auto-save-file-name-transforms
      `((".*" ,(expand-file-name "auto-save-list/" user-emacs-directory) t)))

;; 开启水平滚动
(put 'scroll-left 'disabled nil)

;; 关闭lock文件
(setq create-lockfiles nil)

;; 关闭提示音
(setq ring-bell-function 'ignore)

;; 同步scoop目录
(when *is-windows*
  (add-to-list 'exec-path (expand-file-name "H/appppppppppp/scoop/apps/"))
  (setenv "PATH" (concat (expand-file-name "H/appppppppppp/scoop/apps/") ";" (getenv "PATH"))))

;; 同步brew目录
(when *is-mac*
  (add-to-list 'exec-path (expand-file-name "/opt/homebrew/bin/"))
  (setenv "PATH" (concat (expand-file-name "/opt/homebrew/bin/") ":" (getenv "PATH"))))

;; 当文件被外部修改时自动刷新
(global-auto-revert-mode 1)

;; 开启rencent file mode
(recentf-mode)
(setq recentf-max-saved-items 30)	;; 最大保存数量

;; 启用select delete
(delete-selection-mode)

;; 启用winner mode
(winner-mode)

;; 自定义scratch
(setq initial-scratch-message
      ";; SCRATCH SCRATCH SCRATCH\n\n")

;; 开启server mode
(server-start)

;; 窗口名
(setq-default frame-title-format '("%b - Emacs"))

;; electirc-pair-mode
(add-hook 'emacs-lisp-mode-hook 'electric-pair-mode)
(add-hook 'org-mode-hook 'electric-pair-mode)

(provide 'init-startup)