(setq read-file-name-completion-ignore-case t)
(tool-bar-mode nil)
-(global-set-key "\C-\\" 'toggle-input-method)
+(global-set-key (kbd "C-\\" ) 'toggle-input-method)
+(global-set-key (kbd "C-RET") 'completion-at-point)
(unless window-system
(normal-erase-is-backspace-mode t))
(cond ((equal host "aria.cielonegro.org")
(progn
;; Use firefox as the default browser.
- (setq browse-url-firefox-program "/opt/local/bin/firefox")
+ (setq browse-url-firefox-program "/usr/pkg/bin/firefox")
;; Specify how to connect to some of the remote servers.
(setq tramp-default-proxies-alist nil)
(mapcar #'(lambda (proxy)
(add-to-list 'tramp-default-proxies-alist proxy))
- '( ("rd8" nil "/sshx:pho@yebisu1.ymir.jp:")
- ("pho\\.dev\\.office\\.ymir\\.co\\.jp" nil "/sshx:pho@yebisu1.ymir.jp:")
- ("yebisu1\\.ymir\\.jp" nil "/sshx:pho@boss:" )
+ '( ("rd8" nil "/sshx:pho@seras.vpn.cielonegro.org:")
+ ("pho\\.dev\\.office\\.ymir\\.co\\.jp" nil "/sshx:pho@seras.vpn.cielonegro.org:")
))))))
;; Settings for Browser --------------------------------------------------------
;; Setting for Frames ----------------------------------------------------------
(when window-system
- (if (equal (system-name) "seras")
- (set-default-font "Dejavu Sans Mono 11")
- (set-default-font "Dejavu Sans Mono 13")))
-
-;(when window-system
-; (set-default-font "Inconsolata-14")
-; (set-face-font 'variable-pitch "Inconsolata-14")
-; (set-fontset-font (frame-parameter nil 'font)
-; 'japanese-jisx0208
-; '("Takaoゴシック" . "unicode-bmp")))
-
-;(when window-system
-; (add-to-list 'default-frame-alist
-; '(font . "Bitstream Vera Sans Mono 12"))
-; (set-frame-font "Bitstream Vera Sans Mono 12")
-; (set-fontset-font nil;(frame-parameter nil 'font)
-; 'japanese-jisx0208
-; '("Hiragino Kaku Gothic Pro W3" . "unicode-bmp")))
+ (let ((host (system-name)))
+ (cond ((equal host "seras")
+ (set-frame-font "Dejavu Sans Mono 11" t))
+
+ ((equal host "aria.cielonegro.org")
+ (progn
+ (set-frame-font "Dejavu Sans Mono 13" t)
+ (set-fontset-font nil 'japanese-jisx0208 "さざなみゴシック")
+ (set-fontset-font nil 'japanese-jisx0212 "さざなみゴシック")
+ (set-fontset-font nil 'katakana-jisx0201 "さざなみゴシック"))))))
;; Hooks for newline-and-indent ------------------------------------------------
;(mapcar (lambda (hook)
(append '(("\\.rst$" . rst-mode)
("\\.rest$" . rst-mode)) auto-mode-alist))
+;; textile-mode
+(autoload 'textile-mode "textile-mode"
+ "Major mode for editing Textile documents." t)
+(add-to-list 'auto-mode-alist '("\\.textile\\'" . textile-mode))
+
;; xsltxt-mode
(autoload 'xsltxt-mode "xsltxt-mode" "Major mode for xsltxt." t)
(add-to-list 'auto-mode-alist '("\\.xsltxt$" . xsltxt-mode))
(autoload 'lua-mode "lua-mode" "Lua editing mode." t)
(add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode))
+;; scala-mode2
+(add-to-list 'load-path "~/sandbox/_scala/scala-mode2")
+(require-if-present 'scala-mode2)
+
+;; sbt-mode
+(add-to-list 'load-path "~/sandbox/_scala/sbt-mode")
+(require-if-present 'sbt-mode)
+
;; twittering-mode
(require-if-present 'twittering-mode)
(setq twittering-username "phonohawk")
;; 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)))
+ #'(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)))
;; CEDET
(add-to-list 'load-path "/usr/pkg/share/emacs/cedet/common")
(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)
(setq erlang-electric-commands nil)
"Major mode for editing comma-separated value files." t)
(add-to-list 'auto-mode-alist '("\\.[Cc][Ss][Vv]\\'" . csv-mode))
+;; tsv-mode
+(autoload 'tsv-mode "tsv-mode" "A mode to edit table like file" t)
+(autoload 'tsv-normal-mode "tsv-mode" "A minor mode to edit table like file" t)
+(setq tsv-write-annotation nil)
+(setq tsv-separator-list '("\t"))
+(add-to-list 'auto-mode-alist '("\\.[Tt][Ss][Vv]\\'" . tsv-mode))
+
;; yaml-mode
(autoload 'yaml-mode "yaml-mode"
"Major mode for editing YAML files." t)
'(mew-summary-form (quote (type (5 date) " " (14 from) " " t (14 x-classification) " " (30 subj) "|" (0 body))))
'(mouse-wheel-progessive-speed nil)
'(mouse-wheel-scroll-amount (quote (1 ((shift) . 5) ((control)))))
+ '(mpc-browser-tags (quote (Directory Genre Artist|Composer|Performer Album|Playlist)))
'(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-bm-new-unread-face ((t (:foreground "PaleGreen" :weight bold))))
'(navi2ch-bm-updated-cache-face ((t (:foreground "CornflowerBlue" :weight bold))))
'(navi2ch-bm-updated-unread-face ((t (:foreground "DarkSeaGreen3" :weight bold))))
+ '(textile-link-face ((t (:foreground "cyan"))))
+ '(textile-ol-bullet-face ((t (:foreground "dark orange"))))
+ '(textile-ul-bullet-face ((t (:foreground "deep sky blue"))))
'(which-func-face ((t (:background "black" :foreground "dark orange"))))
'(whitespace-indentation ((t (:foreground "dimgray" :underline t))))
'(whitespace-line ((t (:background "gray20")))))
projects / sugar.git / blobdiff