Как найти размер моей системы в Emacs?

Question

Я использую те же самые .emacs на нескольких машинах, операционных системах и платформах. Я хотел бы, чтобы размер фрейма по умолчанию Emacs при вызове был относительно доступного размера экрана (например, 96 строк очень хорошо работают на рабочем столе 1600x1200, но на ноутбуке 1280x800 мне нужно указать не более 68 строк).

Есть ли выражение emacs-lisp, которое возвращает ширину & Высота экрана системы?

Обновление: Я только что нашел similar question, но по какой-либо причине ни один из них (ширина x-display-pixel-width) и (ширина пикселя-изображения) не найден в моем GNU Emacs 23.2 в системе Windows XP. Продолжая исследования ...

Answer 1

Я бегу Gnu Emacs 23.2.1 на XP Pro, а функции

(x-display-pixel-width) 

и

(x-display-pixel-height) 

оба работают нормально. Они являются частью источника c и должны присутствовать.

Вы можете запускать emacs за пределами терминала, которому он доверяет?

Вот документация из моих текущих Emacs:

x-display-pixel-height является встроенной функцией в `C исходный код».

(x-display-pixel-height &optional TERMINAL) 

Верните высоту в пикселях X-дисплея TERMINAL. Необязательный аргумент TERMINAL указывает, на какой дисплей нужно спросить. TERMINAL должен быть терминальным объектом, фреймом или отображаемым именем (строка). Если опущено или равно нулю, это означает, что дисплей выбранного кадра.

Кроме того, у меня есть вся библиотека удобных функций, которые помогут вам выбрать размер и перемещение рамки emacs, если вам интересно.

Answer 2

Благодаря ответ и комментарии Криса и Скотт, мне удалось придумать следующую рабочую линию в моем .emacs:

(set-frame-size (selected-frame) 96 (/ (* (x-display-pixel-height) 46) 600)) 

Это хорошо работает, когда я Eval-буфер на .emacs , но когда я дважды щелкаю ярлык Emacs Windows XP, это утверждение полностью игнорируется.

Я знаю, что (выбранный кадр) не является (начальный кадр), так что я тоже попытался это:

(setq initial-frame-alist 
    '((top . 1) (left . 288) (width . 96) (height . (/ (* (x-display-pixel-height) 46) 600)))) 

Но это работает только тогда, когда я Eval-буфер на .emacs чтения. Он не работает при запуске Emacs (либо из командной строки, либо путем двойного щелчка по его ярлыку). Weird.

Обновление: Я в конечном итоге установив начальный размер в команде вызова в поле Цели ярлыка:

C:\emacs-23.2\bin\runemacs.exe -geometry 96x78+240+0 

Уродливое решение, я знаю, но в настоящее время это единственное решение, которое делает трюк.

Answer 3

Я делаю это плохо, для более старой версии.

(tool-bar-mode nil) 

(mapc (lambda (x) (add-to-list 'default-frame-alist x)) 
    (list 
      (cons 'top 0) (cons 'left 0) 
      (cons 'font "-outline-Courier New-normal-r-normal-normal-11-82-96-96-c-*-iso10646-1") 
      (cons 'height 67) (cons 'width 176) 
)) 

Каркас по умолчанию создается после запуска .emacs из-по-умолчанию-alist. Я никогда не слышал об исходном кадре-алисте.