Bläddra i källkod

update ilookup-alist

pull/1/head
10sr 11 år sedan
förälder
incheckning
897a14542b
1 ändrade filer med 13 tillägg och 1 borttagningar
  1. +13
    -1
      emacs.el

+ 13
- 1
emacs.el Visa fil

@@ -2419,9 +2419,21 @@ result for that word.")
(format "sdcv -n -u dictd_www.dict.org_gcide '%s'"
word))))
("ja" . (lambda (word)
(shell-command-to-string
(shell-command-to-string
(format "sdcv -n -u EJ-GENE95 '%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"


Laddar…
Avbryt
Spara