konn

property dvipdfmx : "/Applications/UpTeX.app/teTeX/bin/dvipdfmx"

on split(s, targ)
	set oldDelims to AppleScript's text item delimiters
	set AppleScript's text item delimiters to s
	set theList to every text item of targ
	set AppleScript's text item delimiters to oldDelims
	return theList
end split

konn

property arxivPrefixes : {"http://www.arxiv.org/", "http://arxiv.org/", "https://www.arxiv.org/", "https://arxiv.org/"}

on run
	tell application "Safari"
		set theURL to URL of the first document as string
	end tell
	set pathComps to split("/", nthElement(arxivPrefixes, 2, theURL))
	set c to count of pathComps
	main(join("/", items 2 thru c of pathComps))
end run

konn

\documentclass[xelatex,a4j,jadriver=standard]{bxjsarticle}
\usepackage[hiragino]{zxjafont}
\usepackage{tikz}
\usepackage{zref}


\makeatletter
\zref@newlist{knmm}
\zref@newprop{knmm@mm}[0]{0}
\zref@addprop{knmm}{knmm@mm}

konn

%! xelatex
\documentclass[a4paper]{article}
\usepackage{fontspec}
\setmainfont{Latin Modern Roman}
\begin{document}
first impression.
\end{document}

konn

\newcount\kn@timekeeper@min
\kn@timekeeper@min=0

\newcount\kn@timekeeper@hour
\kn@timekeeper@hour=0

\newcount\kn@timekeeper@prvhr
\newcount\kn@timekeeper@prvmin

\def\kn@timekeeper@padtwo#1{\ifnum #1<10 0\fi \the#1\relax}

konn

\usepackage{amsmath,amssymb}
\usepackage{cases}
\usepackage{extarrows}
\usepackage{bussproofs}
\usepackage{cases}
\usepackage{braket}
\usepackage{tikz}
\usepackage{datetime}
\usepackage[scr]{rsfso}
%\usepackage{mathrsfs}

konn

// ==UserScript==
// @name         Consequences of the Axiom of Choice Link Rewriter
// @namespace    http://your.homepage/
// @version      0.1
// @description  Rewrite Con. AC project link
// @author       Hiromi ISHII
// @match        http://www.math.purdue.edu/~hrubin/*
// @require      https://code.jquery.com/jquery-2.1.4.min.js
// @grant        none
// ==/UserScript==

konn

{-# LANGUAGE DeriveGeneric, FlexibleInstances, GeneralizedNewtypeDeriving #-}
{-# LANGUAGE MultiParamTypeClasses, NoMonomorphismRestriction             #-}
{-# LANGUAGE OverloadedStrings, PatternGuards, RecordWildCards            #-}
{-# LANGUAGE TypeFamilies, ViewPatterns                                   #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Main where
import Control.Lens  (ifoldlM, iforM_, imap, imapM, ix, (^?))
import Data.Char     (digitToInt, intToDigit, isDigit)
import Data.Foldable (foldlM, foldrM)
import Data.Maybe    (catMaybes, mapMaybe)

konn

(add-to-list 'exec-path (expand-file-name "~/.local/bin"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/elpa"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/elpa/haskell-mode-13.14.2"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/elpa/ghc-5.3.0.0"))

(load "haskell-mode-autoloads")
(autoload 'ghc-init "ghc" nil t)
(autoload 'ghc-debug "ghc" nil t)
(add-hook 'haskell-mode-hook (lambda () (ghc-init)))

konn

repeat with i from 1 to 65
	delay 1.5
	log i
	tell application "Adobe Illustrator"
		ignoring application responses
			open "/Path/to/pdf"
		end ignoring
		activate
	end tell