Procházet zdrojové kódy

update ilookup-alist

pull/1/head
10sr před 11 roky
rodič
revize
897a14542b
1 změnil soubory, kde provedl 13 přidání a 1 odebrání
  1. +13
    -1
      emacs.el

+ 13
- 1
emacs.el Zobrazit soubor

@@ -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"


Načítá se…
Zrušit
Uložit