33 lines
761 B
EmacsLisp
33 lines
761 B
EmacsLisp
|
;; 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)
|
||
|
|
|