;;; 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