view cpack/dml/skin/minimal.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(minimal, []).


:- use_module(cliopatria(hooks)).
:- use_module(skin(cliopatria)).
:- use_module(components(menu)).
:- use_module(components(simple_search)).

:- use_module(library(http/html_write)).
:- use_module(library(http/html_head)).
:- use_module(library(lambda)).
:- use_module(library(htmlutils)).
% :- use_module(framework/pure, []).
:- use_module(framework/kube, []).
:- use_module(framework/bootstrap).

:- set_prolog_flag(double_quotes,string).

% :- set_setting(htmlutils:appname,"DML").
:- googlefont(sourcepro,"Source+Sans+Pro:300,600|Source+Code+Pro:400,700").

:- html_resource(font_awesome, 
      [ virtual(true)
      , requires("//maxcdn.bootstrapcdn.com/font-awesome/4.1.0/css/font-awesome.min.css")
      ]).

:- html_resource(css('minimal.css'), [ ordered(true), requires([bootstrap, kube('kube.css')]) ]).
:- html_resource(css('minimal_doc.css'), [ requires([pldoc_css,css('minimal.css')]) ]).
:- html_resource(css('minimal_http_doc.css'), [ requires(css('minimal_doc.css')) ]).
:- html_resource(css('isearch_extra.css'), [ requires([css('minimal.css'),css('interactive_search.css')]) ]).
  
:- multifile user:body//2.

user:body(user(App),Body) -->
   {member(App,[search,isearch])},
   use_font("Source Sans Pro",sourcepro),
   use_font("pre, code, .code, .editor","Source Code Pro",sourcepro),
   html_requires(css('isearch_extra.css')),
   html(body(class(kubepage),Body)).

style_style(cliopatria(http_help), 'margin-left:auto;margin-right:auto;width:95%;max-width:160ex') :- !.
style_style(cliopatria(wide), 'margin-left:auto;margin-right:auto;width:90%').
style_style(cliopatria(_), 'margin-left:auto;margin-right:auto;width:80%;max-width:105ex').
style_style(pldoc(object(_)), 'margin-left:auto;margin-right:auto;width:80%;max-width:160ex') :- !.
style_style(pldoc(_), 'margin-left:auto;margin-right:auto;width:80%;max-width:120ex') :- !.

style_css(cliopatria(http_help), 'minimal_http_doc.css') :- !.
style_css(pldoc(_), 'minimal_doc.css') :- !.
style_css(_, 'minimal.css').

cliopatria:page_body(cliopatria(bare), Body) --> !,
   {debug(skin,"Serving page with style: ~w.\n",[plain])},
   html_requires(css('minimal.css')),
   use_font("Source Sans Pro",sourcepro),
   use_font("pre, code, .code, .editor","Source Code Pro",sourcepro),
   html(body(class=['kubepage',cliopatria], Body)).

cliopatria:page_body(cliopatria(bare(http_doc)), Body) --> !,
   {debug(skin,"Serving page with style: ~w.\n",[bare(http_doc)])},
   html_requires(css('minimal_http_doc.css')),
   use_font("Source Sans Pro",sourcepro),
   use_font("pre, code, .code, .editor","Source Code Pro",sourcepro),
   html(body(class=['kubepage',cliopatria], Body)).

