Skip to content

Instantly share code, notes, and snippets.

View aminophen's full-sized avatar
☃️
☃️⛄️🍣🦆🐦🤯🤮😱🤔🙃

Hironobu Yamashita aminophen

☃️
☃️⛄️🍣🦆🐦🤯🤮😱🤔🙃
View GitHub Profile
@zr-tex8r
zr-tex8r / bxoldfontcmd.sty
Last active July 21, 2016 13:00
LaTeX: Much ado about the old font commands
% bxoldfontcmd.sty
%% package declaration
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{bxoldfontcmd}
\def\bxof@pkgname{bxoldfontcmd}
%% code guards
\@onlypreamble\bxof@restore@codes
\edef\bxof@restore@codes{%
\catcode33=\the\catcode33%
@zr-tex8r
zr-tex8r / slashify.lua
Created June 3, 2017 05:52
Lua: CP932の文字列で ’\’→’/’ の変換を行う
-- 文字コードはCP932
function slashify(str)
return (tostring(str):gsub("[\x81-\x9f\xe0-\xfc]?.", { ["\\"] = "/" }))
end
print(slashify([[ふが\ほげ/予定表\アレ/コレ\ソレ]]))
-- ふが/ほげ/予定表/アレ/コレ/ソレ
@zr-tex8r
zr-tex8r / basename.lua
Created June 3, 2017 05:29
Lua: CP932なWindowsでbasename
-- 文字コードはCP932
function basename(path)
if type(path) ~= "string" or not lfs.isfile(path) then
return path -- 引数が不適切
end
local k, cs = 0, path:gsub("/", "\\"):explode("\\")
for i = 1, #cs - 1 do
local d = table.concat({ table.unpack(cs, 1, i) }, "\\")
if lfs.isdir(d) then k = i end
@zr-tex8r
zr-tex8r / fixfixjfm.sty
Created September 19, 2017 00:14
TeX: fixjfm的なアレ
% fixjfm.sty
% Copyright 2017 Yue ZHANG
% License: Knuth License (https://ctan.org/license/knuth)
\csname ENDINPUTFIXJFMDOTSTY\endcsname
\let\ENDINPUTFIXJFMDOTSTY=\endinput
@h-kitagawa
h-kitagawa / atbegshi_tate.tex
Created September 2, 2017 21:11
atbegshi.sty + 縦組クラス
\documentclass{tarticle}
\usepackage[word]{continue}% これは atbegshi 依存
\usepackage{etoolbox}
\makeatletter
\patchcmd{\AtBegShi@Output}%
{\let\AtBegShi@OrgProtect\protect}%
{\setbox\z@\hbox\bgroup\yoko\let\AtBegShi@OrgProtect\protect}%
{}{}
@zr-tex8r
zr-tex8r / test-zrjapunct1.tex
Created November 24, 2017 12:33
LaTeX: 和文を欧文扱いして和文扱いする件
% upLaTeX文書; 文字コードはUTF-8
\documentclass[uplatex,a5paper]{utarticle}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{lmodern}
\usepackage{otf}% <?>で自動空白挿入
\usepackage[prefercjkvar]{pxcjkcat}
\usepackage{zrjapunct1}
\cjkcategory{latn1}{noncjk}% <é>は欧文
\begin{document}
@zr-tex8r
zr-tex8r / README.md
Last active March 26, 2018 12:01
LaTeX: シフトJISの半角カナを“直接出力”するアレなやつ

記事: inputenc しないアレなやつの話

  • 文書ファイル shiftjis.tex をUTF-8からShift_JISに変換する

  • 入力・内部の漢字コードがsjisのplatexでコンパイルする

    platex -kanji=sjis -kanji-internal=sjis shiftjis
    

   ↑ここで -kanji-internal を使うのもアレだけど、元々バッドなので……。

@zr-tex8r
zr-tex8r / test-dvips-cropbox.tex
Created April 12, 2018 00:23
LaTeX: dvipsでPDFを作る際にナントカBoxのサイズを指定する
% LaTeX + dvips
\documentclass[a4paper]{article}
\textwidth=250bp \oddsidemargin=-1in \evensidemargin=-1in
\textheight=250bp \topmargin=-1in \headheight=0pt \headsep=0pt
\AtBeginDvi{%
\special{papersize=250bp 250bp}%
\special{ps:SDict begin
[ /CropBox [0 0 200 200] /PAGE pdfmark
[ /BleedBox [0 0 150 150] /PAGE pdfmark
[ /TrimBox [0 0 100 100] /PAGE pdfmark
@h-kitagawa
h-kitagawa / platex84.tex
Created June 12, 2019 04:58
platex/#84 に対する修正実験
\documentclass{minimal}
\makeatletter
\ifdefined\kanjiskip
\unless\ifdefined\ucs % (e-)pTeX only
%%%% EUC-JP が内部漢字コードであることを想定
\begingroup
\catcode`\"=12
\catcode`\<=12
\catcode`\.=12
@zr-tex8r
zr-tex8r / bxpgfcurpage.sty
Last active September 1, 2019 11:35
LaTeX:とにかくTikZでcurrent pageしたいときに使うやつ
%%
%% This is file 'bxpgfcurpage.sty'.
%%
%% Copyright (c) 2019 Takayuki YATO (aka. "ZR")
%% GitHub: https://github.com/zr-tex8r
%% Twitter: @zr_tex8r
%%
%% This package is distributed under the MIT License.
%%