Skip to content

Instantly share code, notes, and snippets.

🐻
Cute!!

Kazuki Maeda kmaed

View GitHub Profile
@kmaed
kmaed / ocaml-4.06.0.ebuild
Created Dec 24, 2018
Ebuild for OCaml 4.06.0
View ocaml-4.06.0.ebuild
# A modified version of ocaml-4.05.0-r1.ebuild by Kazuki Maeda <kmaeda@kmaeda.net>
# I only bumped the version number and removed a patch.
# The original copyright information is shown below.
# Copyright 1999-2017 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
EAPI=7
inherit flag-o-matic eutils multilib toolchain-funcs
@kmaed
kmaed / satysfi-9999.ebuild
Last active Feb 22, 2019
Ebuild for SATySFi
View satysfi-9999.ebuild
# Copyright 2018-2019 Kazuki Maeda <kmaeda@kmaeda.net>
# Distributed under the terms of the GNU General Public License v2
EAPI=7
inherit git-r3
DESCRIPTION="A statically-typed, functional typesetting system"
HOMEPAGE="https://github.com/gfngfn/SATySFi"
LICENSE="LGPL-3"
@kmaed
kmaed / opam-9999.ebuild
Last active Feb 22, 2019
Ebuild for the latest opam
View opam-9999.ebuild
# A modified version of opam-1.3.1-r1.ebuild by Kazuki Maeda <kmaeda@kmaeda.net>
# The original copyright information is shown below.
# Copyright 1999-2017 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
EAPI=7
inherit git-r3
@kmaed
kmaed / asir-9999.ebuild
Last active Dec 25, 2018
Ebuild for Risa/Asir
View asir-9999.ebuild
# Copyright 2017-2018 Kazuki Maeda <kmaeda@kmaeda.net>
# Distributed under the terms of the Simplified BSD License
EAPI=6
inherit multilib
DESCRIPTION="Risa/Asir is an open source general computer algebra system."
HOMEPAGE="http://www.math.kobe-u.ac.jp/Asir/"
MY_P="openxm-head.tar.gz"
SRC_URI="http://air.s.kanazawa-u.ac.jp/ohara/openxm/${MY_P}"
@kmaed
kmaed / test-scantokens.tex
Created Jan 6, 2016
\scantokens の使い方
View test-scantokens.tex
%% 眠れないので書いた.etoolbox.sty を読むと勉強になるなあ(つらい).
%% まずは基本形で準備運動.
%% 一度保存された,パラメータ文字を含むトークン列を定義とする,
%% パラメータをとるマクロを定義したいとする.
\def\a{##2##1} % カテゴリコードが6である限り,# は二重にせざるをえない.
\expandafter\def\expandafter\b\expandafter#\expandafter1\expandafter#\expandafter2\expandafter{\a}
\show\b % #1#2->#2#1
%% これはひどい.\edef 使いましょうよ.
\edef\b{%
@kmaed
kmaed / etoolbox-mypatchcmd-test.tex
Created Jan 4, 2016
etoolbox のパッチ関係コマンドを自作のマクロ内に入れると……
View etoolbox-mypatchcmd-test.tex
\documentclass{minimal}
\usepackage[T1]{fontenc}
\usepackage{etoolbox}
\makeatletter
% パッチを当てて,失敗したときだけ定型のエラーメッセージを出したいとする.
% いちいち面倒なのでマクロ化する.
\newrobustcmd*{\mypatchcmdi}[3]{% 一見良さそうだが,実はダメ.
\patchcmd{#1}{#2}{#3}{}{\message{^^JError!: \string#1, #2, #3^^J}}}
@kmaed
kmaed / utf-tool-23-cjk.patch
Created Feb 24, 2013
Patch to utf-tool.el for >= emacs-23. Replace only CJK characters.
View utf-tool-23-cjk.patch
--- utf-tool.el.orig 2013-02-24 15:24:54.914062345 +0900
+++ utf-tool.el 2013-02-24 15:23:21.947814237 +0900
@@ -58,11 +58,13 @@
;; (charset-description charset)
;; (split (split-char char))
(pos (point))
- (unicode nil))
+ (unicode nil)
+ (cjk (string-match "CJK" (get-char-code-property char 'name))))
(unless
@kmaed
kmaed / utf-tool-23.patch
Last active Dec 13, 2015
Patch to utf-tool.el for >= emacs-23.
View utf-tool-23.patch
--- utf-tool.el.orig 2013-02-20 08:17:48.933065400 +0900
+++ utf-tool.el 2013-02-20 08:09:10.473884298 +0900
@@ -62,7 +62,7 @@
(unless
(memq charset '(ascii japanese-jisx0208 katakana-jisx0201))
(if (or (< char 256)
- (memq 'mule-utf-8 (find-coding-systems-region pos (1+ pos)))
+ (memq 'utf-8 (find-coding-systems-region pos (1+ pos)))
(get-char-property pos 'untranslated-utf-8))
(setq unicode (or (get-char-property pos 'untranslated-utf-8)
@kmaed
kmaed / shijo.pdf
Created Dec 16, 2012
TikZ で道路の通称名 (119-B),街路の名称 (107-B)
View shijo.pdf
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@kmaed
kmaed / letargswapped.tex
Created Oct 13, 2012
2012/10/13 の解答
View letargswapped.tex
\catcode`\@=11
\def\letargswapped#1#2{%
\edef\def@macroB{\def\noexpand#1####1####2{\expandafter\unexpanded\expandafter{#2{##2}{##1}}}}%
\def@macroB}
\catcode`\@=12
\def\Frac#1#2{{#1\over#2}}
\letargswapped\RFrac\Frac
$$\RFrac{13}{42}$$ %==>分数「13分の42」が出力される
\edef\hogeA#1#2{#1\string~#2\noexpand~}
\letargswapped\hogeB\hogeA
You can’t perform that action at this time.