suzanne.soy/pasterack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: suzanne.soy:add-irc-recipient
Branches Tags
suzanne.soy:master
suzanne.soy:rest-api
suzanne.soy:add-irc-recipient
suzanne.soy:fix-readme-dependency
suzanne.soy:dev
..
compare: suzanne.soy:master
Branches Tags
suzanne.soy:rest-api
suzanne.soy:add-irc-recipient
suzanne.soy:fix-readme-dependency
suzanne.soy:master
suzanne.soy:dev

No commits in common. "add-irc-recipient" and "master" have entirely different histories.
add-irc-re ... master

1 changed files with 1 additions and 11 deletions
Show Stats Expand all files Collapse all files

12
pasterack.rkt
View File

@ -408,12 +408,6 @@
(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%"
@ -505,11 +499,7 @@
'views 0))
(when (exists-binding? 'irc bs)
(define nick (extract-binding/single 'nick bs))
(define recipient (if (exists-binding? 'recipient bs)
(extract-binding/single 'recipient bs)
""))
(irc-paste (++ (if (string=? "" recipient) "" (++ recipient ": "))
(if (string=? "" nick) "" (++ nick " pasted: "))
(irc-paste (++ (if (string=? "" nick) "" (++ nick " pasted: "))
(if (string=? "" paste-name) "" (++ paste-name ", "))
paste-url)))
(fprintf log-port "~a\t~a\t~a\t~a\n"