From dabf4da547f863492a3be2698a3d56023755113a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Fri, 17 Jun 2016 11:17:27 +0200 Subject: [PATCH] =?UTF-8?q?Added=20=E2=80=9Crecipient=E2=80=9D=20field,=20?= =?UTF-8?q?so=20that=20pasterack=20notifies=20the=20intended=20recipient?= =?UTF-8?q?=20on=20IRC.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- pasterack.rkt | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) 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"