ฉันจะกำหนดขนาดหน้าต่างของ Emacs ได้อย่างไร?

ฉันกำลังพยายามตรวจจับขนาดของหน้าจอที่ฉันเริ่มใช้ emac และปรับขนาดและตำแหน่งของหน้าต่างที่กำลังเริ่มต้น (ฉันเดาว่านั่นคือกรอบใน emacs-speak) ตามนั้น ฉันกำลังพยายามตั้งค่า. emac ของฉันเพื่อให้ได้หน้าต่างที่ "ใหญ่พอสมควร" โดยที่มันอยู่มุมบนซ้ายใกล้กับมุมบนซ้ายของหน้าจอ

ฉันเดาว่านี่เป็นเรื่องใหญ่สำหรับกรณีทั่วไปดังนั้นเพื่อ จำกัด สิ่งต่างๆให้แคบลงฉันสนใจ GNU Emacs 22 บน Windows และ (Debian) Linux มากที่สุด

หากคุณต้องการเปลี่ยนขนาดตามความละเอียดคุณสามารถทำสิ่งนี้ได้ (ปรับความกว้างและความละเอียดที่ต้องการตามความต้องการเฉพาะของคุณ):

(defun set-frame-size-according-to-resolution ()
  (interactive)
  (if window-system
  (progn
    ;; use 120 char wide window for largeish displays
    ;; and smaller 80 column windows for smaller displays
    ;; pick whatever numbers make sense for you
    (if (> (x-display-pixel-width) 1280)
           (add-to-list 'default-frame-alist (cons 'width 120))
           (add-to-list 'default-frame-alist (cons 'width 80)))
    ;; for the height, subtract a couple hundred pixels
    ;; from the screen height (for panels, menubars and
    ;; whatnot), then divide by the height of a char to
    ;; get the height we want
    (add-to-list 'default-frame-alist 
         (cons 'height (/ (- (x-display-pixel-height) 200)
                             (frame-char-height)))))))

(set-frame-size-according-to-resolution)

โปรดทราบว่าระบบหน้าต่างเลิกใช้งานใน emac เวอร์ชันใหม่กว่า (display-graphic-p)ทดแทนที่เหมาะสม ดูคำตอบสำหรับคำถามนี้จะตรวจสอบได้อย่างไรว่า emac อยู่ในโหมดเทอร์มินัล สำหรับพื้นหลังเพิ่มเติมเล็กน้อย

ฉันมีสิ่งต่อไปนี้ใน.emacs:

(if (window-system)
  (set-frame-height (selected-frame) 60))

นอกจากนี้คุณยังอาจมีลักษณะที่ฟังก์ชั่นset-frame-size, และset-frame-position set-frame-widthใช้C-h f(aka M-x describe-function) เพื่อแสดงเอกสารโดยละเอียด

ฉันไม่แน่ใจว่ามีวิธีคำนวณความสูง / ความกว้างสูงสุดของเฟรมในสภาพแวดล้อมหน้าต่างปัจจุบันหรือไม่

นำมาจาก: http://www.gnu.org/software/emacs/windows/old/faq4.html

(setq default-frame-alist
      '((top . 200) (left . 400)
        (width . 80) (height . 40)
        (cursor-color . "white")
        (cursor-type . box)
        (foreground-color . "yellow")
        (background-color . "black")
        (font . "-*-Courier-normal-r-*-*-13-*-*-*-c-*-iso8859-1")))

