mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
Jim Myhrberg
c791150a06
I've taken a lot of inspiration from Emacs-Prelude when it came to the structure of this rewritten config. I didn't want to use Prelude as I don't agree with all it's defaults, nor do I want to have to deal with any future changes in Prelude that might break things for me. So instead I went down the fully custom path, but heavily inspired by Prelude, both in terms of file/code structure, and also some of it's features. Compared to my old config setup, it's got most of the same things, but nearly everything is in a module file now, making it easy to fully enable/disable certain features.
53 lines
1.4 KiB
EmacsLisp
53 lines
1.4 KiB
EmacsLisp
;;
|
|
;; ui
|
|
;;
|
|
|
|
;; the toolbar is just a waste of valuable screen estate
|
|
;; in a tty tool-bar-mode does not properly auto-load, and is
|
|
;; already disabled anyway
|
|
(when (fboundp 'tool-bar-mode)
|
|
(tool-bar-mode -1))
|
|
|
|
(menu-bar-mode -1)
|
|
|
|
;; disable startup screen
|
|
(setq inhibit-startup-screen t)
|
|
|
|
;; Disable Scrollbar
|
|
(if window-system (set-scroll-bar-mode 'nil))
|
|
|
|
;; nice scrolling
|
|
;; (setq scroll-margin 0
|
|
;; scroll-conservatively 100000
|
|
;; scroll-preserve-screen-position 1)
|
|
;; (setq redisplay-dont-pause t)
|
|
(setq mouse-wheel-scroll-amount '(1 ((shift) . 10))) ;; one line at a time
|
|
(setq mouse-wheel-follow-mouse 't) ;; scroll window under mouse
|
|
(setq scroll-margin 4)
|
|
(setq scroll-step 1)
|
|
(setq scroll-conservatively 10000)
|
|
|
|
;; mode line settings
|
|
(line-number-mode t)
|
|
(column-number-mode t)
|
|
(size-indication-mode t)
|
|
|
|
;; enable y/n answers
|
|
(fset 'yes-or-no-p 'y-or-n-p)
|
|
|
|
;; more useful frame title, that show either a file or a
|
|
;; buffer name (if the buffer isn't visiting a file)
|
|
(setq frame-title-format
|
|
'("Emacs - " (:eval (if (buffer-file-name)
|
|
(abbreviate-file-name (buffer-file-name))
|
|
"%b"))))
|
|
|
|
(require 'smart-mode-line)
|
|
(setq sml/no-confirm-load-theme t)
|
|
;; delegate theming to the currently active theme
|
|
(setq sml/theme nil)
|
|
(add-hook 'after-init-hook #'sml/setup)
|
|
|
|
|
|
(provide 'siren-ui)
|