(setq ring-bell-function (lambda ()))
(windmove-default-keybindings)
-(server-start)
+(require 'server)
+(if (server-running-p)
+ (message "Warning: server %S is already running." server-name)
+ (server-start))
;; Host specific configuration ------------------------------------------------
(let ((host (system-name)))
(load-file path)
(message "Warning: file %s is absent" path)))
+;; session
+(require-if-present 'session)
+
;; flyspell
(require-if-present 'flyspell)
(mapcar (lambda (mode)
(add-to-list 'ac-modes mode))
'(autoconf-mode
- erlang-mode))
+ erlang-mode
+ sql-mode))
(setq ac-modes (remove 'css-mode ac-modes))
(add-hook 'erlang-mode-hook
(lambda ()
(add-to-list 'riece-addons 'riece-keyword)
(add-to-list 'riece-addons 'riece-ctlseq)))
-;; ecb
+;; CEDET
+(add-to-list 'load-path "/usr/pkg/share/emacs/cedet/common")
+(require-if-present 'cedet)
+
+;; ECB
(require-if-present 'ecb-autoloads)
(let* ((hosts '(("netbsd." .
(("~/sandbox/yxmimeproc" "yxmimeproc")
;; SKK
(require 'skk-autoloads)
+(require 'skk-study)
(global-set-key "\C-x\C-j" 'skk-mode)
(global-set-key "\C-xj" 'skk-auto-fill-mode)
(global-set-key "\C-xt" 'skk-tutorial)
'(ecb-add-path-for-not-matching-files (quote (t)))
'(ecb-help-info-path "/sw/share/info/ecb.info")
'(ecb-layout-name "left14")
- '(ecb-options-version "2.32")
+ '(ecb-options-version "2.40")
'(ecb-show-sources-in-directories-buffer (quote always))
'(ecb-tip-of-the-day nil)
'(ecb-tree-buffer-style (quote ascii-guides))
'(rng-schema-locating-files (quote ("schemas.xml" "/sw/share/schema/schemas.xml" "~/share/nxml/schemas.xml")))
'(rst-level-face-base-light 50)
'(safe-local-variable-values (quote ((todo-categories "Todo" "Todo" "Todo" "Todo"))))
+ '(session-use-package t nil (session))
'(tramp-auto-save-directory "/tmp/tramp-auto-save")
'(tramp-completion-reread-directory-timeout 2)
'(tramp-default-host "localhost")