diff options
author | Tom Willemsen | 2011-03-23 11:14:27 +0100 |
---|---|---|
committer | Tom Willemsen | 2011-03-23 11:14:27 +0100 |
commit | 0d342f0aee3f2f800e486c0051dabe718a7b2841 (patch) | |
tree | 1f55afabb8f4876dbe564f7ed5d8e573ddc78df3 /emacs.d/nxhtml/util/tyda.el | |
parent | d4510153b17625a3dd2f1852cc6392fc26efecf6 (diff) | |
download | dotfiles-0d342f0aee3f2f800e486c0051dabe718a7b2841.tar.gz dotfiles-0d342f0aee3f2f800e486c0051dabe718a7b2841.zip |
I don't like nxhtml
Diffstat (limited to 'emacs.d/nxhtml/util/tyda.el')
-rw-r--r-- | emacs.d/nxhtml/util/tyda.el | 94 |
1 files changed, 0 insertions, 94 deletions
diff --git a/emacs.d/nxhtml/util/tyda.el b/emacs.d/nxhtml/util/tyda.el deleted file mode 100644 index d4f3ea6..0000000 --- a/emacs.d/nxhtml/util/tyda.el +++ /dev/null @@ -1,94 +0,0 @@ -;;; 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 |