如果要根据分辨率更改大小,可以执行以下操作(根据您的特定需要调整首选宽度和分辨率):
(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)
请注意,在较新版本的 emacs 中不推荐使用 window-system。一个合适的替代品是 (display-graphic-p)
。有关更多背景信息,请参阅问题 How to detect that emacs is in terminal-mode? 的 this answer。
我的 .emacs
中有以下内容:
(if (window-system)
(set-frame-height (selected-frame) 60))
您还可以查看函数 set-frame-size
、set-frame-position
和 set-frame-width
。使用 C-h f
(又名 M-x describe-function
)调出详细的文档。
我不确定是否有办法计算当前窗口环境中框架的最大高度/宽度。
(if (window-system) (set-frame-size (selected-frame) 124 40))
为胜利 - 如此简洁明了,让我得到我的终端默认的大小,这很好而且熟悉。 :) (当然,根据喜好调整。)谢谢!
init.el
中,它只适用于初始帧。如果之后再创建一个新框架,上述功能将不起作用;新框架将具有在 default-frame-alist
中设置的设置。
(set-frame-size (selected-frame) 80 24)
给了我 161 x 48 的帧;我在 4K hidpi 屏幕上,但我不希望这会影响字符数。
取自: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)))
第一个设置适用于所有 emacs 框架,包括启动时弹出的第一个框架。第二个设置将附加属性添加到第一帧。这是因为有时很高兴知道您启动 emacs 的原始框架。
(width . 80) (height . 40)
),但由于某种原因,在我将 Xubuntu 版本从 12.04 升级到 13.10 后它停止工作:启动时,框架大小是默认。然后我改用克里斯康威的答案,这对我有用。
我发现在 X-Window 环境中执行此操作的最简单方法是通过 X resources。我的 .Xdefaults 的相关部分如下所示:
Emacs.geometry: 80x70
您应该能够使用 +0+0 位置坐标作为后缀,以将其强制显示在显示屏的左上角。 (我不这样做的原因是我偶尔会产生新的帧,如果它们出现在与前一个完全相同的位置,这会让事情变得混乱)
根据手册 this technique works on MS Windows too,将资源作为键/值对存储在注册表中。我从来没有测试过。这可能很棒,与简单地编辑文件相比,它可能会带来更多的不便。
尝试将以下代码添加到 .emacs
(add-to-list 'default-frame-alist '(height . 24))
(add-to-list 'default-frame-alist '(width . 80))
您还可以在启动 emacs 时使用 -geometry 参数: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 框架最大化:
(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 中无法正常工作。
不定期副业成功案例分享