将 paste-img 改得更加 KISS
- eexpress
- 帖子: 58428
- 注册时间: 2005-08-14 21:55
- 来自: 长沙
将 paste-img 改得更加 KISS
决定增强原有的cli版本。剥离gui作为外壳。以后增加rc配置。
http://code.google.com/p/paste-img/
https://github.com/eexpress/eexp-bin/tr ... /paste-img
http://code.google.com/p/paste-img/
https://github.com/eexpress/eexp-bin/tr ... /paste-img
- 附件
-
- paste-img_0.57_all.deb
- (180.79 KiB) 已下载 118 次
-
- paste-img_0.56_all.deb
- (7.69 KiB) 已下载 108 次
-
- pi.pl.tar.xz
- cli增强版本
- (1.91 KiB) 已下载 121 次
● 鸣学
- Ubuntu与Linux
- 帖子: 1211
- 注册时间: 2010-06-09 19:57
- hcym
- 帖子: 15634
- 注册时间: 2007-05-06 2:46
- eexpress
- 帖子: 58428
- 注册时间: 2005-08-14 21:55
- 来自: 长沙
Re: 将 paste-img 改得更加 KISS
简化的gui。
代码: 全选
● cat ./paste_img.pl
#!/usr/bin/perl
use utf8; # 文件路径才可以使用中文。
use Gtk2 -init;
use Gtk2::GladeXML;
use File::Basename qw/basename dirname/;
use Encode;
$user="eexp";
#----------------------------------
chdir dirname (-l $0?readlink $0:$0);
$app="paste_img"; $cli="pi.pl";
my $gui = Gtk2::GladeXML->new("$app.glade");
$gui->signal_autoconnect_from_package('main');
#----------------------------------
#$select="imagebin";
$box2 = $gui->get_widget('vbox2');
$button = Gtk2::RadioButton->new(undef, "null");
@group = $button->get_group;
@web=`./$cli -l`;
foreach (@web){
chomp;
s/\s.*$//,$select=$_ if /\*/;
$button = Gtk2::RadioButton->new_with_label(@group, "$_");
$button->signal_connect('toggled'=>\&radio_clicked);
$button->set_active(TRUE) if /$select/;
$box2->pack_start($button, TRUE, TRUE, 0);
$button->show;
print "...$_...\n";
}
#----------------------------------
$ff=Gtk2::FileFilter->new();
$ff->add_mime_type("image/png");
$ff->add_mime_type("image/jpeg");
#$ff->add_pattern("*.png");
$gui->get_widget('filechooserbutton2')->add_filter($ff);
$gui->get_widget('filechooserbutton2')->set_filename("$app.png");
#----------------------------------
$gui->get_widget('preview')->drag_dest_set('all', ["link","ask"], {target=>'STRING', flags=>['other-app','other-widget'], info=>0});
Gtk2->main;
#========================子程序============================
sub on_preview_drag_data_received{
my ($tolist, $context, $x, $y, $data, $info, $time, $fromlist) = @_;
use URI::Escape;
$_=$data->get_text(); chomp;
print "drag:$_\n";
$_=uri_unescape($_);
s'^file://'';
$_=decode("utf8",$_);
print "$_\n";
$gui->get_widget('filechooserbutton2')->set_filename($_);
print $gui->get_widget('filechooserbutton2')->get_filename();
#nautilus' String
#file:///home/exp/%E4%B8%8B%E8%BD%BD/d70b644df40e4a68da6eaeef49dcf469.jpg
#file:///home/exp/%E4%B8%8B%E8%BD%BD/2010-09-25-15:44:34.png
#rox no String
$context->finish(1, 0, $time);
return 0;
}
#----------------------------------
sub radio_clicked{
$_=shift;
$select=$_->get_label;
}
#----------------------------------
sub on_mainwindow_destroy{
Gtk2->main_quit;
}
#----------------------------------
sub on_filechooserbutton2_selection_changed{
$gui->get_widget('preview')->set_from_file($gui->get_widget('filechooserbutton2')->get_filename());
}
#----------------------------------
sub on_bpaste_clicked{
my $pic=$gui->get_widget('filechooserbutton2')->get_filename();
$pic=encode("utf8",$pic);
print "./$cli -s $select -n $user $pic\n";
my @re=`./$cli -s $select -n $user $pic`;
@re=grep /Paste URL/,@re;
$_=$re[0];
$gui->get_widget('statusbar1')->push(0,"$_");
}
● 鸣学
- eexpress
- 帖子: 58428
- 注册时间: 2005-08-14 21:55
- 来自: 长沙
Re: 将 paste-img 改得更加 KISS
增强CLI版本+简化GUI版本
支持拖放图片到Image和Filechooserbutton
带notify提示和自动复制url到剪贴板。
支持拖放图片到Image和Filechooserbutton
带notify提示和自动复制url到剪贴板。
- 附件
-
- paste_img_KISS.tar.xz
- (23.5 KiB) 已下载 108 次
● 鸣学
- pityonline
- 帖子: 3864
- 注册时间: 2008-12-09 12:44
- 来自: 北京
- 联系:
Re: 将 paste-img 改得更加 KISS
神又发符了,众将速来领符!
- thomasxie
- 帖子: 317
- 注册时间: 2009-11-22 15:29
- 联系:
Re: 将 paste-img 改得更加 KISS
时间就像一张网,你撒在那里,你的收获就在那里。
- eexpress
- 帖子: 58428
- 注册时间: 2005-08-14 21:55
- 来自: 长沙
- fanhe
- 帖子: 2357
- 注册时间: 2007-03-24 23:45
Re: 将 paste-img 改得更加 KISS
支持啊
有空再折腾
有空再折腾
- eexpress
- 帖子: 58428
- 注册时间: 2005-08-14 21:55
- 来自: 长沙
Re: 将 paste-img 改得更加 KISS
废弃上面的版本。
- 附件
-
- paste-img-0.51.deb
- 前版本少写一个依赖。libgtk2-gladexml-perl。补上
- (25.22 KiB) 已下载 145 次
-
- paste-img-0.5.deb
- 2个菜单,直接贴图和选择贴图
- (25.2 KiB) 已下载 112 次
● 鸣学
- eexpress
- 帖子: 58428
- 注册时间: 2005-08-14 21:55
- 来自: 长沙
Re: 将 paste-img 改得更加 KISS
● ~/bin/paste-img/pasteimg.pl -l
imagebin.org *
imm.io
kimag.es
http://www.cjb.net
uploadpie.com
paste.ubuntu.org.cn
增加 imm.io 网站。那是 roylez的窝。
imagebin.org *
imm.io
kimag.es
http://www.cjb.net
uploadpie.com
paste.ubuntu.org.cn
增加 imm.io 网站。那是 roylez的窝。
- 附件
-
- Screenshot-paste-img.pl.png (196.89 KiB) 查看 7004 次
-
- paste-img_0.52_all.deb
- (25.07 KiB) 已下载 103 次
● 鸣学
- nmsfan
- 帖子: 18958
- 注册时间: 2009-10-16 22:46
- 来自: finland
Re: 将 paste-img 改得更加 KISS
贴图哦
不知道有啥用
不知道有啥用
>>>>推Ubuntu 桌面培训~~<<<<
>>>>想加入/了解gimp汉化吗,点我吧~<<<<
——————————————————————
不推荐wubi,也不推荐你给别人推荐wubi…………
随心而为的感觉真好……
强推mayhem!!
强推ensiferum
>>>>想加入/了解gimp汉化吗,点我吧~<<<<
——————————————————————
不推荐wubi,也不推荐你给别人推荐wubi…………
随心而为的感觉真好……
强推mayhem!!
强推ensiferum
- Steve Jobs
- 帖子: 824
- 注册时间: 2011-04-28 12:27
Re: 将 paste-img 改得更加 KISS
nmsfan 写了:贴图哦
不知道有啥用
- photor
- 论坛版主
- 帖子: 11004
- 注册时间: 2008-04-26 12:41
- eexpress
- 帖子: 58428
- 注册时间: 2005-08-14 21:55
- 来自: 长沙