--
    --.--

    スポンサーサイト

    上記の広告は1ヶ月以上更新のないブログに表示されています。
    新しい記事を書く事で広告が消せます。

    このエントリーをはてなブックマークに追加
    2013
    05.14

    AppleScriptHTMLで外部CSSを適用してみた(1)

    AppleScriptHTMLのおかげでスクリプトをそれっぽく表示できるようになりました。

    ただ、どうせならちょっと自分好みの設定にしてみたい。
    その設定を毎回するのも面倒くさい。
    毎回CSSを貼り付けるより、外部にCSSファイルを1つ作っておいてそれを参照するようにしたい…


    ということで、CSSド素人(仕組みどころか「CSSって何?」というレベル)の私が
    「自分好みに表示を変更」「外部CSSに設定」に挑戦してみました。
    何事も経験ということで、見よう見まねでやっつけ仕事(^-^;

    下に表示しているのが、外部CSSでちょっと見栄えを変えたものです。
    ちなみに変更前のCSS内蔵のものはコチラ
    どのような設定をしたのかは、次回の「外部CSSを適用してみた(2) 操作編」をご覧下さい。
    (*
    再帰処理ですべてのサブフォルダのパスをリストとして出力するハンドラ。
    処理するフォルダ=mifold
    再帰処理の関係でメインフォルダをリストに加える処理は入れておけないので
    こんな感じで前処理しておく。
    set aFolderList to {}
    set end of aFolderList to mifold as alias
    AllFolderListRecursive(mifold, aFolderList) of me
    *)

    on AllFolderListRecursive(mifold, aFolderList)
    tell application "Finder"

    --mifoldの中にあるフォルダをfoldlistにリスト化し、aFolderListに追加
    try
    set foldlist to {}
    set foldlist to every folder of mifold as alias list
    repeat with aFold in foldlist
    set the end of aFolderList to aFold
    end repeat
    end try

    --foldlist内のフォルダそれぞれについて、その中にフォルダがあれば再帰処理(=同じハンドラに再度渡して同じ処理をさせ、サブフォルダの情報をaFolderListに加え続ける)

    repeat with aFold in foldlist
    if (count folder of aFold) > 0 then
    AllFolderListRecursive(aFold, aFolderList) of me
    end if
    end repeat

    --aFolderListが出来上がったら出力
    return aFolderList
    end tell
    end AllFolderListRecursive
    関連記事

    このエントリーをはてなブックマークに追加
    トラックバックURL
    http://w6o6n.blog.fc2.com/tb.php/22-a243c60c
    トラックバック
    コメント
    管理者にだけ表示を許可する
     
    上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。