29 lines
872 B
EmacsLisp
Executable File
29 lines
872 B
EmacsLisp
Executable File
;;; -*- lexical-binding: t; -*-
|
|
|
|
(require 'syd/base)
|
|
(require 'syd/fonts)
|
|
|
|
(let ((hook (if (daemonp)
|
|
'server-after-make-frame-hook
|
|
'after-init-hook)))
|
|
(syd-add-hook hook
|
|
(defun syd-configure-default-frame-h ()
|
|
"Customise the default frame."
|
|
(modify-all-frames-parameters
|
|
'(;; Disable the titlebar and borders (decorations).
|
|
(undecorated . t)
|
|
;; Set the frame size to a little over 80 columns (to account for the
|
|
;; margin on the left-hand side of the screen).
|
|
(width . (text-pixels . 1060))))
|
|
|
|
;; Disable the menu bar, tool bar, and blinking cursor.
|
|
(menu-bar-mode -1)
|
|
(tool-bar-mode -1)
|
|
(blink-cursor-mode -1)
|
|
|
|
;; Allow `fit-window-to-buffer' to make horizontal adjustments.
|
|
(setq fit-window-to-buffer-horizontally t))))
|
|
|
|
(provide 'syd/frame)
|
|
|