Permalink
Browse files

Use correct base-path in link url

  • Loading branch information...
1 parent 7e81bd5 commit cd47be736d3a45a0bf99dd9e6bd1a4178cec47b7 @ckeen committed May 23, 2011
Showing with 4 additions and 4 deletions.
  1. +4 −4 pastiche.scm
View
@@ -296,11 +296,11 @@
base-path
(++ "paste?id=" id "#" (->string count)))))))
(else (insert-paste hashsum snippet)
- (set! url (++ "paste?id=" hashsum))))
+ (set! url (make-pathname base-path (++ "paste?id=" hashsum)))))
(when ($ 'notify-irc) (notify nick title url))
- (++ (<h1> "Thanks for your paste!")
- "Hi " nick (<br>) "Thanks for pasting: " (<em> title) (<br>)
- "Your paste can be reached with this url: " (link url url))))))
+ (++ (<h2> align: "center" "Thanks for your paste!")
+ (<p> "Hi " nick ", thanks for pasting: " (<em> title) (<br>))
+ (<p> align: "center") "Your paste can be reached with this url: " (link url url))))))
(cond ((fetch-paste id)
=> (lambda (p)
(++

0 comments on commit cd47be7

Please sign in to comment.