Finally : a good pop up translator for FireFox

I can't believe I missed this bad boy before.

Babel Translator will pop up word translations, select translations etc. Highly
customisable. Superb.

Babel Translator For Firefox

--
My Emacs Files At GitHub

Insert or split babel src block

2010-09-19 Sun

(define-key org-mode-map (kbd "C-c C-b") 'rgr/org-split-src)
(defun rgr/org-split-src(&optional arg)
  (interactive "P")
  (beginning-of-line)
  ((lambda(info)
     (if info
         (let ((pos (point))
               (lang (nth 0 info))
               (stars (make-string (org-current-level) ?*)))
           (insert 
            (format 
             "%s\n%s \n#+begin_src %s\n%s#+end_src\n%s \n#+begin_src %s\n" 
             "#+end_src"
             stars
             lang
             (if (region-active-p) 
                 (delete-and-extract-region (region-beginning) (region-end)) "\n")
             stars
             lang))
             (org-back-to-heading))
       (insert 
        (format 
         "\n#+begin_src\n%s\n#+end_src\n" 
         (if (region-active-p) 
             (delete-and-extract-region (region-beginning) (region-end)) "")))))
   (org-babel-get-src-block-info)))

--
My Emacs Files At GitHub

Mark region as src code. If prefix used then create new org entry with the region marked as src.

(define-key org-mode-map (kbd "C-c C-b") '
  (lambda()(interactive)
    (let ((stars (make-string (org-current-level) ?*)))
      (insert 
       (format 
        "%s%s \n#+begin_src emacs-lisp\n%s#+end_src\n%s" 
        (if current-prefix-arg "#+end_src\n\n") stars (delete-and-extract-region (region-beginning) (region-end)) (if current-prefix-arg (concat "\n" stars " \n#+begin_src emacs-lisp")))))))

--
My Emacs Files At GitHub

Language translation utilities/helper functions for interfacing to Babel

If prefix the call to the translate function than store the translation as an org item.

(require 'babel)

(defvar rgr/learn-first-lesson 1)
(defvar rgr/orig-text  "The text we wish to translate")
(defvar rgr/trans-text "The translated text")

(setq babel-echo-area t)
(setq babel-preferred-from-language "English")
(setq babel-preferred-to-language "German")


(defun rgr/babel-language-code (lang)
  (cdr (assoc lang babel-languages)))

(defun rgr/translate( &optional usedef )
  (interactive)
  (let* ((default (region-or-word-at-point)))
    (setq default 
          (read-string (format "Translate \"%s\" :" default) nil nil default))
    (when (length default)
      (setq rgr/trans-text (babel default nil usedef))
      (setq rgr/orig-text default)
      (if current-prefix-arg 
          (progn
            (org-capture nil ?v)
            (org-schedule nil (time-add (current-time) (days-to-time rgr/learn-first-lesson)))))
      (rgr/notify rgr/trans-text) ;; calls gnome notify function or whatever.
      (message "%s" rgr/trans-text))))

(defun rgr/toggle-languages()
  (interactive)
  (let* ((temp babel-preferred-to-language))
    (setq babel-preferred-to-language babel-preferred-from-language
          babel-preferred-from-language temp))
  (message  "%s to %s " babel-preferred-from-language babel-preferred-to-language))

(global-set-key (kbd "<f5>") 
                (lambda()
                  (interactive)(require 'babel)(rgr/translate t)))

(global-set-key (kbd "<f6>") 
                'rgr/toggle-languages)