fnwiyaBlog

EmacsとかLispとか可視化とか

emacsを起動時に画面左半分にする

全画面はコマンドあったのですが半画面は現状ハードコードするしかないのかな?
複数環境で画面サイズが違うのでかき分けてます。

;; check-frame-size
;; at *scratch*
;; (frame-height) => C-j
;; (frame-width)  => C-j


(when (memq window-system '(mac ns))
    (add-hook 'after-init-hook (lambda()
        (set-frame-position (selected-frame) 0 0)
        (set-frame-size (selected-frame) 91 47)))
)

(when (eq system-type 'gnu/linux)
    (add-hook 'after-init-hook (lambda()
        (set-frame-position (selected-frame) 0 0)
        (set-frame-size (selected-frame) 101 50)))
  )