Skip to content

Instantly share code, notes, and snippets.

View kenoss's full-sized avatar

keno (Ken Okada) kenoss

39 followers · 50 following
View GitHub Profile
@kenoss
kenoss / gist:5583939
Created May 15, 2013 13:19
TeXで括弧の対応をとる, 上手くいかない例.
% -*- coding: euc-jp -*-
\documentclass[10pt,draft]{jsarticle}
%\usepackage{amsmath,amssymb}
%\usepackage{kmathmacro}
%\usepackage{etex}
%\usepackage{etoolbox}
\makeatletter
@kenoss
kenoss / gist:5601972
Created May 17, 2013 21:07
TeXで括弧の対応をとる, 取り敢えずは上手くいく例.
% -*- coding: utf-8 -*-
\documentclass[10pt,draft]{jsarticle}
%\usepackage{amsmath,amssymb}
%\usepackage{kmathmacro}
%\usepackage{etex}
%\usepackage{etoolbox}
\makeatletter
@kenoss
kenoss / gist:5602081
Created May 17, 2013 21:26
TeXで括弧の対応をとる, 上手くいく例.
% -*- coding: utf-8 -*-
\documentclass[10pt,draft]{jsarticle}
%\usepackage{amsmath,amssymb}
%\usepackage{kmathmacro}
%\usepackage{etex}
%\usepackage{etoolbox}
\makeatletter
@kenoss
kenoss / my-tex-imenu.el
Created July 13, 2013 20:35
TeXで階層imenu(適当)
; -*- coding: utf-8 -*-
;;; my-tex-imenu.el ---
;;; Commentary:
;;
;;; Code:
@kenoss
kenoss / diagmatrix.scm
Last active December 21, 2015 23:48
TeXで対角成分のみの行列を簡単に書く
; -*- coding: euc-jp -*-
; こういうコードを TeX で書きたい. (TeX に移植するので Lisp としては少し不自然.)
(use srfi-1)
(use srfi-11)
(use srfi-13)
(define (diagmatrix ufill lfill diagonals)
(define (dots? str)
@kenoss
kenoss / abbreviation.sty
Created August 30, 2013 18:33
\ideala とか. 要kmathmacro.sty
% -*- coding: euc-jp -*-
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% math abbreviation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\generatemacros@abbrevdef{ideal}{\@tmpa}{\noexpand\frk{\@tmpa}}
\addabbrev@ideal{p,q,a,b,c,d,m}
\generatemacros@abbrevdef{sh}{\@tmpa}{\noexpand\mathfont@sheaf{\@tmpa}}
@kenoss
kenoss / my-org-flexible-format.el
Created January 27, 2014 13:11
A small dirty trick to use more flexible format for `org-export-latex-hyperref-format'.
(defsubst my:advice-enabled-p (func class name)
"[internal] Return t (resp. nil) if advice NAME of FUNC is enabled (resp. disabled)."
(not (not (ad-advice-enabled (ad-find-advice func class name)))))
(defmacro my:with-advice (enable-or-disable func class name &rest body)
"[internal] Evaluate BODY with NAME enabled/disabled."
(declare (indent 4))
(let ((enabled
(pcase enable-or-disable
(`'enable t)
@kenoss
kenoss / gist:8985182
Last active August 29, 2015 13:56
If point is end of line, expand abbreviation. If not, go to the end of line.
typeset -A myabbrev
myabbrev=(
"DN" "&> /dev/null"
"L" "| $PAGER "
"G" "| grep "
"S" "| sed '_|_'"
"R" " rm "
"M" " mkdir "
"C" " cat "
"TX" " tar -xvzf "
@kenoss
kenoss / erfi-srfi-1-temporary.el
Created May 27, 2014 03:24
WIP SRFI-1 implementation
;;; erfi-srfi-1.el --- SRFI-1 -*- lexical-binding: t -*-
;; Copyright (C) 2014 Ken Okada
;; Author: Ken Okada <[email protected]>
;; Keywords: extensions, lisp
;; URL: https://github.com/kenoss/erfi
;; Package-Requires: ((emacs "24"))
;; Apache License, Version 2.0
@kenoss
kenoss / init-powerline.el
Created December 10, 2014 14:09
Powerline configuration with evil
;;; init-powerline.el --- conifg of powerline.el -*- coding: utf-8; lexical-binding: t -*-
;; Copyright (C) 2014 Ken Okada
;; Author: Ken Okada <[email protected]>
;; Apache License, Version 2.0
;;; Commentary: