mirror of
https://github.com/lliding/ld-emacs.git
synced 2025-10-13 05:23:05 +00:00
150 lines
4.4 KiB
EmacsLisp
150 lines
4.4 KiB
EmacsLisp
;; -*- coding: utf-8; -*-
|
|
;;; Require:
|
|
|
|
;;; Code:
|
|
(setq package-archives
|
|
'(("gnu" . "http://elpa.emacs-china.org/gnu/")
|
|
("melpa" . "http://elpa.emacs-china.org/melpa/")))
|
|
|
|
;; disable some bars
|
|
(if window-system
|
|
(progn
|
|
(tool-bar-mode -1)
|
|
(menu-bar-mode -1)
|
|
(scroll-bar-mode -1))
|
|
(menu-bar-mode -1))
|
|
|
|
;; map Win key and Hyper key to Super and Hyper for emacs on Windows.
|
|
(when *win64*
|
|
(setq w32-pass-lwindow-to-system nil)
|
|
(setq w32-lwindow-modifier 'super) ; Left Windows key
|
|
(setq w32-pass-rwindow-to-system nil)
|
|
(setq w32-rwindow-modifier 'super) ; Right Windows key
|
|
(w32-register-hot-key [s-])
|
|
;; (setq w32-pass-apps-to-system nil)
|
|
(setq w32-apps-modifier 'hyper) ; Menu/App key
|
|
(w32-register-hot-key [H-]))
|
|
|
|
;; Restore emacs session.
|
|
;(setq initial-buffer-choice t)
|
|
;(run-with-timer 1 nil #'(lambda () (bury-buffer)))
|
|
|
|
;; turn on word-wrap in all buffers
|
|
(global-visual-line-mode t)
|
|
(setq word-wrap-by-category t) ;; enhanced CJK word wrap since Emacs28
|
|
|
|
;; line number and column number
|
|
(global-display-line-numbers-mode t) ;; show line numbers in every mode
|
|
(column-number-mode t) ;; show column number
|
|
; Line numbers are not displayed when large files are used.
|
|
(setq line-number-display-limit large-file-warning-threshold)
|
|
(setq line-number-display-limit-width 1000)
|
|
|
|
;; parentheses config
|
|
(show-paren-mode t) ;; show bracket pairing
|
|
(electric-pair-mode t) ;; automatic completion of parentheses
|
|
|
|
;; highlight current line
|
|
(global-hl-line-mode t)
|
|
|
|
;; auto reload file content
|
|
(global-auto-revert-mode t)
|
|
|
|
;; delete selected text when input on it
|
|
(delete-selection-mode t)
|
|
|
|
;; record recently opened files
|
|
(recentf-mode 1)
|
|
(setq recentf-max-menu-items 25)
|
|
(setq recentf-max-saved-items 25)
|
|
|
|
;; treat OneWord or one_word as one word
|
|
(global-subword-mode t)
|
|
|
|
;; disable cursor blink
|
|
(blink-cursor-mode -1)
|
|
|
|
;; decompress a file when open it
|
|
(auto-compression-mode t)
|
|
|
|
;; disable the ring bell
|
|
(setq ring-bell-function 'ignore)
|
|
|
|
;; set `text-mode' as default major-mode
|
|
(setq default-major-mode 'text-mode)
|
|
|
|
;; use Posix format for time string
|
|
(setq system-time-locale "C")
|
|
|
|
;; replace yes/no with y/n
|
|
;; but since emacs 28 user can use (use-short-answers t) to do it
|
|
(fset 'yes-or-no-p 'y-or-n-p)
|
|
|
|
;; do not show welcome page
|
|
(setq inhibit-startup-screen t)
|
|
|
|
;; use single space as sentence end, default is two
|
|
(setq sentence-end-double-space nil)
|
|
|
|
;; make key prompt faster
|
|
(setq echo-keystrokes 0.1)
|
|
|
|
;; increase IO performance
|
|
(setq process-adaptive-read-buffering nil)
|
|
(setq read-process-output-max (* 1024 1024))
|
|
|
|
;; scrolling config
|
|
(setq scroll-margin 3
|
|
scroll-conservatively 101
|
|
auto-window-vscroll nil)
|
|
|
|
;; clean scratch buffer content
|
|
; a non-clean scratch buffer will disturb session restore
|
|
(setq initial-scratch-message "")
|
|
|
|
;; exit emacs without confirmation to kill running processes
|
|
(setq confirm-kill-processes nil)
|
|
|
|
;; resize frame in pixel
|
|
(setq frame-resize-pixelwise t)
|
|
|
|
;; show a big square when cursor is on 'tab'
|
|
(setq x-stretch-cursor t)
|
|
|
|
;; delete duplicate minibuffer history
|
|
(setq history-delete-duplicates t)
|
|
|
|
;; allow scroll in isearch
|
|
(setq isearch-allow-scroll t)
|
|
|
|
;; don't ask me when close emacs with running process
|
|
(defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate)
|
|
"Prevent annoying \"Active processes exist\" query when you quit Emacs."
|
|
(cl-flet ((process-list ())) ad-do-it))
|
|
|
|
;; don't ask when kill process buffer
|
|
(setq kill-buffer-query-functions
|
|
(remq 'process-kill-buffer-query-function
|
|
kill-buffer-query-functions))
|
|
|
|
;; (setq byte-compile-warnings
|
|
;; (quote (
|
|
;; ;; 显示的警告
|
|
;; free-vars ;不在当前范围的引用变量
|
|
;; unresolved ;不知道的函数
|
|
;; callargs ;函数调用的参数和定义的不匹配
|
|
;; obsolete ;荒废的变量和函数
|
|
;; noruntime ;函数没有定义在运行时期
|
|
;; interactive-only ;正常不被调用的命令
|
|
;; make-local ;调用 `make-variable-buffer-local' 可能会不正确的
|
|
;; mapcar ;`mapcar' 调用
|
|
;; ;;
|
|
;; ;; 抑制的警告
|
|
;; (not redefine) ;重新定义的函数 (比如参数数量改变)
|
|
;; (not cl-functions) ;`CL' 包中的运行时调用的函数
|
|
;; )))
|
|
|
|
(provide 'init-generic)
|
|
|
|
;;; init-generic.el ends here
|