X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=dot-files%2F_emacs_el;h=72426b0329f373cf6a8661e0010f9e0a90e71f46;hb=3787269b0f41f792c3e90c1bdac543bfb8abf7c7;hp=356fa1c9164a0b2ea8f5f65287d42a2332efca16;hpb=92dfa10e154132eae59ac213d644aa128e886287;p=sugar.git

diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index 356fa1c..72426b0 100644
--- a/dot-files/_emacs_el
+++ b/dot-files/_emacs_el
@@ -42,6 +42,11 @@
 (display-time)
 
 ;; Setting for Frames ----------------------------------------------------------
+(when window-system
+  (set-default-font "Bitstream Vera Sans Mono 11")
+  (set-fontset-font (frame-parameter nil 'font)
+                    'japanese-jisx0208
+                    '("Hiragino Kaku Gothic Pro W3" . "unicode-bmp")))
 
 ;; Hooks for newline-and-indent ------------------------------------------------
 (mapcar (lambda (hook)
@@ -72,6 +77,14 @@
          (message "Warning: feature %s is absent" feature) ; warn and ignore
        (apply 'signal (car e) (cdr e)))))) ; rethrow
 
+(defun load-if-present (file)
+  (condition-case e
+      (load file)
+    (file-error
+     (if (equal (cadr e) "Cannot open load file")
+         (message "Warning: file named %s is absent" file) ; warn and ignore
+       (apply 'signal (car e) (cdr e)))))) ; rethrow
+
 (defun load-file-if-present (path)
   (if (file-exists-p path)
       (load-file path)
@@ -80,6 +93,9 @@
 ;; flyspell
 (require-if-present 'flyspell)
 
+;; jaspace
+(require-if-present 'jaspace)
+
 ;; mic-paren
 (require-if-present 'mic-paren)
 (if (featurep 'mic-paren)
@@ -92,9 +108,29 @@
 ;; MPC
 ;(require-if-present 'mpc-autoloads)
 
+;; rst-mode
+(autoload 'rst-mode "rst"
+  "mode for editing reStructuredText documents" t)
+(setq auto-mode-alist
+      (append '(("\\.rst$" . rst-mode)
+                ("\\.rest$" . rst-mode)) auto-mode-alist))
+
+;; twittering-mode
+(require-if-present 'twittering-mode)
+(setq twittering-username "phonohawk")
+
 ;; cedet
 (load-file-if-present "/usr/pkg/share/emacs/site-lisp/cedet/common/cedet.el")
 
+;; riece
+(autoload 'riece "riece" "Start Riece" t)
+(add-hook 'riece-after-load-startup-hook
+		  #'(lambda ()
+			  (add-to-list 'riece-addons 'riece-alias)
+			  (add-to-list 'riece-addons 'riece-skk-kakutei)
+			  (add-to-list 'riece-addons 'riece-keyword)
+			  (add-to-list 'riece-addons 'riece-ctlseq)))
+
 ;; ecb
 (require-if-present 'ecb-autoloads)
 (let* ((hosts '(("netbsd." .
@@ -116,6 +152,8 @@
                   ("~/sandbox/_haskell/hxt-compile"     "hxt-compile")
                   ("~/src/ghc-6.10.1"                   "ghc-6.10.1")
                   ("~/sandbox/sugar"                    "sugar")
+                  ("~/sandbox/_haskell/dns"             "dns")
+                  ("~/sandbox/_haskell/blackboard-ddns" "blackboard-ddns")
                   ))))
        (paths (cdr (assoc (system-name) hosts))))
   (setq ecb-source-path paths))
@@ -180,10 +218,7 @@
 (setq tramp-default-method "ssh")
 
 ;; Haskell
-(autoload 'haskell-mode "haskell-mode"
-  "Major mode for editing Haskell scripts." t)
-(autoload 'literate-haskell-mode "haskell-mode"
-  "Major mode for editing literate Haskell scripts." t)
+(load-if-present "haskell-site-file.el")
 
 (autoload 'run-haskell "inf-haskell" "" t)
 (autoload 'switch-to-haskell "inf-haskell" "" t)
@@ -233,6 +268,10 @@
 (setq cperl-indent-level 4)
 (setq cperl-indent-parens-as-block t)
 
+;; Erlang
+(add-to-list 'load-path "/usr/pkg/lib/erlang/lib/tools-2.6/emacs")
+(require-if-present 'erlang-start)
+
 ;; SKK
 (require 'skk-autoloads)
 (global-set-key "\C-x\C-j" 'skk-mode)
@@ -347,6 +386,7 @@
  '(jabber-resource "emacs")
  '(jabber-server "jabber.jp")
  '(jabber-username "phonohawk")
+ '(jaspace-highlight-tabs t)
  '(js2-basic-offset 4)
  '(js2-indent-on-enter-key t)
  '(js2-use-font-lock-faces t)
@@ -359,6 +399,7 @@
  '(mouse-wheel-scroll-amount (quote (1 ((shift) . 5) ((control)))))
  '(navi2ch-browse-url-browser-function (quote browse-url-firefox))
  '(navi2ch-display-splash-screen nil)
+ '(navi2ch-list-moved-board-alist (quote (("http://mamono.2ch.net/ihou/" . "http://hideyoshi.2ch.net/ihou/"))))
  '(navi2ch-mona-face-variable (quote navi2ch-mona16-face))
  '(navi2ch-mona-on-message-mode t)
  '(newsticker-html-renderer (quote w3m-region))
@@ -366,6 +407,9 @@
  '(newsticker-url-list-defaults (quote (("slashdot" "http://slashdot.org/index.rss" nil 3600))))
  '(nxml-auto-insert-xml-declaration-flag t)
  '(nxml-slash-auto-complete-flag t)
+ '(riece-layout "default")
+ '(riece-layout-alist (quote (("middle-right" riece-configure-windows right middle) ("middle-left" riece-configure-windows left middle) ("top-right" riece-configure-windows right top) ("top-left" riece-configure-windows left top) ("bottom-right" riece-configure-windows right bottom) ("bottom-left" riece-configure-windows left bottom) ("top" riece-configure-windows-top) ("spiral" riece-configure-windows-spiral) ("default" . "middle-right"))))
+ '(riece-others-buffer-mode nil)
  '(rng-schema-locating-files (quote ("schemas.xml" "/sw/share/schema/schemas.xml" "~/share/nxml/schemas.xml")))
  '(safe-local-variable-values (quote ((todo-categories "Todo" "Todo" "Todo" "Todo"))))
  '(w3m-bookmark-file-coding-system (quote utf-8))
@@ -388,4 +432,5 @@
   ;; Your init file should contain only one such instance.
   ;; If there is more than one, they won't work right.
  '(flyspell-incorrect ((t (:foreground "OrangeRed" :overline t))))
+ '(jaspace-highlight-tab-face ((((class color) (background dark)) (:foreground "gray70" :underline t))))
  '(which-func-face ((t (:background "black" :foreground "dark orange")))))