header

2013年1月23日水曜日

Las Vegas一日観光の予定

Las Vegas一日観光の予定

アメリカに観光に行くのですが、行く所の予定を立てるために
よさそうと思った所をピックアップします。
主に自分と知人向けの記事
もしかしたらLas Vegasで観光する方の参考になるかもしれません。

ベラッジオの噴水ショー

平日は午後 3時、週末は土曜日が正午から、日曜日が午前11時からスタートし、いずれも深夜 12時で終了となり、インターバルは、時間帯によって異なるが、原則として 15分 と 30分おき。( 時刻表はこのページの最後に掲載 )

ベラッジオでシルクドソレイユのショー(オー)

チケット取るの大変かも
$93.50 水〜日の 19:30 & 22:00

トレジャーアイランドのセイレーン    free

海賊船でショーがある無料
17:30(冬期のみ), 19:00, 20:30, 22:00, 23:30(夏期のみ)

M&Msで名前入りチョコレート作る

9:00~24:00 ストリップ沿いMGMグランドの北となり
$19.99~29.99

MGMグランドのライオンの展示(The Lion Habitat) (閉鎖)

毎日 11:00~19:00 無料

ミラージュのホワイトタイガー    free

カジノ奥のシークレットガーデンでホワイトタイガーやイルカが見れる

ミラージュの火山噴火を見物    free

参考: http://www.odekake.us/la/colum/ashikari_iitomi/2007/mirage/article.htm
春…… 19 時から 24 時まで 1 時間毎
夏…… 20 時から 24 時まで 1 時間毎
冬…… 18 時から 24 時まで 1 時間毎

フォーラムショップス(ショッピングモール)の無料ショー    free

広場が2ヶ所あり
音と光のショーのフェスティバルファウンテン
水と炎を使ったアトランティスがある

ホテル フラミンゴでフラミンゴとペンギン    free

フラミンゴとペンギンを見る

エッフェル塔(パリスホテル)

ベラッジオの噴水もたのしめる

スカイジャンプ(ス卜ラトススフィアタワー)

ショッピングモールのsky jump shopで受付
260Mの高さからジャンプ
飛べなかった人は売店で”チキンTシャツ”が買える
日〜木 10:00~翌朝1:00 金.土 翌朝 2:00
$109.99 準備45分 ジャンプは数秒..

フリーモントストリート 光のショー    free

フリーモントストリート Flight Linez

アーケードをワイヤーで滑るショー

Las Vegas MOB エクスペリエンス(マフィア博物館)

トロピカーナ クラブタワー1階 $28

Shark Reef

水族館?
マンダレイベイ

ブルーマンのショー

$74.90 1時間30分 19:00

スパ

色々ある, 歩き疲れたら..
予約が必要?

Everything Coca-Cola

コーラのオフィシャル キャラクターショップ
コーラ様にはいつもお世話になってるのでいってみたい。

料理 Lagasse's Stadium

アメリカ南部の料理
魚介類やライスとか

アウトレットとかショッピングモール…

荷物増えるからいく必要ないかも
Las Vegas Premium Outlets North
Las Vegas Premium Outlets South


2013年1月17日木曜日

helmプログラミングのメモ

helmプログラミングのメモ

最近Helmのプログラミングをしていて、気になったことのメモ
option引数?キーワード引数?のようなものについての記事です。

helmの中をgrepしてみました。

helmパッケージの中を:sourceでgrepしてみました。
…使い方をよくわかってないですがリストアップしてみます。
scratchバッファに貼り付けて確認できるので
helmのコード書くときの参考程度に使っていただければと思います。
ちなみに、よくわかっていない設定についてや
便利な設定についてコメントいただければ非常によろこびます:)

