view cpack/dml/skin/framework/kube.pl @ 0:718306e29690 tip

commiting public release

/* Part of DML (Digital Music Laboratory)
	Copyright 2014-2015 Samer Abdallah, University of London
	 
	This program is free software; you can redistribute it and/or
	modify it under the terms of the GNU General Public License
	as published by the Free Software Foundation; either version 2
	of the License, or (at your option) any later version.

	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	GNU General Public License for more details.

	You should have received a copy of the GNU General Public
	License along with this library; if not, write to the Free Software
	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
*/

:- module(kube, []).

/** <module> Enables use of Kube CSS framework
*/

:- use_module(library(http/html_write)).
:- use_module(library(http/html_head)).
:- use_module(library(htmlutils)).

:- set_prolog_flag(double_quote,string).

http:location( kube, css(kube310), []).

user:head(kube(_),Head) --> !,
   html(head([ meta([name(viewport), content("width-device-width,initial-scale=1")]) 
             | Head ])).

requirements -->
   html_requires("//imperavi.com/css/combined.min.css"),
   html_requires("//imperavi.com/js/combined.min.js").

user:body(kube(Nav),Body) --> !,
   { setting(htmlutils:appname, AppName) },
   use_font("Source Sans Pro",sourcepro),
   % html_requires(kube('kube.min.css')),
   requirements,

	html(body(class=kubepage,
             [ div( class=wrap, 
                   [ nav([id=nav,class=[navbar,fullwidth]], 
                     \navmenu(AppName,Nav))
                   ])
             , div(class=wrap,
                   div(id=main, 
                       [   aside(id=side,nav([class=nav,id="side-nav"],
                                             \navmenu(AppName,Nav)))
                       ,   div(id=area,Body)
                       ]))
             , div(class=wrap,
                   footer(id=footer, 
                          [a(href='.',AppName), nav(class=[navbar,'navbar-right'], ul(\Nav))]))
             ])).

navmenu(AppName,Nav) --> html(ul([li(\link(root,b(AppName))),\Nav])).
navmenu(Nav) --> html(nav(class=[navbar,"navbar-left"],ul(\Nav))).
sidebar(Contents) --> html(aside(id=side,Contents)).

button_link(Ref,Content) --> 
   html(a([class('btn btn-small'),href(Ref)],Content)).

% menu(Classes,Content) --> 
%    html(div(class(['pure-menu', 'pure-menu-open'|Classes]), Content)).
% % Add pure-menu-selected to active item
% hmenu(Heading,Items) --> 
%    menu(['pure-menu-horizontal'], [a([href='.',class="pure-menu-heading"],Heading), ul(\Items)]).

% vmenu(Heading,Items) --> 
%    menu([], [a([href='.',class="pure-menu-heading"],Heading), ul(\Items)]).