diff --git a/pasterack.rkt b/pasterack.rkt index cbc02f1..f72bf88 100644 --- a/pasterack.rkt +++ b/pasterack.rkt @@ -408,6 +408,12 @@ (span " Alert " ,(mk-link racket-irc-url "#racket") "; your nick: ") (input ([type "text"] [name "nick"] [size "10"] + [style ,(~~ "background-color:#FFFFF0" + "border:inset thin" + "font-size:105%" + "font-family:'PT Sans',sans-serif")])) + (span "; recipient's nick: ") + (input ([type "text"] [name "recipient"] [size "10"] [style ,(~~ "background-color:#FFFFF0" "border:inset thin" "font-size:105%" @@ -499,7 +505,11 @@ 'views 0)) (when (exists-binding? 'irc bs) (define nick (extract-binding/single 'nick bs)) - (irc-paste (++ (if (string=? "" nick) "" (++ nick " pasted: ")) + (define recipient (if (exists-binding? 'recipient bs) + (extract-binding/single 'recipient bs) + "")) + (irc-paste (++ (if (string=? "" recipient) "" (++ recipient ": ")) + (if (string=? "" nick) "" (++ nick " pasted: ")) (if (string=? "" paste-name) "" (++ paste-name ", ")) paste-url))) (fprintf log-port "~a\t~a\t~a\t~a\n"