Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
C
cl-site
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
16
Issues
16
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clo
cl-site
Commits
2e375786
Commit
2e375786
authored
Oct 13, 2018
by
Erik Huelsmann
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'clean-unused-code' into 'master'
Remove unused file See merge request
!44
parents
591f0c66
dbbb740a
Pipeline
#474
passed with stage
in 2 seconds
Changes
6
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
6 changed files
with
1 addition
and
32 deletions
+1
-32
content/static/css/layout_2018.css
content/static/css/layout_2018.css
+0
-0
globals.lisp
globals.lisp
+0
-7
layout/js/scripts.js
layout/js/scripts.js
+0
-9
layout/templates/layout_2018.html
layout/templates/layout_2018.html
+1
-4
main.lisp
main.lisp
+0
-1
process.lisp
process.lisp
+0
-11
No files found.
layout
/css/layout_2018.css
→
content/static
/css/layout_2018.css
View file @
2e375786
File moved
globals.lisp
View file @
2e375786
...
...
@@ -12,13 +12,6 @@
(
defparameter
*DEFAULT-PAGE-TEMPLATE*
"layout_2018.html"
"Default template to use unless another is explicitly specified."
)
;; @TO-DO: replace this with better css preprocessing.
(
defparameter
*STYLES-DIR*
(
asdf:system-relative-pathname
:cl-site
"layout/css/"
)
"Pathname for location and list of styles."
)
(
defparameter
*STYLES*
(
list
"layout_2018.css"
)
"A list of strings representing relative filenames."
)
;; General static files - images etc
(
defparameter
*STATIC-DIR*
(
asdf:system-relative-pathname
:cl-site
"content/static/"
)
"Pathname for location of static files."
)
...
...
layout/js/scripts.js
deleted
100644 → 0
View file @
591f0c66
$
(
document
).
ready
(
function
(){
$
(
'
.dropdown
'
).
on
(
'
show.bs.dropdown
'
,
function
(
e
){
$
(
this
).
find
(
'
.dropdown-menu
'
).
first
().
stop
(
true
,
true
).
slideDown
(
300
);
});
$
(
'
.dropdown
'
).
on
(
'
hide.bs.dropdown
'
,
function
(
e
){
$
(
this
).
find
(
'
.dropdown-menu
'
).
first
().
stop
(
true
,
true
).
slideUp
(
200
);
});
});
\ No newline at end of file
layout/templates/layout_2018.html
View file @
2e375786
...
...
@@ -9,10 +9,7 @@
<link
rel=
"stylesheet"
href=
"/static/css/bootstrap.simplex.min.css"
>
<link
href=
"https://fonts.googleapis.com/css?family=Source+Sans+Pro:300,400,700"
rel=
"stylesheet"
type=
"text/css"
>
<link
rel=
"stylesheet"
href=
"https://use.fontawesome.com/releases/v5.0.13/css/all.css"
integrity=
"sha384-DNOHZ68U8hZfKXOrtjWvjxusGo9WQnrNx2sqG0tfsghAvtVlRW3tvkXWZh58N9jp"
crossorigin=
"anonymous"
>
<link
href=
"/layout_2018.css"
rel=
"stylesheet"
type=
"text/css"
>
{{#styles}}
<link
href=
"{{location}}"
rel=
"stylesheet"
type=
"text/css"
>
{{/styles}}
<link
href=
"/static/css/layout_2018.css"
rel=
"stylesheet"
type=
"text/css"
>
</head>
<body>
<nav
id=
"navbar"
class=
"navbar navbar-expand-lg navbar-dark bg-dark fixed-top cl-navbar"
>
...
...
main.lisp
View file @
2e375786
...
...
@@ -5,5 +5,4 @@
(
let
((
*output-dir*
(
or
output-dir
*output-dir*
)))
(
format
t
"Generating site in ~A.~%"
*output-dir*
)
(
process-static
)
(
process-styles
)
(
process-pages
*pages*
)))
process.lisp
View file @
2e375786
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(
in-package
:cl-site
)
;; Copies/renders stylesheets + adds to global context
(
defun
process-styles
()
(
let
((
styles-list
(
mapcar
(
lambda
(
s
)
(
progn
(
uiop:copy-file
(
make-path
*STYLES-DIR*
s
)
(
make-path
*OUTPUT-DIR*
s
))
(
cons
:location
s
)))
*STYLES*
)))
(
push
(
cons
:styles
styles-list
)
*GLOBAL-CONTEXT*
)))
;; Copies/renders static assets (imgs, etc)
(
defun
process-static
()
(
let
((
destination-root
(
merge-pathnames
#P"static/"
*output-dir*
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment