Browse Source

emacs.el: Use package.el for some my libraries

pull/15/head
10sr 8 years ago
parent
commit
b39c877303
1 changed files with 102 additions and 139 deletions
  1. +102
    -139
      emacs.el

+ 102
- 139
emacs.el View File

@@ -217,6 +217,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
editorconfig
git-ps1-mode
restart-emacs
fill-column-indicator

scala-mode2
ensime
@@ -226,9 +227,18 @@ IF OK-IF-ALREADY-EXISTS is true force download."
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.")

@@ -238,7 +248,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(setq package-archives
`(,@package-archives
("melpa" . "https://melpa.org/packages/")
("10sr-el" . "http://10sr.github.io/emacs-lisp/p/")))
("10sr-el" . "https://10sr.github.io/emacs-lisp/p/")))
;; (add-to-list 'package-archives
;; '("melpa" . "https://melpa.org/packages/")
;; t)
@@ -343,12 +353,6 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(setq ring-bell-function 'ignore)
(mouse-avoidance-mode 'banish)

(and window-system
(fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/save-window-size.el"
t)
(safe-require-or-eval 'save-window-size))

(defun reload-init-file ()
"Reload Emacs init file."
(interactive)
@@ -426,10 +430,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; title and mode-line

(when (and (fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/terminal-title.el"
t)
(safe-require-or-eval 'terminal-title))
(when (safe-require-or-eval 'terminal-title)
;; if TERM is not screen use default value
(if (getenv "TMUX")
;; if use tmux locally just basename of current dir
@@ -643,9 +644,6 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;; t))
))
(and nil
(fetch-library
"http://www.emacswiki.org/emacs/download/fill-column-indicator.el"
t)
(safe-require-or-eval 'fill-column-indicator)
(setq fill-column-indicator))

@@ -698,11 +696,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;; (my-set-ascii-and-jp-font '("ProggyCleanTTSZ" 120 "takaogothic" 11))
;; あ a

(and (fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/set-modeline-color.el"
t)
(progn
(safe-require-or-eval 'set-modeline-color)))
(safe-require-or-eval 'set-modeline-color)

(let ((fg (face-foreground 'default))
(bg (face-background 'default)))
@@ -715,6 +709,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(set-face-underline 'vertical-border
nil)

;; Not found in MELPA nor any other package repositories
(and (fetch-library
"https://raw.github.com/tarao/elisp/master/end-mark.el"
t)
@@ -765,24 +760,13 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(add-to-list 'recentf-exclude
(regexp-quote bookmark-default-file))))

(and (fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/read-only-only-mode.el"
t)
(autoload-eval-lazily 'read-only-only-mode))

(and (fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/smart-revert.el"
t)
(safe-require-or-eval 'smart-revert)
(smart-revert-on))
(when (safe-require-or-eval 'smart-revert)
(smart-revert-on))

;; autosave

(and (fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/autosave.el"
t)
(safe-require-or-eval 'autosave)
(autosave-set 2))
(when (safe-require-or-eval 'autosave)
(autosave-set 2))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; editting
@@ -936,9 +920,6 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(turn-on-xclip))

(and (eq system-type 'darwin)
(fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/pasteboard.el"
t)
(safe-require-or-eval 'pasteboard)
(turn-on-pasteboard)
(getenv "TMUX")
@@ -952,11 +933,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; window

'(and (fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/window-organizer.el"
t)
(autoload-eval-lazily 'window-organizer)
(define-key ctl-x-map (kbd "w") 'window-organizer))
;; (when (autoload-eval-lazily 'window-organizer)
;; (define-key ctl-x-map (kbd "w") 'window-organizer))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; server
@@ -1038,12 +1016,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(define-key dirtree-mode-map "p" 'my-dirtree-previous-node))
(define-key ctl-x-map "d" 'dirtree))

(and (fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/remember-major-modes-mode.el"
t)
(safe-require-or-eval 'remember-major-modes-mode)
(remember-major-modes-mode 1)
)
(when (safe-require-or-eval 'remember-major-modes-mode)
(remember-major-modes-mode 1))

;; Detect file type from shebang and set major-mode.
(add-to-list 'interpreter-mode-alist
@@ -1063,11 +1037,6 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(autoload-eval-lazily 'sql '(sql-mode)
(safe-require-or-eval 'sql-indent))

'(and (fetch-library "https://raw.github.com/10sr/emacs-lisp/master/gtkbm.el"
t)
(autoload-eval-lazily 'gtkbm)
(global-set-key (kbd "C-x C-d") 'gtkbm))

(when (autoload-eval-lazily 'git-command)
(define-key ctl-x-map "g" 'git-command))

@@ -1554,90 +1523,87 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;;;;;;;;;;;;;;;;;;;;;;;;
;; ilookup

(when (fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/ilookup.el"
t)
(autoload-eval-lazily 'ilookup
'(ilookup-open)
(setq ilookup-dict-alist
'(
("sdcv" . (lambda (word)
(shell-command-to-string
(format "sdcv -n '%s'"
word))))
("en" . (lambda (word)
(autoload-eval-lazily 'ilookup
'(ilookup-open)
(setq ilookup-dict-alist
'(
("sdcv" . (lambda (word)
(shell-command-to-string
(format "sdcv -n -u dictd_www.dict.org_gcide '%s'"
(format "sdcv -n '%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"))

(setq ilookup-default "ja")
(when (locate-library "google-translate")
(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)))))))
))
("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"))

(setq ilookup-default "ja")
(when (locate-library "google-translate")
(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
@@ -1960,10 +1926,7 @@ the list."
(lambda ()
(local-set-key "P" 'dired-do-pack-or-unpack))))

(and (fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/dired-list-all-mode.el"
t)
(autoload-eval-lazily 'dired-list-all-mode)
(and (autoload-eval-lazily 'dired-list-all-mode)
(setq dired-listing-switches "-lhF")
(add-hook 'dired-mode-hook
(lambda ()


Loading…
Cancel
Save