From cf51352a691f276a1b1bc1a9f5e43c282fec2ca0 Mon Sep 17 00:00:00 2001
From: Stephen Chang <stchang216@gmail.com>
Date: Fri, 21 Nov 2014 13:57:32 -0500
Subject: [PATCH] limit display length of paste titles

---
 pasterack-utils.rkt | 11 ++++++++++-
 pasterack.rkt       |  6 +++++-
 2 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/pasterack-utils.rkt b/pasterack-utils.rkt
index e16d0f8..eefe762 100644
--- a/pasterack-utils.rkt
+++ b/pasterack-utils.rkt
@@ -24,4 +24,13 @@
 (define (mk-link url txt) `(a ((href ,url)) ,txt))
 
 ;; stx utils
-(define (stx->string stx) (to-string/s (syntax->datum stx)))
\ No newline at end of file
+(define (stx->string stx) (to-string/s (syntax->datum stx)))
+
+
+;; string-truncate : String -> String
+;; Truncates the given str to len-limit chars,
+;; or returns str unchanged if its length is <= len-limit
+(define (string-truncate str len-limit)
+  (if (<= (string-length str) len-limit)
+      str
+      (substring str 0 len-limit)))
diff --git a/pasterack.rkt b/pasterack.rkt
index 3b4d056..19b94b7 100644
--- a/pasterack.rkt
+++ b/pasterack.rkt
@@ -28,6 +28,8 @@
 
 (define scrbl-exe "/home/stchang/racket611/bin/scribble")
 
+(define PASTE-TITLE-DISPLAY-LEN 32) ; limit length of displayed title
+
 (define (mk-paste-url paste-num) (++ paste-url-base paste-num))
 
 ;(define (mk-link url txt) `(a ((href ,url)) ,txt))
@@ -363,8 +365,10 @@
              (with-redis-connection
               (for/list ([pnum recent-pastes] #:when pnum)
                 (define name (HGET/str pnum 'name))
+                (define trunc-name
+                  (string-truncate name PASTE-TITLE-DISPLAY-LEN))
                 `(tr (td ,(mk-link (mk-paste-url pnum) pnum))
-                     (td ((style "width:1px"))) (td ,name)))))))
+                     (td ((style "width:1px"))) (td ,trunc-name)))))))
         ;; middle ------------------------------------------------------------
         (div ((style ,(~~ "position:absolute;left:14em;top:2em")))
          (center