1 changed files with 0 additions and 107 deletions
Split View
Diff Options
-
+0 -107emacs.el
+ 0
- 107
emacs.el
View File
| @@ -1120,99 +1120,6 @@ found, otherwise returns nil." | |||
| (call-interactively 'iswitchb-buffer))) | |||
| ;;;;;;;;;;;;;;;;;;;;;;;; | |||
| ;; ilookup | |||
| (with-eval-after-load 'ilookup | |||
| (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" | |||
| ;; ilookup-alist)) | |||
| ;; "dictionary") | |||
| ;; (switch-to-buffer (url-retrieve-synchronously "http://api.microsofttranslator.com/V2/Ajax.svc/Translate?appId=3C9778666C5BA4B406FFCBEE64EF478963039C51&text=dictionary&to=ja")) | |||
| ;; (switch-to-buffer (url-retrieve-synchronously "http://google.com")) | |||
| (set-variable 'ilookup-default "ja") | |||
| (when (locate-library "google-translate") | |||
| (defvar ilookup-dict-alist nil) | |||
| (add-to-list 'ilookup-dict-alist | |||
| '("gt" . | |||
| (lambda (word) | |||
| (save-excursion | |||
| (google-translate-translate "auto" | |||
| "ja" | |||
| word)) | |||
| (with-current-buffer "*Google Translate*" | |||
| (buffer-substring-no-properties (point-min) | |||
| (point-max))))))) | |||
| ) | |||
| (when (autoload-eval-lazily 'google-translate '(google-translate-translate | |||
| google-translate-at-point)) | |||
| (set-variable 'google-translate-default-source-language "auto") | |||
| (set-variable 'google-translate-default-target-language "ja")) | |||
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |||
| ;; vc | |||
| (set-variable 'vc-handled-backends '()) | |||
| @@ -1591,18 +1498,4 @@ This mode is a simplified version of `adoc-mode'." | |||
| (add-to-list 'auto-mode-alist | |||
| '("\\.adoc\\'" . adoc-simple-mode))) | |||
| (when (and (safe-require-or-eval 'google-translate) | |||
| (safe-require-or-eval 'google-translate-smooth-ui)) | |||
| (add-to-list 'google-translate-translation-directions-alist | |||
| '("en" . "ja")) | |||
| (defun translate-echo-at-point () | |||
| "Translate popup at point." | |||
| (interactive) | |||
| (let ((google-translate-output-destination 'echo-area)) | |||
| (google-translate-translate "auto" "ja" (current-word t t)))) | |||
| (define-minor-mode auto-translate-mode | |||
| "Translate word at point automatically." | |||
| :global nil | |||
| :lighter "ATranslate")) | |||
| ;;; emacs.el ends here | |||