This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/sh | |
# Copyright (c) 2014, Peder O. Klingenberg | |
# All rights reserved. | |
# | |
# Redistribution and use in source and binary forms, with or without | |
# modification, are permitted provided that the following conditions | |
# are met: | |
# | |
# 1. Redistributions of source code must retain the above copyright |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(in-package :cl-user) | |
(asdf:load-system "cl-pdf") | |
(asdf:load-system "cl-typesetting") | |
(defun test-linebreaks (&optional (data '("Here is a line with some descriptive text, enough that it needs to linewrap. Which means lots of text if we let it use the entire page width." | |
"Line with less text, but still seeing weird spacing."))) | |
(pdf:with-document () | |
(pdf:with-page () | |
(let* ((lines (tt:compile-text (:font-size 8) |