Fix locale issues with TeX

Author: ronert

custom.el

@@ -133,10 +133,10 @@
      (102 . "\\footcite[][]{%l}")
      (70 . "\\fullcite[]{%l}")
      (120 . "[]{%l}")
-     (88 . "{%l}"))) t)
+     (88 . "{%l}"))))
  '(reftex-default-bibliography
    (quote
-    ("/Users/ronert/Dropbox/bib/library.bib" "/Users/ronert/Dropbox/bib/rpackages.bib" "/Users/ronert/Dropbox/bib/websites.bib")) t)
+    ("/Users/ronert/Dropbox/bib/library.bib" "/Users/ronert/Dropbox/bib/rpackages.bib" "/Users/ronert/Dropbox/bib/websites.bib")))
  '(reftex-ref-style-alist
    (quote
     (("Default" t

init.el

@@ -2,7 +2,7 @@
 (if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
 
 ;; No splash screen please ... jeez
-(setq inhibit-startup-message t)
+(setq inhibit-startupmessage t)
 
 ;; Set path to dependencies
 (add-to-list 'load-path (expand-file-name "lisp" user-emacs-directory))
@@ -27,6 +27,7 @@
 (defvar init-files
   '(
     ;; Appearance
+    init-locales
     init-appearance
     ;;----------------------------------------------------------------------------
     ;; Load configs for specific features and modes
@@ -104,10 +105,10 @@
 ;;----------------------------------------------------------------------------;; Allow access from emacsclient
 ;;----------------------------------------------------------------------------
 (add-hook 'after-init-hook
-          (lambda ()
-            (require 'server)
-            (unless (server-running-p)
-              (server-start))))
+	  (lambda ()
+	    (require 'server)
+	    (unless (server-running-p)
+	      (server-start))))
 
 ;;----------------------------------------------------------------------------;; Variables configured via the interactive 'customize' interface
 ;;----------------------------------------------------------------------------

lisp/init-exec-path.el

@@ -16,6 +16,7 @@
     (add-to-list 'exec-path "/usr/texbin:/usr/local/bin")
     (add-to-list 'exec-path "~/anaconda3/bin")
     (add-to-list 'exec-path "~/.local/bin")
+    (exec-path-from-shell-copy-envs '("LANG" "LC_ALL" "LC_CTYPES"))
     )
   )
 

lisp/init-locales.el

@@ -0,0 +1,26 @@
+;;; init-locales.el --- Configure default locale -*- lexical-binding: t -*-
+;;; Commentary:
+;;; Code:
+
+(defun sanityinc/locale-var-encoding (v)
+  "Return the encoding portion of the locale string V, or nil if missing."
+  (when v
+    (save-match-data
+      (let ((case-fold-search t))
+	(when (string-match "\\.\\([^.]*\\)\\'" v)
+	  (intern (downcase (match-string 1 v))))))))
+
+(dolist (varname '("LC_ALL" "LANG" "LC_CTYPE"))
+  (let ((encoding (sanityinc/locale-var-encoding (getenv varname))))
+    (unless (memq encoding '(nil utf8 utf-8))
+      (message "Warning: non-UTF8 encoding in environment variable %s may cause interop problems with this Emacs configuration." varname))))
+
+(when (fboundp 'set-charset-priority)
+  (set-charset-priority 'unicode))
+(prefer-coding-system 'utf-8)
+(setq locale-coding-system 'utf-8)
+(unless (eq system-type 'windows-nt)
+  (set-selection-coding-system 'utf-8))
+
+(provide 'init-locales)
+;;; init-locales.el ends here