File: README.format

package info (click to toggle)
exmh 1%3A2.9.0-1
  • links: PTS
  • area: main
  • in suites: buster
  • size: 4,216 kB
  • sloc: tcl: 38,046; perl: 1,647; makefile: 130; sh: 101; exp: 75; csh: 9; sed: 2
file content (71 lines) | stat: -rw-r--r-- 2,007 bytes parent folder | download | duplicates (12)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
			     README.format
	   Instructions for Adding a Text Formatter to Sedit
		Time-stamp: <1999-05-07 13:09:38 klassa>


Purpose of Hack
---------------
Allows you to filter a region of text, in your sedit window, through
the "par" formatter for beautification.


What You'll Need
----------------
You need a copy of "par", which is available from its authors web site at
http://www.cs.berkeley.edu/~amc/Par/.


Instructions
------------
In your file of exmh hacks[1] (which should reside in the directory
named in Preferences->Hacking Support->User Library Directory), add
the following.

    proc jk-format {t} {
        global sedit
    
	# the stuff after "-r" is options to "par"; change at will

        set res [exec par -w$sedit(lineLength) -rTbgqR -B=.\?_A_a -Q=_s\>\| \
                    << [selection get]]
    
        if {![catch "set tndx [$t index sel.first]"]} {
            $t delete sel.first sel.last
        } else {
            set tndx [$t index insert]
        }
    
        $t mark set insert $tndx
        $t insert insert $res
    }
    
    proc Hook_SeditInitFormat {d t} {
        bind $t <Meta-q> "jk-format $t"
    }
    
[1] This file can be called "user.tcl" (or whatever.tcl, really).  If
you don't have one already, copy "user.tcl" from the exmh library
directory and use it as a template for your own.

After you do this, run a "tclsh" in this same directory.  From it, do
"auto_mkindex . *.tcl" to update your "tclIndex", then restart exmh.


Usage
-----
After you've restarted exmh, you can use the new binding for Meta-q
(note that on a Sun keyboard, this "Meta" is actually the small, black
"diamond" key next to the space bar; it is on my system, anyway).  In
particular, you can select a region of text (in your sedit window), then
hit Meta-q to send it through "par" and have the result put back into
your sedit window, in place of the original text.


To Do
-----
Some kind of an "undo" facility would be nice...


Author
------
John Klassa <klassa@ipass.net>