Plaster
New
List
Login
text
apl
aspx
asterisk
brainfuck
c
c++hdr
c++src
cassandra
ceylon
clojure
clojurescript
cmake
cobol
coffeescript
common-lisp
crystal
csharp
css
cypher-query
cython
d
dart
diff
django
dockerfile
dylan
ebnf
ecl
ecmascript
edn
eiffel
ejs
elm
erb
erlang
ez80
factor
fcl
feature
forth
fortran
fragment
gfm
go
gql
groovy
gss
haml
handlebars-template
haskell
haxe
hive
html
http
httpd-php
httpd-php-open
hxml
ini
java
javascript
json
jsp
jsx
julia
kotlin
latex
less
literate-haskell
lua
mariadb
markdown
mbox
mirc
mscgen
msgenny
mssql
mumps
mysql
n-triples
nesc
nginx-conf
nsis
objectivec
octave
oz
pascal
perl
pgp
pgp-keys
pgp-signature
pgsql
php
pig
plsql
properties
protobuf
puppet
python
q
rpm-changes
rpm-spec
rsrc
ruby
rustsrc
sas
sass
scala
scheme
scss
sieve
slim
smarty
solr
soy
sparql-query
spreadsheet
sql
squirrel
stex
styl
swift
systemverilog
tcl
textile
tiddlywiki
tiki
tlv
tornado
ttcn-asn
ttcn-cfg
turtle
twig
typescript
typescript-jsx
vb
vbscript
velocity
verilog
vertex
vhdl
vue
webidl
xml
xml-dtd
xquery
xu
yaml
z80
default
Visibility:
public
unlisted
private
(defvar *html-output*) (defun header () (cl-who:with-html-output (*html-output*) (:head (:meta :charset "utf-8") (:meta :http-equiv "X-UA-COMPATIBLE" :content "IE=edge") (:meta :name "viewport" :content "width=device-width, initial-scale=1") (:script :src "https://code.jquery.com/jquery-3.3.1.js") (:link :rel "stylesheet" :href "//fonts.googleapis.com/css?family=Roboto:300,300italic,700,700italic") (:link :rel "stylesheet" :href "//cdn.rawgit.com/necolas/normalize.css/master/normalize.css") (:link :rel "stylesheet" :href "//cdn.rawgit.com/milligram/milligram/master/dist/milligram.min.css") (:link :rel "stylesheet" :type "text/css" :href "css/main.css")))) (defun navigation () (cl-who:with-html-output (*html-output*) (:nav :class "navigation" (:section :class "container" (:a :class "navigation-title" :href "/" (:img :class "img" :src "/images/lambda-pink.png" :height "15") (:h1 :class "title" "mine")) (:ul :class "navigation-list float-right" (:li :class "navigation-item" (:a :class "navigation-link" :href "/" :data-popover "" "Home")) (:li :class "navigation-item" (:a :class "navigation-link" :href "/" :data-popover "" "Login")) (:li :class "navigation-item" (:a :class "navigation-link" :href "/" :data-popover "" "Users")) (:li :class "navigation-item" (:a :class "navigation-link" :href "/" :data-popover "" "Register"))))))) (defun index-body () (cl-who:with-html-output (*html-output*) (:body (:main :class "wrapper" (navigation) (:header :class "header" :id "entrance" (:section :class "container" :id "header" (:img :src "/images/lambda-pink.png" :height "45") (:h1 "Welcome ") (:p "This site is used for personal friends of the hoster to have a place to put their portfolios in an easily accessible place"))))))) (defun index-page () (cl-who:with-html-output-to-string (*html-output*) (:html (header) (index-body))))