Skip to content

Instantly share code, notes, and snippets.

@karronoli
karronoli / mycapture.sh
Last active March 31, 2016 15:55
My capture test
while [ 1 ]; do
sleep 100
NUMBER_OF_USERS=`w -h | wc -l`
if [ $NUMBER_OF_USERS -gt 0 ]; then
continue;
fi
date
(ffmpeg -y -nostats -loglevel 0 \
@karronoli
karronoli / PKGBUILD
Last active July 8, 2016 11:01
Google Hangouts plugin for Arch Linux
pkgname=google-hangouts-plugin
pkgver=5.41.0.0
pkgrel=1
pkgdesc="Video chat browsers plug-in for Google Hangouts"
url="https://hangouts.google.com/"
license=("custom:google")
arch=(x86_64)
source=(https://dl.google.com/linux/direct/google-talkplugin_current_amd64.deb
license.html::https://www.google.com/intl/en/policies/terms/index.html)
sha1sums=('1c3cc0411444587b56178de4868eb5d0ff742ec0'
@karronoli
karronoli / app.d
Created February 11, 2016 08:36
XPath runner
// Written in the D programming language
import std.stdio;
import std.file;
import kxml.xml;
void main(string[] argv)
{
if (argv.length != 3)
throw new Exception("bad argument. 1st: path, 2nd: xpath");
@karronoli
karronoli / PKGBUILD
Created November 11, 2015 15:29
PKGBUILD for zeal
# Maintainer:
pkgname=zeal
epoch=1
pkgver=0.2.0
pkgrel=1
pkgdesc='Simple offline API documentation browser'
arch=(x86_64 i686)
url='https://zealdocs.org/'
license=('GPL')
@karronoli
karronoli / dummy.sh
Created November 9, 2015 05:25
Install snippet for skk-jisyo
mkdir /tmp/skk-jisyo \
&& cd /tmp/skk-jisyo \
&& wget --no-check-certificate -O PKGBUILD "https://projects.archlinux.org/svntogit/community.git/plain/trunk/PKGBUILD?h=packages/skk-jisyo" \
&& wget --no-check-certificate -O skk-jisyo.install "https://projects.archlinux.org/svntogit/community.git/plain/trunk/skk-jisyo.install?h=packages/skk-jisyo" \
&& makepkg \
&& pacman -U skk-jisyo-*-any.pkg.tar.xz
@karronoli
karronoli / PKGBUILD
Last active October 16, 2015 10:08
PKGBUILD for word viewer
# Maintainer: Somebody <somebody[at]foo[dot]tld>
pkgname=wordviewer-wine
pkgver=1
pkgrel=1
pkgdesc="View, print and copy Word documents, even if you don't have Word installed."
url="http://www.microsoft.com/ja-JP/download/details.aspx?id=4"
arch=('any')
license=('custom')
depends=('wine')
optdepends=()
@karronoli
karronoli / dummy.el
Last active October 16, 2015 09:56
Get rectangle or normal region.
(defun get-region-string ()
"Get rectangle or normal region."
(unless (use-region-p) (mark-paragraph))
(if rectangle-mark-mode
(mapconcat
(lambda (str) (set-text-properties 0 (length str) nil str) str)
(extract-rectangle (region-beginning) (region-end)) "\n")
(buffer-substring-no-properties (region-beginning) (region-end))))
@karronoli
karronoli / hid_listup.pl
Last active October 4, 2015 17:58
HID listup test
use strict;
use warnings;
use utf8;
use Data::Dumper;
use Win32::API;
Win32::API::Struct->typedef( GUID => qw{
DWORD Data1;
DWORD Data2;
@karronoli
karronoli / choco_uninstall_old_package.bat
Last active October 1, 2015 16:22
chocolatey uninstall a old package.
choco feature disable -n autoUninstaller
choco list -la | perl -nlae "push @{$P{lc $F[0]}}, $F[1] if ($F[0] !~ /^choco/i && $F[1] =~ /\d/); END { @cmd = map { [(qw(choco uninstall --remove-dependencies -y), $_, q(--version), @{[sort @{$P{$_}}]}[0])] } grep { @{$P{$_}} > 1 } sort keys %P; do {print q(starting... ), join q( ), @$_; sleep 5; print q(start.); system @$_ } for @cmd ;} "
@karronoli
karronoli / dummy.el
Created September 28, 2015 03:19
Save translated text on google-translate.el
(advice-add 'google-translate-paragraph :before
(lambda (text face &optional output-format)
"Save translated text."
(when (equal 'google-translate-translation-face face)
(kill-new text nil))))