null+****@clear*****
null+****@clear*****
Thu Jan 5 12:58:31 JST 2012
yuta yamada 2012-01-05 12:58:31 +0900 (Thu, 05 Jan 2012)
New Revision: 2c56d4ec7ca994d76ecedd52100e62ef27653f41
Log:
add configuration for po-mode
Added files:
po-mode-fix.el
Added: po-mode-fix.el (+113 -0) 100644
===================================================================
--- /dev/null
+++ po-mode-fix.el 2012-01-05 12:58:31 +0900 (27a3fb6)
@@ -0,0 +1,113 @@
+;; if you not like behavior of po-mode,
+;; you can customize behavior by apply below code when create window.
+
+;;; example
+;; (defadvice po-subedit-create-buffer
+;; (around ad-po-subedit-create-buffer activate)
+;; "this is wraped subedit-create-buffer for user"
+;; (let* ((origin (current-buffer)))
+;; (progn
+;; (if (one-window-p)
+;; ad-do-it
+;; (windmove-left)
+;; (if (equal origin (current-buffer))
+;; (windmove-down)
+;; )
+;; (switch-to-buffer (ad-get-arg 0))
+;; )
+;; )
+;; ))
+
+(when (require 'po-mode nil t)
+ (defun po-subedit-abort ()
+ "Exit the subedit buffer, merely discarding its contents."
+ (interactive)
+ (let* ((edit-buffer (current-buffer))
+ (back-pointer po-subedit-back-pointer)
+ (entry-marker (nth 0 back-pointer))
+ (overlay-info (nth 2 back-pointer))
+ (entry-buffer (marker-buffer entry-marker)))
+ (if (null entry-buffer)
+ (error (_"Corresponding PO buffer does not exist anymore"))
+ ;;fix: not delete other-window
+ ;(or (one-window-p) (delete-window))
+ (or (one-window-p) (kill-this-buffer))
+ ;;fix: not swicth current buffer
+ ;(switch-to-buffer entry-buffer)
+ (switch-to-buffer-other-window entry-buffer)
+ (goto-char entry-marker)
+ (and overlay-info (po-dehighlight overlay-info))
+ (kill-buffer edit-buffer)
+ (setq po-edited-fields (delete back-pointer po-edited-fields)))))
+
+ (defun po-edit-string (string type expand-tabs)
+ "Prepare a pop up buffer for editing STRING, which is of a given TYPE.
+TYPE may be 'comment or 'msgstr. If EXPAND-TABS, expand tabs to spaces.
+Run functions on po-subedit-mode-hook."
+ (let ((marker (make-marker)))
+ (set-marker marker (cond ((eq type 'comment) po-start-of-msgid)
+ ((eq type 'msgstr) po-start-of-msgstr-form)))
+ (if (po-check-for-pending-edit marker)
+ (let ((edit-buffer (generate-new-buffer
+ (concat "*" (buffer-name) "*")))
+ (edit-coding buffer-file-coding-system)
+ (buffer (current-buffer))
+ overlay slot)
+ (if (and (eq type 'msgstr) po-highlighting)
+ ;; ;; Try showing all of msgid in the upper window while editing.
+ ;; (goto-char (1- po-start-of-msgstr-block))
+ ;; (recenter -1)
+ (save-excursion
+ (goto-char po-start-of-entry)
+ (re-search-forward po-any-msgid-regexp nil t)
+ (let ((end (1- (match-end 0))))
+ (goto-char (match-beginning 0))
+ (re-search-forward "msgid +" nil t)
+ (setq overlay (po-create-overlay))
+ (po-highlight overlay (point) end buffer))))
+ (setq slot (list marker edit-buffer overlay)
+ po-edited-fields (cons slot po-edited-fields))
+ ;;fix: define function for user access
+ ;; (pop-to-buffer edit-buffer)
+ (po-subedit-create-buffer edit-buffer)
+ (text-mode)
+ (set (make-local-variable 'po-subedit-back-pointer) slot)
+ (set (make-local-variable 'indent-line-function)
+ 'indent-relative)
+ (setq buffer-file-coding-system edit-coding)
+ (setq local-abbrev-table po-mode-abbrev-table)
+ (erase-buffer)
+ (insert string "<")
+ (goto-char (point-min))
+ (and expand-tabs (setq indent-tabs-mode nil))
+ (use-local-map po-subedit-mode-map)
+ (if (fboundp 'easy-menu-define)
+ (progn
+ (easy-menu-define po-subedit-mode-menu po-subedit-mode-map ""
+ po-subedit-mode-menu-layout)
+ (and po-XEMACS (easy-menu-add po-subedit-mode-menu))))
+ (set-syntax-table po-subedit-mode-syntax-table)
+ (run-hooks 'po-subedit-mode-hook)
+ (message po-subedit-message)))))
+
+ ;;add function
+ (defun po-subedit-create-buffer(buffer-name)
+ "you can customize to this function,
+ example:
+ \(defadvice po-subedit-create-buffer
+ \(around ad-po-subedit-create-buffer activate\)
+ \"this is wraped subedit-create-buffer for user\"
+ \(progn
+ \(if \(one-window-p\)
+ ad-do-it
+ \(windmove-left\)
+ \(if \(equal origin \(current-buffer\)\)
+ \(windmove-down\)
+ \)
+ \(switch-to-buffer \(ad-get-arg 0\)
+ \)\)
+ \)\)"
+ (pop-to-buffer buffer-name)
+ )
+ )
+