my-frame-params.el

;; 画面の行数を取得
(defun my-get-frame-rows()
  "get frame rows"
  (let (
        (rows (round (/ (x-display-pixel-height) (frame-char-height))))
        )
    (- rows 3)
    )
  )
;; 画面半分になる幅を取得
(defun my-get-frame-cols()
  "get frame cols"
  (let (
        (cols (round (/ (x-display-pixel-width) (frame-char-width))))
        )
    (- (round (/ cols 2)) 1)
    )
  )