working system
This commit is contained in:
commit
e0ad4ea627
53 changed files with 2927 additions and 0 deletions
32
lisp/init-gui-frames.el
Normal file
32
lisp/init-gui-frames.el
Normal file
|
@ -0,0 +1,32 @@
|
|||
;; Suppres GUI features
|
||||
|
||||
(setq use-file-dialog nil)
|
||||
(setq use-dialog-box nil)
|
||||
(setq inhibit-startup-screen t)
|
||||
|
||||
(tool-bar-mode -1)
|
||||
(set-scroll-bar-mode nil)
|
||||
(menu-bar-mode -1)
|
||||
|
||||
(let ((no-border '(internal-border-width . 0)))
|
||||
(add-to-list 'default-frame-alist no-border)
|
||||
(add-to-list 'initial-frame-alist no-border))
|
||||
|
||||
|
||||
(setq frame-title-format
|
||||
'((:eval (if (buffer-file-name)
|
||||
(abbreviate-file-name (buffer-file-name))
|
||||
"%b"))))
|
||||
|
||||
(require-package 'default-text-scale)
|
||||
(add-hook 'after-init-hook 'default-text-scale-mode)
|
||||
|
||||
(require-package 'disable-mouse)
|
||||
(add-hook 'after-init-hook 'global-disable-mouse-mode)
|
||||
|
||||
(when (fboundp 'pixel-scroll-precision-mode)
|
||||
(pixel-scroll-precision-mode))
|
||||
|
||||
|
||||
(provide 'init-gui-frames)
|
||||
|
Loading…
Add table
Add a link
Reference in a new issue