-;;; init.el --- Emmanuel Roubion's personal init file -*- lexical-binding: t; -*-
+;;; init.el --- Emmanuel Roubion's personal init file -*- lexical-binding: t; coding: utf-8  -*-
+
 ;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Emmanuel Roubion
 
 ;; Author: Emmanuel Roubion
+;; Keywords: Emacs
 ;; URL: https://github.com/maanuair/dotfiles
 
 ;; This file is part of Emmanuel's Roubion dot files, released under

			  (float-time
			    (time-subtract after-init-time before-init-time)))
		  gcs-done)))

;; Use a hook so we restore settings after init
(add-hook 'after-init-hook
	`(lambda ()
	   (setq
	     gc-cons-threshold  (* 800 1024)
	     gc-cons-percentage 0.1)
	   (garbage-collect)) t)

;; ======================================================================
;; Act I


          ;; Meta-shortcut to show all custom shortcuts
          ;; Note: it's the only one with a "C-= C" prefix, which is precisely unmatched
          ("C-= C-="   . (lambda ()
                           (interactive)
                           (progn
                             (if (get-buffer "*Occur*")
                               (kill-buffer "*Occur*"))
                             (delete-other-windows)
                             (my/find-emacs-init-file)
                             ;; Occurences of "C-=" or "s-", excluding this and next line ;-)
                             (occur "\\(\"C-= [^C[\"]+\"\\)\\|\\(\"s-[^C[\"]+\"\\)")))))
  :init
  ;; Thanks to https://www.masteringemacs.org/article/working-coding-systems-unicode-emacs
  (prefer-coding-system 'utf-8)
  (set-default-coding-systems 'utf-8)
  (set-terminal-coding-system 'utf-8)
  (set-keyboard-coding-system 'utf-8)

  ;; Man pages are rendered properly irrespective of LC_* variable values.
  (setq locale-coding-system 'utf-8)
  (setq buffer-file-coding-system 'utf-8)

  :config
  (set-fontset-font                   t nil     "Monaco 12")
  (set-fontset-font                   t 'symbol (font-spec :family "Apple Color Emoji"))
