Browse Source

reorder code

pull/1/head
10sr 11 years ago
parent
commit
c9f4184fcf
1 changed files with 73 additions and 73 deletions
  1. +73
    -73
      emacs.el

+ 73
- 73
emacs.el View File

@@ -210,6 +210,45 @@ found, otherwise returns nil."
(when (file-readable-p user-init-file)
(load-file user-init-file)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; for windows

(defun start-ckw-bash ()
""
(interactive)
(start-process
"ckw_bash"
nil
"C:/Documents and Settings/sr/Application Data/dbx/apps/ckw/ckw.exe"))
;; command seems to have to be in c drive

(defun my-w32-add-export-path (&rest args)
""
(mapcar (lambda (path)
(add-to-list 'exec-path (expand-file-name path)))
(reverse args))
(setenv "PATH"
(mapconcat 'convert-standard-filename
exec-path
";")))

(when (eq system-type 'windows-nt)
;; (setq scheme-program-name "\"c:/Program Files/Gauche/bin/gosh.exe\" -i")
;; (setq python-python-command "c:/Python26/python.exe")

;; (define-key my-prefix-map (kbd "C-c") 'start-ckw-bash)
(my-w32-add-export-path "c:/Windows/system"
"c:/Windows/System32"
"c:/Program Files/Git/bin"
"c:/MinGW/bin"
"c:/MinGW/mingw32/bin"
(expand-file-name "~/.local/bin")
(expand-file-name "~/dbx/apps/bin"))

(when window-system
(setq w32-enable-synthesized-fonts t))
(setq file-name-coding-system 'sjis))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; global keys

@@ -611,6 +650,40 @@ found, otherwise returns nil."

(define-key my-prefix-map (kbd "C-o") 'occur)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; japanese input method

(defun my-load-scim ()
"use scim-bridge.el as japanese im."
;; Load scim-bridge.
(when (require 'scim-bridge nil t)
;; Turn on scim-mode automatically after loading .emacs
(add-hook 'after-init-hook 'scim-mode-on)
(setq scim-cursor-color "red")
(scim-define-preedit-key ?\^h t)
(scim-define-common-key ?\* nil)
(scim-define-common-key ?\^/ nil)))

(defun my-load-anthy ()
"use anthy.el as japanese im."
;; anthy
(when (require 'anthy nil t)
(global-set-key
(kbd "<muhenkan>") (lambda () (interactive) (anthy-mode-off)))
(global-set-key (kbd "<henkan>") (lambda () (interactive) (anthy-mode-on)))
(when (>= emacs-major-version 23)
(setq anthy-accept-timeout 1))))

;; quail
;; aproposs input-method for some information
;; (setq default-input-method "japanese")
(defun my-load-mozc-el ()
""
(setq mozc-leim-title "[MZ]")
(when (require 'mozc nil t)
(setq defauit-input-method "japanese-mozc")
))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; gmail

@@ -1967,76 +2040,3 @@ this is test, does not rename files"
;; (concat arg
;; (if (eq nil (string-match "\\. *$" arg)) ".")
;; " Stupid!")))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; japanese input method

(defun my-load-scim ()
"use scim-bridge.el as japanese im."
;; Load scim-bridge.
(when (require 'scim-bridge nil t)
;; Turn on scim-mode automatically after loading .emacs
(add-hook 'after-init-hook 'scim-mode-on)
(setq scim-cursor-color "red")
(scim-define-preedit-key ?\^h t)
(scim-define-common-key ?\* nil)
(scim-define-common-key ?\^/ nil)))

(defun my-load-anthy ()
"use anthy.el as japanese im."
;; anthy
(when (require 'anthy nil t)
(global-set-key
(kbd "<muhenkan>") (lambda () (interactive) (anthy-mode-off)))
(global-set-key (kbd "<henkan>") (lambda () (interactive) (anthy-mode-on)))
(when (>= emacs-major-version 23)
(setq anthy-accept-timeout 1))))

;; quail
;; aproposs input-method for some information
;; (setq default-input-method "japanese")
(defun my-load-mozc-el ()
""
(setq mozc-leim-title "[MZ]")
(when (require 'mozc nil t)
(setq defauit-input-method "japanese-mozc")
))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; for windows

(defun start-ckw-bash ()
""
(interactive)
(start-process
"ckw_bash"
nil
"C:/Documents and Settings/sr/Application Data/dbx/apps/ckw/ckw.exe"))
;; command seems to have to be in c drive

(defun my-w32-add-export-path (&rest args)
""
(mapcar (lambda (path)
(add-to-list 'exec-path (expand-file-name path)))
(reverse args))
(setenv "PATH"
(mapconcat 'convert-standard-filename
exec-path
";")))

(when (eq system-type 'windows-nt)
;; (setq scheme-program-name "\"c:/Program Files/Gauche/bin/gosh.exe\" -i")
;; (setq python-python-command "c:/Python26/python.exe")

(define-key my-prefix-map (kbd "C-c") 'start-ckw-bash)
(my-w32-add-export-path "c:/Windows/system"
"c:/Windows/System32"
"c:/Program Files/Git/bin"
"c:/MinGW/bin"
"c:/MinGW/mingw32/bin"
(expand-file-name "~/.local/bin")
(expand-file-name "~/dbx/apps/bin"))

(when window-system
(setq w32-enable-synthesized-fonts t))
(setq file-name-coding-system 'sjis))

Loading…
Cancel
Save