mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
Jim Myhrberg
0375cd0328
The core setup files for Emacs Siren which lives in the core directory followed a `siren-*.el` naming convention, which is the same as the naming convention for modules. This means that the `modules/core/siren-packages.el` module for adding packages for Emacs package development, was not being loaded due to it's name conflicting with `core/siren-packages.el` which sets up and configures the packaging system. So all files under the root `core` directory now follow a `siren-core-*.el` naming scheme, meaning modules should no longer conflict with core files.
59 lines
1.5 KiB
EmacsLisp
59 lines
1.5 KiB
EmacsLisp
;;; siren-core-ui.el --- jimeh's Emacs Siren: Emacs UI settings.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Basic configuration of Emacs UI for Siren.
|
|
|
|
;;; Code:
|
|
|
|
(require 'siren-core-transparency)
|
|
|
|
;; 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-core-ui)
|
|
;;; siren-core-ui.el ends here
|