Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix anchor names for permalinks

  • Loading branch information...
commit 99d14e4586be5e803b8782373cb36349710c3529 1 parent cdae5de
@DerGuteMoritz DerGuteMoritz authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 pastiche.scm
View
4 pastiche.scm
@@ -217,7 +217,7 @@
(define (print-snippet s #!key annotation? (count 0))
(++ (<div> class: "paste-header"
- (<h3> (<a> name: (if annotation? (->string count) "") (third s)))
+ (<h3> (<a> name: (sprintf "a~A" count) (third s)))
(if annotation? " added " " pasted ") " by " (second s) " "
(prettify-time (fourth s)))
(<div> class: "paste"
@@ -290,7 +290,7 @@
(bail-out "I am not storing empty pastes.")
(begin (cond ((fetch-paste id)
=> (lambda (p)
- (let ((count (length (cdr p))))
+ (let ((count (+ 1 (length (cdr p)))))
(update-paste id snippet)
(set! url (make-pathname
base-path
Please sign in to comment.
Something went wrong with that request. Please try again.