cliopatria:page_body(Style, Body) --> !,
   {debug(skin,"Serving page with style: ~w.\n",[Style])},
   {style_style(Style,BodyStyle), style_css(Style,CSS)},
   html_post(head, meta([name(viewport), content("width-device-width,initial-scale=1")]) ),
   html_requires(css(CSS)),
   html_requires('//ajax.googleapis.com/ajax/libs/jquery/1.11.2/jquery.min.js'),

   % html_requires(cliopatria),
   %html_requires(kube('kube.css')),
   use_font("Source Sans Pro",sourcepro),
   use_font("pre, code, .code, .editor","Source Code Pro",sourcepro),

   html(body( [ class=['kubepage',cliopatria]],

              % Version with wide navbar
              [ header(class=[group], div(style(BodyStyle), \clio_menu(inline_search)))
              , div([ style(BodyStyle) ],
                    [ div([id('cp-content'), class(content)], Body)

              % Original version with narrow navbar
              % [ div([ style(BodyStyle) ],
              %       [ header(class=[group], \clio_menu(inline_search))
              %       , div([id('cp-content'), class(content)], Body)

                    , hr([style='margin-top:1em; margin-bottom:0.5em;',clear=all])
                    , div([ style('font-size:smaller;text-align:right;')
                          , id('cp-footer'), class(footer)], 
                          \server_address('ClioPatria'))
                    ])
              ])).

cliopatria:page_body(Style,_) -->
   {debug(skin,"Not serving page with style ~w.\n",[Style]), fail}.


clio_menu(full) -->
   { findall(Key-Item, cp_menu:current_menu_item(Key, Item), Pairs0),
     sort(Pairs0, Pairs),
     group_pairs_by_key(Pairs, ByKey),
     cp_menu:sort_menu_popups(ByKey, Menu),
     maplist(translate_menu,Menu,Menu1)
   },
   navbar('DML',['navbar-static-top'],navbar_menu(left,seqmap(navbar_item,Menu1))),
   minimal_search.

clio_menu(inline_search) -->
   { findall(Key-Item, cp_menu:current_menu_item(Key, Item), Pairs0),
     sort(Pairs0, Pairs),
     group_pairs_by_key(Pairs, ByKey),
     cp_menu:sort_menu_popups(ByKey, Menu),
     maplist(translate_menu,Menu,Menu1)
   },
   navbar('DML',['navbar-static-top'],
      html([  \navbar_menu(left,seqmap(navbar_item,Menu1))
           ,  span(class('navbar-form navbar-right'), div(class('form-group'),\minimal_search))
           ])).


translate_menu(_-[Item],Link) :-
   translate_item(Item,Link).
translate_menu(Key-Items,Menu) :-
   cp_menu:menu_label(Key, Key, Label),
   translate_dropdown(Label,Items,Menu).

translate_dropdown(a(Attribs,Label),Items,menu(Label,[link('OpenID page',URL) | Items1])) :- !,
   (Attribs=href(URL)-> true; memberchk(href(URL),Attribs)),
   maplist(translate_item, Items, Items1).

translate_dropdown(Label,Items,menu(Label,Items1)) :- 
   maplist(translate_item,Items,Items1).

translate_item(item(_,Spec,Label),link(Label,Location)) :- 
   atom(Spec),
   (  \+sub_atom(Spec, 0, _, _, 'http://'),
      catch( http_dispatch:http_location_by_id(Spec, Location), E,
             (print_message(informational, E), fail))
   -> true
   ;  Location = Spec
   ).


minimal_search -->
   html_post(head,style( 
      % ac_find_literal_container has class .yui-ac-container
      [  ".yui-ac-content { background-color:#ffffff;padding:0ex;border: solid 1px #ddd;
                            box-shadow:0 6px 12px rgba(0,0,0,.175);
                            text-align:left; z-index:2;margin-top:1ex}"
      ,  ".yui-ac-content { position:absolute;max-height:30em; overflow:auto; overflow-x:hidden; }"
      ,  "input, select, input[type='search'], textarea { z-index:0 }"
      ,  ".yui-ac-content ul {padding:0ex;margin:0ex;list-style-type:none}"
      ,  ".yui-ac-content ul li {margin:0em;padding:0.5ex}"
      ,  "li.yui-ac-highlight { background-color:#eee }"
      % ,  "span.acmatch { background-color: #bbf; }"
      ,  "span.acmatch { text-decoration:underline;
                         text-decoration-color:#5ca9e4;
                         -moz-text-decoration-color:#5ca9e4;}"
      ,  "span.ac-builtin { color: blue; }"
      ,  "span.ac-module { color: #888; }"
      ,  "span.ac-exported { color: dark-green; }"
      ,  "span.ac-private { color: red; }"
      ,  "#search_form { margin-top:1ex; margin-bottom:1ex; text-align:right; }"
      ,  "input#ac_find_literal_input { line-height:1.4em }"
      ])),
   html_post(head,script(type("text/javascript"),
      "$(document).ready(function() { 
         console.log('Adjusting search box...');
         $('.yui-ac-input').attr('type','search').attr('placeholder','Search'); 
         $('.yui-ac-input').css('box-sizing','border-box').css('width','26ex');
         $('#ac_find_literal_complete').css('width','26ex');
       });")),
   html(form([ id(search_form), action(location_by_id(cpa_browse:search)) ],
             [ \(cp_simple_search:search_box([ name(q) ]))
             % , \cp_menu:filter([])
             % , \cp_menu:select_handler([])
             ])).