;;; -*- 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)

