207 lines
6.7 KiB
EmacsLisp
207 lines
6.7 KiB
EmacsLisp
;;; init-global-config.el --- -*- lexical-binding: t -*-
|
|
;;
|
|
;; Filename: init-global-config.el
|
|
;; Description: Initialize Global Configurations
|
|
;; Author: Mingde (Matthew) Zeng
|
|
;; Copyright (C) 2019 Mingde (Matthew) Zeng
|
|
;; Created: Thu Mar 14 14:01:54 2019 (-0400)
|
|
;; Version: 3.0
|
|
;; URL: https://github.com/MatthewZMD/.emacs.d
|
|
;; Keywords: M-EMACS .emacs.d
|
|
;; Compatibility: emacs-version >= 26.1
|
|
;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;
|
|
;;; Commentary:
|
|
;;
|
|
;; This file initializes global configurations
|
|
;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;
|
|
;; This program is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or (at
|
|
;; your option) any later version.
|
|
;;
|
|
;; This program 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
|
|
;; General Public License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
|
;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;
|
|
;;; Code:
|
|
|
|
(eval-when-compile
|
|
(require 'init-const))
|
|
|
|
;; SudoEditPac
|
|
(use-package sudo-edit
|
|
:commands (sudo-edit))
|
|
;; -SudoEditPac
|
|
|
|
;; DefBindings
|
|
;; Unbind unneeded keys
|
|
(global-set-key (kbd "C-z") nil)
|
|
(global-set-key (kbd "M-z") nil)
|
|
(global-set-key (kbd "M-m") nil)
|
|
(global-set-key (kbd "C-x C-z") nil)
|
|
(global-set-key (kbd "M-/") nil)
|
|
;; Truncate lines
|
|
(global-set-key (kbd "C-x C-l") #'toggle-truncate-lines)
|
|
;; Adjust font size like web browsers
|
|
(global-set-key (kbd "C-=") #'text-scale-increase)
|
|
(global-set-key (kbd "C-+") #'text-scale-increase)
|
|
(global-set-key (kbd "C--") #'text-scale-decrease)
|
|
;; Move up/down paragraph
|
|
(global-set-key (kbd "M-n") #'forward-paragraph)
|
|
(global-set-key (kbd "M-p") #'backward-paragraph)
|
|
;; -DefBindings
|
|
|
|
;; UTF8Coding
|
|
(unless *sys/win32*
|
|
(set-selection-coding-system 'utf-8)
|
|
(prefer-coding-system 'utf-8)
|
|
(set-language-environment "UTF-8")
|
|
(set-default-coding-systems 'utf-8)
|
|
(set-terminal-coding-system 'utf-8)
|
|
(set-keyboard-coding-system 'utf-8)
|
|
(setq locale-coding-system 'utf-8))
|
|
;; Treat clipboard input as UTF-8 string first; compound text next, etc.
|
|
(when (display-graphic-p)
|
|
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)))
|
|
;; -UTF8Coding
|
|
|
|
;; EditExp
|
|
;; Remove useless whitespace before saving a file
|
|
(defun delete-trailing-whitespace-except-current-line ()
|
|
"An alternative to `delete-trailing-whitespace'.
|
|
|
|
The original function deletes trailing whitespace of the current line."
|
|
(interactive)
|
|
(let ((begin (line-beginning-position))
|
|
(end (line-end-position)))
|
|
(save-excursion
|
|
(when (< (point-min) (1- begin))
|
|
(save-restriction
|
|
(narrow-to-region (point-min) (1- begin))
|
|
(delete-trailing-whitespace)
|
|
(widen)))
|
|
(when (> (point-max) (+ end 2))
|
|
(save-restriction
|
|
(narrow-to-region (+ end 2) (point-max))
|
|
(delete-trailing-whitespace)
|
|
(widen))))))
|
|
|
|
(defun smart-delete-trailing-whitespace ()
|
|
"Invoke `delete-trailing-whitespace-except-current-line' on selected major modes only."
|
|
(unless (member major-mode '(diff-mode))
|
|
(delete-trailing-whitespace-except-current-line)))
|
|
|
|
(defun toggle-auto-trailing-ws-removal ()
|
|
"Toggle trailing whitespace removal."
|
|
(interactive)
|
|
(if (member #'smart-delete-trailing-whitespace before-save-hook)
|
|
(progn
|
|
(remove-hook 'before-save-hook #'smart-delete-trailing-whitespace)
|
|
(message "Disabled auto remove trailing whitespace."))
|
|
(add-hook 'before-save-hook #'smart-delete-trailing-whitespace)
|
|
(message "Enabled auto remove trailing whitespace.")))
|
|
;; Add to hook during startup
|
|
(add-hook 'before-save-hook #'smart-delete-trailing-whitespace)
|
|
|
|
;; Replace selection on insert
|
|
(delete-selection-mode 1)
|
|
|
|
;; Map Alt key to Meta
|
|
(setq x-alt-keysym 'meta)
|
|
;; -EditExp
|
|
|
|
;; History
|
|
(use-package recentf
|
|
:ensure nil
|
|
:hook (after-init . recentf-mode)
|
|
:custom
|
|
(recentf-auto-cleanup "05:00am")
|
|
(recentf-max-saved-items 200)
|
|
(recentf-exclude '((expand-file-name package-user-dir)
|
|
".cache"
|
|
".cask"
|
|
".elfeed"
|
|
"bookmarks"
|
|
"cache"
|
|
"ido.*"
|
|
"persp-confs"
|
|
"recentf"
|
|
"undo-tree-hist"
|
|
"url"
|
|
"COMMIT_EDITMSG\\'")))
|
|
|
|
;; When buffer is closed, saves the cursor location
|
|
(save-place-mode 1)
|
|
|
|
;; Set history-length longer
|
|
(setq-default history-length 500)
|
|
;; -History
|
|
|
|
;; SmallConfigs
|
|
;; Move the backup fies to user-emacs-directory/.backup
|
|
(setq backup-directory-alist `(("." . ,(expand-file-name ".backup" user-emacs-directory))))
|
|
|
|
;; Ask before killing emacs
|
|
(setq confirm-kill-emacs 'y-or-n-p)
|
|
|
|
;; Automatically kill all active processes when closing Emacs
|
|
(setq confirm-kill-processes nil)
|
|
|
|
;; Turn Off Cursor Alarms
|
|
(setq ring-bell-function 'ignore)
|
|
|
|
;; Show Keystrokes in Progress Instantly
|
|
(setq echo-keystrokes 0.1)
|
|
|
|
;; Don't Lock Files
|
|
(setq-default create-lockfiles nil)
|
|
|
|
;; Better Compilation
|
|
(setq-default compilation-always-kill t) ; kill compilation process before starting another
|
|
|
|
(setq-default compilation-ask-about-save nil) ; save all buffers on `compile'
|
|
|
|
(setq-default compilation-scroll-output t)
|
|
|
|
;; ad-handle-definition warnings are generated when functions are redefined with `defadvice',
|
|
;; they are not helpful.
|
|
(setq ad-redefinition-action 'accept)
|
|
|
|
;; Move Custom-Set-Variables to Different File
|
|
(setq custom-file (concat user-emacs-directory "custom-set-variables.el"))
|
|
(load custom-file 'noerror)
|
|
|
|
;; So Long mitigates slowness due to extremely long lines.
|
|
;; Currently available in Emacs master branch *only*!
|
|
(when (fboundp 'global-so-long-mode)
|
|
(global-so-long-mode))
|
|
|
|
;; Add a newline automatically at the end of the file upon save.
|
|
(setq require-final-newline t)
|
|
|
|
;; Enable `erase-buffer' function
|
|
(put 'erase-buffer 'disabled nil)
|
|
|
|
;; Default .args, .in, .out files to text-mode
|
|
(add-to-list 'auto-mode-alist '("\\.in\\'" . text-mode))
|
|
(add-to-list 'auto-mode-alist '("\\.out\\'" . text-mode))
|
|
(add-to-list 'auto-mode-alist '("\\.args\\'" . text-mode))
|
|
(add-to-list 'auto-mode-alist '("\\.bb\\'" . shell-script-mode))
|
|
(add-to-list 'auto-mode-alist '("\\.bbclass\\'" . shell-script-mode))
|
|
(add-to-list 'auto-mode-alist '("\\.Rmd\\'" . markdown-mode))
|
|
;; -SmallConfigs
|
|
|
|
(provide 'init-global-config)
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;; init-global-config.el ends here
|