Skip to content

Instantly share code, notes, and snippets.

View kaz-utashiro's full-sized avatar

Kazumasa Utashiro kaz-utashiro

31 followers · 16 following
View GitHub Profile
@kaz-utashiro
kaz-utashiro / 荷物札印刷.gs
Last active August 25, 2023 01:20
Google Spread Sheet から Document を自動生成するスクリプト
function onOpen() {
var spreadsheet = SpreadsheetApp.getActiveSpreadsheet();
var menuEntries = [ {name: "印刷用ドキュメント作成", functionName: "createDoc"} ];
spreadsheet.addMenu("カスタムメニュー", menuEntries);
}
const removeFirstEmptyParagraph = (body) => {
const firstParagraph = body.getParagraphs()[0];
if (firstParagraph.getText() === '') {
firstParagraph.removeFromParent();
@kaz-utashiro
kaz-utashiro / sl.c
Last active June 4, 2023 01:14
sl.c 2023 version
#include <unistd.h>
#include <string.h>
#include <stdio.h>
#include <term.h>
void mvprintw(int y, int x, const char* fmt, const char* str) {
tputs(tparm(tgoto(cursor_address, x, y)), 1, putchar);
printf(fmt, str);
}
char *sl[] = {
" o o o o",
@kaz-utashiro
kaz-utashiro / auto-follow-mode.el
Last active May 28, 2023 03:43
ウィンドウを分割すると follow-mode にして行番号を表示する
(defun activate-follow-mode (&optional window)
(follow-mode t)
(display-line-numbers-mode t))
(advice-add 'split-window-right :after 'activate-follow-mode)
(defun deactivate-follow-mode (&optional window del-all)
(when (= 1 (length (window-list)))
(follow-mode -1)
(display-line-numbers-mode -1)))
(dolist (cmd '(delete-window
@kaz-utashiro
kaz-utashiro / .cdifrc
Last active September 16, 2020 19:14
Word や PowerPoint のファイルを grep したり diff したりする ref: https://qiita.com/kaz-utashiro/items/30594c16ed6d931324f9
option default --mecab
@kaz-utashiro
kaz-utashiro / file0.txt
Last active November 18, 2019 03:19
Perl で子プロセスが入力を読めない問題 ref: https://qiita.com/kaz-utashiro/items/80fc83e56e645f19e927
$_ = do { local $/; <> };
if (open(CHLD, '|-') == 0) {
print <>;
exit;
}
print CHLD $_;
@kaz-utashiro
kaz-utashiro / temp var declaration
Last active March 12, 2019 09:35
1行しか必要でない変数をどうやって宣言するかという話。カッコいい書き方はないものだろうか。
## なんとなく嫌だ
my %seen;
@opt_icode = grep { not $seen{$_}++ } @opt_icode;
## ダサい
{
my %seen;
@opt_icode = grep { not $seen{$_}++ } @opt_icode;
}
@kaz-utashiro
kaz-utashiro / miyako-shukuhaku.js
Created March 12, 2019 04:59
宮古島トライアスロン宿泊先登録用ブックマークレット
javascript: {
const info = new Map([
[ 'HNAME', 'ホテルサザンコースト宮古島' ],
[ 'HTEL', '0980-75-3335' ],
[ 'ARRDATEY', '2019' ],
[ 'ARRDATEM', '4' ],
[ 'ARRDATED', '12' ],
[ 'DPTDATEY', '2019' ],
[ 'DPTDATEM', '4' ],
[ 'DPTDATED', '16' ]
@kaz-utashiro
kaz-utashiro / sl.c 2010 version
Last active October 17, 2018 10:47
#include <unistd.h>
#include <curses.h>
char *sl[] = {
" o o o",
" o ",
" o ____ ",
" -- |OO| ",
" _||__| | ",
" | | ",
@kaz-utashiro
kaz-utashiro / App::Greple::diff.pm
Last active March 27, 2018 01:13
Greple command module for colorise diff output.
package App::Greple::diff;
1;
=head1 NAME
diff - greple module for diff command output
=head1 SYNOPSIS
@kaz-utashiro
kaz-utashiro / very-simple-battle-monster.pl
Last active January 3, 2016 06:09
中学生の息子に、ゲームプログラムはどうやって作るんだと訊かれた。俺もやったことないからわからないから、じゃあ作ってみるかと一緒に10分程で作ってみたプログラム。最初は乱数を発生して上か下かを選ぶプログラムだったんけど、わかりにくいようだったので対戦形式にしてみた。
#!/usr/bin/perl -CSD
use strict;
use warnings;
use utf8;
my %モンスター = (
0 => "ゼクロム",
1 => "ワンリキー",
2 => "ニョロモ",