view release on metacpan or  search on metacpan

share/xlate.el  view on Meta::CPAN

(defun xlate-buffer (&optional prefix)
  "Execute deepl command on current buffer."
  (interactive "P")
  (if prefix
      (xlate-region (region-beginning) (region-end))
    (xlate-region (point-min) (point-max))))

(defun xlate-region (begin end &optional target-lang)
  "Execute xlate on region with an optional target language.
If called with a prefix argument (C-u), prompt for the target language."
  (interactive
   (list (region-beginning) (region-end)
         (if current-prefix-arg
             (let ((langs (append xlate-languages (mapcar 'car xlate-lang-aliases))))
               (completing-read (format "Target language (default: %s): "
                                        xlate-default-target-lang)
                                langs nil t nil
                                xlate-default-target-lang xlate-default-target-lang))
           nil)))
  (let* ((l (or target-lang xlate-default-target-lang))