(defun insert-lozenge ()
  "inserts the lozenge character for use with Pollen"
  ;; enables function through M-x
  (interactive)
  ;; insert the proper character
  (insert (make-char
           'mule-unicode-2500-33ff 34 42)))

(defun setup-i18n ()
  (setq file-coding-system-alist
		'(("\\.dz\\'" no-conversion . no-conversion)
		  ("\\.txz\\'" no-conversion . no-conversion)
		  ("\\.xz\\'" no-conversion . no-conversion)
		  ("\\.lzma\\'" no-conversion . no-conversion)
		  ("\\.lz\\'" no-conversion . no-conversion)
		  ("\\.g?z\\'" no-conversion . no-conversion)
		  ("\\.\\(?:tgz\\|svgz\\|sifz\\)\\'" no-conversion . no-conversion)
		  ("\\.tbz2?\\'" no-conversion . no-conversion)
		  ("\\.bz2\\'" no-conversion . no-conversion)
		  ("\\.Z\\'" no-conversion . no-conversion)
		  ("\\.elc\\'" . utf-8-emacs)
		  ("\\.el\\'" . prefer-utf-8)
		  ("\\.utf\\(-8\\)?\\'" . utf-8)
		  ("\\.xml\\'" . xml-find-file-coding-system)
		  ("\\(\\`\\|/\\)loaddefs.el\\'" raw-text . raw-text-unix)
		  ("\\.tar\\'" no-conversion . no-conversion)
		  ("\\.po[tx]?\\'\\|\\.po\\." . po-find-file-coding-system)
		  ("\\.\\(tex\\|ltx\\|dtx\\|drv\\)\\'" . latexenc-find-file-coding-system)
		  ("" utf-8-unix . utf-8-unix))))

(defun config-hs-minor-mode ()
  (require 'hideshow)
  (add-hook 'emacs-lisp-mode-hook 'hs-minor-mode)
  (add-hook 'lisp-mode-hook 'hs-minor-mode)
  (add-hook 'java-mode-hook 'hs-minor-mode)
  (add-hook 'perl-mode-hook 'hs-minor-mode)
  (add-hook 'sh-mode-hook 'hs-minor-mode)
  (add-hook 'c-mode-common-hook 'hs-minor-mode))

(defun misc-config ()
  (setq auto-mode-alist
		(append '(("\\.zsh\\'" . shell-script-mode)
				  ("\\.csh\\\'" . shell-script-mode))
				auto-mode-alist))
  (setup-i18n)
  (global-undo-tree-mode)
  (setq undo-tree-visualizer-timestamps t)
  (setq undo-tree-visualizer-diff t)
  (setq paradox-github-token "20294bb5aaf9ce694b205e6b5a9e000525277abe")
  (bind-keys* ("C-x u" . undo-tree-visualize))
  (guide-key-mode 1)
  (global-linum-mode 1)
  (diminish 'guide-key-mode)
  (setq guide-key/guide-key-sequence '("C-x r" "C-x 4" "C-c"))
  (global-set-key (kbd "C-c C-g") 'goto-line)
  (global-set-key "\M-\\" 'insert-lozenge)
  (setq-default tab-width 4)
  (config-hs-minor-mode)
  (load-theme 'rongsong t))

(register-mypkg
 (list :name "misc"
       :enabled t
       :packages '(undo-tree s guide-key rainbow-delimiters
							 paradox diminish)
       :config #'misc-config))