(helm :sources
'(((name . "helm-test-code")
;; 候補
(candidates . (lambda ()
'("hoge hoge" nil "fuga hoge" "" "piyo")))
;; 複数行に対応
(multiline)
;; マッチワードをハイライトしない
(nohighlight)
(action . (lambda (arg)
(message arg)))
;; 何の遅延かよくわからない
(delayed)))
;; ここで指定した文字数以上入力しないと検索しない
:requires-pattern (if (string= helm-pattern "")
0
3)
;; 候補の限界
:candidate-numer-limit 50
;; 入力してからの遅延
:input-idle-delay 0.3
;; ミニバッファに表示される説明用の文字列
:prompt "displayed string to mini-buffer's prompt: "
;; バッファ名
:buffer "*helm buffer name*"
;; tにすると画面全体にhelmの候補を表示
:full-frame t
;; 実行前の検索ワードに入れる文字
;; 下のは実際のコードで利用されていた方法
;; minibufferには表示されない
;; :preselect (thing-at-point 'symbol)
;; preselectと同じような使い方が
;; できると思いますがminibufferの中に表示される
;; のが大きな違いでしょうか
;; :input (when t "input string")
;; minubuffer のヒストリーのデフォルトに入ります。
;; (M-p, M-nで確認できます)
:default "minubufferのヒストリーのデフォルトに入る"
;; 確認してないけど多分helmのキーマップ
;; :keymap helm-map

;; helm-candidates-in-bufferの説明:
;; Get candidates from the candidates buffer according to `helm-pattern'.
;; By default, `helm' makes candidates by evaluating the
;; candidates function, then narrows them by `string-match' for each
;; candidate.
;; But this way is very slow for many candidates.
;; The new way is storing all candidates in a buffer and narrowing them by
;; `re-search-forward'.
;; Search function is customizable by search
;; attribute. The important point is that buffer processing is MUCH
;; FASTER than string list processing and is the Emacs way.
;; 適当な訳: `helm-pattern'に従いcandidates bufferから候補を取得する
;; デフォルトでhelmはcandidates関数を実行することによって候補を作る。
;; その時これらの個々の候補を`string-match'によって絞るがこれはとても遅い。
;; 新しい方法は全ての候補を`re-search-forward'によってbufferの中で
;; 記憶し候補を絞る。
;; 検索関数はsearch属性によってカスタマイズされる
;; 重要な点はそのbufferの中の処理は文字列のリスト処理よりかなり速いことだ
;; 訳終わり、、、とりあえずtにしとけばOKと思います。
:candidates-in-buffer t
)

2013年1月12日土曜日

Emacsのプログラミングする上でのTipsというか自分のメモ

Emacsのプログラミングする上でのtips

私のメモ的な要素が多分に含まれています。。。

今いるディレクトリから特定のファイルのあるディレクトリを探す

特定の設定ファイルが存在するディレクトリの中にいるのか
探すときなどに、、、

(locate-dominating-file default-directory ".gitignore")

文字列のリストの連結

(mapconcat 'identity '("one" "two" "three") " ")
;; -> "one two three"

listからnilや特定のものを削除

delqの第一引数を変えることで変更できます。

(delq nil '(hoge nil fuga nil piyo))
;; -> '(hoge fuga piyo)

文字に色つけ

put-text-propertyの部分を適当に抜き出して使ってください

(let ((string "hoge"))
(put-text-property 0 1 'face
'font-lock-function-name-face string)
(message string))

モードライン

適当に順番を変えたりしてください

(setq-default mode-line-format
'((line-number-mode "L%l/")
(column-number-mode "C%c-")
mode-line-buffer-identification
;; 中でS式を毎回評価するとき
(:eval (when t
"例えば未読mailの件数とか"))
display-time-string
mode-line-mule-info
mode-line-modified
" %[("
mode-name
(which-func-mode ("" which-func-format "-"))
mode-line-process
minor-mode-alist
"%n" ")%]-"
(-3 . "%p")
"-%-"))

文字のアニメーション

お気に入り、実行するのはscratch buffer推奨

(animate-string "hoge" 0 0)

C-uを押すか押さないかで動作を変える

(defun test ()
(interactive)
(if current-prefix-arg
(message "arg有り")
(message "arg無し")))

Helmのプログラミング

あまり詳しくないですがcandidatesの部分を自分のほしい候補にしたり
アクションの部分を変更することでプログラミングします。
以下は私がhelmでshellヒストリーを表示するからもってきたやつです。
candidatesのstart-processにしているのは非同期で候補を表示するためにこのようにしました。

(defvar helm-shell-history-file "~/.zsh_history")
(defvar helm-shell-history-command
'(lambda (pattern)
(concat "\\tac " helm-shell-history-file " | "
"\\grep -e \"" pattern "\" | "
"\\sed 's/^: [0-9]*:[0-9];//'")))

(defun helm-shell-history ()
(interactive)
(helm :sources
`(((name . "shell-history")
(candidates . (lambda ()
(start-process "history" nil "/bin/sh" "-c"
(funcall helm-shell-history-command
helm-pattern))))
(candidate-number-limit . 500)
(multiline)
(nohighlight)
(action . (lambda (line)
(term-send-raw-string line)))
(requires-pattern . 3)
(delayed)))
:buffer "*helm shell history*"))

マジックコメント

ファイルの一行目に追加する。
codingはコーディングシステムの指定、
lexical-bindingはEmacs24から使えるようになったらしいです。
自作packageに追加したらバイトコンパイル時にwarningが出たので自分は使ってないです。
ちなみにRubyでshabang行を書く場合この設定は2行目でいいようです。

;;; -*- coding: utf-8 lexical-binding: t mode: emacs-lisp -*-

自作パッケージをMELPAに登録する時

Emacs24の場合デフォルトでlist-packagesコマンドから色々なパッケージをダウンロードできますがコメントで書いておくと便利なことやMELPAに登録する時に必須となるものもあるので書いてみます。
Package-Requires:の部分は依存しているパッケージを一緒にダウンロードしてくれます。数字の20120529とかの部分はpackage-listコマンドで見た時のバージョンを指定します。
;;;###autoloadをinteractiveな関数の上に書くとその関数はautoloadを
しなくてもglobal-set-keyなどで登録するだけで使用できます。
以下はpackage名がpackage-name.elだった場合の例

;;; -*- coding: utf-8 -*-
;;; package-name.el --- write short description for package-name.el

;; Copyright (C) 2012 by your name

;; Author: your name <your mail address>
;; URL: https://github.com/example/example
;; Version: 1.0.0
;; Package-Requires: ((popwin "20120529") (popup "20120331"))
;; Keywords: example

;;; License:
;; foo bar

;;; Code:

;;;###autoload
(defun test ()
(interactive)
(message "test"))

(provide 'package-name)

;;; package-name.el ends here

いきなり終わり

ネタが切れました!
ネタが増えたら追加する予定です。


Popular Posts

Blogger templates

Blogger news