95 lines
2.8 KiB
EmacsLisp
95 lines
2.8 KiB
EmacsLisp
|
;;; tyda.el --- Lookup words in swe/eng dictionary at tyda.se
|
||
|
|
;;
|
||
|
|
;; Author: Lennart Borgman (lennart O borgman A gmail O com)
|
||
|
|
;; Created: 2008-08-26T02:51:27+0200 Tue
|
||
|
|
;; Version: 0.2
|
||
|
|
;; Last-Updated:
|
||
|
|
;; URL:
|
||
|
|
;; Keywords:
|
||
|
|
;; Compatibility:
|
||
|
|
;;
|
||
|
|
;; Features that might be required by this library:
|
||
|
|
;;
|
||
|
|
;; None
|
||
|
|
;;
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;;
|
||
|
|
;;; Commentary:
|
||
|
|
;;
|
||
|
|
;; Lookup swedish or english words in the dictionary at
|
||
|
|
;;
|
||
|
|
;; http://www.tyda.se/
|
||
|
|
;;
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;;
|
||
|
|
;;; Change log:
|
||
|
|
;;
|
||
|
|
;;
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;;
|
||
|
|
;; This program is free software; you can redistribute it and/or
|
||
|
|
;; modify it under the terms of the GNU General Public License as
|
||
|
|
;; published by the Free Software Foundation; either version 2, or
|
||
|
|
;; (at your option) any later version.
|
||
|
|
;;
|
||
|
|
;; This program is distributed in the hope that it will be useful,
|
||
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||
|
|
;; General Public License for more details.
|
||
|
|
;;
|
||
|
|
;; You should have received a copy of the GNU General Public License
|
||
|
|
;; along with this program; see the file COPYING. If not, write to
|
||
|
|
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
|
||
|
|
;; Floor, Boston, MA 02110-1301, USA.
|
||
|
|
;;
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;;
|
||
|
|
;;; Code:
|
||
|
|
|
||
|
|
(eval-when-compile (require 'appmenu))
|
||
|
|
|
||
|
|
(defun tyda-lookup-word (word)
|
||
|
|
"Look up word WORD at URL `http://tyda.se/'.
|
||
|
|
This site translates between English and Swedish. The site will
|
||
|
|
be opened in your webbrowser with WORD looked up."
|
||
|
|
(interactive (list (or (thing-at-point 'word)
|
||
|
|
(read-string "Lookup word: "))))
|
||
|
|
;; http://tyda.se/search?form=1&w=weird&w_lang=&x=0&y=0
|
||
|
|
(browse-url
|
||
|
|
;;(concat "http://www.tyda.se/?rid=651940&w=" word)
|
||
|
|
(format "http://tyda.se/search?form=1&w=%s&w_lang=&x=0&y=0" word)
|
||
|
|
))
|
||
|
|
|
||
|
|
(defvar tyda-appmenu-map
|
||
|
|
(let ((map (make-sparse-keymap)))
|
||
|
|
(define-key map [tyda-lookup]
|
||
|
|
(list 'menu-item "Lookup word at point in Tyda"
|
||
|
|
'tyda-lookup-word))
|
||
|
|
map))
|
||
|
|
|
||
|
|
(defvar tyda-mode-map
|
||
|
|
(let ((map (make-sparse-keymap)))
|
||
|
|
(define-key map [(alt mouse-1)] 'tyda-lookup-word)
|
||
|
|
(define-key map [(control ?c) ?=] 'tyda-lookup-word)
|
||
|
|
map))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(define-minor-mode tyda-mode
|
||
|
|
"Minor mode for key bindings for `tyda-lookup-word'.
|
||
|
|
It binds Alt-Mouse-1 just as the Tyda add-on does in Firefox.
|
||
|
|
Here are all key bindings
|
||
|
|
|
||
|
|
\\{tyda-mode-map}
|
||
|
|
"
|
||
|
|
:global t
|
||
|
|
(if tyda-mode
|
||
|
|
(progn
|
||
|
|
(require 'appmenu nil t)
|
||
|
|
(when (featurep 'appmenu)
|
||
|
|
(appmenu-add 'tyda nil tyda-mode "Lookup word" tyda-appmenu-map)))))
|
||
|
|
|
||
|
|
|
||
|
|
(provide 'tyda)
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;;; tyda.el ends here
|