Result:
found more than 469 distributions - search limited to the first 2001 files matching your query
( run in 1.160 )
App-PLab
view release on metacpan or search on metacpan
$mh = $y if $mh < $y;
}
$nb-> insert_to_page( 1, CheckBox =>
origin => [ 10, $mh + 10],
size => [ 300, 36],
text => 'Default ~cursor shape',
name => 'CursorShape',
hint => 'Uses system default cursor instead of crosshair',
);
$nb-> insert_to_page( 0, [ CheckBox =>
origin => [ 10, 170],
size => [ 300, 36],
text => 'Look .cen ~forward',
App-PRT
view release on metacpan or search on metacpan
lib/App/PRT/Command/AddMethod.pm view on Meta::CPAN
my $code_document = PPI::Document->new(\$self->code);
my $code_statement = $code_document->find_first('PPI::Statement::Sub');
my @comments;
my $cursor = $code_statement->first_token->previous_token;
while (defined $cursor && (ref $cursor eq 'PPI::Token::Comment' || ref $cursor eq 'PPI::Token::Whitespace')) {
unshift @comments, $cursor;
$cursor = $cursor->previous_token;
}
while (ref $comments[0] eq 'PPI::Token::Whitespace') {
shift @comments;
}
App-PickRandomLines
view release on metacpan or search on metacpan
script/_pick view on Meta::CPAN
# v => 1.1,
# summary => 'Return line with point marked by a marker',
# description => <<'_',
#
#This is a utility function useful for testing/debugging. `parse_cmdline()`
#expects a command-line and a cursor position (`$line`, `$point`). This routine
#expects `$line` with a marker character (by default it's the caret, `^`) and
#return (`$line`, `$point`) to feed to `parse_cmdline()`.
#
#Example:
#
script/_pick view on Meta::CPAN
# description => <<'_',
#
#Optional. Known options:
#
#* `truncate_current_word` (bool). If set to 1, will truncate current word to the
# position of cursor, for example (`^` marks the position of cursor):
# `--vers^oo` to `--vers` instead of `--versoo`. This is more convenient when
# doing tab completion.
#
#_
# schema => 'hash*',
script/_pick view on Meta::CPAN
# # this is a workaround. since bash breaks words using characters in
# # $COMP_WORDBREAKS, which by default is "'@><=;|&(: this presents a problem
# # we often encounter: if we want to provide with a list of strings
# # containing say ':', most often Perl modules/packages, if user types e.g.
# # "Text::AN" and we provide completion ["Text::ANSI"] then bash will change
# # the word at cursor to become "Text::Text::ANSI" since it sees the current
# # word as "AN" and not "Text::AN". the workaround is to chop /^Text::/ from
# # completion answers. btw, we actually chop /^text::/i to handle
# # case-insensitive matching, although this does not have the ability to
# # replace the current word (e.g. if we type 'text::an' then bash can only
# # replace the current word 'an' with 'ANSI).
script/_pick view on Meta::CPAN
# % somecmd t<Tab>
# two three
#
#Another source is from a bash function (C<-F>). The function will receive input
#in two variables: C<COMP_WORDS> (array, command-line chopped into words) and
#C<COMP_CWORD> (integer, index to the array of words indicating the cursor
#position). It must set an array variable C<COMPREPLY> that contains the list of
#possible completion:
#
# % _foo()
# {
script/_pick view on Meta::CPAN
# % foo <Tab>
# --help --verbose --version
#
#And yet another source is an external command (C<-C>) including, from a Perl
#script. The command receives two environment variables: C<COMP_LINE> (string,
#raw command-line) and C<COMP_POINT> (integer, cursor location). Program must
#split C<COMP_LINE> into words, find the word to be completed, complete that, and
#return the list of words one per-line to STDOUT. An example:
#
# % cat foo-complete
# #!/usr/bin/perl
script/_pick view on Meta::CPAN
#Optional. Known options:
#
#=over
#
#=item * C<truncate_current_word> (bool). If set to 1, will truncate current word to the
#position of cursor, for example (C<^> marks the position of cursor):
#C<--vers^oo> to C<--vers> instead of C<--versoo>. This is more convenient when
#doing tab completion.
#
#=back
#
script/_pick view on Meta::CPAN
# point($cmdline, $marker) -> any
#
#Return line with point marked by a marker.
#
#This is a utility function useful for testing/debugging. C<parse_cmdline()>
#expects a command-line and a cursor position (C<$line>, C<$point>). This routine
#expects C<$line> with a marker character (by default it's the caret, C<^>) and
#return (C<$line>, C<$point>) to feed to C<parse_cmdline()>.
#
#Example:
#
script/_pick view on Meta::CPAN
#single dash will be completed. For example if you have `-foo=s` in your option
#specification, `-f<tab>` can complete it.
#
#This can be used to complete old-style programs, e.g. emacs which has options
#like `-nw`, `-nbc` etc (but also have double-dash options like
#`--no-window-system` or `--no-blinking-cursor`).
#
#_
# },
# },
# result_naked => 1,
script/_pick view on Meta::CPAN
#single dash will be completed. For example if you have C<-foo=s> in your option
#specification, C<< -fE<lt>tabE<gt> >> can complete it.
#
#This can be used to complete old-style programs, e.g. emacs which has options
#like C<-nw>, C<-nbc> etc (but also have double-dash options like
#C<--no-window-system> or C<--no-blinking-cursor>).
#
#=item * B<completion> => I<code>
#
#Completion routine to complete option valueE<sol>argument.
#
script/_pick view on Meta::CPAN
# summary => 'Command-line arguments',
# schema => ['array*' => {of=>'str*'}],
# req => 1,
# },
# cword => {
# summary => 'On which argument cursor is located (zero-based)',
# schema => 'int*',
# req => 1,
# },
# completion => {
# summary => 'Supply custom completion routine',
script/_pick view on Meta::CPAN
#
#=back
#
#=item * B<cword>* => I<int>
#
#On which argument cursor is located (zero-based).
#
#=item * B<extras> => I<hash>
#
#Add extra arguments to completion routine.
#
App-PigLatin
view release on metacpan or search on metacpan
t/files/moby11.txt view on Meta::CPAN
The roof is about twelve feet high, and runs to a pretty sharp angle,
as if there were a regular ridge-pole there; while these ribbed,
arched, hairy sides, present us with those wondrous, half vertical,
scimitar-shaped slats of whalebone, say three hundred on a side,
which depending from the upper part of the head or crown bone,
form those Venetian blinds which have elsewhere been cursorily mentioned.
The edges of these bones are fringed with hairy fibres,
through which the Right Whale strains the water, and in whose
intricacies he retains the small fish, when openmouthed he goes
through the seas of brit in feeding time. In the central blinds
of bone, as they stand in their natural order, there are certain
App-Prima-REPL
view release on metacpan or search on metacpan
lib/PrimaX/InputHistory.pm view on Meta::CPAN
# Load the text using the Orcish Maneuver:
my $new_text = $self->currentRevisions->[$line_number]
//= $self->history->[-$line_number]; #/
$self->text($new_text);
# Put the cursor at the previous offset. However, if the previous offset
# was zero, put the cursor at the end of the line:
$self->charOffset($curr_offset || length($new_text));
return $line_number;
}
App-RL
view release on metacpan or search on metacpan
t/NC_007942.gff view on Meta::CPAN
NC_007942 GenBank gene 59728 60417 . + 1 ID=GlmaCp032;Dbxref=GeneID:3989308;Name=cemA;gene_synonym=ycf10;locus_tag=GlmaCp032
NC_007942 GenBank mRNA 59728 60417 . + 1 ID=GlmaCp032.t01;Parent=GlmaCp032
NC_007942 GenBank CDS 59728 60417 . + 1 ID=GlmaCp032.p01;Parent=GlmaCp032.t01;Dbxref=GeneID:3989308;Name=cemA;Note=heme-binding protein;codon_start=1;gene_synonym=ycf10;locus_tag=GlmaCp032;product=envelope membrane protein;protein_id=YP_538776.1;tran...
NC_007942 GenBank gene 60604 61566 . + 1 ID=GlmaCp033;Dbxref=GeneID:3989309;Name=petA;locus_tag=GlmaCp033
NC_007942 GenBank mRNA 60604 61566 . + 1 ID=GlmaCp033.t01;Parent=GlmaCp033
NC_007942 GenBank CDS 60604 61566 . + 1 ID=GlmaCp033.p01;Parent=GlmaCp033.t01;Dbxref=GeneID:3989309;Name=petA;Note=apocytochrome f precursor%3B component of cytochrome b6/f complex;codon_start=1;locus_tag=GlmaCp033;product=cytochrome f;protein_id=YP_...
NC_007942 GenBank gene 62442 62564 . - 1 ID=GlmaCp034;Dbxref=GeneID:3989310;Name=psbJ;locus_tag=GlmaCp034
NC_007942 GenBank mRNA 62442 62564 . - 1 ID=GlmaCp034.t01;Parent=GlmaCp034
NC_007942 GenBank CDS 62442 62564 . - 1 ID=GlmaCp034.p01;Parent=GlmaCp034.t01;Dbxref=GeneID:3989310;Name=psbJ;Note=photosystem II reaction center subunit X;codon_start=1;locus_tag=GlmaCp034;product=photosystem II protein J;protein_id=YP_538778.1;tran...
NC_007942 GenBank gene 62705 62821 . - 1 ID=GlmaCp035;Dbxref=GeneID:3989311;Name=psbL;locus_tag=GlmaCp035
NC_007942 GenBank mRNA 62705 62821 . - 1 ID=GlmaCp035.t01;Parent=GlmaCp035
App-RPi-EnvUI
view release on metacpan or search on metacpan
public/css/flipswitch.struct.css view on Meta::CPAN
position: relative;
text-align: center;
text-overflow: ellipsis;
overflow: hidden;
white-space: nowrap;
cursor: pointer;
-webkit-user-select: none;
-moz-user-select: none;
-ms-user-select: none;
user-select: none;
}
public/css/flipswitch.struct.css view on Meta::CPAN
-webkit-touch-callout: none;
-webkit-user-select: none;
-moz-user-select: none;
-ms-user-select: none;
user-select: none;
cursor: pointer;
}
.ui-flipswitch.ui-flipswitch-active {
padding-left: 5em; /* Override this and width in previous rule if you use labels other than "on/off" and need more space */
width: 1.875em;
}
App-Rakubrew
view release on metacpan or search on metacpan
lib/App/Rakubrew/Shell/PowerShell.pm view on Meta::CPAN
sub completions {
my $self = shift;
my $position = shift;
my $argumentString = join ' ', @_;
# Check if the cursor is starting a new word (preceding space).
my $newWord = $position > length($argumentString) ? 1
: substr($argumentString, $position - 1, $position) eq ' ' ? 1
: 0;
# Cut off everything after cursor position.
$argumentString = substr($argumentString, 0, $position);
# Chop off trailing space.
$argumentString = chop($argumentString) if substr($argumentString, 0, length($argumentString) - 1) eq ' ';
App-RecordStream
view release on metacpan or search on metacpan
lib/App/RecordStream/Operation/frommongo.pm view on Meta::CPAN
}
sub stream_done {
my $this = shift;
my $cursor = $this->get_query();
while (my $object = $cursor->next()) {
$this->push_record($object);
}
}
sub get_query {
App-RoboBot
view release on metacpan or search on metacpan
lib/App/RoboBot/Parser.pm view on Meta::CPAN
foreach my $macro (keys %{$self->bot->macros->{$nid}}) {
$self->macros->{lc($macro)} = 1;
}
}
$self->log->debug('Resetting parser cursor and state.');
$self->clear_err;
$self->text($text);
$self->_pos([0]);
$self->_line([1]);
App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/sunix/plot/suximage.pm view on Meta::CPAN
r install next RGB - colormap
R install previous RGB - colormap
h install next HSV - colormap
H install previous HSV - colormap
H install previous HSV - colormap
(Move mouse cursor out and back into window for r,R,h,H to take effect)
Required Parameters: #
n1 number of samples in 1st (fast) dimension
Optional Parameters:
App-ShellCompleter-emacs
view release on metacpan or search on metacpan
'fullwidth' => $noop, '-fw' => $noop,
'maximized' => $noop, '-mm' => $noop,
'foreground-color=s' => $noop, '-fg' => $noop,
'background-color=s' => $noop, '-bg' => $noop,
'border-color=s' => $noop, '-bd' => $noop,
'cursor-color=s' => $noop, '-cs' => $noop,
'mouse-color=s' => $noop, '-ms' => $noop,
'no-bitmap-icon' => $noop, '-nbi' => $noop,
'iconic' => $noop,
'no-blinking-cursor' => $noop, '-nbc' => $noop,
'no-window-system' => $noop, '-nw' => $noop,
'basic-display|D' => $noop,
);
# ABSTRACT: Shell completer for emacs
App-ShellCompleter-mpv
view release on metacpan or search on metacpan
lib/App/ShellCompleter/mpv.pm view on Meta::CPAN
'config-dir=s' => $compdir, # String (default: ) [global] [nocfg]
'contrast=i' => _gcint(-100,100), # Integer (-100 to 100) (default: 1000)
'cookies!' => undef, # Flag (default: no)
'cookies-file=s' => $compfile, # String (default: ) [file]
'correct-pts!' => undef, # Flag (default: yes)
'cursor-autohide=s' => sub { # Choices: no always (or an integer) (0 to 30000) (default: 1000)
my %args = @_;
my $word = $args{word};
combine_answers(
complete_array_elem(array=>[qw/no always/], word=>$word),
complete_int(min=>0, max=>30000, word=>$word),
);
},
'cursor-autohide-fs-only!' => undef, # Flag (default: no)
'deinterlace=s' => [qw/auto no yes/], # Choices: auto no yes (default: auto)
'demuxer=s' => undef, # String (default: )
'demuxer-lavf-allow-mimetype!' => undef, # Flag (default: yes)
'demuxer-lavf-analyzeduration=f' => _gcfloat(0,3600), # Float (0 to 3600) (default: 0.000000)
'demuxer-lavf-buffersize=i' => _gcint(1,10485760), # Integer (1 to 10485760) (default: 32768)
lib/App/ShellCompleter/mpv.pm view on Meta::CPAN
'initial-audio-sync!' => undef, # Flag (default: yes)
'input-ar-delay=i' => undef, # Integer (default: 200) [global]
'input-ar-rate=i' => undef, # Integer (default: 40) [global]
'input-cmdlist' => undef, # Print [global] [nocfg]
'input-conf=s' => undef, # String (default: ) [global]
'input-cursor!' => undef, # Flag (default: yes) [global]
'input-default-bindings!' => undef, # Flag (default: yes) [global]
'input-doubleclick-time=i' => _gcint(0,1000), # Integer (0 to 1000) (default: 300)
'input-file=s' => undef, # String (default: ) [global]
'input-joystick!' => undef, # Flag (default: no) [global]
'input-js-dev=s' => undef, # String (default: ) [global]
App-SlideServer
view release on metacpan or search on metacpan
share/public/highlight/highlight.min.js view on Meta::CPAN
},t.versionString="11.7.0",t.regex={concat:p,lookahead:d,either:f,optional:h,
anyNumberOfTimes:u};for(const t in A)"object"==typeof A[t]&&e.exports(A[t])
;return Object.assign(t,A),t})({});return te}()
;"object"==typeof exports&&"undefined"!=typeof module&&(module.exports=hljs);/*! `less` grammar compiled for Highlight.js 11.7.0 */
(()=>{var e=(()=>{"use strict"
;const e=["a","abbr","address","article","aside","audio","b","blockquote","body","button","canvas","caption","cite","code","dd","del","details","dfn","div","dl","dt","em","fieldset","figcaption","figure","footer","form","h1","h2","h3","h4","h5","h6",...
;return a=>{const l=(e=>({IMPORTANT:{scope:"meta",begin:"!important"},
BLOCK_COMMENT:e.C_BLOCK_COMMENT_MODE,HEXCOLOR:{scope:"number",
begin:/#(([0-9a-fA-F]{3,4})|(([0-9a-fA-F]{2}){3,4}))\b/},FUNCTION_DISPATCH:{
className:"built_in",begin:/[\w-]+(?=\()/},ATTRIBUTE_SELECTOR_MODE:{
scope:"selector-attr",begin:/\[/,end:/\]/,illegal:"$",
share/public/highlight/highlight.min.js view on Meta::CPAN
keyword:"define endef undefine ifdef ifndef ifeq ifneq else endif include -include sinclude override export unexport private vpath"
},contains:[e.HASH_COMMENT_MODE,i,a,n,s,{className:"meta",begin:/^\.PHONY:/,
end:/$/,keywords:{$pattern:/[\.\w]+/,keyword:".PHONY"}},r]}}})()
;hljs.registerLanguage("makefile",e)})();/*! `sql` grammar compiled for Highlight.js 11.7.0 */
(()=>{var e=(()=>{"use strict";return e=>{
const r=e.regex,t=e.COMMENT("--","$"),n=["true","false","unknown"],a=["bigint","binary","blob","boolean","char","character","clob","date","dec","decfloat","decimal","float","int","integer","interval","nchar","nclob","national","numeric","real","row",...
begin:r.concat(/\b/,r.either(...o),/\s*\(/),relevance:0,keywords:{built_in:o}}
;return{name:"SQL",case_insensitive:!0,illegal:/[{}]|<\//,keywords:{
$pattern:/\b[\w\.]+/,keyword:((e,{exceptions:r,when:t}={})=>{const n=t
;return r=r||[],e.map((e=>e.match(/\|\d+$/)||r.includes(e)?e:n(e)?e+"|0":e))
})(c,{when:e=>e.length<3}),literal:n,type:a,
share/public/highlight/highlight.min.js view on Meta::CPAN
end:/\W/,excludeEnd:!0,relevance:0},{scope:"meta",match:/@\w+/,excludeEnd:!0},{
scope:"symbol",begin:a.concat(/[_A-Za-z][_0-9A-Za-z]*/,a.lookahead(/\s*:/)),
relevance:0}],illegal:[/[;<']/,/BEGIN/]}}})();hljs.registerLanguage("graphql",e)
})();/*! `scss` grammar compiled for Highlight.js 11.7.0 */
(()=>{var e=(()=>{"use strict"
;const e=["a","abbr","address","article","aside","audio","b","blockquote","body","button","canvas","caption","cite","code","dd","del","details","dfn","div","dl","dt","em","fieldset","figcaption","figure","footer","form","h1","h2","h3","h4","h5","h6",...
;return n=>{const a=(e=>({IMPORTANT:{scope:"meta",begin:"!important"},
BLOCK_COMMENT:e.C_BLOCK_COMMENT_MODE,HEXCOLOR:{scope:"number",
begin:/#(([0-9a-fA-F]{3,4})|(([0-9a-fA-F]{2}){3,4}))\b/},FUNCTION_DISPATCH:{
className:"built_in",begin:/[\w-]+(?=\()/},ATTRIBUTE_SELECTOR_MODE:{
scope:"selector-attr",begin:/\[/,end:/\]/,illegal:"$",
share/public/highlight/highlight.min.js view on Meta::CPAN
keyword:"and or not only",attribute:r.join(" ")},contains:[{begin:d,
className:"keyword"},{begin:/[a-z-]+(?=:)/,className:"attribute"
},c,n.QUOTE_STRING_MODE,n.APOS_STRING_MODE,a.HEXCOLOR,a.CSS_NUMBER_MODE]
},a.FUNCTION_DISPATCH]}}})();hljs.registerLanguage("scss",e)})();/*! `css` grammar compiled for Highlight.js 11.7.0 */
(()=>{var e=(()=>{"use strict"
;const e=["a","abbr","address","article","aside","audio","b","blockquote","body","button","canvas","caption","cite","code","dd","del","details","dfn","div","dl","dt","em","fieldset","figcaption","figure","footer","form","h1","h2","h3","h4","h5","h6",...
;return n=>{const a=n.regex,l=(e=>({IMPORTANT:{scope:"meta",begin:"!important"},
BLOCK_COMMENT:e.C_BLOCK_COMMENT_MODE,HEXCOLOR:{scope:"number",
begin:/#(([0-9a-fA-F]{3,4})|(([0-9a-fA-F]{2}){3,4}))\b/},FUNCTION_DISPATCH:{
className:"built_in",begin:/[\w-]+(?=\()/},ATTRIBUTE_SELECTOR_MODE:{
scope:"selector-attr",begin:/\[/,end:/\]/,illegal:"$",
App-SocialCalc-Multiplayer
view release on metacpan or search on metacpan
socialcalc/images/sc-bordersoff.gif
socialcalc/images/sc-borderson.gif
socialcalc/images/sc-chooserarrow.gif
socialcalc/images/sc-commentbg.gif
socialcalc/images/sc-copy.gif
socialcalc/images/sc-cursorinsertleft.gif
socialcalc/images/sc-cursorinsertup.gif
socialcalc/images/sc-cut.gif
socialcalc/images/sc-defaultcolor.gif
socialcalc/images/sc-delete.gif
socialcalc/images/sc-deletecol.gif
socialcalc/images/sc-deleterow.gif
App-SourcePlot
view release on metacpan or search on metacpan
lib/App/SourcePlot/Plotter/Tk.pm view on Meta::CPAN
$ET->{CANVAS} = $screen->Canvas(
-background => "LightCyan3",
-relief => 'raised',
-width => $width,
-height => $height,
-cursor => 'top_left_arrow',
);
$ET->{CANVAS}->grid(-row => 0, -column => 0, -sticky => 'nsew');
$ET->setWorldSize(0, 0, 1, 1);
$ET->usingWorld(0);
App-Standby
view release on metacpan or search on metacpan
share/res/css/bootstrap.css view on Meta::CPAN
button,
html input[type="button"],
input[type="reset"],
input[type="submit"] {
cursor: pointer;
-webkit-appearance: button;
}
label,
select,
share/res/css/bootstrap.css view on Meta::CPAN
input[type="button"],
input[type="reset"],
input[type="submit"],
input[type="radio"],
input[type="checkbox"] {
cursor: pointer;
}
input[type="search"] {
-webkit-box-sizing: content-box;
-moz-box-sizing: content-box;
share/res/css/bootstrap.css view on Meta::CPAN
border-bottom: 1px solid #ffffff;
}
abbr[title],
abbr[data-original-title] {
cursor: help;
border-bottom: 1px dotted #999999;
}
abbr.initialism {
font-size: 90%;
share/res/css/bootstrap.css view on Meta::CPAN
}
.uneditable-input,
.uneditable-textarea {
color: #999999;
cursor: not-allowed;
background-color: #fcfcfc;
border-color: #cccccc;
-webkit-box-shadow: inset 0 1px 2px rgba(0, 0, 0, 0.025);
-moz-box-shadow: inset 0 1px 2px rgba(0, 0, 0, 0.025);
box-shadow: inset 0 1px 2px rgba(0, 0, 0, 0.025);
share/res/css/bootstrap.css view on Meta::CPAN
select[disabled],
textarea[disabled],
input[readonly],
select[readonly],
textarea[readonly] {
cursor: not-allowed;
background-color: #eeeeee;
}
input[type="radio"][disabled],
input[type="checkbox"][disabled],
share/res/css/bootstrap.css view on Meta::CPAN
}
.dropdown-menu > .disabled > a:hover,
.dropdown-menu > .disabled > a:focus {
text-decoration: none;
cursor: default;
background-color: transparent;
background-image: none;
filter: progid:DXImageTransform.Microsoft.gradient(enabled=false);
}
share/res/css/bootstrap.css view on Meta::CPAN
.close:hover,
.close:focus {
color: #000000;
text-decoration: none;
cursor: pointer;
opacity: 0.4;
filter: alpha(opacity=40);
}
button.close {
padding: 0;
cursor: pointer;
background: transparent;
border: 0;
-webkit-appearance: none;
}
share/res/css/bootstrap.css view on Meta::CPAN
line-height: 20px;
color: #333333;
text-align: center;
text-shadow: 0 1px 1px rgba(255, 255, 255, 0.75);
vertical-align: middle;
cursor: pointer;
background-color: #f5f5f5;
*background-color: #e6e6e6;
background-image: -moz-linear-gradient(top, #ffffff, #e6e6e6);
background-image: -webkit-gradient(linear, 0 0, 0 100%, from(#ffffff), to(#e6e6e6));
background-image: -webkit-linear-gradient(top, #ffffff, #e6e6e6);
share/res/css/bootstrap.css view on Meta::CPAN
box-shadow: inset 0 2px 4px rgba(0, 0, 0, 0.15), 0 1px 2px rgba(0, 0, 0, 0.05);
}
.btn.disabled,
.btn[disabled] {
cursor: default;
background-image: none;
opacity: 0.65;
filter: alpha(opacity=65);
-webkit-box-shadow: none;
-moz-box-shadow: none;
share/res/css/bootstrap.css view on Meta::CPAN
box-shadow: none;
}
.btn-link {
color: #0088cc;
cursor: pointer;
border-color: transparent;
-webkit-border-radius: 0;
-moz-border-radius: 0;
border-radius: 0;
}
share/res/css/bootstrap.css view on Meta::CPAN
.nav-tabs > .active > a,
.nav-tabs > .active > a:hover,
.nav-tabs > .active > a:focus {
color: #555555;
cursor: default;
background-color: #ffffff;
border: 1px solid #ddd;
border-bottom-color: transparent;
}
share/res/css/bootstrap.css view on Meta::CPAN
border-bottom-color: #555555;
}
.nav > .dropdown.active > a:hover,
.nav > .dropdown.active > a:focus {
cursor: pointer;
}
.nav-tabs .open .dropdown-toggle,
.nav-pills .open .dropdown-toggle,
.nav > li.dropdown.open.active > a:hover,
share/res/css/bootstrap.css view on Meta::CPAN
}
.nav > .disabled > a:hover,
.nav > .disabled > a:focus {
text-decoration: none;
cursor: default;
background-color: transparent;
}
.navbar {
*position: relative;
share/res/css/bootstrap.css view on Meta::CPAN
}
.pagination ul > .active > a,
.pagination ul > .active > span {
color: #999999;
cursor: default;
}
.pagination ul > .disabled > span,
.pagination ul > .disabled > a,
.pagination ul > .disabled > a:hover,
.pagination ul > .disabled > a:focus {
color: #999999;
cursor: default;
background-color: transparent;
}
.pagination ul > li:first-child > a,
.pagination ul > li:first-child > span {
share/res/css/bootstrap.css view on Meta::CPAN
.pager .disabled > a,
.pager .disabled > a:hover,
.pager .disabled > a:focus,
.pager .disabled > span {
color: #999999;
cursor: default;
background-color: #fff;
}
.modal-backdrop {
position: fixed;
share/res/css/bootstrap.css view on Meta::CPAN
a.label:focus,
a.badge:hover,
a.badge:focus {
color: #ffffff;
text-decoration: none;
cursor: pointer;
}
.label-important,
.badge-important {
background-color: #b94a48;
share/res/css/bootstrap.css view on Meta::CPAN
display: block;
padding: 8px 15px;
}
.accordion-toggle {
cursor: pointer;
}
.accordion-inner {
padding: 9px 15px;
border-top: 1px solid #e5e5e5;
App-Syndicator
view release on metacpan or search on metacpan
lib/App/Syndicator/UI.pm view on Meta::CPAN
$self->_viewer_text($msg->body."\n\n".$msg->link);
}
method _viewer_text (Str $text){
$self->viewer->text($text);
$self->viewer->cursor_to_home;
$self->curses->layout;
}
method _status_text (Str $text?) {
$text =~ s/\n//g;
App-Tel
view release on metacpan or search on metacpan
local/lib/perl5/YAML/Tiny.pm view on Meta::CPAN
# Iterate over the documents
my $indent = 0;
my @lines = ();
eval {
foreach my $cursor ( @$self ) {
push @lines, '---';
# An empty document
if ( ! defined $cursor ) {
# Do nothing
# A scalar document
} elsif ( ! ref $cursor ) {
$lines[-1] .= ' ' . $self->_dump_scalar( $cursor );
# A list at the root
} elsif ( ref $cursor eq 'ARRAY' ) {
unless ( @$cursor ) {
$lines[-1] .= ' []';
next;
}
push @lines, $self->_dump_array( $cursor, $indent, {} );
# A hash at the root
} elsif ( ref $cursor eq 'HASH' ) {
unless ( %$cursor ) {
$lines[-1] .= ' {}';
next;
}
push @lines, $self->_dump_hash( $cursor, $indent, {} );
} else {
die \("Cannot serialize " . ref($cursor));
}
}
};
if ( ref $@ eq 'SCALAR' ) {
$self->_error(${$@});
App-TermAttrUtils
view release on metacpan or search on metacpan
script/term-terminfo view on Meta::CPAN
{ type => "str", value => "\e[H\e[2J", var => "clear_screen" },
{ type => "str", value => "\e[1K", var => "clr_bol" },
{ type => "str", value => "\e[K", var => "clr_eol" },
{ type => "str", value => "\e[J", var => "clr_eos" },
{ type => "str", value => "\e[%i%p1%dG", var => "column_address" },
{ type => "str", value => "\e[%i%p1%d;%p2%dH", var => "cursor_address" },
{ type => "str", value => "\n", var => "cursor_down" },
{ type => "str", value => "\e[H", var => "cursor_home" },
{ type => "str", value => "\e[?25l", var => "cursor_invisible" },
{ type => "str", value => "\b", var => "cursor_left" },
{ type => "str", value => "\e[?12l\e[?25h", var => "cursor_normal" },
{ type => "str", value => "\e[C", var => "cursor_right" },
{ type => "str", value => "\e[A", var => "cursor_up" },
{ type => "str", value => "\e[?12;25h", var => "cursor_visible" },
{ type => "str", value => "\e[P", var => "delete_character" },
{ type => "str", value => "\e[M", var => "delete_line" },
{ type => "str", value => "\e(0", var => "enter_alt_charset_mode" },
{ type => "str", value => "\e[?7h", var => "enter_am_mode" },
{ type => "str", value => "\e[5m", var => "enter_blink_mode" },
script/term-terminfo view on Meta::CPAN
{ type => "str", value => "\el", var => "memory_lock" },
{ type => "str", value => "\em", var => "memory_unlock" },
{ type => "str", value => "\e[39;49m", var => "orig_pair" },
{ type => "str", value => "\e[%p1%dP", var => "parm_dch" },
{ type => "str", value => "\e[%p1%dM", var => "parm_delete_line" },
{ type => "str", value => "\e[%p1%dB", var => "parm_down_cursor" },
{ type => "str", value => "\e[%p1%d\@", var => "parm_ich" },
{ type => "str", value => "\e[%p1%dS", var => "parm_index" },
{ type => "str", value => "\e[%p1%dL", var => "parm_insert_line" },
{ type => "str", value => "\e[%p1%dD", var => "parm_left_cursor" },
{ type => "str", value => "\e[%p1%dC", var => "parm_right_cursor" },
{ type => "str", value => "\e[%p1%dT", var => "parm_rindex" },
{ type => "str", value => "\e[%p1%dA", var => "parm_up_cursor" },
{ type => "str", value => "\e[i", var => "print_screen" },
{ type => "str", value => "\e[4i", var => "prtr_off" },
{ type => "str", value => "\e[5i", var => "prtr_on" },
{ type => "str", value => "\ec", var => "reset_1string" },
{ type => "str", value => "\e[!p\e[?3;4l\e[4l\e>", var => "reset_2string" },
{ type => "str", value => "\e8", var => "restore_cursor" },
{ type => "str", value => "\e[%i%p1%dd", var => "row_address" },
{ type => "str", value => "\e7", var => "save_cursor" },
{ type => "str", value => "\n", var => "scroll_forward" },
{ type => "str", value => "\eM", var => "scroll_reverse" },
{
type => "str",
value => "\e[%?%p1%{8}%<%t4%p1%d%e%p1%{16}%<%t10%p1%{8}%-%d%e48;5;%p1%d%;m",
App-Textcast
view release on metacpan or search on metacpan
lib/App/Textcast.pm view on Meta::CPAN
my ($screenshot_index, $sub_process_ended) = (0, 0) ;
while (not $sub_process_ended)
{
($sub_process_ended, my $screen_diff, my $cursor_x, my $cursor_y) = check_sub_process_output($vt_process) ;
my $now = [gettimeofday] ;
my $elapsed = tv_interval($previous_time, $now);
$previous_time = $now ;
lib/App/Textcast.pm view on Meta::CPAN
"$output_directory/index",
'{'
. "file => $screenshot_index, "
. sprintf('delay => %0.3f, ', $elapsed)
. "cursor_x => $cursor_x, "
. "cursor_y => $cursor_y, "
. 'size => ' . length($screen_diff) . ', '
. "terminal_rows => $terminal_rows, "
. "terminal_columns => $terminal_columns, "
. "},\n"
) ;
lib/App/Textcast.pm view on Meta::CPAN
$frame_display_time = [gettimeofday] ;
print #$SHOW_CURSOR,
read_file($file),
position_cursor($file_information->{cursor_y}, $file_information->{cursor_x}) ;
$frame_display_time = tv_interval($frame_display_time , [gettimeofday]) ;
}
else
{
lib/App/Textcast.pm view on Meta::CPAN
=cut
my ($status, $status_row, $status_column) = @_ ;
print $SAVE_CURSOR_POSITION,
position_cursor($status_row, $status_column),
$CLEAR_LINE,
$status,
$RESTORE_CURSOR_POSITION ;
return ;
}
#---------------------------------------------------------------------------------------------------------
sub position_cursor
{
=head2 [p] position_cursor($row, $column)
Create an ANSI command to position the cursor on the terminal.
I<Arguments>
=over 2
lib/App/Textcast.pm view on Meta::CPAN
print "Parsing index ...\n" ;
my @entries = read_file("$input_directory/index") ;
my $line = 0 ;
my $regex = '{file => 0, delay => 0.0, cursor_x => 1, cursor_y => 1, size => 1, terminal_rows => 1, terminal_columns => 1, },' ;
$regex =~ s/^{/^{/sxm ;
$regex =~ s/([^[:digit:]]+)$/$1\$/sxmg ;
$regex =~ s/[[:digit:]]+/[[:digit:]]+/sxmg ;
my @errors ;
lib/App/Textcast.pm view on Meta::CPAN
=item * $vt_process -
=back
I<Returns> - $eof, $screen_data, $cursor_x, $cursor_y
I<Exceptions> - None
=cut
App-USBKeyCopyCon
view release on metacpan or search on metacpan
lib/App/USBKeyCopyCon.pm view on Meta::CPAN
my $buffer = Gtk2::TextBuffer->new(undef);
$buffer->delete($buffer->get_bounds);
my $console = Gtk2::TextView->new_with_buffer($buffer);
$console->set_editable(FALSE);
$console->set_cursor_visible(FALSE);
$console->set_wrap_mode('char');
my $end_mark = $buffer->create_mark( 'end', $buffer->get_end_iter, FALSE);
$buffer->signal_connect(
insert_text => sub {
App-VTide
view release on metacpan or search on metacpan
lib/App/VTide/Command/Split.pm view on Meta::CPAN
-v --verbose Show environment as well as config
--help Show this help
--man Show the full man page
Examples
# split the screen horizontally (keep cursor on initial screen)
vtide split h
# split the screen horizontally (move cursor to new screen)
vtide split H
=head1 DESCRIPTION
=head1 SUBROUTINES/METHODS
App-Widget
view release on metacpan or search on metacpan
lib/App/Widget/HierSelector.pm view on Meta::CPAN
# {node}{number}{open} # 1=open 0=closed
# {node}{number}{value} #
# {node}{number}{label} #
# {node}{number}{icon} # icon to use (default, closed)
# {node}{number}{openicon} # icon to use when open (optional)
# {node}{number}{hovericon} # icon to use when cursor over icon
# INPUTS FROM THE ENVIRONMENT
=head1 DESCRIPTION
App-YTDL
view release on metacpan or search on metacpan
lib/App/YTDL/Download.pm view on Meta::CPAN
use 5.010000;
use Exporter qw( import );
our @EXPORT_OK = qw( download );
use Term::ANSIScreen qw( :cursor :screen );
use Term::Choose qw( choose );
use App::YTDL::Helper qw( HIDE_CURSOR SHOW_CURSOR uni_system );
END { print SHOW_CURSOR }
App-ZFSCurses
view release on metacpan or search on metacpan
lib/App/ZFSCurses/Text.pm view on Meta::CPAN
sub footer {
my $self = shift;
my $f1 = shift;
my $help =
"[Up/Down] Move cursor up/down. "
. "[Enter/Space] Validate. "
. "[Tab] Change focus. "
. "\n[Ctrl+q] Quit. ";
if ( defined $f1 ) { $help .= "$f1"; }
return $help;
App-ZodiacUtils
view release on metacpan or search on metacpan
script/_chinese-zodiac-of view on Meta::CPAN
# v => 1.1,
# summary => 'Return line with point marked by a marker',
# description => <<'_',
#
#This is a utility function useful for testing/debugging. `parse_cmdline()`
#expects a command-line and a cursor position (`$line`, `$point`). This routine
#expects `$line` with a marker character (by default it's the caret, `^`) and
#return (`$line`, `$point`) to feed to `parse_cmdline()`.
#
#Example:
#
script/_chinese-zodiac-of view on Meta::CPAN
# description => <<'_',
#
#Optional. Known options:
#
#* `truncate_current_word` (bool). If set to 1, will truncate current word to the
# position of cursor, for example (`^` marks the position of cursor):
# `--vers^oo` to `--vers` instead of `--versoo`. This is more convenient when
# doing tab completion.
#
#_
# schema => 'hash*',
script/_chinese-zodiac-of view on Meta::CPAN
# # this is a workaround. since bash breaks words using characters in
# # $COMP_WORDBREAKS, which by default is "'@><=;|&(: this presents a problem
# # we often encounter: if we want to provide with a list of strings
# # containing say ':', most often Perl modules/packages, if user types e.g.
# # "Text::AN" and we provide completion ["Text::ANSI"] then bash will change
# # the word at cursor to become "Text::Text::ANSI" since it sees the current
# # word as "AN" and not "Text::AN". the workaround is to chop /^Text::/ from
# # completion answers. btw, we actually chop /^text::/i to handle
# # case-insensitive matching, although this does not have the ability to
# # replace the current word (e.g. if we type 'text::an' then bash can only
# # replace the current word 'an' with 'ANSI).
script/_chinese-zodiac-of view on Meta::CPAN
# % somecmd t<Tab>
# two three
#
#Another source is from a bash function (C<-F>). The function will receive input
#in two variables: C<COMP_WORDS> (array, command-line chopped into words) and
#C<COMP_CWORD> (integer, index to the array of words indicating the cursor
#position). It must set an array variable C<COMPREPLY> that contains the list of
#possible completion:
#
# % _foo()
# {
script/_chinese-zodiac-of view on Meta::CPAN
# % foo <Tab>
# --help --verbose --version
#
#And yet another source is an external command (C<-C>) including, from a Perl
#script. The command receives two environment variables: C<COMP_LINE> (string,
#raw command-line) and C<COMP_POINT> (integer, cursor location). Program must
#split C<COMP_LINE> into words, find the word to be completed, complete that, and
#return the list of words one per-line to STDOUT. An example:
#
# % cat foo-complete
# #!/usr/bin/perl
script/_chinese-zodiac-of view on Meta::CPAN
#Optional. Known options:
#
#=over
#
#=item * C<truncate_current_word> (bool). If set to 1, will truncate current word to the
#position of cursor, for example (C<^> marks the position of cursor):
#C<--vers^oo> to C<--vers> instead of C<--versoo>. This is more convenient when
#doing tab completion.
#
#=back
#
script/_chinese-zodiac-of view on Meta::CPAN
# point($cmdline, $marker) -> any
#
#Return line with point marked by a marker.
#
#This is a utility function useful for testing/debugging. C<parse_cmdline()>
#expects a command-line and a cursor position (C<$line>, C<$point>). This routine
#expects C<$line> with a marker character (by default it's the caret, C<^>) and
#return (C<$line>, C<$point>) to feed to C<parse_cmdline()>.
#
#Example:
#
script/_chinese-zodiac-of view on Meta::CPAN
#single dash will be completed. For example if you have `-foo=s` in your option
#specification, `-f<tab>` can complete it.
#
#This can be used to complete old-style programs, e.g. emacs which has options
#like `-nw`, `-nbc` etc (but also have double-dash options like
#`--no-window-system` or `--no-blinking-cursor`).
#
#_
# },
# },
# result_naked => 1,
script/_chinese-zodiac-of view on Meta::CPAN
#single dash will be completed. For example if you have C<-foo=s> in your option
#specification, C<< -fE<lt>tabE<gt> >> can complete it.
#
#This can be used to complete old-style programs, e.g. emacs which has options
#like C<-nw>, C<-nbc> etc (but also have double-dash options like
#C<--no-window-system> or C<--no-blinking-cursor>).
#
#=item * B<completion> => I<code>
#
#Completion routine to complete option valueE<sol>argument.
#
script/_chinese-zodiac-of view on Meta::CPAN
# summary => 'Command-line arguments',
# schema => ['array*' => {of=>'str*'}],
# req => 1,
# },
# cword => {
# summary => 'On which argument cursor is located (zero-based)',
# schema => 'int*',
# req => 1,
# },
# completion => {
# summary => 'Supply custom completion routine',
script/_chinese-zodiac-of view on Meta::CPAN
#
#=back
#
#=item * B<cword>* => I<int>
#
#On which argument cursor is located (zero-based).
#
#=item * B<extras> => I<hash>
#
#Add extra arguments to completion routine.
#
App-ZofCMS
view release on metacpan or search on metacpan
lib/App/ZofCMS/Plugin/LinksToSpecs/CSS.pm view on Meta::CPAN
=> q|http://w3.org/TR/CSS21/visuren.html#propdef-clear|,
'padding'
=> q|http://w3.org/TR/CSS21/box.html#propdef-padding|,
'cursor'
=> q|http://w3.org/TR/CSS21/ui.html#propdef-cursor|,
'float'
=> q|http://w3.org/TR/CSS21/visuren.html#propdef-float|,
'border-right-color'
App-after
view release on metacpan or search on metacpan
# v => 1.1,
# summary => 'Return line with point marked by a marker',
# description => <<'_',
#
#This is a utility function useful for testing/debugging. `parse_cmdline()`
#expects a command-line and a cursor position (`$line`, `$point`). This routine
#expects `$line` with a marker character (by default it's the caret, `^`) and
#return (`$line`, `$point`) to feed to `parse_cmdline()`.
#
#Example:
#
# description => <<'_',
#
#Optional. Known options:
#
#* `truncate_current_word` (bool). If set to 1, will truncate current word to the
# position of cursor, for example (`^` marks the position of cursor):
# `--vers^oo` to `--vers` instead of `--versoo`. This is more convenient when
# doing tab completion.
#
#_
# schema => 'hash*',
#single dash will be completed. For example if you have `-foo=s` in your option
#specification, `-f<tab>` can complete it.
#
#This can be used to complete old-style programs, e.g. emacs which has options
#like `-nw`, `-nbc` etc (but also have double-dash options like
#`--no-window-system` or `--no-blinking-cursor`).
#
#_
# },
# },
# result_naked => 1,
# summary => 'Command-line arguments',
# schema => ['array*' => {of=>'str*'}],
# req => 1,
# },
# cword => {
# summary => 'On which argument cursor is located (zero-based)',
# schema => 'int*',
# req => 1,
# },
# completion => {
# summary => 'Supply custom completion routine',
App-bsky
view release on metacpan or search on metacpan
lib/App/bsky.pm view on Meta::CPAN
GetOptionsFromArray( \@args, 'json!' => \my $json );
#~ use Data::Dump;
my $tl = $bsky->feed_getTimeline();
#$algorithm //= (), $limit //= (), $cursor //= ()
if ($json) {
$self->say( JSON::Tiny::to_json [ map { $_->_raw } @{ $tl->{feed} } ] );
}
else { # TODO: filter where $type ne 'app.bsky.feed.post'
for my $post ( @{ $tl->{feed} } ) {
lib/App/bsky.pm view on Meta::CPAN
}
method cmd_likes ( $uri, @args ) {
GetOptionsFromArray( \@args, 'json!' => \my $json );
my @likes;
my $cursor = ();
do {
my $likes = $bsky->feed_getLikes( uri => $uri, limit => 100, cursor => $cursor );
push @likes, @{ $likes->{likes} };
$cursor = $likes->{cursor};
} while ($cursor);
if ($json) {
$self->say( JSON::Tiny::to_json [ map { $_->_raw } @likes ] );
}
else {
$self->say(
lib/App/bsky.pm view on Meta::CPAN
}
method cmd_reposts ( $uri, @args ) {
GetOptionsFromArray( \@args, 'json!' => \my $json );
my @reposts;
my $cursor = ();
do {
my $reposts = $bsky->feed_getRepostedBy( uri => $uri, limit => 100, cursor => $cursor );
push @reposts, @{ $reposts->{repostedBy} };
$cursor = $reposts->{cursor};
} while ($cursor);
if ($json) {
$self->say( JSON::Tiny::to_json [ map { $_->_raw } @reposts ] );
}
else {
$self->say( '%s%s%s%s', color('red'), $_->handle->_raw, color('reset'), defined $_->displayName ? ' [' . $_->displayName . ']' : '' )
lib/App/bsky.pm view on Meta::CPAN
}
method cmd_follows (@args) {
GetOptionsFromArray( \@args, 'json!' => \my $json, 'handle|H=s' => \my $handle );
my @follows;
my $cursor = ();
do {
my $follows = $bsky->graph_getFollows( actor => $handle // $config->{session}{handle}, limit => 100, cursor => $cursor );
push @follows, @{ $follows->{follows} };
$cursor = $follows->{cursor};
} while ($cursor);
if ($json) {
$self->say( JSON::Tiny::to_json [ map { $_->_raw } @follows ] );
}
else {
for my $follow (@follows) {
lib/App/bsky.pm view on Meta::CPAN
}
method cmd_followers (@args) {
GetOptionsFromArray( \@args, 'json!' => \my $json, 'handle|H=s' => \my $handle );
my @followers;
my $cursor = ();
do {
my $followers = $bsky->graph_getFollowers( actor => $handle // $config->{session}{handle}, limit => 100, cursor => $cursor );
if ( defined $followers->{followers} ) {
push @followers, @{ $followers->{followers} };
$cursor = $followers->{cursor};
}
} while ($cursor);
if ($json) {
$self->say( JSON::Tiny::to_json [ map { $_->_raw } @followers ] );
}
else {
for my $follower (@followers) {
lib/App/bsky.pm view on Meta::CPAN
}
method cmd_blocks (@args) {
GetOptionsFromArray( \@args, 'json!' => \my $json );
my @blocks;
my $cursor = ();
do {
my $follows = $bsky->graph_getBlocks( limit => 100, cursor => $cursor );
push @blocks, @{ $follows->{blocks} };
$cursor = $follows->{cursor};
} while ($cursor);
if ($json) {
$self->say( JSON::Tiny::to_json [ map { $_->_raw } @blocks ] );
}
else {
for my $follow (@blocks) {
lib/App/bsky.pm view on Meta::CPAN
}
method cmd_notifications (@args) {
GetOptionsFromArray( \@args, 'all|a' => \my $all, 'json!' => \my $json );
my @notes;
my $cursor = ();
do {
my $notes = $bsky->notification_listNotifications( limit => 100, cursor => $cursor );
if ( defined $notes->{notifications} ) {
push @notes, @{ $notes->{notifications} };
$cursor = $all && $notes->{cursor} ? $notes->{cursor} : ();
}
} while ($cursor);
if ($json) {
$self->say( JSON::Tiny::to_json [ map { $_->_raw } @notes ] );
}
else {
for my $note (@notes) {
( run in 1.160 second using v1.01-cache-2.11-cpan-a5abf4f5562 )