dotfiles/emacs/.emacs.d/config/init-ui.el

46 lines
1.2 KiB
EmacsLisp
Raw Normal View History

2021-02-21 02:59:11 +00:00
;; -*- lexical-binding: t; -*-
2021-02-20 16:52:15 +00:00
;; Don't show ugly graphical UI elements
(when (window-system)
(tool-bar-mode -1)
(scroll-bar-mode -1)
(tooltip-mode -1))
2021-05-12 15:03:32 +00:00
(when (fboundp 'mac-auto-operator-composition-mode)
(setq mac-auto-operator-composition-characters
"!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")
(mac-auto-operator-composition-mode))
;; Doom themes are the best themes!
(use-package doom-themes)
2021-10-15 14:40:32 +00:00
(use-package shrink-path
:straight (:host github :repo "zbelial/shrink-path.el"))
(use-package doom-modeline
:config
(doom-modeline-mode 1))
;; Load custom themes
(add-to-list 'custom-theme-load-path (expand-file-name "config/themes" user-emacs-directory))
2021-02-20 23:24:00 +00:00
;; A small package to hide the mode line
(use-package hide-mode-line
:commands hide-mode-line-mode)
2021-02-26 21:47:28 +00:00
;; A function to set the frame font
(defun set-font (font)
"Set the frame font to `font'"
(interactive (list (completing-read "Font: "
(delete-dups (font-family-list)))))
(set-frame-font font))
2021-04-15 19:26:56 +00:00
(defun text-scale-reset ()
(interactive)
(text-scale-increase 0))
(general-def
"C-c +" #'text-scale-increase
"C-c -" #'text-scale-decrease
"C-c 0" #'text-scale-reset)
(provide 'init-ui)