From ddf034e3a26610b5d47eeb816a31bc9ffcbc019c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Thu, 21 Jan 2016 16:57:37 +0100
Subject: [PATCH] Improved website.

---
 graph-lib/README.md        |  8 ++--
 graph-lib/lib/doc/fork.rkt | 84 ++++++++++++++++++++++++++++++++++++++
 graph-lib/web/index.scrbl  |  8 +++-
 3 files changed, 94 insertions(+), 6 deletions(-)
 create mode 100644 graph-lib/lib/doc/fork.rkt

diff --git a/graph-lib/README.md b/graph-lib/README.md
index cbfd3bf5..16cd2c75 100644
--- a/graph-lib/README.md
+++ b/graph-lib/README.md
@@ -1,8 +1,8 @@
-[![Build Status](https://img.shields.io/travis/jsmaniac/phc.svg)](https://travis-ci.org/jsmaniac/phc)
-[![Coverage Status](https://img.shields.io/coveralls/jsmaniac/phc)](https://coveralls.io/github/jsmaniac/phc)
-[![Online Documentation](https://img.shields.io/badge/docs-online-brightgreen.svg)](http://jsmaniac.github.io/phc/)
+[![Build Status,](https://img.shields.io/travis/jsmaniac/phc.svg)](https://travis-ci.org/jsmaniac/phc)
+[![Coverage Status,](https://img.shields.io/coveralls/jsmaniac/phc)](https://coveralls.io/github/jsmaniac/phc)
+[![Online Documentation.](https://img.shields.io/badge/docs-online-brightgreen.svg)](http://jsmaniac.github.io/phc/)
 
-This project is written in Racket using Literate Programming. See the
+This project is written in Typed/Racket using Literate Programming. See the
 [online documentation](http://jsmaniac.github.io/phc/) if you want to dig into
 the source.
 
diff --git a/graph-lib/lib/doc/fork.rkt b/graph-lib/lib/doc/fork.rkt
new file mode 100644
index 00000000..f07e54de
--- /dev/null
+++ b/graph-lib/lib/doc/fork.rkt
@@ -0,0 +1,84 @@
+#lang racket
+
+(require scribble/manual
+         (only-in scribble/core make-style)
+         (only-in scribble/html-properties alt-tag attributes))
+
+(provide forkongithub)
+
+(define css-code
+  #<<EOF
+#forkongithub a{
+  background:#007200;
+  color:#fff;
+  text-decoration:none;
+  font-family:arial,sans-serif;
+  text-align:center;
+  font-weight:bold;
+  font-size:1rem;
+  line-height:2rem;
+  position:relative;
+  /* transition:0.5s; */
+}
+#forkongithub a:hover{
+  background:#00802B;
+  color:#fff;
+}
+#forkongithub a{
+  border-radius: 1ex;
+  box-shadow: inset 0px -1px 4px rgba(255,255,255,0.8);
+  padding:6.5px 10px 5px 10px;
+}
+@media screen and (min-width:720px){
+  #forkongithub{
+    position:absolute;
+    display:block;
+    top:0;
+    right:0;
+    width:220px;
+    overflow:hidden;
+    height:220px;
+    z-index:9999;
+  }
+  #forkongithub a{
+    padding:6.5px 40px 5px 40px;
+    width:210px;
+    position:absolute;
+    top:60px;
+    right:-67px;
+    transform:rotate(45deg);
+    -webkit-transform:rotate(45deg);
+    -ms-transform:rotate(45deg);
+    -moz-transform:rotate(45deg);
+    -o-transform:rotate(45deg);
+    box-shadow: 0px 5px 4px rgba(0,0,0,0.8);
+  }
+#forkongithub a::before,
+#forkongithub a::after{
+  content:"";
+  width:100%;
+  display:block;
+  position:absolute;
+  top:2px;
+  left:0;
+  height:2px;
+  background: linear-gradient(90deg, transparent 50%, #bbb 50%)
+              repeat scroll 0% 0% / 10px;
+}
+#forkongithub a::after{
+  bottom:2px;
+  top:auto;
+}
+}
+EOF
+  )
+
+(define (forkongithub href text)
+  (elem
+   (elem #:style (make-style #f (list (alt-tag "style")))
+         css-code)
+   (elem #:style (make-style #f (list (alt-tag "span")
+                                      (attributes '((id . "forkongithub")))))
+         (elem #:style (make-style #f (list (alt-tag "a")
+                                            (attributes `((href . ,href)))))
+               text))))
\ No newline at end of file
diff --git a/graph-lib/web/index.scrbl b/graph-lib/web/index.scrbl
index af850c48..ee57ea73 100644
--- a/graph-lib/web/index.scrbl
+++ b/graph-lib/web/index.scrbl
@@ -1,15 +1,19 @@
 #lang scribble/manual
 @(require "../lib/doc.rkt")
+@(require "../lib/doc/fork.rkt")
 @doc-lib-setup
 
 @title[#:style manual-doc-style]{Ph.C}
 
+@forkongithub["https://github.com/jsmaniac/phc/"]{Fork me on GitHub!}
+
 @hyperlink["https://travis-ci.org/jsmaniac/phc"]{
  @remote-image["https://img.shields.io/travis/jsmaniac/phc.svg"]{
-  Build Status}}
+  Build Status,}}
 @hyperlink["https://coveralls.io/github/jsmaniac/phc?branch=master"]{
  @remote-image["https://img.shields.io/coveralls/jsmaniac/phc.svg"]{
-  Coverage Status}}
+  Coverage Status.}}
+
 
 @;@(table-of-contents)