Why don't I write some filters for noweb to output into WordPress+CodeColorer.## My Solution

My solution is in two parts, one filter of general use to all noweb users which simply inserts [[@language]] tags into the noweb stream and a noweave backend that outputs something you can just paste into the WordPress (HTML) input box. Here is an example of how I used this to process thepost.nwfile that I used to compose this post. <>= noweave -n -filter langify-nw -backend wordpress-nw post.nw @ The

- langify-nw script
- wordpress-nw script
- post.nw literate source for this post
langify-nwscript guesses the language for each chunk based on the filename extension on the top-level chunk that incorporates that chunk. That's why I used filename extensions on the top-level chunks in this post.## An Example

Several months back, I posted some code for rendering anti-aliased text in OpenGL. At the bottom of that post, I had an unwieldy 33-line function that you have to scroll to see with the way my blog is styled. This would have been an excellent candidate for literate programming. Here is that same function broken up with noweb chunks with some descriptive text sprinkled between chunks. At the heart of the algorithm, I need to take some point [[]], run it backwards through all of the projection matrices so that I have it in pixel coordinates, and calculate the distance between that and the screen coordinates of the origin. So, I have this little function here to do that calculation given the object-local coordinates [[ ]] and the origin's screen coordinates [[ ]]. < >= (dist-to-point-from-origin (px py pz ox oy oz) (multiple-value-bind (nx ny nz) (glu:un-project px py pz :modelview modelview :projection projection :viewport viewport) (dist nx ny nz ox oy oz))) @ That, of course, also needs to determine the distance between two three-dimensional points. For my purposes, I don't need the straight-line distance. I just need the maximum delta along any coordinate axis. < >= (dist (x1 y1 z1 x2 y2 z2) (max (abs (- x1 x2)) (abs (- y1 y2)) (abs (- z1 z2)))) @ Also, to do those reverse-projections, I need to retrieve the appropriate transformation matrices. < >= (modelview (gl:get-double :modelview-matrix)) (projection (gl:get-double :projection-matrix)) (viewport (gl:get-integer :viewport)) @ Once I have those pieces, I am just going to collect those matrices, unproject the origin, then find half of the minimum unprojected distance of the points [[<1, 0, 0>]] and [[<0, 1, 0>]] from the origin. < >= (defun calculate-cutoff (font-loader size) (gl:with-pushed-matrix < > (let (< >) (labels (< > < >) (multiple-value-bind (ox oy oz) (glu:un-project 0.0 0.0 0.0 :modelview modelview :projection projection :viewport viewport) (/ (min (dist-to-point-from-origin 1 0 0 ox oy oz) (dist-to-point-from-origin 0 1 0 ox oy oz)) 2))))))) @ Oh, and being the tricksy devil that I am, I scaled things based on my font size before doing any of that. < >= (let ((ss (/ size (zpb-ttf:units/em font-loader)))) (gl:scale ss ss ss) @