Você pode escrever um pequeno script em Perl como o que eu postei abaixo e executá-lo como um nautilus .
Funcionaria assim:
- Marque os arquivos no nautilus
- Clique com o botão direito do mouse no menu de contexto
- Clique na entrada 'Scripts' do menu de contexto e, em seguida, clique no nome do script (no meu caso, o nome é 'contents2clipboard').
Agora, o conteúdo de todos os arquivos está na área de transferência e pode ser colado em um editor de texto ou qualquer outro aplicativo.
Para usar o script, copie-o em um novo arquivo no diretório ~/.gnome2/nautilus-scripts
. O nome do arquivo será o texto da entrada correspondente no menu 'Scripts' do nautilus. No meu caso, o nome é 'contents2clipboard' .
Aqui está uma captura de tela:
Aqui está o script básico:
#!/usr/bin/perl
# indent-mode: spaces, tabsize: 4, encoding: utf8
#
# © 2011 [email protected]. Use under the MIT license:
# http://www.opensource.org/licenses/mit-license.php
#
# This nautilus script copies the content of the selected files
#+into the clipboard. Nautlis scripts are usually located in
#+'$HOME/.gnome2/nautilus-scripts' and need to be executable.
# Gtk2 stuff
use Glib qw/TRUE FALSE/;
use Gtk2 '-init';
use utf8;
# Get files list
@files = split( "\n", $ENV{'NAUTILUS_SCRIPT_SELECTED_FILE_PATHS'} );
$content = '';
# read content of files in list
foreach $path (@files) {
if( -T $path ) {
open FILE, "<$path";
$content .= do { local $/; <FILE> };
close(FILE);
}
}
# Copy content to clipboard
$clipboard = Gtk2::Clipboard->get(Gtk2::Gdk->SELECTION_CLIPBOARD);
$clipboard->set_text($content);
Gtk2->main;
Como é, há algumas peculiaridades que você pode querer corrigir:
- Ele não funciona em sistemas de arquivos remotos devido à maneira como
NAUTILUS_SCRIPT_SELECTED_FILE_PATHS
é trabalhado. - Não verifica o tamanho dos arquivos fornecidos. Arquivos muito grandes podem causar problemas.
Não sei se isso atende às suas necessidades. Em caso afirmativo: aproveite! (e marca respondida)