68 lines
2.4 KiB
EmacsLisp
68 lines
2.4 KiB
EmacsLisp
|
(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))
|
||
|
|
|