当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 6 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 将 paste-img 改得更加 KISS
帖子发表于 : 2010-10-07 14:42 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
决定增强原有的cli版本。剥离gui作为外壳。以后增加rc配置。
http://code.google.com/p/paste-img/


附件:
文件注释: cli增强版本
pi.pl.tar.xz [1.91 KiB]
被下载 32 次
文件注释: 参数和操作说明
Screenshot-1.png
Screenshot-1.png [ 170.37 KiB | 被浏览 853 次 ]

文件注释: ccsm的super+鼠标设置:截图+贴图
screenshot1.png
screenshot1.png [ 199.79 KiB | 被浏览 864 次 ]



_________________
● 鸣学
页首
 用户资料  
 
2 楼 
 文章标题 : Re: 将 paste-img 改得更加 KISS
帖子发表于 : 2010-10-07 14:50 
头像

注册: 2010-06-09 19:57
帖子: 1211
送出感谢: 2
接收感谢: 9
传说的沙发?? :em11


_________________
听歌


页首
 用户资料  
 
3 楼 
 文章标题 : Re: 将 paste-img 改得更加 KISS
帖子发表于 : 2010-10-07 14:51 
头像

注册: 2007-05-06 2:46
帖子: 15634
送出感谢: 0 次
接收感谢: 2
不太 KISS


附件:
kiss.png
kiss.png [ 201.93 KiB | 被浏览 859 次 ]



_________________
وإذا كان هذا لا يحصل أكثر من 100 ملاحظات ، انا ذاهب الى غضب
页首
 用户资料  
 
4 楼 
 文章标题 : Re: 将 paste-img 改得更加 KISS
帖子发表于 : 2010-10-09 13:00 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
简化的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,"$_");
}


_________________
● 鸣学


页首
 用户资料  
 
5 楼 
 文章标题 : Re: 将 paste-img 改得更加 KISS
帖子发表于 : 2010-10-09 13:07 
头像

注册: 2008-03-25 15:49
帖子: 25877
地址: 谁知道?
送出感谢: 8
接收感谢: 10
传说中的二沙发


页首
 用户资料  
 
6 楼 
 文章标题 : Re: 将 paste-img 改得更加 KISS
帖子发表于 : 2010-10-09 21:43 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
增强CLI版本+简化GUI版本
支持拖放图片到Image和Filechooserbutton
带notify提示和自动复制url到剪贴板。


附件:
paste_img_KISS.tar.xz [23.5 KiB]
被下载 31 次


_________________
● 鸣学
页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 6 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 3 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译