(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))
(setq browse-url-firefox-program "/opt/local/bin/firefox")
;; Specify how to connect to some of the remote servers.
(setq tramp-default-proxies-alist nil)
- (add-to-list 'tramp-default-proxies-alist
- '("rd8" nil "/sshx:pho@yebisu1.ymir.jp:"))
- (add-to-list 'tramp-default-proxies-alist
- '("yebisu1\\.ymir\\.jp" nil "/sshx:pho@boss:"))))))
+ (mapcar #'(lambda (proxy)
+ (add-to-list 'tramp-default-proxies-alist proxy))
+ '( ("rd8" nil "/sshx:pho@seras.vpn.cielonegro.org:")
+ ("pho\\.dev\\.office\\.ymir\\.co\\.jp" nil "/sshx:pho@seras.vpn.cielonegro.org:")
+ ))))))
;; Settings for Browser --------------------------------------------------------
(setq browse-url-browser-function 'w3m-browse-url)
;; elscreen
(load "elscreen" "ElScreen" t)
+(elscreen-start)
(require-if-present 'elscreen-w3m)
;; undo-tree
(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))
(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)
;; migemo
(require-if-present 'migemo)
+(setq migemo-isearch-enable-p nil)
;; tiarra-conf
(setq load-path (cons (expand-file-name "~/sandbox/Tiarra") load-path))
"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)
;; emacs auto edit
(put 'narrow-to-region 'disabled nil)
(custom-set-variables
- ;; custom-set-variables was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
'(Info-additional-directory-list (quote ("/sw/share/info" "/usr/local/info" "/usr/local/share/info")))
'(ac-ignore-case nil)
'(appt-display-format (quote window))
'(ecb-tree-buffer-style (quote ascii-guides))
'(ecb-windows-width 0.2)
'(elscreen-display-tab t)
- '(global-whitespace-mode t)
'(haskell-program-name "ghci")
'(ido-enable-flex-matching t)
'(ido-everywhere t)
'(js2-use-font-lock-faces t)
'(mediawiki-site-alist (quote (("Wikipedia" "http://en.wikipedia.org/w/" "username" "password" "Main Page") ("YmirDev" "https://ymirlink:santamo@update.forcast.jp/fcdiv/mwiki/" "PHO" "" "メインページ"))))
'(mew-field-spec (quote (("^Resent-\\(From\\|To\\|Cc\\|Date\\)" t mew-face-header-important mew-face-header-important) ("^Subject:$" t mew-face-header-important mew-face-header-subject) ("^From:$" t mew-face-header-important mew-face-header-from) ("^\\(To\\|Apparently-To\\):$" t mew-face-header-important mew-face-header-to) ("^\\(Cc\\|Dcc\\|Bcc\\):$" t mew-face-header-important mew-face-header-to) ("^Newsgroups:$" t mew-face-header-important mew-face-header-to) ("^Date:$" t mew-face-header-important mew-face-header-date) ("^Reply-To:$" t) ("^X-Mailer:$" t) ("^X-Mew:$" t mew-face-header-important mew-face-header-xmew) ("^\\(Received\\|Return-Path\\|Sender\\|Errors-To\\):$" nil) ("^\\(Path\\|Distribution\\|Xref\\):$" nil) ("^NNTP-Posting-" nil) ("^\\(Message-Id\\|Posted\\|In-Reply-To\\|References\\|Precedence\\):$" nil) ("^Delivered-" nil) ("^List-" nil) ("^\\(Mime-Version\\|Lines\\):$" nil) ("^From$" nil) ("^Status:$" nil) ("^Face:$" nil mew-face-header-private mew-face-header-marginal) ("^X-Text-Classification:$" t mew-face-header-important mew-face-header-important) ("^X-POPFile-Link:$" t mew-face-header-important mew-face-body-url) ("^\\(X\\|Original\\)-" nil mew-face-header-private mew-face-header-marginal))))
- '(mew-refile-guess-alist (quote (("From:" ("noreply@adc1.apple.com" . "+mm/adc") ("mag2 ID 0000022139" . "+mm/2ch") ("noreply@sourceforge.net" . "+from/sf-net")) ("Subject:" ("w3m-dev" . "+ml/w3m-dev")) ("To:" ("glasgow-haskell-users@haskell.org" . "+ml/ghc-users") ("fink-devel@lists.sourceforge.net" . "+ml/fink-devel")) ("Reply-To:" ("yun@kokonoe.com" . "+mm/kokonoe")) ("Cc:" ("glasgow-haskell-users@haskell.org" . "+ml/ghc-users")))))
+ '(mew-refile-guess-alist (quote (("From:" ("noreply@adc1.apple.com" "+mm/adc") ("mag2 ID 0000022139" "+mm/2ch") ("noreply@sourceforge.net" "+from/sf-net")) ("Subject:" ("w3m-dev" "+ml/w3m-dev")) ("To:" ("glasgow-haskell-users@haskell.org" "+ml/ghc-users") ("fink-devel@lists.sourceforge.net" "+ml/fink-devel")) ("Reply-To:" ("yun@kokonoe.com" "+mm/kokonoe")) ("Cc:" ("glasgow-haskell-users@haskell.org" "+ml/ghc-users")))))
'(mew-scan-fields (quote ("Folder:" "Filename:" "Subject:" "Date:" "From:" "To:" "Cc:" "Content-Type:" "Content-Transfer-Encoding:" "X-Mew-Uidl:" "Message-Id:" "In-Reply-To:" "References:" "X-Mew-Ref:" "X-Text-Classification:" "Body")))
'(mew-spam: "X-Text-Classification:")
'(mew-summary-form (quote (type (5 date) " " (14 from) " " t (14 x-classification) " " (30 subj) "|" (0 body))))
'(woman-cache-filename "~/.wmncach.el")
'(x-select-enable-clipboard t))
(custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
'(diff-added ((t (:inherit diff-changed :foreground "medium spring green" :weight extra-bold))))
'(diff-removed ((t (:foreground "gold3" :weight extra-bold))))
'(flyspell-incorrect ((t (:foreground "OrangeRed" :overline t))))
'(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-indentation ((t (:foreground "dimgray" :underline t))))
+ '(whitespace-line ((t (:background "gray20")))))
projects / sugar.git / blobdiff