30 lines
966 B
EmacsLisp
30 lines
966 B
EmacsLisp
;;; coding.el --- Coding system configuration -*- lexical-binding: t; -*-
|
|
;;; Commentary:
|
|
;;; Code:
|
|
|
|
(defun user--coding-config ()
|
|
"Initialize coding system."
|
|
;; Prefer UTF-8 if there is a choice
|
|
(prefer-coding-system 'utf-8)
|
|
(when (eq default-terminal-coding-system 'utf-8)
|
|
;; Set coding systems to UTF-8
|
|
(set-default-coding-systems 'utf-8)
|
|
(set-terminal-coding-system 'utf-8)
|
|
(set-keyboard-coding-system 'utf-8)
|
|
(when (eq window-system 'x)
|
|
;; Treat X11 clipboard input as UTF-8 string first; compound text next,
|
|
;; etc.
|
|
(validate-setq
|
|
x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))))
|
|
|
|
;;; (Bindings) ;;;
|
|
(user/bind-key-global :emacs :describe-coding 'describe-coding-system)
|
|
(user/bind-key-global :emacs :describe-char 'describe-char)
|
|
(user/bind-key-global :emacs :describe-language 'describe-language-environment))
|
|
|
|
(user--coding-config)
|
|
|
|
|
|
(provide 'ux/coding)
|
|
;;; coding.el ends here
|