110 lines
3.0 KiB
EmacsLisp
110 lines
3.0 KiB
EmacsLisp
;;; init-ui.el --- UI Configuration File -*- lexical-binding: t -*-
|
|
;;; Commentary:
|
|
;; Some parts copied from prelude-ui.el and prelude-editor.el
|
|
;; {menu,tool,scoll}-bar-mode disabled in early-init.el, rather than here
|
|
;;; Code:
|
|
|
|
(use-package emacs
|
|
:config
|
|
(toggle-frame-maximized)
|
|
(add-to-list 'default-frame-alist '(fullscreen . maximized))
|
|
|
|
;; https://github.com/rougier/elegant-emacs/blob/master/sanity.el
|
|
(setq inhibit-startup-screen t
|
|
inhibit-startup-echo-area-message t
|
|
inhibit-startup-message t
|
|
initial-scratch-message nil)
|
|
|
|
(blink-cursor-mode -1)
|
|
|
|
(setq whitespace-line-column 120)
|
|
(setq ring-bell-function 'ignore
|
|
visible-bell t)
|
|
|
|
;; TODO do we want these? (copied from prelude)
|
|
(setq scroll-margin 0
|
|
scroll-conservatively 100000
|
|
scroll-preserve-screen-position 1)
|
|
|
|
(global-display-line-numbers-mode)
|
|
(global-hl-line-mode +1)
|
|
|
|
(fset 'yes-or-no-p 'y-or-n-p)
|
|
|
|
(global-set-key (kbd "C-x C-S-k") 'kill-this-buffer)
|
|
|
|
(setq frame-title-format
|
|
'("Emacs: " (:eval (if (buffer-file-name)
|
|
(abbreviate-file-name (buffer-file-name))
|
|
"%b"))))
|
|
|
|
(when (eq system-type 'darwin)
|
|
(setq mac-option-modifier 'meta)
|
|
(setq mac-right-option-modifier 'none)
|
|
(setq mac-command-modifier 'super)))
|
|
|
|
(use-package modus-themes
|
|
:init
|
|
;; (setq modus-themes-syntax '(alt-syntax green-strings yellow-comments))
|
|
(setq modus-themes-syntax '(green-strings yellow-comments)
|
|
modus-themes-paren-match '(bold intense underline)
|
|
modus-themes-lang-checkers '(text-also background))
|
|
(load-theme 'modus-vivendi t))
|
|
|
|
(use-package whitespace
|
|
:ensure nil
|
|
:diminish
|
|
:custom
|
|
(whitespace-line-column 120)
|
|
(whitespace-style '(face tabs empty trailing lines-tail))
|
|
:hook
|
|
(text-mode . (lambda () (whitespace-mode +1)))
|
|
(prog-mode . (lambda () (whitespace-mode +1)))
|
|
(cider-repl-mode . (lambda () (whitespace-mode -1)))
|
|
(ielm-mode . (lambda () (whitespace-mode -1)))
|
|
(vterm-mode . (lambda () (whitespace-mode -1)))
|
|
(eshell-mode . (lambda () (whitespace-mode -1))))
|
|
|
|
(use-package hi-lock
|
|
:diminish
|
|
:config
|
|
(when (eq system-type 'darwin)
|
|
(defun my/toggle-highlight-symbol-at-point ()
|
|
(interactive)
|
|
(if hi-lock-interactive-patterns
|
|
(unhighlight-regexp (car (car hi-lock-interactive-patterns)))
|
|
(highlight-symbol-at-point)))
|
|
(global-set-key (kbd "s-.") 'my/toggle-highlight-symbol-at-point)))
|
|
|
|
(use-package volatile-highlights
|
|
:diminish
|
|
:config
|
|
(volatile-highlights-mode t))
|
|
|
|
(use-package idle-highlight-mode
|
|
:hook (prog-mode . idle-highlight-mode))
|
|
|
|
(use-package paren
|
|
:config
|
|
(show-paren-mode +1))
|
|
|
|
(use-package which-key
|
|
:diminish
|
|
:config (which-key-mode +1))
|
|
|
|
(use-package key-chord
|
|
:config
|
|
(key-chord-mode +1))
|
|
|
|
(use-package rainbow-delimiters
|
|
:config
|
|
(rainbow-delimiters-mode +1))
|
|
|
|
(use-package rainbow-mode
|
|
:diminish)
|
|
|
|
(use-package smartrep)
|
|
|
|
(provide 'init-ui)
|
|
;;; init-ui.el ends here
|