Beagle
view release on metacpan or search on metacpan
share/public/css/base/jquery.terminal.css
share/public/css/base/main.css
share/public/css/base/markitup_preview.css
share/public/css/base/markitup_set.css
share/public/css/base/markitup_skin.css
share/public/css/base/orange.css
share/public/css/base/prettify.css
share/public/css/base/print.css
share/public/css/blog/main.css
share/public/css/plain/main.css
share/public/images/beagle.png
share/public/images/markitup/set/bold.png
share/public/images/markitup/set/clean.png
share/public/images/markitup/set/image.png
share/public/images/markitup/set/italic.png
share/public/images/markitup/set/link.png
share/public/images/markitup/set/list-bullet.png
share/public/images/markitup/set/list-numeric.png
share/public/images/markitup/set/picture.png
share/public/images/markitup/set/preview.png
share/public/images/markitup/set/stroke.png
share/public/images/markitup/skin/bg-container.png
share/public/images/markitup/skin/bg-editor-bbcode.png
share/public/images/markitup/skin/bg-editor-dotclear.png
share/public/images/markitup/skin/bg-editor-html.png
share/public/images/markitup/skin/bg-editor-json.png
share/public/images/markitup/skin/bg-editor-markdown.png
share/public/images/markitup/skin/bg-editor-textile.png
share/public/images/markitup/skin/bg-editor-wiki.png
share/public/images/markitup/skin/bg-editor-xml.png
share/public/images/markitup/skin/bg-editor.png
share/public/images/markitup/skin/handle.png
share/public/images/markitup/skin/menu.png
share/public/images/markitup/skin/submenu.png
share/public/images/review_cover.png
share/public/js/base/beagle-admin.js
share/public/js/base/beagle.js
share/public/js/base/jquery.cookie.js
share/public/js/base/jquery.form.js
share/public/js/base/jquery.hoverIntent.js
share/public/js/base/jquery.js
share/public/js/base/jquery.markitup.js
share/public/js/base/jquery.markitup.set.js
share/public/js/base/jquery.terminal.js
share/public/js/base/prettify.js
lib/Beagle/Model/Info.pm view on Meta::CPAN
has 'location' => (
isa => 'Str',
is => 'rw',
default => '',
);
has 'avatar' => (
isa => 'Str',
is => 'rw',
default => 'system/images/beagle.png',
trigger => sub {
my $self = shift;
my $value = shift;
return unless $value && $value !~ m{/};
$value = join '/', 'static', split_id($self->id), $value;
$self->{avatar} = $value;
},
);
has 'page_limit' => (
lib/Beagle/Model/Review.pm view on Meta::CPAN
has 'work_location' => (
isa => 'Str',
is => 'rw',
default => '',
);
sub work_cover {
my $self = shift;
my @exts = qw/jpg png gif/;
my @names = ( 'cover', $self->work_isbn );
my @ids = split_id( $self->id );
for my $name (@names) {
next unless $name;
for my $ext (@exts) {
my $file =
catfile( $self->root, 'attachments', @ids, "$name.$ext" );
return "$name.$ext" if -e $file;
}
}
lib/Beagle/Web/Router.pm view on Meta::CPAN
redirect '/admin/entry/' . $entry->id;
};
get '/favicon.ico' => sub {
if ( handle()->info->avatar
&& handle()->info->avatar ne '/favicon.ico' )
{
redirect handle()->info->avatar;
}
else {
redirect '/system/images/beagle.png';
}
};
get '/static/*' => sub {
my %vars = @_;
my @parts = split '/', decode_utf8 $vars{splat}[0];
my $file =
encode( 'locale_fs',
catfile( static_root( handle() ), @parts ) );
return unless -e $file && -r $file;
share/public/css/base/markitup_set.css view on Meta::CPAN
/* -------------------------------------------------------------------
// markItUp!
// By Jay Salvat - http://markitup.jaysalvat.com/
// ------------------------------------------------------------------*/
.markItUp .markItUpButton1 a {
background-image:url(../../images/markitup/set/bold.png);
}
.markItUp .markItUpButton2 a {
background-image:url(../../images/markitup/set/italic.png);
}
.markItUp .markItUpButton3 a {
background-image:url(../../images/markitup/set/stroke.png);
}
.markItUp .markItUpButton4 a {
background-image:url(../../images/markitup/set/picture.png);
}
.markItUp .markItUpButton5 a {
background-image:url(../../images/markitup/set/link.png);
}
.markItUp .markItUpButton6 a {
background-image:url(../../images/markitup/set/clean.png);
}
.markItUp .preview a {
background-image:url(../../images/markitup/set/preview.png);
}
share/public/css/base/markitup_skin.css view on Meta::CPAN
color:#000;
text-decoration:none;
}
.markItUp {
width:700px;
margin:5px 0 5px 0;
border:5px solid #F5F5F5;
}
.markItUpContainer {
border:1px solid #3C769D;
background:#FFF url(../../images/markitup/skin/bg-container.png) repeat-x top left;
padding:5px 5px 2px 5px;
font:11px Verdana, Arial, Helvetica, sans-serif;
}
.markItUpEditor {
font:12px 'Courier New', Courier, monospace;
padding:5px 5px 5px 35px;
border:3px solid #3C769D;
width:643px;
height:320px;
background:#FFF url(../../images/markitup/skin/bg-editor.png) no-repeat;
clear:both;
line-height:18px;
overflow:auto;
}
.markItUpPreviewFrame {
overflow:auto;
background-color:#FFFFFF;
border:1px solid #3C769D;
width:99.9%;
height:300px;
share/public/css/base/markitup_skin.css view on Meta::CPAN
}
.markItUpFooter {
width:100%;
cursor:n-resize;
}
.markItUpResizeHandle {
overflow:hidden;
width:22px; height:5px;
margin-left:auto;
margin-right:auto;
background-image:url(../../images/markitup/skin/handle.png);
cursor:n-resize;
}
/***************************************************************************************/
/* first row of buttons */
.markItUpHeader ul li {
list-style:none;
float:left;
position:relative;
}
.markItUpHeader ul li ul{
display:none;
}
.markItUpHeader ul li:hover > ul{
display:block;
}
.markItUpHeader ul .markItUpDropMenu {
background:transparent url(../../images/markitup/skin/menu.png) no-repeat 115% 50%;
margin-right:5px;
}
.markItUpHeader ul .markItUpDropMenu li {
margin-right:0px;
}
.markItUpHeader ul .markItUpSeparator {
margin:0 10px;
width:1px;
height:16px;
overflow:hidden;
share/public/css/base/markitup_skin.css view on Meta::CPAN
top:18px; left:0px;
background:#F5F5F5;
border:1px solid #3C769D;
height:inherit;
}
.markItUpHeader ul ul li {
float:none;
border-bottom:1px solid #3C769D;
}
.markItUpHeader ul ul .markItUpDropMenu {
background:#F5F5F5 url(../../images/markitup/skin/submenu.png) no-repeat 100% 50%;
}
/* next rows of buttons */
.markItUpHeader ul ul ul {
position:absolute;
top:-1px; left:150px;
}
.markItUpHeader ul ul ul li {
float:none;
}
.markItUpHeader ul a {
share/public/css/base/markitup_skin.css view on Meta::CPAN
width:120px;
padding:5px 5px 5px 25px;
background-position:2px 50%;
}
.markItUpHeader ul ul a:hover {
color:#FFF;
background-color:#3C769D;
}
/***************************************************************************************/
.html .markItUpEditor {
background-image:url(../../images/markitup/skin/bg-editor-html.png);
}
.markdown .markItUpEditor {
background-image:url(../../images/markitup/skin/bg-editor-markdown.png);
}
.textile .markItUpEditor {
background-image:url(../../images/markitup/skin/bg-editor-textile.png);
}
.bbcode .markItUpEditor {
background-image:url(../../images/markitup/skin/bg-editor-bbcode.png);
}
.wiki .markItUpEditor,
.dotclear .markItUpEditor {
background-image:url(../../images/markitup/skin/bg-editor-wiki.png);
}
share/views/base/review_entry_content.tx view on Meta::CPAN
<div class="body">
<div class="cover">
: if $entry.work_link {
<a href="<: $entry.work_link :>">
: }
: if $entry.work_cover {
<img title="<: $entry.title :>" src="<: $prefix :>static/<: split_id($entry.id) :>/<: $entry.work_cover :>" />
: } else {
<img title="<: $entry.title :>" src="<: $prefix :>system/images/review_cover.png" />
: }
: if $entry.work_link {
</a>
: }
</div>
: include 'entry_body.tx';
t/cli/08.info.t view on Meta::CPAN
use Test::Script::Run ':all';
use Beagle::Util;
my $beagle_cmd = Beagle::Test->beagle_command;
my $root = Beagle::Test->init;
run_ok( $beagle_cmd, [ 'info', ], "info", );
like( last_script_stdout(), qr/id: \w{32}/, 'info output' );
like(
last_script_stdout(),
qr!avatar: system/images/beagle\.png!,
'default avatar'
);
run_ok( $beagle_cmd, [ 'info', '--set', 'url=http://sunnavy.net', ],
"info --set", );
is( last_script_stdout(), 'updated info.' . newline, 'info --set output' );
run_ok( $beagle_cmd, [ 'info', ], "info", );
like( last_script_stdout(), qr!url: http://sunnavy\.net!, 'info output' );
run_ok( $beagle_cmd, [ 'info', '--unset', 'url', ], "info --unset", );
( run in 2.792 seconds using v1.01-cache-2.11-cpan-df04353d9ac )