
(defun myframes-3 ()
  (split-window-horizontally 78)
  (other-window 1)
  (split-window-horizontally 78)
  (other-window 1)
  (split-window-vertically 40)
  (other-window 1))

(defun myframes-2 ()
  (split-window-horizontally 80)
  (other-window 1)
  (split-window-vertically 40)
  (other-window 1))

(defun myframes-1 ()
  (split-window-vertically 40)
  (other-window 1))

(defun myframes ()
  "Restores custom frame layout."
  (interactive)
  (delete-other-frames)
  (let ((width (frame-width (selected-frame))))
    (cond
     ((> width 164) (myframes-3))
     ((> width 118) (myframes-2))
     (t (myframes-1)))))
(myframes)

(global-set-key [begin] 'beginning-of-line)


(set-language-environment "UTF-8")
(setq slime-net-coding-system 'utf-8-unix)

(setq common-lisp-hyperspec-root
      "file:///data/doc/CommonLisp/HyperSpec/HyperSpec/")
(setq browse-url-browser-function 'browse-url-generic
      browse-url-generic-program "/usr/local/libexec/tmux-lynx.sh")
(setq inferior-lisp-program "/usr/local/ecl/bin/ecl")
(add-to-list 'load-path "~/emacs-scripts")
(add-to-list 'load-path "~/emacs-scripts/slime")
(require 'slime)
(slime-setup '(slime-fancy slime-asdf))
(slime)

(autoload 'paredit-mode "paredit"
  "Minor mode for pseudo-structurally editing Lisp code."
  t)

(global-font-lock-mode t)
(show-paren-mode t)

(require 'parenface)
(load-file "/usr/share/misc/NetBSD.el")

(menu-bar-mode nil)
(iswitchb-mode t)
(line-number-mode t)
(column-number-mode t)
(transient-mark-mode t)

(require 'font-lock)
(font-lock-add-keywords
	'c-mode
	'(("\\<\\(XXX\\)" 1 highlight t)))
(font-lock-add-keywords
	'lisp-mode
	'(("\\<\\(XXX\\)" 1 highlight t)))

(setq inhibit-splash-screen t)

