haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-21 00:11:56 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Responsiveness

Browse Source
This commit is contained in:
Chris Done 2014-06-01 19:38:41 +02:00
parent ebfa1476bb
commit d712191791
3 changed files with 82 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
templates/default-layout.hamlet
View File

@ -15,7 +15,7 @@
<li> <li>
<a href=@{ProfileR}> <a href=@{ProfileR}>
<span .user-handle> <span .user-handle>
#{userHandle user} #{userHandle user}
<li> <li>
<a href=@{AuthR LogoutR}>Logout <a href=@{AuthR LogoutR}>Logout
$nothing $nothing

57
templates/default-layout.lucius
View File

@ -1,16 +1,47 @@
.navbar .nav > li > a { .navbar {
color: #0088cc .brand {
color: #0088cc;
padding-left: 0;
}
.nav > li > a {
color: #0088cc;
}
.navbar-inner {
box-shadow: none;
border: 0;
background: inherit;
border-top-left-radius: 0;
border-top-right-radius: 0;
}
.user-handle {
max-width: 15em;
overflow: hidden;
white-space: nowrap;
display: inline-block;
text-overflow: ellipsis;
}
} }
.navbar .navbar-inner {
border: 0; @media (max-width: 979px) {
background: inherit; .navbar-inner {
border-top-left-radius: 0; padding-left: 0;
border-top-right-radius: 0; }
} }
.navbar .user-handle {
max-width: 15em; @media (max-width: 767px) {
overflow: hidden; .navbar .nav.pull-right {
white-space: nowrap; float: none;
display: inline-block; display: block;
text-overflow:ellipsis; clear: left;
margin-left: -15px;
}
}
@media (max-width: 480px){
.navbar .brand + .nav {
float: none;
display: block;
clear: left;
margin-left: -15px;
}
} }

72
templates/profile.hamlet
View File

@ -1,44 +1,46 @@
<div .container> <div .container>
<h2>Email addresses <div .row>
$if length emails <= 1 <div .span12>
$forall Entity _ email <- emails <h2>Email addresses
<p>#{emailEmail email} $if length emails <= 1
$else $forall Entity _ email <- emails
<ul> <p>#{emailEmail email}
$forall Entity eid email <- emails $else
<li .email> <ul>
#{emailEmail email} $forall Entity eid email <- emails
<form method=post action=@{EmailR eid}?_method=DELETE> <li .email>
<button .btn>Remove #{emailEmail email}
<form method=post action=@{EmailR eid}?_method=DELETE>
<button .btn>Remove
<p> <p>
<a href=@{AuthR LoginR}>Add another email address. <a href=@{AuthR LoginR}>Add another email address.
<h2>Profile <h2>Profile
<form method=post action=@{ProfileR}?_method=PUT enctype=#{enctype} role=form> <form method=post action=@{ProfileR}?_method=PUT enctype=#{enctype} role=form>
<div .form-group> <div .form-group>
^{userWidget} ^{userWidget}
<button .btn>Update <button .btn>Update
<h2>Aliases <h2>Aliases
<form method=post action=@{AliasesR}?_method=PUT> <form method=post action=@{AliasesR}?_method=PUT>
Format: alias name, package set ID Format: alias name, package set ID
<textarea #aliases name=aliases>#{unlines $ map aliasToText aliases} <textarea #aliases name=aliases>#{unlines $ map aliasToText aliases}
<button .btn>Update <button .btn>Update
$if not $ null aliases $if not $ null aliases
<dl> <dl>
$forall Entity _ alias <- aliases $forall Entity _ alias <- aliases
<dt>#{aliasName alias} <dt>#{aliasName alias}
<dd> <dd>
$with url <- AliasR (userHandle user) (aliasName alias) [] $with url <- AliasR (userHandle user) (aliasName alias) []
<a href=@{url}>@{url} <a href=@{url}>@{url}
<h2>Security token <h2>Security token
<p> <p>
Your security token is #{userToken user}. Your security token is #{userToken user}.
<form method=post action=@{ResetTokenR}> <form method=post action=@{ResetTokenR}>
<button>Reset token <button>Reset token