【フォルダカスタマイズ】今日の日付のフォルダの作成 フォルダ選択 合字版

【フォルダカスタマイズ】今日の日付のフォルダの作成　フォルダ選択　合字版

NOTE記事一覧ですnote.com

　

---

【Safari・FireFox用Script Editorで開く】 |

デスクトップに今日の日付のフォルダ合字版.scpt.scpt

	ソース
001	#!/usr/bin/env osascript
002	#coding: utf-8
003	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7--
004	(*
005
006	デスクトップに今日の日付のフォルダを作ります
007
008	月と日の合字文字が入ります
009	色はカスタマイズしてください
010
011	v1 初回作成
012	v1.1 色指定部分の誤りを訂正
013	v1.2 パスのエスケープを処理するようにした
014	v1.2 コマンドラインツール未インストールでもエラーにならないようにした
015
016
017	com.cocolog-nifty.quicktimer.icefloe *)
018	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7--
019	use AppleScript version "2.8"
020	use framework "Foundation"
021	use framework "AppKit"
022	use scripting additions
023
024	property refMe : a reference to current application
025
026	#辞書
027	set recordWeekDayColor to {|日|:"レッド", |月|:"グレイ", |火|:"カラーなし", |水|:"グリーン", |木|:"カラーなし", |金|:"オレンジ", |土|:"ブルー"} as record
028	set ocidTagDict to refMe's NSMutableDictionary's alloc()'s init()
029	ocidTagDict's setDictionary:(recordWeekDayColor)
030	#月レコード
031	set recordMonth to {|01|:"㋀", |02|:"㋁", |03|:"㋂", |04|:"㋃", |05|:"㋄", |06|:"㋅", |07|:"㋆", |08|:"㋇", |09|:"㋈", |10|:"㋉", |11|:"㋊", |12|:"㋋"} as record
032	set ocidMonthDict to refMe's NSMutableDictionary's alloc()'s initWithDictionary:(recordMonth)
033	#日レコード
034	set recordDate to {|01|:"㏠", |02|:"㏡", |03|:"㏢", |04|:"㏣", |05|:"㏤", |06|:"㏥", |07|:"㏦", |08|:"㏧", |09|:"㏨", |10|:"㏩", |11|:"㏪", |12|:"㏫", |13|:"㏬", |14|:"㏭", |15|:"㏮", |16|:"㏯", |17|:"㏰", |18|:"㏱", |19|:"㏲", |20|:"㏳", |21|:"㏴", |22|:"㏵", |23|:"㏶", |24|:"㏷", |25|:"㏸", |26|:"㏹", |27|:"㏺", |28|:"㏻", |29|:"㏼", |30|:"㏽", |31|:"㏾"} as record
035	set ocidDateDict to refMe's NSMutableDictionary's alloc()'s initWithDictionary:(recordDate)
036
037	#デスクトップ
038	set appFileManager to refMe's NSFileManager's defaultManager()
039	set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSDesktopDirectory) inDomains:(refMe's NSUserDomainMask))
040	set ocidDesktopDirPathURL to ocidURLsArray's firstObject()
041	#日付情報の取得
042	set ocidDate to refMe's NSDate's |date|()
043	set ocidNSDateFormatter to refMe's NSDateFormatter's alloc()'s init()
044	ocidNSDateFormatter's setLocale:(refMe's NSLocale's localeWithLocaleIdentifier:"ja_JP_POSIX")
045	ocidNSDateFormatter's setDateFormat:("yyyyMMdd")
046	set ocidDateAndTime to ocidNSDateFormatter's stringFromDate:(ocidDate)
047	set strDateAndTime to ocidDateAndTime as text
048	ocidNSDateFormatter's setDateFormat:("EEE")
049	set ocidWeekDay to ocidNSDateFormatter's stringFromDate:(ocidDate)
050	set strWeekDay to ocidWeekDay as text
051	ocidNSDateFormatter's setDateFormat:("dd")
052	set ocidDayNo to ocidNSDateFormatter's stringFromDate:(ocidDate)
053	set strDayNo to ocidDayNo as text
054	set ocidDateValue to ocidDateDict's objectForKey:(ocidDayNo)
055	ocidNSDateFormatter's setDateFormat:("MM")
056	set ocidMonthNo to ocidNSDateFormatter's stringFromDate:(ocidDate)
057	set strMonthNo to ocidMonthNo as text
058	set ocidMonthValue to ocidMonthDict's objectForKey:(ocidMonthNo)
059	set ocidSetJsonValue to ocidMonthValue's stringByAppendingString:(ocidDateValue)
060
061	#
062	set ocidMakeDirPathURL to ocidDesktopDirPathURL's URLByAppendingPathComponent:(ocidDateAndTime) isDirectory:(true)
063	set ocidMakeDirPath to ocidMakeDirPathURL's |path|()
064
065	#フォルダを先に作っておく
066	set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s init()
067	ocidAttrDict's setValue:(448) forKey:(refMe's NSFilePosixPermissions)
068	set listDone to appFileManager's createDirectoryAtURL:(ocidMakeDirPathURL) withIntermediateDirectories:(true) attributes:(ocidAttrDict) |error|:(reference)
069	#テンポラリ
070	set ocidSymbolName to refMe's NSString's stringWithString:("calendar")
071	set ocidTempDirURL to appFileManager's temporaryDirectory()
072	set ocidUUID to refMe's NSUUID's alloc()'s init()
073	set ocidUUIDString to ocidUUID's UUIDString()
074	set ocidSaveDirPathURL to (ocidTempDirURL's URLByAppendingPathComponent:(ocidUUIDString) isDirectory:(true))
075	set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s init()
076	(ocidAttrDict's setValue:(511) forKey:(refMe's NSFilePosixPermissions))
077	set listDone to (appFileManager's createDirectoryAtURL:(ocidSaveDirPathURL) withIntermediateDirectories:(true) attributes:(ocidAttrDict) |error|:(reference))
078	#JSONパス
079	set strSetSymbolName to ("" & ocidDayNo & "." & ocidSymbolName & "") as text
080	set strJsonFileName to ("" & strSetSymbolName & ".json") as text
081	set ocidSaveJsonPathURL to (ocidSaveDirPathURL's URLByAppendingPathComponent:(strJsonFileName) isDirectory:(false))
082	set strSaveJsonPath to ocidSaveJsonPathURL's |path|() as text
083	#JSONの中身
084	set ocidJsonDict to refMe's NSMutableDictionary's alloc()'s init()
085	(ocidJsonDict's setObject:(ocidSetJsonValue) forKey:("emoji"))
086	set ocidOption to (refMe's NSJSONReadingJSON5Allowed)
087	set listResponse to (refMe's NSJSONSerialization's dataWithJSONObject:(ocidJsonDict) options:(ocidOption) |error|:(reference))
088	set ocidSaveData to (first item of listResponse)
089	set ocidOption to (refMe's NSDataWritingAtomic)
090	set listDone to (ocidSaveData's writeToURL:(ocidSaveJsonPathURL) options:(ocidOption) |error|:(reference))
091	#xattr
092	set strSaveJsonPath to doPathEscape(strSaveJsonPath)
093	set ocidMakeDirPath to doPathEscape(ocidMakeDirPath)
094	set strCmdText to ("/usr/bin/xattr -x -w com.apple.icon.folder#S \"$(/usr/bin/xxd -p \"" & strSaveJsonPath & "\" | tr -d \"\\\n\")\" \"" & ocidMakeDirPath & "\"") as text
095	try
096	do shell script strCmdText
097	on error strErrMsg number numErrNo
098	log strErrMsg & numErrNo
099	return false
100	end try
101	#SetFile
102	try
103	#まずxcode-selectコマンドを実行してエラーになれなければ実行する
104	set strCmdText to ("/usr/bin/xcode-select -p") as text
105	do shell script strCmdText
106	#-->　ここでエラーしても大丈夫なんだけど
107	set strCmd to ("/usr/bin/SetFile -a C \"" & ocidMakeDirPath & "\"") as text
108	do shell script strCmd
109	on error strErrMes number numErrNo
110	log strCmdText & strErrMes
111	#エラーにはなるんだけど止めない
112	end try
113	######
114	set ocidSetValue to ocidTagDict's objectForKey:(ocidWeekDay)
115	set ocidTagName to (refMe's NSString's stringWithString:(ocidSetValue))
116	set ocidTagArray to refMe's NSMutableArray's alloc()'s init()
117	(ocidTagArray's addObject:(ocidTagName))
118	set listResult to (ocidMakeDirPathURL's setResourceValue:(ocidTagArray) forKey:(refMe's NSURLTagNamesKey) |error|:(reference))
119
120	return listResult
121
122
123
124
125	########################
126	#パスのエスケープ
127	to doPathEscape(strFilePath)
128	set strFilePath to strFilePath as text
129	set listEscChar to {"\\", "\"", "$", "`"} as list
130	repeat with itemEscChar in listEscChar
131	set strSearchText to (itemEscChar) as text
132	set strReplaceText to ("\\" & itemEscChar & "") as text
133	set strFilePath to doReplace(strFilePath, strSearchText, strReplaceText)
134	end repeat
135
136	set strSearchText to ("!") as text
137	set strReplaceText to ("\"'!'\"") as text
138	set strFilePath to doReplace(strFilePath, strSearchText, strReplaceText)
139
140	return strFilePath
141	end doPathEscape
142	########################
143	#置換
144	to doReplace(argOrignalText, argSearchText, argReplaceText)
145	set strDelim to AppleScript's text item delimiters
146	set AppleScript's text item delimiters to argSearchText
147	set listDelim to every text item of argOrignalText
148	set AppleScript's text item delimiters to argReplaceText
149	set strReturn to listDelim as text
150	set AppleScript's text item delimiters to strDelim
151	return strReturn
152	end doReplace
AppleScriptで生成しました

---