| http://www.w3.org/ns/prov#value | - Each entry is a list of (key menu-name function).)(setq words-funcs'((d ictionary words-dictionary)(t hesaurus" words-thesaurus)(g oogle words-google))) (defun words ()(interactive)(message(concat(mapconcat(lambda (tup)(concat [ (elt tup 0) ](elt tup 1) ))words-funcs ) : ))(let ((input (read-char-exclusive)))(funcall(elt(assoc(char-to-string input) words-funcs)2)))) (defun w
|
