Bläddra i källkod

rm window-size-save

pull/1/head
10sr 12 år sedan
förälder
incheckning
26dd276ca9
1 ändrade filer med 1 tillägg och 61 borttagningar
  1. +1
    -61
      emacs.el

+ 1
- 61
emacs.el Visa fil

@@ -1232,6 +1232,7 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
(lambda ()
(define-key dired-mode-map "o" 'my-dired-x-open)
(define-key dired-mode-map "i" 'dired-get-du)
(define-key dired-mode-map "f" 'find-file)
(define-key dired-mode-map "!" 'shell-command)
(define-key dired-mode-map "&" 'async-shell-command)
(define-key dired-mode-map "X" 'dired-do-async-shell-command)
@@ -1751,67 +1752,6 @@ this is test, does not rename files"
(beep))))))))
;; (aref (read-key-sequence-vector "aa") 0)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; save and restore frame size
;;http://www.bookshelf.jp/soft/meadow_30.html#SEC416
(defun my-window-size-save ()
(let* ((rlist (frame-parameters (selected-frame)))
(ilist initial-frame-alist)
(nCHeight (frame-height))
(nCWidth (frame-width))
(tMargin (if (integerp (cdr (assoc 'top rlist)))
(cdr (assoc 'top rlist)) 0))
(lMargin (if (integerp (cdr (assoc 'left rlist)))
(cdr (assoc 'left rlist)) 0))
buf
(file "~/.emacs.d/.framesize.el")
(recentf-exclude '("\\.emacs\\.d/\\.framesize\\.el$")))
(if (get-file-buffer (expand-file-name file))
(setq buf (get-file-buffer (expand-file-name file)))
(setq buf (find-file-noselect file)))
(set-buffer buf)
(erase-buffer)
(insert (concat
;; 初期値をいじるよりも modify-frame-parameters
;; で変えるだけの方がいい?
"(delete 'width default-frame-alist)\n"
"(delete 'height default-frame-alist)\n"
"(delete 'top default-frame-alist)\n"
"(delete 'left default-frame-alist)\n"
"(setq default-frame-alist (append (list\n"
"'(width . " (int-to-string nCWidth) ")\n"
"'(height . " (int-to-string nCHeight) ")\n"
"'(top . " (int-to-string tMargin) ")\n"
"'(left . " (int-to-string lMargin) "))\n"
"default-frame-alist))\n"
;;"(setq default-frame-alist default-frame-alist)"
))
(save-buffer)
))
(defun my-window-size-load ()
(let* ((file "~/.emacs.d/.framesize.el"))
(if (file-exists-p file)
(load file))))
(when window-system
(my-window-size-load)
(add-hook 'after-init-hook ;何かがframeの大きさ勝手に変えやがる
(lambda ()
(run-with-timer 1
nil
(lambda ()
(modify-frame-parameters (selected-frame)
default-frame-alist))))
t)
(add-hook 'kill-emacs-hook
'my-window-size-save))

;; windowサイズを固定
;; setq default-frame-alist
;; (append (list '(width . 80)
;; '(height . 35)
;; )
;; default-frame-alist)
;; ) ;;デフォルトのフレーム設定

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;; emacsを殺伐とさせる


Laddar…
Avbryt
Spara