emacs에서 온라인 사전(firefox) 바로 이용하기

"&x=0&y=0" 부분을 빼먹었군요. 이부분은 어디에 사용되는 것인지??

아뭏든,

(defun search-naver-dic ()
  (interactive)
  (browse-url (concat "http://endic.naver.com/search.naver?mode=all&x=0&y=0&query="
                    (thing-at-point 'word))))

하면 되겠네요.

이왕 나온김에 하나 더 올려봅니다. MSIE에서 web accessories를 깔고 난 후에 주소창에서 쓰던 기능을 emacs로 가져와 봤습니다.

(require 'ffap)
(defconst qs-keywords
  '(
    a     "http://www.google.com/answers/search?qtype=answered&q=%s"
    av    "http://www.altavista.com/cgi-bin/query?text=yes&q=%s"
    bible "http://bible.gospelcom.net/cgi-bin/bible?passage=%s"
    dict  "http://www.dictionary.com/cgi-bin/dict.pl?term=%s"
    dmoz  "http://search.dmoz.org/cgi-bin/search?search=%s"
    e     "http://www.thefreedictionary.com/%s"
    f     "http://wombat.doc.ic.ac.uk/foldoc/foldoc.cgi?query=%s&action=Search"
    fm    "http://freshmeat.net/search/?q=%s"
    g     "http://www.google.com/search?q=%s"
    gg    "http://www.google.com/search?btnI=1&q=%s"
    gk    "http://labs.google.com/cgi-bin/keys?q=%s"
    gl    "http://labs.google.com/glossary?q=%s"
    gm    "http://www.google.com/microsoft?hq=microsoft&q=%s"
    gn    "http://groups.google.com/groups?q=%s"
    imdb  "http://www.imdb.com/Tsearch?%s"
    isbn  "http://isbn.nu/%s/price"
    m     "http://planetmath.org/?op=search&term=%s"
    mskb  "http://cryo.gen.nz/projects/mskb/?q=%s"
    mw    "http://www.m-w.com/cgi-bin/dictionary?book=Dictionary&va=%s"
    n     "http://search.naver.com/search.naver?where=nexearch&query=%s"
    nb    "http://100.naver.com/search.naver?query=%s"
    nd    "http://dic.naver.com/endic?where=dic&query=%s"
    ni    "http://kinsearch.naver.com/search.naver?where=allqna&query=%s"
    r     "http://ragingsearch.altavista.com/cgi-bin/query?q=%s"
    rc5   "http://stats.distributed.net/rc5-64/psearch.php3?st=%s"
    rfc   "http://www.faqs.org/rfcs/rfc%s.html"
    rhyme "http://rhyme.lycos.com/r/rhyme.cgi?Word=%s"
    s     "http://citeseer.ist.psu.edu/cis?q=%s&submit=Search+Documents&cs=1"
    t     "http://s.teoma.com/search?q=%s&qcat=1&qsrc=0"
    thes  "http://www.thesaurus.com/cgi-bin/search?config=roget&words=%s"
    w     "http://www.wikipedia.org/w/wiki.phtml?search=%s"
    whats "http://www.netcraft.com/whats/?host=%s"
    whois "http://www.domainwatch.com/getwho.cgi?dom=%s"
    wp    "http://www.whitepages.co.nz/cgi-bin/search?loc=AK&key=%s"
    yd    "http://kr.engdic.yahoo.com/search/engdic?p=%s"
    yp    "http://www.yellowpages.co.nz/quick/search?lkey=Auckland&key=%s"

    ;; these are later add on -- not from registry
    fi    "http://www.fact-index.com/search/search.html?search=%s"
    wi    "http://en.wikipedia.org/wiki/%s"
    ))

(defun qs-search (url-string)
  "immitage the search url facility in MSIE w/ web accessories"
  (interactive "sURL ('?' for help): ")
  (when (or (null url-string)
            (string= url-string "")) 
    (setq url-string (ignore-errors (ffap-prompter))))
  (flet ((browse (url) (browse-url url (or current-prefix-arg t)))) 
    (let* ((pos (position ? url-string))
           (key (intern (substring url-string 0 pos)))
           (idx (position key qs-keywords)))
      (if (and pos idx)
          (let ((buzzword (substring url-string (1+ pos))))
            (browse (format (nth (1+ idx) qs-keywords)
                                (qs-url-encode buzzword))))
        (if (string= url-string "?")
            (with-output-to-temp-buffer "*Help*"
              (princ "Simply type any url ('https?://' is optional) or")
              (terpri) (terpri)
              (loop for key in qs-keywords by #'cddr
                    for url in (cdr qs-keywords) by #'cddr
                    do (princ (format "  %-10s%s" key url))
                    do (terpri)))
          (or (string-match "^https?://" url-string)
              (setq url-string (concat "http://" url-string)))
          (browse url-string))))))

간단히 쓰시는 방법은

(define-key mode-specific-map "d" 'qs-search)

아 물론 위에 올린 (require 'cl)하고 qs-url-encode 도 있어야 합니다.