tell application "Finder"
set displayBounds to bounds of window of desktop
end tell
set winBounds to bounds of window 1 of application "iTunes"
set item 2 of displayBounds to 22
set bounds of window 1 of application "iTunes" to displayBounds
#!/bin/bash
if [ $# -ne 2 ]; then
echo "extractaudio [input] [output]"
exit 1
fi
ffmpeg -i "${1}" -acodec copy "${2}"
#!/bin/bash
if [ $# -ne 2 ]; then
echo "${0} [input] [output]"
exit 1
fi
ffmpeg -i "${1}" -vn -acodec libfaac -ac 2 -ar 44100 -ab 128k "${2}"
周辺ソフトウエアもとりあえずビルドは通りました。アイコンを設定したくらいしか変更は入れてないませんけどね。ソースコードを整理してBSch3Vのコマンドキーで選択が解除される問題の解決版と一緒にリリースしたいと思います。void ApplicationWindow::keyPressEvent ( QKeyEvent * e )
{
switch(e->key()){
case Qt::Key_S:
ToolSelector();
break;
default:
break;
}
}
ちょっと整理が必要ですね。(setq load-path (append load-path "~/Documents/Emacs/lisp/"))
;; for cocoa emacs
(when (>= emacs-major-version 23)
(if (eq window-system 'ns)
(setq default-input-method "MacOSX"))
(define-key global-map [ns-drag-file] 'ns-find-file)
)
(if (eq window-system 'w32)
(setq default-frame-alist
(append (list
'(alpha . (100 80))
'(font . "ＭＳ ゴシック")
) default-frame-alist))
)
(if (eq window-system 'ns) ; for Cocoa Emacs (progn (tool-bar-mode t) (setq initial-frame-alist (append (list '(top . 200) '(left . 300) ) initial-frame-alist)) (setq default-frame-alist (append (list '(alpha . (100 80)) ) default-frame-alist)) ) )
;; misc
(require 'jaspace) ; 全角スペースを表示
(require 'redo+) ; redo
(setq inhibit-startup-message t) ; うるさい
(display-time-mode 1) ;; show time
;(display-battery-mode 1) ;; show battery
;; Backup files
(setq make-backup-files t)
(setq backup-directory-alist
(cons (cons "\\.*$" (expand-file-name "~/Documents/Emacs/Backups"))
backup-directory-alist))
;; Font Setting
(if (eq window-system 'w32) ;; for NTEmacs
(progn
(set-default-font "ＭＳ ゴシック")
))
(when (= emacs-major-version 22) ;; for carbon emacs
(if (eq window-system 'mac)
(progn
(require 'carbon-font)
(fixed-width-set-fontset "hirakaku_w3" 12))))
(when (>= emacs-major-version 23) ;; for cocoa emacs
(if (eq window-system 'ns)
(progn
(setq fixed-width-use-QuickDraw-for-ascii t)
(setq mac-allow-anti-aliasing t)
(set-face-attribute 'default nil
:family "monaco"
:height 120)
(set-fontset-font
(frame-parameter nil 'font)
'japanese-jisx0208
'("Hiragino Kaku Gothic Pro" . "iso10646-1"))
(set-fontset-font
(frame-parameter nil 'font)
'japanese-jisx0212
'("Hiragino Kaku Gothic Pro" . "iso10646-1"))
;;; Unicode フォント
(set-fontset-font
(frame-parameter nil 'font)
'mule-unicode-0100-24ff
'("monaco" . "iso10646-1"))
;;; キリル，ギリシア文字設定
;;; 注意： この設定だけでは古代ギリシア文字、コプト文字は表示できない
;;; http://socrates.berkeley.edu/~pinax/greekkeys/NAUdownload.html が必要
;;; キリル文字
(set-fontset-font
(frame-parameter nil 'font)
'cyrillic-iso8859-5
'("monaco" . "iso10646-1"))
;;; ギリシア文字
(set-fontset-font
(frame-parameter nil 'font)
'greek-iso8859-7
'("monaco" . "iso10646-1"))
(setq face-font-rescale-alist
'(("^-apple-hiragino.*" . 1.2)
(".*osaka-bold.*" . 1.2)
(".*osaka-medium.*" . 1.2)
(".*courier-bold-.*-mac-roman" . 1.0)
(".*monaco cy-bold-.*-mac-cyrillic" . 0.9)
(".*monaco-bold-.*-mac-roman" . 0.9)
("-cdac$" . 1.3))))))
;; Font Configuration -- ここまで
;;Auto Complete
(require 'auto-complete)
(when (>= emacs-major-version 23)
(require 'auto-complete-extension)
(define-key ac-complete-mode-map "\C-n" 'ac-next)
(define-key ac-complete-mode-map "\C-p" 'ac-previous)
(global-auto-complete-mode t)
)
;(setq TeX-default-mode 'japanese-latex-mode)
(if window-system (server-start))
;; Yatex Support
(setq auto-mode-alist
(cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
;; octave
(autoload 'octave-mode "octave-mod" nil t)
(setq auto-mode-alist
(cons '("¥¥.m$" . octave-mode) auto-mode-alist))
(add-hook 'octave-mode-hook
(lambda ()
(abbrev-mode 1)
(auto-fill-mode 1)
(if (eq window-system 'x)
(font-lock-mode 1))))
;; Indent
;(setq c-auto-newline t)
(setq c-default-style
'((java-mode . "java") (other . "cc-mode")))
;; Gauche
(modify-coding-system-alist 'process "gosh" '(utf-8 . utf-8))
(setq scheme-program-name "gosh -i")
(autoload 'scheme-mode "cmuscheme" "Major mode for Scheme." t)
(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)
(defun scheme-other-window ()
"Run scheme on other window"
(interactive)
(switch-to-buffer-other-window
(get-buffer-create "*scheme*"))
(run-scheme scheme-program-name))
(define-key global-map
"\C-cs" 'scheme-other-window)
