33 lines
981 B
Plaintext
33 lines
981 B
Plaintext
|
(defun my-disable-gui-bars (&optional frame)
|
|||
|
|
"Turn off tool-, menu- and scroll‑bars in FRAME (default: current frame)."
|
|||
|
|
(with-selected-frame (or frame (selected-frame))
|
|||
|
|
(menu-bar-mode -1)
|
|||
|
|
(tool-bar-mode -1)
|
|||
|
|
(scroll-bar-mode -1)))
|
|||
|
|
|
|||
|
|
;; Apply to the first frame right now
|
|||
|
|
(my-disable-gui-bars)
|
|||
|
|
|
|||
|
|
;; And to every frame created in the future
|
|||
|
|
(add-hook 'after-make-frame-functions #'my-disable-gui-bars)
|
|||
|
|
|
|||
|
|
;; Prevent the bars from flickering at startup
|
|||
|
|
(setq default-frame-alist
|
|||
|
|
'((menu-bar-lines . 0)
|
|||
|
|
(tool-bar-lines . 0)
|
|||
|
|
(vertical-scroll-bars . nil)))
|
|||
|
|
|
|||
|
|
;;(setq inhibit-startup-screen t)
|
|||
|
|
|
|||
|
|
(global-set-key (kbd "C-w <left>") #'windmove-left)
|
|||
|
|
(global-set-key (kbd "C-w <right>") #'windmove-right)
|
|||
|
|
(global-set-key (kbd "C-w <up>") #'windmove-up)
|
|||
|
|
(global-set-key (kbd "C-w <down>") #'windmove-down)
|
|||
|
|
|
|||
|
|
(load-theme 'tango-dark t)
|
|||
|
|
|
|||
|
|
;;(add-to-list 'default-frame-alist
|
|||
|
|
;; '(font . "Fira Code-14"))
|
|||
|
|
|
|||
|
|
(setq org-support-shift-select nil)
|