(handwrite): Also process lines not ending with newline. Replace some
position-fiddling with different logic. Improve performance.
This commit is contained in:
Chong Yidong
parent
32aa3a8c8c
commit
2f88760a4b
1 changed files with 41 additions and 136 deletions
|
|
@ -155,7 +155,19 @@ Variables: handwrite-linespace (default 12)
|
|||
(buf-name (buffer-name) )
|
||||
(textp)
|
||||
(ps-buf-name) ;name of the PostScript buffer
|
||||
)
|
||||
(trans-table
|
||||
'(("ÿ" . "264") ("á" . "207") ("à" . "210") ("â" . "211")
|
||||
("ä" . "212") ("ã" . "213") ("å" . "214") ("é" . "216")
|
||||
("è" . "217") ("ê" . "220") ("ë" . "221") ("í" . "222")
|
||||
("ì" . "223") ("î" . "224") ("ï" . "225") ("ó" . "227")
|
||||
("ò" . "230") ("ô" . "231") ("ö" . "232") ("õ" . "233")
|
||||
("ú" . "234") ("ù" . "235") ("û" . "236") ("ü" . "237")
|
||||
("ß" . "247") ("°" . "241") ("®" . "250") ("©" . "251")
|
||||
("ij" . "264") ("ç" . "215") ("§" . "244") ("ñ" . "226")
|
||||
("£" . "243")))
|
||||
(escape-table '("\\\\" "(" ")")) ; \\ comes first to not work
|
||||
; on inserted backslashes
|
||||
line)
|
||||
(goto-char (point-min)) ;start at beginning
|
||||
(setq handwrite-psindex (1+ handwrite-psindex))
|
||||
(setq ps-buf-name
|
||||
|
|
@ -178,155 +190,46 @@ Variables: handwrite-linespace (default 12)
|
|||
(switch-to-buffer cur-buf)
|
||||
(goto-char (point-min)) ;start at beginning
|
||||
(save-excursion
|
||||
;;as long as we see a newline the document is not ended.
|
||||
(while (re-search-forward "\n" nil t)
|
||||
(previous-line 1)
|
||||
(beginning-of-line)
|
||||
(setq pmin (point))
|
||||
(search-forward "\n" nil t)
|
||||
(backward-char 1)
|
||||
(copy-region-as-kill (point) pmin)
|
||||
(forward-char 1)
|
||||
(while (not (eobp))
|
||||
(setq line (thing-at-point 'line))
|
||||
(dolist (escape escape-table)
|
||||
(setq line (replace-regexp-in-string escape
|
||||
(concat "\\\\" escape) line)))
|
||||
(dolist (trans trans-table)
|
||||
(setq line (replace-regexp-in-string (car trans)
|
||||
(concat "\\\\" (cdr trans))
|
||||
line)))
|
||||
(switch-to-buffer ps-buf-name)
|
||||
(yank)
|
||||
(insert (replace-regexp-in-string "\n" "" line))
|
||||
(message "write write write...")
|
||||
(search-forward ")a" nil t)
|
||||
(backward-char 2)
|
||||
(setq lastp (point))
|
||||
(beginning-of-line)
|
||||
(search-forward "(" nil t)
|
||||
(while (re-search-forward "[()\\]" lastp t)
|
||||
(save-excursion
|
||||
(setq lastp (+ lastp 1))
|
||||
(forward-char -1)
|
||||
(insert "\\")))
|
||||
(setq ps-ypos (+ ps-ypos handwrite-linespace))
|
||||
(end-of-line)
|
||||
(insert "\n")
|
||||
(setq lcount (+ lcount 1))
|
||||
(cond ( (eq lcount handwrite-numlines)
|
||||
(setq ipage (+ ipage 1))
|
||||
(insert "0 0 m\n")
|
||||
(insert "showpage exec Hwsave restore\n")
|
||||
(insert "%%Page: " (number-to-string ipage) " "
|
||||
(number-to-string ipage) "\n")
|
||||
(insert "Hwjst\n")
|
||||
(insert "/Hwsave save def\n")
|
||||
(if handwrite-pagenumbering
|
||||
(insert "20 30 m\nxym(page "
|
||||
(number-to-string ipage) ")a\n"))
|
||||
(setq ps-ypos 63)
|
||||
(setq lcount 0)
|
||||
))
|
||||
(insert "44 "(number-to-string ps-ypos) " m\n")
|
||||
(when (= lcount handwrite-numlines)
|
||||
(setq ipage (+ ipage 1))
|
||||
(insert "0 0 m\n")
|
||||
(insert "showpage exec Hwsave restore\n")
|
||||
(insert "%%Page: " (number-to-string ipage) " "
|
||||
(number-to-string ipage) "\n")
|
||||
(insert "Hwjst\n")
|
||||
(insert "/Hwsave save def\n")
|
||||
(if handwrite-pagenumbering
|
||||
(insert "20 30 m\nxym(page "
|
||||
(number-to-string ipage) ")a\n"))
|
||||
(setq ps-ypos 63)
|
||||
(setq lcount 0))
|
||||
(insert "44 " (number-to-string ps-ypos) " m\n")
|
||||
(insert "xym( )a")
|
||||
(backward-char 3)
|
||||
(switch-to-buffer cur-buf)
|
||||
(forward-line 1)
|
||||
))
|
||||
(switch-to-buffer ps-buf-name)
|
||||
(next-line 1)
|
||||
(insert "showpage exec Hwsave restore\n\n")
|
||||
(insert "%%Pages " (number-to-string ipage) " 0\n")
|
||||
(insert "%%EOF\n")
|
||||
(goto-char textp) ;start where the inserted text begins
|
||||
(while (search-forward "ÿ" nil t)
|
||||
(replace-match "\\" nil t) (insert "264"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "á" nil t)
|
||||
(replace-match "\\" nil t) (insert "207"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "à" nil t)
|
||||
(replace-match "\\" nil t) (insert "210"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "â" nil t)
|
||||
(replace-match "\\" nil t) (insert "211"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ä" nil t)
|
||||
(replace-match "\\" nil t) (insert "212"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ã" nil t)
|
||||
(replace-match "\\" nil t) (insert "213"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "å" nil t)
|
||||
(replace-match "\\" nil t) (insert "214"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "é" nil t)
|
||||
(replace-match "\\" nil t) (insert "216"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "è" nil t)
|
||||
(replace-match "\\" nil t) (insert "217"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ê" nil t)
|
||||
(replace-match "\\" nil t) (insert "220"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ë" nil t)
|
||||
(replace-match "\\" nil t) (insert "221"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "í" nil t)
|
||||
(replace-match "\\" nil t) (insert "222"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ì" nil t)
|
||||
(replace-match "\\" nil t) (insert "223"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "î" nil t)
|
||||
(replace-match "\\" nil t) (insert "224"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ï" nil t)
|
||||
(replace-match "\\" nil t) (insert "225"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ó" nil t)
|
||||
(replace-match "\\" nil t) (insert "227"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ò" nil t)
|
||||
(replace-match "\\" nil t) (insert "230"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ô" nil t)
|
||||
(replace-match "\\" nil t) (insert "231"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ö" nil t)
|
||||
(replace-match "\\" nil t) (insert "232"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "õ" nil t)
|
||||
(replace-match "\\" nil t) (insert "233"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ú" nil t)
|
||||
(replace-match "\\" nil t) (insert "234"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ù" nil t)
|
||||
(replace-match "\\" nil t) (insert "235"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "û" nil t)
|
||||
(replace-match "\\" nil t) (insert "236"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ü" nil t)
|
||||
(replace-match "\\" nil t) (insert "237"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ß" nil t)
|
||||
(replace-match "\\" nil t) (insert "247"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "°" nil t)
|
||||
(replace-match "\\" nil t) (insert "241"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "®" nil t)
|
||||
(replace-match "\\" nil t) (insert "250"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "©" nil t)
|
||||
(replace-match "\\" nil t) (insert "251"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ij" nil t)
|
||||
(replace-match "\\" nil t) (insert "264"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ç" nil t)
|
||||
(replace-match "\\" nil t) (insert "215"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "§" nil t)
|
||||
(replace-match "\\" nil t) (insert "244"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "ñ" nil t)
|
||||
(replace-match "\\" nil t) (insert "226"))
|
||||
(goto-char textp)
|
||||
(while (search-forward "£" nil t)
|
||||
(replace-match "\\" nil t) (insert "243"))
|
||||
;;To avoid cumbersome code we simply ignore pagefeeds
|
||||
(goto-char textp)
|
||||
(while (search-forward "\f" nil t)
|
||||
|
|
@ -342,7 +245,9 @@ Variables: handwrite-linespace (default 12)
|
|||
(ps-lpr-switches
|
||||
(if (stringp ps-printer-name)
|
||||
(list (concat "-P" ps-printer-name)))))
|
||||
(apply (or ps-print-region-function 'call-process-region)
|
||||
(apply (or (and (boundp 'ps-print-region-function)
|
||||
ps-print-region-function)
|
||||
'call-process-region)
|
||||
(point-min) (point-max) ps-lpr-command nil nil nil))))
|
||||
(message "")
|
||||
(bury-buffer ())
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue