view release on metacpan or  search on metacpan

examples/generate_fid_hash.pl  view on Meta::CPAN

# Construct a suitable label/FID hash for a particular form
# and add it to the clipboard for easy pasting into your code
use warnings;
use strict;
use ARS::Simple;
use Win32::Clipboard;

examples/generate_fid_hash.pl  view on Meta::CPAN

    $fid_hash .= sprintf("    '%s'%s=> %10d,\t\t# %s type=%s %d\n", $row->[0], ' ' x ($max_len + 1 - length($row->[0])), $row->[1], $row->[2], $row->[3], $row->[4]);
}
$fid_hash .= "    );\n";

$CLIP->Set($fid_hash);
print "$fid_hash\nFormatted data copied to clipboard\n";

 view release on metacpan or  search on metacpan

lib/Acme/CPANModules/Clipboard.pm  view on Meta::CPAN

our $DATE = '2023-02-08'; # DATE
our $DIST = 'Acme-CPANModules-Clipboard'; # DIST
our $VERSION = '0.001'; # VERSION

our $LIST = {
    summary => 'List of modules that interact with clipboard',
    entries => [
        {module => 'Clipboard::Any'},
        {module => 'LWP::Protocol::clipboard'},
        {module => 'App::ClipboardUtils'},
        {module => 'Clipboard'},
        {module => 'Win32::Clipboard'},
    ],
};

1;
# ABSTRACT: List of modules that interact with clipboard

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::CPANModules::Clipboard - List of modules that interact with clipboard

=head1 VERSION

This document describes version 0.001 of Acme::CPANModules::Clipboard (from Perl distribution Acme-CPANModules-Clipboard), released on 2023-02-08.

lib/Acme/CPANModules/Clipboard.pm  view on Meta::CPAN

=item L<Clipboard::Any>

Author: L<PERLANCAR|https://metacpan.org/author/PERLANCAR>

=item L<LWP::Protocol::clipboard>

Author: L<PERLANCAR|https://metacpan.org/author/PERLANCAR>

=item L<App::ClipboardUtils>

 view release on metacpan or  search on metacpan

lib/Acme/MetaSyntactic/vim.pm  view on Meta::CPAN

charconvert
cindent
cinkeys
cinoptions
cinwords
clipboard
cmdheight
cmdwinheight
columns
comments
commentstring

 view release on metacpan or  search on metacpan

share/static/alice.js  view on Meta::CPAN

      this.range = range;
    }
  },

  pasteHandler: function(e) {
    if (!e.clipboardData) return;

    var items = e.clipboardData.items;
    if (items) {
      var output = "";
      for (var i=0; i < items.length; i++) {
        var blob = items[i].getAsFile();
        if (blob && blob.type.match(/image/)) {

share/static/alice.js  view on Meta::CPAN

          return;
        }
      }
    }

    var text = e.clipboardData.getData("Text");
    if (text) {
      e.preventDefault();
      text = text.escapeHTML().replace(/\n+/g, "<br>\n");
      this.editor.insertHTML(text);
      this.updateRange();
      return;
    }

    var url = e.clipboardData.getData("URL");
    if (url) {
      e.preventDefault();
      this.editor.insertHTML(url);
      this.updateRange();
      return;

 view release on metacpan or  search on metacpan

cp/codepress/engines/msie.js  view on Meta::CPAN

		else if((evt.ctrlKey || evt.metaKey) && evt.shiftKey && keyCode!=90)  { // shortcuts = ctrl||appleKey+shift+key!=z(undo) 
			CodePress.shortcuts(keyCode);
			evt.returnValue = false;
		}
		else if(keyCode==86 && evt.ctrlKey)  { // handle paste
			window.clipboardData.setData('Text',window.clipboardData.getData('Text').replace(/\t/g,'\u2008'));
		 	top.setTimeout(function(){CodePress.syntaxHighlight('paste');},10);
		}
		else if(keyCode==67 && evt.ctrlKey)  { // handle cut
			// window.clipboardData.setData('Text',x[0]);
			// code = window.clipboardData.getData('Text');
		}
	},

	// put cursor back to its original position after every parsing
	

 view release on metacpan or  search on metacpan

patches/Makefile_iup.mingw  view on Meta::CPAN

CF_iup   = -c  -Wall -O2 -Iinclude -Isrc -Isrc/win -Ietc   -D_WIN32_WINNT=0x0501 -D_WIN32_IE=0x600 -DWINVER=0x0501 -DNOTREEVIEW -DUNICODE -DIUP_DLL $(CF_iup_EXTRA)
LF_iup   = -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -luuid -loleaut32 -lole32 -lcomctl32 $(LF_iup_EXTRA)
SLIB_iup = ./lib/$(BUILDNICK)/libiup.a
DLIB_iup = ./lib/$(BUILDNICK)/libiup.dll.a
ILIB_iup = ./lib/$(BUILDNICK)/iup_alien_.dll
OBJS_iup = ./obj/$(BUILDNICK)/iup/iup_array.o ./obj/$(BUILDNICK)/iup/iup_callback.o ./obj/$(BUILDNICK)/iup/iup_dlglist.o ./obj/$(BUILDNICK)/iup/iup_attrib.o ./obj/$(BUILDNICK)/iup/iup_focus.o ./obj/$(BUILDNICK)/iup/iup_font.o ./obj/$(BUILDNICK)/iup/i...

./obj/$(BUILDNICK)/iup/iup_array.o : src/iup_array.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@
./obj/$(BUILDNICK)/iup/iup_callback.o : src/iup_callback.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@
./obj/$(BUILDNICK)/iup/iup_dlglist.o : src/iup_dlglist.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@
./obj/$(BUILDNICK)/iup/iup_attrib.o : src/iup_attrib.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@

patches/Makefile_iup.mingw  view on Meta::CPAN

./obj/$(BUILDNICK)/iup/iupwin_filedlg.o : src/win/iupwin_filedlg.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@
./obj/$(BUILDNICK)/iup/iupwin_dragdrop.o : src/win/iupwin_dragdrop.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@
./obj/$(BUILDNICK)/iup/iupwin_button.o : src/win/iupwin_button.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@
./obj/$(BUILDNICK)/iup/iupwin_draw.o : src/win/iupwin_draw.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@
./obj/$(BUILDNICK)/iup/iupwin_toggle.o : src/win/iupwin_toggle.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@
./obj/$(BUILDNICK)/iup/iupwin_clipboard.o : src/win/iupwin_clipboard.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@
./obj/$(BUILDNICK)/iup/iupwin_progressbar.o : src/win/iupwin_progressbar.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@
./obj/$(BUILDNICK)/iup/iupwin_text.o : src/win/iupwin_text.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@
./obj/$(BUILDNICK)/iup/iupwin_val.o : src/win/iupwin_val.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@
./obj/$(BUILDNICK)/iup/iupwin_touch.o : src/win/iupwin_touch.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@
./obj/$(BUILDNICK)/iup/iupwin_tabs.o : src/win/iupwin_tabs.c ; gcc $(CF_ALL) $(CF_iup) $^ -o $@

patches/Makefile_iup.mingw  view on Meta::CPAN

CF_iupmatrixex   = -c  -Wall -O2 -Iinclude -Isrc -Isrcmatrixex -I../cd/include    $(CF_iupmatrixex_EXTRA)
LF_iupmatrixex   = -liup -liupcontrols -lcd -lfreetype6 -lzlib1 -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -luuid -loleaut32 -lole32 -lcomctl32 $(LF_iupmatrixex_EXTRA)
SLIB_iupmatrixex = ./lib/$(BUILDNICK)/libiupmatrixex.a
DLIB_iupmatrixex = ./lib/$(BUILDNICK)/libiupmatrixex.dll.a
ILIB_iupmatrixex = ./lib/$(BUILDNICK)/iupmatrixex_alien_.dll
OBJS_iupmatrixex = ./obj/$(BUILDNICK)/iupmatrixex/iup_matrixex.o ./obj/$(BUILDNICK)/iupmatrixex/iupmatex_clipboard.o ./obj/$(BUILDNICK)/iupmatrixex/iupmatex_busy.o ./obj/$(BUILDNICK)/iupmatrixex/iupmatex_export.o ./obj/$(BUILDNICK)/iupmatrixex/iupmat...

./obj/$(BUILDNICK)/iupmatrixex/iup_matrixex.o : srcmatrixex/iup_matrixex.c ; gcc $(CF_ALL) $(CF_iupmatrixex) $^ -o $@
./obj/$(BUILDNICK)/iupmatrixex/iupmatex_clipboard.o : srcmatrixex/iupmatex_clipboard.c ; gcc $(CF_ALL) $(CF_iupmatrixex) $^ -o $@
./obj/$(BUILDNICK)/iupmatrixex/iupmatex_busy.o : srcmatrixex/iupmatex_busy.c ; gcc $(CF_ALL) $(CF_iupmatrixex) $^ -o $@
./obj/$(BUILDNICK)/iupmatrixex/iupmatex_export.o : srcmatrixex/iupmatex_export.c ; gcc $(CF_ALL) $(CF_iupmatrixex) $^ -o $@
./obj/$(BUILDNICK)/iupmatrixex/iupmatex_visible.o : srcmatrixex/iupmatex_visible.c ; gcc $(CF_ALL) $(CF_iupmatrixex) $^ -o $@
./obj/$(BUILDNICK)/iupmatrixex/iupmatex_copy.o : srcmatrixex/iupmatex_copy.c ; gcc $(CF_ALL) $(CF_iupmatrixex) $^ -o $@
./obj/$(BUILDNICK)/iupmatrixex/iupmatex_units.o : srcmatrixex/iupmatex_units.c ; gcc $(CF_ALL) $(CF_iupmatrixex) $^ -o $@

patches/Makefile_iup.mingw  view on Meta::CPAN

CF_iup_scintilla   = -c -std=gnu++11 -Wall -O2 -Iinclude -Isrc -Isrcscintilla -Isrc/win -Isrcscintilla/lexlib -Isrcscintilla/src -Isrcscintilla/include -Isrcscintilla/win32 -Isrcscintilla/win   -DSTATIC_BUILD -DSCI_LEXER -DUNICODE -D_WIN32 -DDISABLE_...
LF_iup_scintilla   = -liup -limm32 -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -luuid -loleaut32 -lole32 -lcomctl32 $(LF_iup_scintilla_EXTRA)
SLIB_iup_scintilla = ./lib/$(BUILDNICK)/libiup_scintilla.a
DLIB_iup_scintilla = ./lib/$(BUILDNICK)/libiup_scintilla.dll.a
ILIB_iup_scintilla = ./lib/$(BUILDNICK)/iup_scintilla_alien_.dll
OBJS_iup_scintilla = ./obj/$(BUILDNICK)/iup_scintilla/AutoComplete.o ./obj/$(BUILDNICK)/iup_scintilla/CallTip.o ./obj/$(BUILDNICK)/iup_scintilla/Catalogue.o ./obj/$(BUILDNICK)/iup_scintilla/CellBuffer.o ./obj/$(BUILDNICK)/iup_scintilla/CharClassify.o...

./obj/$(BUILDNICK)/iup_scintilla/AutoComplete.o : srcscintilla/src/AutoComplete.cxx ; g++ $(CF_ALL) $(CF_iup_scintilla) $^ -o $@
./obj/$(BUILDNICK)/iup_scintilla/CallTip.o : srcscintilla/src/CallTip.cxx ; g++ $(CF_ALL) $(CF_iup_scintilla) $^ -o $@
./obj/$(BUILDNICK)/iup_scintilla/Catalogue.o : srcscintilla/src/Catalogue.cxx ; g++ $(CF_ALL) $(CF_iup_scintilla) $^ -o $@
./obj/$(BUILDNICK)/iup_scintilla/CellBuffer.o : srcscintilla/src/CellBuffer.cxx ; g++ $(CF_ALL) $(CF_iup_scintilla) $^ -o $@

patches/Makefile_iup.mingw  view on Meta::CPAN

./obj/$(BUILDNICK)/iup_scintilla/WordList.o : srcscintilla/lexlib/WordList.cxx ; g++ $(CF_ALL) $(CF_iup_scintilla) $^ -o $@
./obj/$(BUILDNICK)/iup_scintilla/CharacterCategory.o : srcscintilla/lexlib/CharacterCategory.cxx ; g++ $(CF_ALL) $(CF_iup_scintilla) $^ -o $@
./obj/$(BUILDNICK)/iup_scintilla/PlatWin.o : srcscintilla/win32/PlatWin.cxx ; g++ $(CF_ALL) $(CF_iup_scintilla) $^ -o $@
./obj/$(BUILDNICK)/iup_scintilla/ScintillaWin.o : srcscintilla/win32/ScintillaWin.cxx ; g++ $(CF_ALL) $(CF_iup_scintilla) $^ -o $@
./obj/$(BUILDNICK)/iup_scintilla/HanjaDic.o : srcscintilla/win32/HanjaDic.cxx ; g++ $(CF_ALL) $(CF_iup_scintilla) $^ -o $@
./obj/$(BUILDNICK)/iup_scintilla/iupsci_clipboard.o : srcscintilla/iupsci_clipboard.c ; gcc $(CF_ALL) $(CF_iup_scintilla) $^ -o $@
./obj/$(BUILDNICK)/iup_scintilla/iupsci_folding.o : srcscintilla/iupsci_folding.c ; gcc $(CF_ALL) $(CF_iup_scintilla) $^ -o $@
./obj/$(BUILDNICK)/iup_scintilla/iupsci_lexer.o : srcscintilla/iupsci_lexer.c ; gcc $(CF_ALL) $(CF_iup_scintilla) $^ -o $@
./obj/$(BUILDNICK)/iup_scintilla/iupsci_margin.o : srcscintilla/iupsci_margin.c ; gcc $(CF_ALL) $(CF_iup_scintilla) $^ -o $@
./obj/$(BUILDNICK)/iup_scintilla/iupsci_overtype.o : srcscintilla/iupsci_overtype.c ; gcc $(CF_ALL) $(CF_iup_scintilla) $^ -o $@
./obj/$(BUILDNICK)/iup_scintilla/iupsci_scrolling.o : srcscintilla/iupsci_scrolling.c ; gcc $(CF_ALL) $(CF_iup_scintilla) $^ -o $@

 view release on metacpan or  search on metacpan

smoke/qt/qtcore/tests/test.cpp  view on Meta::CPAN

#endif

#ifdef TEST_QT_NO_CLIPBOARD
#include "QtGui/qapplication.h"
#include "QtGui/qclipboard.h"

int main(int argc, char ** argv)
{
  QApplication foo( argc, argv );
  QClipboard *baz= foo.clipboard();
}

#endif

#ifdef TEST_QT_NO_COLORDIALOG

 view release on metacpan or  search on metacpan

share/swagger-ui-bundle.js  view on Meta::CPAN

 *
 * Copyright (c) Facebook, Inc. and its affiliates.
 *
 * This source code is licensed under the MIT license found in the
 * LICENSE file in the root directory of this source tree.
 */Object.defineProperty(t,"__esModule",{value:!0});var r="function"==typeof Symbol&&Symbol.for,o=r?Symbol.for("react.element"):60103,i=r?Symbol.for("react.portal"):60106,a=r?Symbol.for("react.fragment"):60107,s=r?Symbol.for("react.strict_mode"):6010...
/*!
 * https://github.com/Starcounter-Jack/JSON-Patch
 * (c) 2017 Joachim Wester
 * MIT license
 */

share/swagger-ui-bundle.js  view on Meta::CPAN

 *
 * Copyright(c) 2016 Gregory Jacobs <greg@greg-jacobs.com>
 * MIT License
 *
 * https://github.com/gregjacobs/Autolinker.js
 */o=[],void 0===(i="function"==typeof(r=function(){var e,t,n,r,o,i,a,s=function(e){e=e||{},this.version=s.version,this.urls=this.normalizeUrlsCfg(e.urls),this.email="boolean"!=typeof e.email||e.email,this.twitter="boolean"!=typeof e.twitter||e.twitt...
//# sourceMappingURL=swagger-ui-bundle.js.map

 view release on metacpan or  search on metacpan

patches/wxMSW-2.8.10-w64-stc.patch  view on Meta::CPAN

 }
 
 // Get which document modification events are sent to the container.
@@ -2333,7 +2333,7 @@
 
 // Copy argument text to the clipboard.
 void wxStyledTextCtrl::CopyText(int length, const wxString& text) {
-    SendMsg(2420, length, (long)(const char*)wx2stc(text));
+    SendMsg(2420, length, (wxIntPtr)(const char*)wx2stc(text));
 }
 

 view release on metacpan or  search on metacpan

factpacks/Linux.fact  view on Meta::CPAN

gcc => <reply> $who, . URL: http://egcs.cygnus.com/
GCD => <reply> $who, A cd-player with a gtk+ interface. URL: http://www.nostatic.org/grip/
Gcdplay => <reply> $who, GPL'ed CD player with local and server-based cddb support.. URL: http://www.korax.net/~mglisic/gcdplay/index.html
gchbkgrd => <reply> $who, Program to constantly change the desktop's background. URL: http://www.bitdaddy.com/~mono/gchbkgrd/
GChip8 => <reply> $who, An interpreter/emulator for the CHIP8 virtual machine.. URL: http://cerealbox.angel.nu/gchip8.html
GClipper => <reply> $who, A multiple buffer clipboard that automatically fetches new selections.. URL: http://thunderstorms.org/gclipper/gclipper-1.1.tar.gz
GCO => <reply> $who, A database for keeping track of your comic collection.. URL: http://www.daimi.au.dk/~maxx/html/maxximum-linux.html
gcombust => <reply> $who, gtk+ frontend for mkisofs and cdrecord. URL: http://www.iki.fi/jmunsin/gcombust
GCompte => <reply> $who, A program to keep track of your finances. URL: http://www.linux-france.org/prj/gcompte/
GConf => <reply> $who, Configuration storage library, like libproplist or the Windows Registry. URL: ftp://ftp.gnome.org:/pub/GNOME/sources/GConf/GConf-0.1.tar.gz
Gconfig => <reply> $who, A router configuration tool. URL: http://www.employees.org/~stannous/gconfig.html

factpacks/Linux.fact  view on Meta::CPAN

mp3serv => <reply> $who, An MP3 Shout client for icecast written in Perl.. URL: http://lek.net/~paul/mp3serv/
MP3SQL => <reply> $who, Indexes your MP3 with MP3tags into an SQL database. URL: http://www.canit.se/~danand/mp3sql/
mp3tools => <reply> $who, Utilities for managing MPEG audio files. URL: http://www.zevils.com/linux/mp3tools/
mp3tree => <reply> $who, prints a formated dir tree showing playtime and size of all MP3s in each dir. URL: http://www.informatik.uni-rostock.de/~jhecking/perl/
MPage => <reply> $who, Send a mobilecomm text pager a page from the command line.. URL: http://opop.nols.com/paging.html
MpCb => <reply> $who, Multiplatform networked clipboard for UNIX and Win32. URL: http://www.idata.sk/~robo/mpcb/
mpEDIT => <reply> $who, A moderately featured text editor written in Java. URL: http://members.tripod.com/~mpTOOLS/
MPEG Movie Tools => <reply> $who, Complete set of tools for encoding MPEG-I movies with picture and sound. URL: http://www.freeyellow.com/members4/heroine/toys.html
mpegCam => <reply> $who, Captures MPEG video with a B&W Quickcam. URL: http://www.honeylocust.com/mpegcam/
MpegTV Player (mtv) => <reply> $who, A realtime MPEG Video+Audio player. URL: http://www.mpegtv.com/download.html
MpegTV SDK => <reply> $who, Powerful Software Development Kit for real-time MPEG-1 Video. URL: http://www.mpegtv.com/sdk.html

 view release on metacpan or  search on metacpan

lib/Antsy.pm  view on Meta::CPAN

=cut

# OSC 1337 SetProfile=[new profile name] ST

=item * start_copy_to_clipboard

=item * end_copy_to_clipboard

=cut

# OSC 1337 ; CopyToClipboard=[clipboard name] ST
# OSC 1337 ; EndCopy ST

=item * change_color_palette

[key] gives the color to change. The accepted values are: fg bg bold link selbg selfg curbg curfg underline tab" black red green yellow blue magenta cyan white br_black br_red br_green br_yellow br_blue br_magenta br_cyan br_white

 view release on metacpan or  search on metacpan

lib/Apache/SdnFw/js/tinymce/jscripts/tiny_mce/langs/en.js  view on Meta::CPAN

cancel:"Cancel",
close:"Close",
browse:"Browse",
class_name:"Class",
not_set:"-- Not set --",
clipboard_msg:"Copy/Cut/Paste is not available in Mozilla and Firefox.\nDo you want more information about this issue?",
clipboard_no_support:"Currently not supported by your browser, use keyboard shortcuts instead.",
popup_blocked:"Sorry, but we have noticed that your popup-blocker has disabled a window that provides application functionality. You will need to disable popup blocking on this site in order to fully utilize this tool.",
invalid_data:"Error: Invalid values entered, these are marked in red.",
more_colors:"More colors"
},
contextmenu:{

 view release on metacpan or  search on metacpan

share/static/alice.js  view on Meta::CPAN

      this.range = range;
    }
  },

  pasteHandler: function(e) {
    var url = e.clipboardData.getData("URL");
    if (url) {
      e.preventDefault();
      this.editor.insertHTML(url);
      this.updateRange();
      return;
    }

    var text = e.clipboardData.getData("Text");
    if (text) {
      e.preventDefault();
      text = text.escapeHTML().replace(/\n+/g, "<br>");
      this.editor.insertHTML(text);
      this.updateRange();

 view release on metacpan or  search on metacpan

lib/App/Asciio.pm  view on Meta::CPAN

=item * group/ungroup

=item * open / save

=item * local clipboard operations

=item * send to front/back

=item * insert arrow, boxes, text

lib/App/Asciio.pm  view on Meta::CPAN

=head2 exporting to ASCII

You can export to a file in ASCII format but using the B<.txt> extension.

Exporting to the clipboard is done with B<ctl + e>.

=head1 EXAMPLES

	
           User code ^            ^ OS code

lib/App/Asciio.pm  view on Meta::CPAN

	
	if ($modifiers eq 'C00')
		{
		if(defined $first_element)
			{
			$self->run_actions_by_name('Copy to clipboard', ['Insert from clipboard', 0, 0])  ;
			}
		}
	else
		{
		if(defined $first_element)

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

        - Remove alias CLI's: csv2csv (only csv-csv now provided), dump-csv
          (only csv-dump now provided).

        - Reading from & writing to URL feature is removed to remove dependency
          to LWP::UserAgent. One can use piping to/from clipget/clipadd to read
          from/write to clipboard. There are other tools for reading/writing to
          URL addresses.

        [Documentation & UX]

        - Add example(s) to all utilities.

 view release on metacpan or  search on metacpan

lib/App/Chart/Gtk2/RawDialog.pm  view on Meta::CPAN

  require App::Chart::Gtk2::GUI;
  App::Chart::Gtk2::GUI::browser_open ($item->{'url'});
}
sub _do_weblink_menu_copy {
  my ($item) = @_;
  my $clipboard = Gtk2::Clipboard->get_for_display
    ($item->get_display, Gtk2::Gdk::Atom->new('PRIMARY'));
  $clipboard->set_text ($item->{'url'});
}

sub set_symbol {
  my ($self, $symbol) = @_;
  if (! defined $symbol) { $symbol = ''; }

 view release on metacpan or  search on metacpan

cheats.txt  view on Meta::CPAN

## Linux Commands - xsel
#############################################################

# Use copy and paste on the command line.
sudo apt install xsel
alias pbcopy='xsel --clipboard --input'
alias pbpaste='xsel --clipboard --output'


#############################################################
## Linux Commands - xterm
#############################################################

 view release on metacpan or  search on metacpan

lib/App/ClipboardUtils.pm  view on Meta::CPAN

use Clone::PP qw(clone);

our %SPEC;

{
    $SPEC{add_clipboard_content} = clone $Clipboard::Any::SPEC{add_clipboard_content};

    # because we also have --command and do our own while(<>) { ... }
    delete $SPEC{add_clipboard_content}{args}{content}{cmdline_src};

    $SPEC{add_clipboard_content}{args}{split_by} = {
        summary => 'Split content by specified string/regex, add the split content as multiple clipboard entries',
        schema => ['str_or_re*'],
        description => <<'MARKDOWN',

Cannot be used together with `--fragments` or `--command-line` option.

lib/App/ClipboardUtils.pm  view on Meta::CPAN

MARKDOWN
        cmdline_aliases => {s=>{}},
    };

    $SPEC{add_clipboard_content}{args}{fragments} = {
        summary => 'Only add text fragments inside content',
        schema => ['bool*'],
        description => <<'MARKDOWN',

Cannot be used together with `--split-by` or `--command-line` option.

lib/App/ClipboardUtils.pm  view on Meta::CPAN

MARKDOWN
        #cmdline_aliases => {f=>{}},
    };

    $SPEC{add_clipboard_content}{args}{tee} = {
        summary => 'Pass stdin to stdout',
        schema => ['true*'],
        description => <<'MARKDOWN',

MARKDOWN
        cmdline_aliases => {t=>{}},
    };

    $SPEC{add_clipboard_content}{args}{command_line} = {
        summary => 'For every line of input in *stdin*, execute a command, feed it the input line, and add the output to clipboard',
        schema => ['str*'],
        description => <<'MARKDOWN',

Note that when you use this option, the `--content` argument is ignored. Input
is taken from stdin. With `--tee`, each output will be printed to stdout. After

lib/App/ClipboardUtils.pm  view on Meta::CPAN

MARKDOWN
        cmdline_aliases => {c=>{}},
    };

    $SPEC{add_clipboard_content}{args_rels}{"choose_one&"} = [
        [qw/command_line split_by fragments/],
    ];
}

sub add_clipboard_content {
    my %args = @_;
    my $split_by = delete $args{split_by};
    my $tee = delete $args{tee};
    my $command_line = $args{command_line};

lib/App/ClipboardUtils.pm  view on Meta::CPAN

                    if ($tee) {
                        print $part;
                        print $separator if defined $separator;
                    }

                    # do not add empty part to clipboard
                    if (length $part) {
                        my $res = Clipboard::Any::add_clipboard_content(
                            %args, content => $part,
                        );
                        return $res unless $res->[0] == 200;
                    }
                }
            } else {
                print $stdout if $tee;
                my $res = Clipboard::Any::add_clipboard_content(%args, content => $stdout);
                return $res unless $res->[0] == 200;
            }
        } # while input
        return [200, "OK"];

lib/App/ClipboardUtils.pm  view on Meta::CPAN

                if ($tee) {
                    print $part;
                    print $separator if defined $separator;
                }

                # do not add empty part to clipboard
                if (length $part) {
                    $res = Clipboard::Any::add_clipboard_content(
                        %args, content => $part,
                    ); # currently we use the last add_clipboard_content status
                }
            }
            $res->[3]{'func.parts'} = @split_parts;
            $res;
        } elsif ($args{fragments}) {

lib/App/ClipboardUtils.pm  view on Meta::CPAN

            for my $part (@parts) {
                if ($tee) {
                    print $part;
                }

                # do not add empty part to clipboard
                if (length $part) {
                    $res = Clipboard::Any::add_clipboard_content(
                        %args, content => $part,
                    ); # currently we use the last add_clipboard_content status
                }
            }
            $res->[3]{'func.parts'} = @parts;
            $res;
        } else {
            print $content if $tee;
            Clipboard::Any::add_clipboard_content(%args);
        }

    } # if command_line
}

$SPEC{tee_clipboard_content} = clone $Clipboard::Any::SPEC{add_clipboard_content};
$SPEC{tee_clipboard_content}{summary} = 'Shortcut for add-clipboard-content --tee';
$SPEC{tee_clipboard_content}{description} = '';
delete $SPEC{tee_clipboard_content}{args}{tee};
sub tee_clipboard_content {
    add_clipboard_content(@_, tee => 1);
}

1;
# ABSTRACT: CLI utilities related to clipboard

__END__

=pod

=encoding UTF-8

=head1 NAME

App::ClipboardUtils - CLI utilities related to clipboard

=head1 VERSION

This document describes version 0.014 of App::ClipboardUtils (from Perl distribution App-ClipboardUtils), released on 2025-10-16.

=head1 DESCRIPTION

This distribution contains the following CLI utilities related to clipboard:

=over

=item 1. L<add-clipboard-content>

=item 2. L<ca>

=item 3. L<cg>

=item 4. L<clear-clipboard-content>

=item 5. L<clear-clipboard-history>

=item 6. L<clipadd>

=item 7. L<clipget>

=item 8. L<cliptee>

=item 9. L<ct>

=item 10. L<detect-clipboard-manager>

=item 11. L<get-clipboard-content>

=item 12. L<get-clipboard-history-item>

=item 13. L<list-clipboard-history>

=item 14. L<tee-clipboard-content>

=back

=head1 FUNCTIONS


=head2 add_clipboard_content

Usage:

 add_clipboard_content(%args) -> [$status_code, $reason, $payload, \%result_meta]

Add a new content to the clipboard.

For C<xclip>: when adding content, the primary selection is set. The clipboard
content is unchanged.

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<chomp_newline> => I<bool>

Remove trailing newlines before adding item to clipboard.

=item * B<clipboard_manager> => I<str>

Explicitly set clipboard manager to use.

The default, when left undef, is to detect what clipboard manager is running.

=item * B<command_line> => I<str>

For every line of input in *stdin*, execute a command, feed it the input line, and add the output to clipboard.

Note that when you use this option, the C<--content> argument is ignored. Input
is taken from stdin. With C<--tee>, each output will be printed to stdout. After
eof, the utility will return empty result.

lib/App/ClipboardUtils.pm  view on Meta::CPAN

Read L<Text::Fragment> for more details on text fragments.

=item * B<split_by> => I<str_or_re>

Split content by specified stringE<sol>regex, add the split content as multiple clipboard entries.

Cannot be used together with C<--fragments> or C<--command-line> option.

Note that if you supply a regex, you should not have any capture groups in the
regex.

lib/App/ClipboardUtils.pm  view on Meta::CPAN

Return value:  (any)



=head2 tee_clipboard_content

Usage:

 tee_clipboard_content(%args) -> [$status_code, $reason, $payload, \%result_meta]

Shortcut for add-clipboard-content --tee.

This function is not exported.

Arguments ('*' denotes required arguments):

=over 4

=item * B<chomp_newline> => I<bool>

Remove trailing newlines before adding item to clipboard.

=item * B<clipboard_manager> => I<str>

Explicitly set clipboard manager to use.

The default, when left undef, is to detect what clipboard manager is running.

=item * B<content> => I<str>

(No description)