+ (let* ((entry-name name)
+ (swapped?
+ (cond ((string-suffix? "landscape" name)
+ (set! entry-name
+ (string-trim-right (string-drop-right name 9)))
+ #t)
+ ((string-suffix? "portrait" name)
+ (set! entry-name
+ (string-trim-right (string-drop-right name 8)))
+ #f)
+ (else landscape?)))
+ (entry (assoc-get entry-name paper-alist))