(setq initial-frame-alist '((top . 10) (left . 30)))

การตั้งค่าแรกใช้กับเฟรม emac ทั้งหมดรวมถึงเฟรมแรกที่ปรากฏขึ้นเมื่อคุณเริ่ม การตั้งค่าที่สองจะเพิ่มแอตทริบิวต์เพิ่มเติมให้กับเฟรมแรก นี่เป็นเพราะบางครั้งมันก็เป็นเรื่องดีที่ได้รู้จักเฟรมดั้งเดิมที่คุณเริ่มใช้ emac

วิธีที่ง่ายที่สุดที่ฉันได้พบที่จะทำในสภาพแวดล้อมที่ X-หน้าต่างผ่านทรัพยากร X ส่วนที่เกี่ยวข้องของ. Xdefaults ของฉันมีลักษณะดังนี้:

Emacs.geometry: 80x70

คุณควรจะสามารถต่อท้ายด้วย + 0 + 0 พิกัดตำแหน่งเพื่อบังคับให้ไปที่มุมซ้ายบนของจอแสดงผลของคุณ (เหตุผลที่ฉันไม่ทำก็คือบางครั้งฉันวางไข่เฟรมใหม่และมันทำให้หลาย ๆ อย่างสับสนหากพวกมันปรากฏในตำแหน่งเดียวกันกับเฟรมก่อนหน้านี้)

ตามคู่มือเทคนิคนี้ใช้ได้กับ MS Windows เช่นกันโดยจัดเก็บทรัพยากรเป็นคู่คีย์ / ค่าในรีจิสทรี ฉันไม่เคยทดสอบสิ่งนั้น มันอาจจะดีมาก แต่อาจมีความไม่สะดวกมากกว่าเมื่อเทียบกับการแก้ไขไฟล์

ลองเพิ่มรหัสต่อไปนี้ใน .emacs

(add-to-list 'default-frame-alist '(height . 24))

(add-to-list 'default-frame-alist '(width . 80)) 

คุณยังสามารถใช้พารามิเตอร์ -geometry เมื่อเริ่มใช้ emacs: emacs -geometry 80x60+20+30จะทำให้คุณมีหน้าต่างกว้าง 80 อักขระสูง 60 แถวโดยที่มุมบนซ้าย 20 พิกเซลไปทางขวาและ 30 พิกเซลจากมุมบนซ้ายของพื้นหลัง

บน Ubuntu ทำ:

(defun toggle-fullscreen ()
  (interactive)
  (x-send-client-message nil 0 nil "_NET_WM_STATE" 32
                 '(2 "_NET_WM_STATE_MAXIMIZED_VERT" 0))
  (x-send-client-message nil 0 nil "_NET_WM_STATE" 32
                 '(2 "_NET_WM_STATE_MAXIMIZED_HORZ" 0))
)
(toggle-fullscreen)

บน windows คุณสามารถทำให้ emacs frame ขยายใหญ่สุดได้โดยใช้ฟังก์ชันนี้:

(defun w32-maximize-frame ()
  "Maximize the current frame"
  (interactive)
  (w32-send-sys-command 61488))

(setq initial-frame-alist
        (append '((width . 263) (height . 112) (top . -5) (left . 5) (font . "4.System VIO"))
                initial-frame-alist))

(setq default-frame-alist
        (append '((width . 263) (height . 112) (top . -5) (left . 5) (font . "4.System VIO"))
                default-frame-alist))

(defun set-frame-size-according-to-resolution ()
  (interactive)
  (if window-system
  (progn
    ;; use 120 char wide window for largeish displays
    ;; and smaller 80 column windows for smaller displays
    ;; pick whatever numbers make sense for you
    (if (> (x-display-pixel-width) 1280)
           (add-to-list 'default-frame-alist (cons 'width 120))
           (add-to-list 'default-frame-alist (cons 'width 80)))
    ;; for the height, subtract a couple hundred pixels
    ;; from the screen height (for panels, menubars and
    ;; whatnot), then divide by the height of a char to
    ;; get the height we want
    (add-to-list 'default-frame-alist 
         (cons 'height (/ (- (x-display-pixel-height) 200)
                             (frame-char-height)))))))

(set-frame-size-according-to-resolution)

ฉันชอบการตั้งค่าของ Bryan Oakley มากกว่า อย่างไรก็ตาม'ความสูงไม่ทำงานอย่างถูกต้องใน GNU Emacs 24.1.1 ของฉัน