|
@@ -178,53 +178,52 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;; package |
|
|
;; package |
|
|
|
|
|
|
|
|
(set-variable 'my-package-list |
|
|
|
|
|
'( |
|
|
|
|
|
markdown-mode |
|
|
|
|
|
yaml-mode |
|
|
|
|
|
gnuplot-mode |
|
|
|
|
|
erlang |
|
|
|
|
|
js2-mode |
|
|
|
|
|
git-commit |
|
|
|
|
|
gitignore-mode |
|
|
|
|
|
;; ack |
|
|
|
|
|
color-moccur |
|
|
|
|
|
ggtags |
|
|
|
|
|
flycheck |
|
|
|
|
|
;; is flymake installs are required? |
|
|
|
|
|
;;flymake-jshint |
|
|
|
|
|
;;flymake-python-pyflakes |
|
|
|
|
|
xclip |
|
|
|
|
|
foreign-regexp |
|
|
|
|
|
multi-term |
|
|
|
|
|
term-run |
|
|
|
|
|
editorconfig |
|
|
|
|
|
git-ps1-mode |
|
|
|
|
|
restart-emacs |
|
|
|
|
|
fill-column-indicator |
|
|
|
|
|
|
|
|
|
|
|
scala-mode2 |
|
|
|
|
|
ensime |
|
|
|
|
|
|
|
|
|
|
|
editorconfig |
|
|
|
|
|
|
|
|
|
|
|
git-command |
|
|
|
|
|
|
|
|
|
|
|
;; 10sr repository |
|
|
|
|
|
terminal-title |
|
|
|
|
|
recentf-show |
|
|
|
|
|
dired-list-all-mode |
|
|
|
|
|
pack |
|
|
|
|
|
set-modeline-color |
|
|
|
|
|
read-only-only-mode |
|
|
|
|
|
smart-revert |
|
|
|
|
|
autosave |
|
|
|
|
|
;;window-organizer |
|
|
|
|
|
remember-major-modes-mode |
|
|
|
|
|
ilookup |
|
|
|
|
|
pasteboard |
|
|
|
|
|
) |
|
|
|
|
|
"Package list just for me.") |
|
|
|
|
|
|
|
|
(set (defvar 10sr-package-list) |
|
|
|
|
|
'( |
|
|
|
|
|
markdown-mode |
|
|
|
|
|
yaml-mode |
|
|
|
|
|
gnuplot-mode |
|
|
|
|
|
erlang |
|
|
|
|
|
js2-mode |
|
|
|
|
|
git-commit |
|
|
|
|
|
gitignore-mode |
|
|
|
|
|
;; ack |
|
|
|
|
|
color-moccur |
|
|
|
|
|
ggtags |
|
|
|
|
|
flycheck |
|
|
|
|
|
;; is flymake installs are required? |
|
|
|
|
|
;;flymake-jshint |
|
|
|
|
|
;;flymake-python-pyflakes |
|
|
|
|
|
xclip |
|
|
|
|
|
foreign-regexp |
|
|
|
|
|
multi-term |
|
|
|
|
|
term-run |
|
|
|
|
|
editorconfig |
|
|
|
|
|
git-ps1-mode |
|
|
|
|
|
restart-emacs |
|
|
|
|
|
fill-column-indicator |
|
|
|
|
|
|
|
|
|
|
|
scala-mode2 |
|
|
|
|
|
ensime |
|
|
|
|
|
|
|
|
|
|
|
editorconfig |
|
|
|
|
|
|
|
|
|
|
|
git-command |
|
|
|
|
|
|
|
|
|
|
|
;; 10sr repository |
|
|
|
|
|
terminal-title |
|
|
|
|
|
recentf-show |
|
|
|
|
|
dired-list-all-mode |
|
|
|
|
|
pack |
|
|
|
|
|
set-modeline-color |
|
|
|
|
|
read-only-only-mode |
|
|
|
|
|
smart-revert |
|
|
|
|
|
autosave |
|
|
|
|
|
;;window-organizer |
|
|
|
|
|
remember-major-modes-mode |
|
|
|
|
|
ilookup |
|
|
|
|
|
pasteboard |
|
|
|
|
|
)) |
|
|
|
|
|
|
|
|
(when (safe-require-or-eval 'package) |
|
|
(when (safe-require-or-eval 'package) |
|
|
(setq package-archives |
|
|
(setq package-archives |
|
@@ -241,7 +240,7 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
(or (package-installed-p pkg) |
|
|
(or (package-installed-p pkg) |
|
|
(locate-library (symbol-name pkg)) |
|
|
(locate-library (symbol-name pkg)) |
|
|
(package-install pkg))) |
|
|
(package-install pkg))) |
|
|
my-package-list)) |
|
|
|
|
|
|
|
|
10sr-package-list)) |
|
|
) |
|
|
) |
|
|
|
|
|
|
|
|
;; (lazy-load-eval 'sudoku) |
|
|
;; (lazy-load-eval 'sudoku) |
|
@@ -411,9 +410,9 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
;; if TERM is not screen use default value |
|
|
;; if TERM is not screen use default value |
|
|
(if (getenv "TMUX") |
|
|
(if (getenv "TMUX") |
|
|
;; if use tmux locally just basename of current dir |
|
|
;; if use tmux locally just basename of current dir |
|
|
(setq terminal-title-format |
|
|
|
|
|
'((file-name-nondirectory (directory-file-name |
|
|
|
|
|
default-directory)))) |
|
|
|
|
|
|
|
|
(set-variable 'terminal-title-format |
|
|
|
|
|
'((file-name-nondirectory (directory-file-name |
|
|
|
|
|
default-directory)))) |
|
|
(if (and (let ((tty-type (frame-parameter nil |
|
|
(if (and (let ((tty-type (frame-parameter nil |
|
|
'tty-type))) |
|
|
'tty-type))) |
|
|
(and tty-type |
|
|
(and tty-type |
|
@@ -421,18 +420,18 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
"-")) |
|
|
"-")) |
|
|
"screen"))) |
|
|
"screen"))) |
|
|
(not (getenv "SSH_CONNECTION"))) |
|
|
(not (getenv "SSH_CONNECTION"))) |
|
|
(setq terminal-title-format |
|
|
|
|
|
'((file-name-nondirectory (directory-file-name |
|
|
|
|
|
default-directory)))) |
|
|
|
|
|
|
|
|
(set-variable 'terminal-title-format |
|
|
|
|
|
'((file-name-nondirectory (directory-file-name |
|
|
|
|
|
default-directory)))) |
|
|
;; seems that TMUX is used locally and ssh to remote host |
|
|
;; seems that TMUX is used locally and ssh to remote host |
|
|
(setq terminal-title-format |
|
|
|
|
|
`("em:" |
|
|
|
|
|
,user-login-name |
|
|
|
|
|
"@" |
|
|
|
|
|
,(car (split-string system-name |
|
|
|
|
|
"\\.")) |
|
|
|
|
|
":" |
|
|
|
|
|
default-directory)) |
|
|
|
|
|
|
|
|
(set-variable 'terminal-title-format |
|
|
|
|
|
`("em:" |
|
|
|
|
|
,user-login-name |
|
|
|
|
|
"@" |
|
|
|
|
|
,(car (split-string system-name |
|
|
|
|
|
"\\.")) |
|
|
|
|
|
":" |
|
|
|
|
|
default-directory)) |
|
|
) |
|
|
) |
|
|
) |
|
|
) |
|
|
(terminal-title-mode)) |
|
|
(terminal-title-mode)) |
|
@@ -456,9 +455,6 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
|
|
|
|
|
|
;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title |
|
|
;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title |
|
|
;; display date |
|
|
;; display date |
|
|
(call-after-init (lambda () |
|
|
|
|
|
(when display-time-mode |
|
|
|
|
|
(display-time-update)))) |
|
|
|
|
|
|
|
|
|
|
|
(when (safe-require-or-eval 'time) |
|
|
(when (safe-require-or-eval 'time) |
|
|
(setq display-time-interval 29) |
|
|
(setq display-time-interval 29) |
|
@@ -466,7 +462,9 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
(setq display-time-format "%a, %d %b %Y %T") |
|
|
(setq display-time-format "%a, %d %b %Y %T") |
|
|
(if window-system |
|
|
(if window-system |
|
|
(display-time-mode 0) |
|
|
(display-time-mode 0) |
|
|
(display-time-mode 1))) |
|
|
|
|
|
|
|
|
(display-time-mode 1)) |
|
|
|
|
|
(when display-time-mode |
|
|
|
|
|
(display-time-update))) |
|
|
|
|
|
|
|
|
;; ;; current directory |
|
|
;; ;; current directory |
|
|
;; (let ((ls (member 'mode-line-buffer-identification |
|
|
;; (let ((ls (member 'mode-line-buffer-identification |
|
@@ -639,8 +637,8 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
(set-variable 'hl-line-face 'my-hl-line) ;; (setq hl-line-face nil) |
|
|
(set-variable 'hl-line-face 'my-hl-line) ;; (setq hl-line-face nil) |
|
|
(global-hl-line-mode 1) ;; (hl-line-mode 1) |
|
|
(global-hl-line-mode 1) ;; (hl-line-mode 1) |
|
|
(set-variable 'hl-line-global-modes |
|
|
(set-variable 'hl-line-global-modes |
|
|
'(not |
|
|
|
|
|
term-mode)) |
|
|
|
|
|
|
|
|
'(not |
|
|
|
|
|
term-mode)) |
|
|
|
|
|
|
|
|
(set-face-foreground 'font-lock-regexp-grouping-backslash "#666") |
|
|
(set-face-foreground 'font-lock-regexp-grouping-backslash "#666") |
|
|
(set-face-foreground 'font-lock-regexp-grouping-construct "#f60") |
|
|
(set-face-foreground 'font-lock-regexp-grouping-construct "#f60") |
|
@@ -729,8 +727,9 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
(add-hook 'after-save-hook |
|
|
(add-hook 'after-save-hook |
|
|
'executable-make-buffer-file-executable-if-script-p) |
|
|
'executable-make-buffer-file-executable-if-script-p) |
|
|
|
|
|
|
|
|
(set-variable 'bookmark-default-file (concat user-emacs-directory |
|
|
|
|
|
"bmk")) |
|
|
|
|
|
|
|
|
(set (defvar bookmark-default-file) |
|
|
|
|
|
(expand-file-name (concat user-emacs-directory |
|
|
|
|
|
"bmk"))) |
|
|
(add-hook 'recentf-load-hook |
|
|
(add-hook 'recentf-load-hook |
|
|
(lambda () |
|
|
(lambda () |
|
|
(defvar recentf-exclude) |
|
|
(defvar recentf-exclude) |
|
@@ -849,14 +848,13 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
(setq mail-interactive t |
|
|
(setq mail-interactive t |
|
|
send-mail-function 'smtpmail-send-it) |
|
|
send-mail-function 'smtpmail-send-it) |
|
|
;; message-send-mail-function 'smtpmail-send-it |
|
|
;; message-send-mail-function 'smtpmail-send-it |
|
|
(with-eval-after-load 'smtpmail |
|
|
|
|
|
(setq smtpmail-smtp-server "smtp.gmail.com" |
|
|
|
|
|
smtpmail-smtp-service 587 |
|
|
|
|
|
smtpmail-starttls-credentials '(("smtp.gmail.com" 587 |
|
|
|
|
|
"8.slashes@gmail.com" nil)) |
|
|
|
|
|
smtpmail-auth-credentials '(("smtp.gmail.com" 587 |
|
|
|
|
|
"8.slashes@gmail.com" nil)) |
|
|
|
|
|
user-mail-address "8.slashes@gmail.com")) |
|
|
|
|
|
|
|
|
(set-variable 'smtpmail-smtp-server "smtp.gmail.com") |
|
|
|
|
|
(set-variable 'smtpmail-smtp-service 587) |
|
|
|
|
|
(set-variable 'smtpmail-starttls-credentials '(("smtp.gmail.com" 587 |
|
|
|
|
|
"8.slashes@gmail.com" nil))) |
|
|
|
|
|
(set-variable 'smtpmail-auth-credentials '(("smtp.gmail.com" 587 |
|
|
|
|
|
"8.slashes@gmail.com" nil))) |
|
|
|
|
|
(set-variable 'user-mail-address "8.slashes@gmail.com") |
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;; buffer killing |
|
|
;; buffer killing |
|
@@ -1137,20 +1135,18 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
|
|
|
|
|
|
(add-to-list 'auto-mode-alist (cons "\\.md\\'" 'outline-mode)) |
|
|
(add-to-list 'auto-mode-alist (cons "\\.md\\'" 'outline-mode)) |
|
|
(when (autoload-eval-lazily 'markdown-mode |
|
|
(when (autoload-eval-lazily 'markdown-mode |
|
|
'(markdown-mode gfm-mode)) |
|
|
|
|
|
|
|
|
'(markdown-mode gfm-mode) |
|
|
|
|
|
(defvar gfm-mode-map) |
|
|
|
|
|
(define-key gfm-mode-map (kbd "C-m") 'electric-indent-just-newline)) |
|
|
(add-to-list 'auto-mode-alist (cons "\\.md\\'" 'gfm-mode)) |
|
|
(add-to-list 'auto-mode-alist (cons "\\.md\\'" 'gfm-mode)) |
|
|
(setq markdown-command (or (executable-find "markdown") |
|
|
|
|
|
(executable-find "markdown.pl"))) |
|
|
|
|
|
|
|
|
(set-variable 'markdown-command (or (executable-find "markdown") |
|
|
|
|
|
(executable-find "markdown.pl"))) |
|
|
(add-hook 'markdown-mode-hook |
|
|
(add-hook 'markdown-mode-hook |
|
|
(lambda () |
|
|
(lambda () |
|
|
(outline-minor-mode 1) |
|
|
(outline-minor-mode 1) |
|
|
(flyspell-mode) |
|
|
(flyspell-mode) |
|
|
(set (make-local-variable 'comment-start) ";"))) |
|
|
(set (make-local-variable 'comment-start) ";"))) |
|
|
(add-hook 'gfm-mode-hook |
|
|
|
|
|
(lambda () |
|
|
|
|
|
(define-key gfm-mode-map (kbd "C-m") 'electric-indent-just-newline) |
|
|
|
|
|
;;(electric-indent-mode 0) |
|
|
|
|
|
))) |
|
|
|
|
|
|
|
|
) |
|
|
|
|
|
|
|
|
;; c-mode |
|
|
;; c-mode |
|
|
;; http://www.emacswiki.org/emacs/IndentingC |
|
|
;; http://www.emacswiki.org/emacs/IndentingC |
|
@@ -1177,7 +1173,7 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
(when (autoload-eval-lazily 'php-mode) |
|
|
(when (autoload-eval-lazily 'php-mode) |
|
|
(add-hook 'php-mode-hook |
|
|
(add-hook 'php-mode-hook |
|
|
(lambda () |
|
|
(lambda () |
|
|
(setq c-basic-offset 2)))) |
|
|
|
|
|
|
|
|
(set-variable 'c-basic-offset 2)))) |
|
|
|
|
|
|
|
|
(when (autoload-eval-lazily 'js2-mode) |
|
|
(when (autoload-eval-lazily 'js2-mode) |
|
|
;; currently do not use js2-mode |
|
|
;; currently do not use js2-mode |
|
@@ -1185,6 +1181,7 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
;; (add-to-list 'auto-mode-alist '("\\.jsm\\'" . js2-mode)) |
|
|
;; (add-to-list 'auto-mode-alist '("\\.jsm\\'" . js2-mode)) |
|
|
(add-hook 'js2-mode-hook |
|
|
(add-hook 'js2-mode-hook |
|
|
(lambda () |
|
|
(lambda () |
|
|
|
|
|
(defvar js2-mode-map) |
|
|
(define-key js2-mode-map (kbd "C-m") (lambda () |
|
|
(define-key js2-mode-map (kbd "C-m") (lambda () |
|
|
(interactive) |
|
|
(interactive) |
|
|
(js2-enter-key) |
|
|
(js2-enter-key) |
|
@@ -1307,12 +1304,13 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
(when (autoload-eval-lazily 'gtags '(gtags-mode)) |
|
|
(when (autoload-eval-lazily 'gtags '(gtags-mode)) |
|
|
(add-hook 'gtags-mode-hook |
|
|
(add-hook 'gtags-mode-hook |
|
|
(lambda () |
|
|
(lambda () |
|
|
(view-mode gtags-mode) |
|
|
|
|
|
(setq gtags-select-buffer-single t) |
|
|
|
|
|
|
|
|
(view-mode 1) |
|
|
|
|
|
(set-variable 'gtags-select-buffer-single t) |
|
|
;; (local-set-key "\M-t" 'gtags-find-tag) |
|
|
;; (local-set-key "\M-t" 'gtags-find-tag) |
|
|
;; (local-set-key "\M-r" 'gtags-find-rtag) |
|
|
;; (local-set-key "\M-r" 'gtags-find-rtag) |
|
|
;; (local-set-key "\M-s" 'gtags-find-symbol) |
|
|
;; (local-set-key "\M-s" 'gtags-find-symbol) |
|
|
;; (local-set-key "\C-t" 'gtags-pop-stack) |
|
|
;; (local-set-key "\C-t" 'gtags-pop-stack) |
|
|
|
|
|
(defvar gtags-mode-map) |
|
|
(define-key gtags-mode-map (kbd "C-x t h") |
|
|
(define-key gtags-mode-map (kbd "C-x t h") |
|
|
'gtags-find-tag-from-here) |
|
|
'gtags-find-tag-from-here) |
|
|
(define-key gtags-mode-map (kbd "C-x t t") 'gtags-find-tag) |
|
|
(define-key gtags-mode-map (kbd "C-x t t") 'gtags-find-tag) |
|
@@ -1324,6 +1322,7 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
)) |
|
|
)) |
|
|
(add-hook 'gtags-select-mode-hook |
|
|
(add-hook 'gtags-select-mode-hook |
|
|
(lambda () |
|
|
(lambda () |
|
|
|
|
|
(defvar gtags-select-mode-map) |
|
|
(define-key gtags-select-mode-map (kbd "C-m") 'gtags-select-tag) |
|
|
(define-key gtags-select-mode-map (kbd "C-m") 'gtags-select-tag) |
|
|
)) |
|
|
)) |
|
|
) |
|
|
) |
|
@@ -1333,9 +1332,9 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
|
|
|
|
|
|
;; (setq multi-term-program shell-file-name) |
|
|
;; (setq multi-term-program shell-file-name) |
|
|
(when (autoload-eval-lazily 'multi-term) |
|
|
(when (autoload-eval-lazily 'multi-term) |
|
|
(setq multi-term-switch-after-close nil) |
|
|
|
|
|
(setq multi-term-dedicated-select-after-open-p t) |
|
|
|
|
|
(setq multi-term-dedicated-window-height 20)) |
|
|
|
|
|
|
|
|
(set-variable 'multi-term-switch-after-close nil) |
|
|
|
|
|
(set-variable 'multi-term-dedicated-select-after-open-p t) |
|
|
|
|
|
(set-variable 'multi-term-dedicated-window-height 20)) |
|
|
|
|
|
|
|
|
(when (autoload-eval-lazily 'term '(term ansi-term)) |
|
|
(when (autoload-eval-lazily 'term '(term ansi-term)) |
|
|
(defun my-term-quit-or-send-raw () |
|
|
(defun my-term-quit-or-send-raw () |
|
@@ -1449,93 +1448,93 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
|
|
|
|
|
|
(when (autoload-eval-lazily 'sdic '(sdic-describe-word-at-point)) |
|
|
(when (autoload-eval-lazily 'sdic '(sdic-describe-word-at-point)) |
|
|
;; (define-key my-prefix-map "\C-w" 'sdic-describe-word) |
|
|
;; (define-key my-prefix-map "\C-w" 'sdic-describe-word) |
|
|
|
|
|
(defvar sdic-buffer-name) |
|
|
(define-key my-prefix-map "\C-t" 'sdic-describe-word-at-point-echo) |
|
|
(define-key my-prefix-map "\C-t" 'sdic-describe-word-at-point-echo) |
|
|
(defun sdic-describe-word-at-point-echo () |
|
|
(defun sdic-describe-word-at-point-echo () |
|
|
"" |
|
|
"" |
|
|
(interactive) |
|
|
(interactive) |
|
|
(save-window-excursion |
|
|
(save-window-excursion |
|
|
(sdic-describe-word-at-point)) |
|
|
(sdic-describe-word-at-point)) |
|
|
(save-excursion |
|
|
|
|
|
(set-buffer sdic-buffer-name) |
|
|
|
|
|
|
|
|
(with-current-buffer sdic-buffer-name |
|
|
(message (buffer-substring (point-min) |
|
|
(message (buffer-substring (point-min) |
|
|
(progn (goto-char (point-min)) |
|
|
(progn (goto-char (point-min)) |
|
|
(or (and (re-search-forward "^\\w" |
|
|
(or (and (re-search-forward "^\\w" |
|
|
nil |
|
|
nil |
|
|
t |
|
|
t |
|
|
4) |
|
|
4) |
|
|
(progn (previous-line) t) |
|
|
|
|
|
|
|
|
(progn (forward-line -1) t) |
|
|
(point-at-eol)) |
|
|
(point-at-eol)) |
|
|
(point-max))))))) |
|
|
(point-max))))))) |
|
|
|
|
|
|
|
|
(setq sdic-eiwa-dictionary-list '((sdicf-client "/usr/share/dict/gene.sdic"))) |
|
|
|
|
|
(setq sdic-waei-dictionary-list |
|
|
|
|
|
'((sdicf-client "/usr/share/dict/jedict.sdic" (add-keys-to-headword t)))) |
|
|
|
|
|
(setq sdic-disable-select-window t) |
|
|
|
|
|
(setq sdic-window-height 7)) |
|
|
|
|
|
|
|
|
(set-variable 'sdic-eiwa-dictionary-list '((sdicf-client "/usr/share/dict/gene.sdic"))) |
|
|
|
|
|
(set-variable ' sdic-waei-dictionary-list |
|
|
|
|
|
'((sdicf-client "/usr/share/dict/jedict.sdic" (add-keys-to-headword t)))) |
|
|
|
|
|
(set-variable 'sdic-disable-select-window t) |
|
|
|
|
|
(set-variable ' sdic-window-height 7)) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;; ilookup |
|
|
;; ilookup |
|
|
|
|
|
|
|
|
(with-eval-after-load 'ilookup |
|
|
(with-eval-after-load 'ilookup |
|
|
(setq ilookup-dict-alist |
|
|
|
|
|
'( |
|
|
|
|
|
("sdcv" . (lambda (word) |
|
|
|
|
|
(shell-command-to-string |
|
|
|
|
|
(format "sdcv -n '%s'" |
|
|
|
|
|
word)))) |
|
|
|
|
|
("en" . (lambda (word) |
|
|
|
|
|
(shell-command-to-string |
|
|
|
|
|
(format "sdcv -n -u dictd_www.dict.org_gcide '%s'" |
|
|
|
|
|
word)))) |
|
|
|
|
|
("ja" . (lambda (word) |
|
|
|
|
|
(shell-command-to-string |
|
|
|
|
|
(format "sdcv -n -u EJ-GENE95 -u jmdict-en-ja '%s'" |
|
|
|
|
|
word)))) |
|
|
|
|
|
("jaj" . (lambda (word) |
|
|
|
|
|
(shell-command-to-string |
|
|
|
|
|
(format "sdcv -n -u jmdict-en-ja '%s'" |
|
|
|
|
|
word)))) |
|
|
|
|
|
("jag" . |
|
|
|
|
|
(lambda (word) |
|
|
|
|
|
(with-temp-buffer |
|
|
|
|
|
(insert (shell-command-to-string |
|
|
|
|
|
(format "sdcv -n -u 'Genius English-Japanese' '%s'" |
|
|
|
|
|
word))) |
|
|
|
|
|
(html2text) |
|
|
|
|
|
(buffer-substring (point-min) |
|
|
|
|
|
(point-max))))) |
|
|
|
|
|
("alc" . (lambda (word) |
|
|
|
|
|
(shell-command-to-string |
|
|
|
|
|
(format "alc '%s' | head -n 20" |
|
|
|
|
|
word)))) |
|
|
|
|
|
("app" . (lambda (word) |
|
|
|
|
|
(shell-command-to-string |
|
|
|
|
|
(format "dict_app '%s'" |
|
|
|
|
|
word)))) |
|
|
|
|
|
;; letters broken |
|
|
|
|
|
("ms" . |
|
|
|
|
|
(lambda (word) |
|
|
|
|
|
(let ((url (concat |
|
|
|
|
|
"http://api.microsofttranslator.com/V2/Ajax.svc/" |
|
|
|
|
|
"Translate?appId=%s&text=%s&to=%s")) |
|
|
|
|
|
(apikey "3C9778666C5BA4B406FFCBEE64EF478963039C51") |
|
|
|
|
|
(target "ja") |
|
|
|
|
|
(eword (url-hexify-string word))) |
|
|
|
|
|
(with-current-buffer (url-retrieve-synchronously |
|
|
|
|
|
(format url |
|
|
|
|
|
apikey |
|
|
|
|
|
eword |
|
|
|
|
|
target)) |
|
|
|
|
|
(message "") |
|
|
|
|
|
(goto-char (point-min)) |
|
|
|
|
|
(search-forward-regexp "^$" |
|
|
|
|
|
nil |
|
|
|
|
|
t) |
|
|
|
|
|
(url-unhex-string (buffer-substring-no-properties |
|
|
|
|
|
(point) |
|
|
|
|
|
(point-max))))))) |
|
|
|
|
|
)) |
|
|
|
|
|
|
|
|
(set-variable 'ilookup-dict-alist |
|
|
|
|
|
'( |
|
|
|
|
|
("sdcv" . (lambda (word) |
|
|
|
|
|
(shell-command-to-string |
|
|
|
|
|
(format "sdcv -n '%s'" |
|
|
|
|
|
word)))) |
|
|
|
|
|
("en" . (lambda (word) |
|
|
|
|
|
(shell-command-to-string |
|
|
|
|
|
(format "sdcv -n -u dictd_www.dict.org_gcide '%s'" |
|
|
|
|
|
word)))) |
|
|
|
|
|
("ja" . (lambda (word) |
|
|
|
|
|
(shell-command-to-string |
|
|
|
|
|
(format "sdcv -n -u EJ-GENE95 -u jmdict-en-ja '%s'" |
|
|
|
|
|
word)))) |
|
|
|
|
|
("jaj" . (lambda (word) |
|
|
|
|
|
(shell-command-to-string |
|
|
|
|
|
(format "sdcv -n -u jmdict-en-ja '%s'" |
|
|
|
|
|
word)))) |
|
|
|
|
|
("jag" . |
|
|
|
|
|
(lambda (word) |
|
|
|
|
|
(with-temp-buffer |
|
|
|
|
|
(insert (shell-command-to-string |
|
|
|
|
|
(format "sdcv -n -u 'Genius English-Japanese' '%s'" |
|
|
|
|
|
word))) |
|
|
|
|
|
(html2text) |
|
|
|
|
|
(buffer-substring (point-min) |
|
|
|
|
|
(point-max))))) |
|
|
|
|
|
("alc" . (lambda (word) |
|
|
|
|
|
(shell-command-to-string |
|
|
|
|
|
(format "alc '%s' | head -n 20" |
|
|
|
|
|
word)))) |
|
|
|
|
|
("app" . (lambda (word) |
|
|
|
|
|
(shell-command-to-string |
|
|
|
|
|
(format "dict_app '%s'" |
|
|
|
|
|
word)))) |
|
|
|
|
|
;; letters broken |
|
|
|
|
|
("ms" . |
|
|
|
|
|
(lambda (word) |
|
|
|
|
|
(let ((url (concat |
|
|
|
|
|
"http://api.microsofttranslator.com/V2/Ajax.svc/" |
|
|
|
|
|
"Translate?appId=%s&text=%s&to=%s")) |
|
|
|
|
|
(apikey "3C9778666C5BA4B406FFCBEE64EF478963039C51") |
|
|
|
|
|
(target "ja") |
|
|
|
|
|
(eword (url-hexify-string word))) |
|
|
|
|
|
(with-current-buffer (url-retrieve-synchronously |
|
|
|
|
|
(format url |
|
|
|
|
|
apikey |
|
|
|
|
|
eword |
|
|
|
|
|
target)) |
|
|
|
|
|
(message "") |
|
|
|
|
|
(goto-char (point-min)) |
|
|
|
|
|
(search-forward-regexp "^$" |
|
|
|
|
|
nil |
|
|
|
|
|
t) |
|
|
|
|
|
(url-unhex-string (buffer-substring-no-properties |
|
|
|
|
|
(point) |
|
|
|
|
|
(point-max))))))) |
|
|
|
|
|
)) |
|
|
;; (funcall (cdr (assoc "ms" |
|
|
;; (funcall (cdr (assoc "ms" |
|
|
;; ilookup-alist)) |
|
|
;; ilookup-alist)) |
|
|
;; "dictionary") |
|
|
;; "dictionary") |
|
@@ -1544,8 +1543,9 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
|
|
|
|
|
|
;; (switch-to-buffer (url-retrieve-synchronously "http://google.com")) |
|
|
;; (switch-to-buffer (url-retrieve-synchronously "http://google.com")) |
|
|
|
|
|
|
|
|
(setq ilookup-default "ja") |
|
|
|
|
|
|
|
|
(set-variable 'ilookup-default "ja") |
|
|
(when (locate-library "google-translate") |
|
|
(when (locate-library "google-translate") |
|
|
|
|
|
(defvar ilookup-dict-alist) |
|
|
(add-to-list 'ilookup-dict-alist |
|
|
(add-to-list 'ilookup-dict-alist |
|
|
'("gt" . |
|
|
'("gt" . |
|
|
(lambda (word) |
|
|
(lambda (word) |
|
@@ -1561,8 +1561,8 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
|
|
|
|
|
|
(when (autoload-eval-lazily 'google-translate '(google-translate-translate |
|
|
(when (autoload-eval-lazily 'google-translate '(google-translate-translate |
|
|
google-translate-at-point)) |
|
|
google-translate-at-point)) |
|
|
(setq google-translate-default-source-language "auto") |
|
|
|
|
|
(setq google-translate-default-target-language "ja")) |
|
|
|
|
|
|
|
|
(set-varlable 'google-translate-default-source-language "auto") |
|
|
|
|
|
(set-variable 'google-translate-default-target-language "ja")) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
@@ -1580,8 +1580,11 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
t) |
|
|
t) |
|
|
(autoload-eval-lazily 'gauche-mode '(gauche-mode run-scheme))) |
|
|
(autoload-eval-lazily 'gauche-mode '(gauche-mode run-scheme))) |
|
|
(let ((s (executable-find "gosh"))) |
|
|
(let ((s (executable-find "gosh"))) |
|
|
(setq scheme-program-name s |
|
|
|
|
|
gauche-program-name s)) |
|
|
|
|
|
|
|
|
(set-variable 'scheme-program-name s) |
|
|
|
|
|
(set-variable 'gauche-program-name s)) |
|
|
|
|
|
|
|
|
|
|
|
(defvar gauche-program-name) |
|
|
|
|
|
(defvar scheme-buffer) |
|
|
|
|
|
|
|
|
(defun run-gauche-other-window () |
|
|
(defun run-gauche-other-window () |
|
|
"Run gauche on other window" |
|
|
"Run gauche on other window" |
|
@@ -1624,6 +1627,8 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
(cons '("\.gaucherc\\'" . gauche-mode) auto-mode-alist)) |
|
|
(cons '("\.gaucherc\\'" . gauche-mode) auto-mode-alist)) |
|
|
(add-hook 'gauche-mode-hook |
|
|
(add-hook 'gauche-mode-hook |
|
|
(lambda () |
|
|
(lambda () |
|
|
|
|
|
(defvar gauche-mode-map) |
|
|
|
|
|
(defvar scheme-mode-map) |
|
|
(define-key gauche-mode-map |
|
|
(define-key gauche-mode-map |
|
|
(kbd "C-c C-z") 'run-gauche-other-window) |
|
|
(kbd "C-c C-z") 'run-gauche-other-window) |
|
|
(define-key scheme-mode-map |
|
|
(define-key scheme-mode-map |
|
@@ -1634,11 +1639,11 @@ IF OK-IF-ALREADY-EXISTS is true force download." |
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;; recentf-mode |
|
|
;; recentf-mode |
|
|
|
|
|
|
|
|
(setq recentf-save-file (expand-file-name (concat user-emacs-directory |
|
|
|
|
|
"recentf")) |
|
|
|
|
|
recentf-max-menu-items 20 |
|
|
|
|
|
recentf-max-saved-items 30 |
|
|
|
|
|
recentf-show-file-shortcuts-flag nil) |
|
|
|
|
|
|
|
|
(set-variable 'recentf-save-file (expand-file-name (concat user-emacs-directory |
|
|
|
|
|
"recentf"))) |
|
|
|
|
|
(set-variable 'recentf-max-menu-items 20) |
|
|
|
|
|
(set-variable 'recentf-max-saved-items 30) |
|
|
|
|
|
(set-variable 'recentf-show-file-shortcuts-flag nil) |
|
|
|
|
|
|
|
|
(when (safe-require-or-eval 'recentf) |
|
|
(when (safe-require-or-eval 'recentf) |
|
|
(add-to-list 'recentf-exclude |
|
|
(add-to-list 'recentf-exclude |
|
@@ -1691,9 +1696,10 @@ the list." |
|
|
(insert-file-contents f) |
|
|
(insert-file-contents f) |
|
|
(buffer-substring-no-properties |
|
|
(buffer-substring-no-properties |
|
|
(point-min) |
|
|
(point-min) |
|
|
(progn (goto-line (if arg |
|
|
|
|
|
(prefix-numeric-value arg) |
|
|
|
|
|
7)) |
|
|
|
|
|
|
|
|
(progn (goto-char (point-min)) |
|
|
|
|
|
(forward-line (1- (if arg |
|
|
|
|
|
(prefix-numeric-value arg) |
|
|
|
|
|
7))) |
|
|
(point-at-eol))))))) |
|
|
(point-at-eol))))))) |
|
|
|
|
|
|
|
|
(defun my-dired-diff () |
|
|
(defun my-dired-diff () |
|
@@ -1871,8 +1877,9 @@ the list." |
|
|
(dired-hide-details-mode t) |
|
|
(dired-hide-details-mode t) |
|
|
(local-set-key "l" 'dired-hide-details-mode)) |
|
|
(local-set-key "l" 'dired-hide-details-mode)) |
|
|
(let ((file "._Icon\015")) |
|
|
(let ((file "._Icon\015")) |
|
|
(when nil (file-readable-p file) |
|
|
|
|
|
(delete-file file))))) |
|
|
|
|
|
|
|
|
(when nil |
|
|
|
|
|
'(file-readable-p file) |
|
|
|
|
|
(delete-file file))))) |
|
|
|
|
|
|
|
|
(and (autoload-eval-lazily 'pack '(dired-do-pack-or-unpack pack-pack)) |
|
|
(and (autoload-eval-lazily 'pack '(dired-do-pack-or-unpack pack-pack)) |
|
|
(add-hook 'dired-mode-hook |
|
|
(add-hook 'dired-mode-hook |
|
@@ -1934,8 +1941,8 @@ Optional prefix ARG says how many lines to unflag; default is one line." |
|
|
C-x t to toggling emacs-text-mode |
|
|
C-x t to toggling emacs-text-mode |
|
|
|
|
|
|
|
|
" |
|
|
" |
|
|
(shell-command-to-string "uname -a") |
|
|
|
|
|
)) |
|
|
|
|
|
|
|
|
(shell-command-to-string "uname -a") |
|
|
|
|
|
)) |
|
|
|
|
|
|
|
|
(defvar eshell-text-mode-map |
|
|
(defvar eshell-text-mode-map |
|
|
(let ((map (make-sparse-keymap))) |
|
|
(let ((map (make-sparse-keymap))) |
|
@@ -2011,6 +2018,7 @@ C-x t to toggling emacs-text-mode |
|
|
(let ((inhibit-read-only t)) |
|
|
(let ((inhibit-read-only t)) |
|
|
(erase-buffer))) |
|
|
(erase-buffer))) |
|
|
|
|
|
|
|
|
|
|
|
(defvar eshell-prompt-function) |
|
|
(defun eshell-clear () |
|
|
(defun eshell-clear () |
|
|
(interactive) |
|
|
(interactive) |
|
|
(let ((inhibit-read-only t)) |
|
|
(let ((inhibit-read-only t)) |
|
@@ -2085,7 +2093,7 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer." |
|
|
ad-do-it)) |
|
|
ad-do-it)) |
|
|
|
|
|
|
|
|
(set-variable 'eshell-directory-name (concat user-emacs-directory |
|
|
(set-variable 'eshell-directory-name (concat user-emacs-directory |
|
|
"eshell/")) |
|
|
|
|
|
|
|
|
"eshell/")) |
|
|
(set-variable 'eshell-term-name "eterm-color") |
|
|
(set-variable 'eshell-term-name "eterm-color") |
|
|
(set-variable 'eshell-scroll-to-bottom-on-input t) |
|
|
(set-variable 'eshell-scroll-to-bottom-on-input t) |
|
|
(set-variable 'eshell-cmpl-ignore-case t) |
|
|
(set-variable 'eshell-cmpl-ignore-case t) |
|
@@ -2093,13 +2101,13 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer." |
|
|
(set-variable 'eshell-highlight-prompt nil) |
|
|
(set-variable 'eshell-highlight-prompt nil) |
|
|
(if (eq system-type 'darwin) |
|
|
(if (eq system-type 'darwin) |
|
|
(set-variable 'eshell-ls-initial-args '("-hCFG") |
|
|
(set-variable 'eshell-ls-initial-args '("-hCFG") |
|
|
(set-variable 'eshell-ls-initial-args '("-hCFG" |
|
|
|
|
|
"--color=auto" |
|
|
|
|
|
"--time-style=long-iso")) ; "-hF") |
|
|
|
|
|
)) |
|
|
|
|
|
|
|
|
(set-variable 'eshell-ls-initial-args '("-hCFG" |
|
|
|
|
|
"--color=auto" |
|
|
|
|
|
"--time-style=long-iso")) ; "-hF") |
|
|
|
|
|
)) |
|
|
|
|
|
|
|
|
(set-variable 'eshell-prompt-function |
|
|
|
|
|
'my-eshell-prompt-function) |
|
|
|
|
|
|
|
|
(set (defvar eshell-prompt-function) |
|
|
|
|
|
'my-eshell-prompt-function) |
|
|
|
|
|
|
|
|
(defvar eshell-last-command-status) |
|
|
(defvar eshell-last-command-status) |
|
|
(defun my-eshell-prompt-function() |
|
|
(defun my-eshell-prompt-function() |
|
|