y0d0gawaeuc11d y0d0gawaeuc11d

JSON

Automator のシェルスクリプトアクションで使えるサンプル集です。「アプリケーション」や「サービス」を作成するときにどうぞ。

	#!/bin/bash
	BG_RED=`tput setaf 1`
	BG_GREEN=`tput setaf 2`
	BOLD=`tput bold`
	RESET=`tput sgr0`

	EMACS='/Applications/Emacs.app'
	EMACS_CLIENT='/Applications/Emacs.app/Contents/MacOS/bin/emacsclient'

	DEFAULT_EVAL='(switch-to-buffer "scratch")'

	(make-variable-buffer-local
	(defvar sushi-bar--conveyor-belt ""))

	(make-variable-buffer-local
	(defvar sushi-bar--backup-mode-line-format nil))

	(defvar sushi-bar--updater-object nil)

	(defun sushi-bar--sushi-is-ready-p ()
	(eq (random 15) 1))

	<!-- Get NumLock on keypad to work on osx for G80-3494, Realforce and so on -->
	<!-- By https://groups.google.com/d/msg/osx-karabiner/-2ns5XVXXdQ/kDGIKVSztjwJ -->
	<item>
	<name>Map NumLock to OSX NumLock function</name>
	<identifier>private.pc_numlock_to_mac_numlock</identifier>
	<autogen>__KeyToKey__ KeyCode::KEYPAD_CLEAR, KeyCode::VK_IOHIKEYBOARD_TOGGLE_NUMLOCK</autogen>
	</item>

	(defun toggle-fullscreen ()
	"Toggle full screen"
	(interactive)
	(set-frame-parameter
	nil 'fullscreen
	(when (not (frame-parameter nil 'fullscreen)) 'fullboth)))