Emacs
Jump to navigation
Jump to search
Emacs has a nice xml editing mode called nXML.
I often define keyboard macros as I edit, some of these I record as functions which you can put in your .emacs, since they come in handy time and again, eg. this one for bidix:
(defun nxml-dix-restriction-copy (&optional RL) "Make a copy of the Apertium element we're looking at, and add an LR restriction to the copy. A prefix argument makes it an RL restriction." (interactive "P") (nxml-token-after) (let ((tok (xmltok-start-tag-qname))) (while (not (equal tok "e")) (nxml-backward-up-element) (nxml-token-after) (setq tok (xmltok-start-tag-qname)))) (if (looking-at "[e>]") (nxml-backward-up-element)) (kill-sexp) (yank) (newline-and-indent) (yank) (goto-char (mark t)) (let ((dir (if RL "RL" "LR"))) (forward-word) (insert (concat " r=\"" dir "\""))) (forward-char) (just-one-space) (delete-backward-char 1)) ;; whatever keys you prefer: (define-key nxml-mode-map (kbd "C-c L") 'nxml-dix-restriction-copy) (define-key nxml-mode-map (kbd "C-c R") (lambda nil (interactive) "Make a copy of the Apertium element we're looking at, and add an RL restriction to the copy." (nxml-dix-restriction-copy 'RL)))