First commit.

lisp/ux/coding.el

@@ -0,0 +1,29 @@
+;;; 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