globalizer.el

   1 ;;; globalizer.el -- Add your lovely globalize .t with style
   2
   3 ;; Author: Ed Sinjiashvili <mediogre@gmail.com>
   4 ;; Keywords: rails i18n
   5
   6 ;;; Commentary:
   7 ;; Scan through a buffer to find strings eligible for translation.
   8 ;; Allow user to observe changes and make an educated choice: approve, veto,
   9 ;; quit or make changes automatically. Basically it does everything
  10 ;; query-replace does, but calls user-defined hook when replace
  11 ;; actually happens.
  12 ;;
  13 ;; In other words if you choose the string to be translatable, it will
  14 ;; add .t to it (make it globalized) and also add the string to
  15 ;; another buffer which you can later give to a native translator to
  16 ;; create actual translations.
  17
  18 ;;; Code:
  19 (defconst globalize:buffer-extension ".globalines"
  20   "extension to append to buffer being globalized")
  21
  22 ;;; TODO:
  23 ;; - find a way to skip literals with .t (kinda hard without lookahead support)
  24 ;; - maybe match more complex ruby strings
  25 ;; - match symbols?
  26 (defconst globalize:string-literal-regexp
  27   "\\(['\"]\\)\\(.*?\\)\\1"
  28   "a simple ruby literal string regexp")
  29
  30 (defconst globalize:replacement-string
  31   "\\&.t"
  32   "just add .t method call")
  33
  34 (defun globalize:get-buffer-name ()
  35   "get the name for a file used for storing globalized strings"
  36   (concat (buffer-file-name) globalize:buffer-extension))
  37
  38 (defun globalize:get-buffer ()
  39   "get buffer with globalized strings"
  40   (interactive)
  41   (let ((buffer (find-buffer-visiting (globalize:get-buffer-name))))
  42     (if (null buffer)
  43         (setq buffer (find-file-noselect (globalize:get-buffer-name)))
  44       buffer)))
  45
  46 (defun globalize:append-line (str)
  47   "append `str' to globalized buffer"
  48   (interactive)
  49   (save-current-buffer
  50     (set-buffer (globalize:get-buffer))
  51     (goto-char (point-max))
  52     (insert str)
  53     (insert "\n")))
  54
  55 (defun globalize:append-matched-string (&optional pos)
  56   "Append a matched (or some part of) string to globalize buffer"
  57   (or pos (setq pos 2))
  58   (globalize:append-line (match-string-no-properties pos)))
  59
  60 ;; can't make it work -
  61 ;; (defmacro globalize:save-case-fold (&rest body)
  62 ;;   "save current `case-fold-search' value and evaluate expression with
  63 ;; `case-fold-search' set to nil"
  64 ;;   `(let ((prev-case-fold case-fold-search)
  65 ;;       result)
  66 ;;      (setq case-fold-search nil)
  67 ;;      (setq result (progn ,body))
  68 ;;      (setq case-fold-search prev-case-fold)
  69 ;;      result))
  70
  71
  72 ;;;###autoload
  73 (defun globalize:query-globalize ()
  74   "Globalize current buffer. Add .t to candidate lines and dump them
  75   to corresponding .globalines buffer for later use."
  76   (interactive)
  77   (ad-unadvise 'replace-match-maybe-edit)
  78
  79   (defadvice replace-match-maybe-edit
  80     (before globalize:run-replaced-hook (newtext fixedcase literal noedit match-data))
  81     "Insert a matched (and approved) string to the globalize buffer"
  82     (run-hooks 'globalize:replaced-hook))
  83
  84   (ad-activate 'replace-match-maybe-edit)
  85
  86   ; clean all hooks on definition
  87   (set 'globalize:replaced-hook nil)
  88
  89   (add-hook 'globalize:replaced-hook 'globalize:append-matched-string)
  90
  91   (let ((prev-case case-fold-search))
  92     (setq case-fold-search nil)
  93     (query-replace-regexp
  94      globalize:string-literal-regexp
  95      globalize:replacement-string)
  96     (setq case-fold-search prev-case))
  97
  98   (ad-unadvise 'replace-match-maybe-edit)
  99
 100   (pop-to-buffer (globalize:get-buffer)))
 101
 102 (defun globalize:globalize-region (beg end)
 103   "Globalize selected region: erbify, .tify and add to globalines"
 104   (interactive "r")
 105   (globalize:append-line (buffer-substring-no-properties beg end))
 106
 107   (let ((prev-case case-fold-search))
 108     (setq case-fold-search nil)
 109     (replace-regexp ".*" "<%= '\\&'.t %>" nil beg end)
 110     (setq case-fold-search prev-case))
 111
 112   ;(pop-to-buffer (globalize:get-buffer))
 113 )
 114
 115 (provide 'globalizer)
 116
 117 ;;; globalizer.el ends here