ApJなんかでBibTeXのcitationを持ってくると、論文タイトルが全部大文字になっていたりします。例えばここだと、以下の 1. のようになっているべきところが 2. のようになっています。
- Fermi Observations of Cassiopeia and Cepheus: Diffuse Gamma-ray Emission in the Outer Galaxy
- FERMI OBSERVATIONS OF CASSIOPEIA AND CEPHEUS: DIFFUSE GAMMA-RAY EMISSION IN THE OUTER GALAXY
これだとBibDeskに登録したときなどに読みづらいので、小文字を含んだ1.の表記に変更したくなります。
しかし毎回手でやるのも面倒なので、http://macscripter.net/viewtopic.php?id=24753 を参考にした AppleScript を作成しました。
set orgTitle to (the clipboard)
set newTitle to {}
repeat with myWord in (words of orgTitle)
set firstLetter to character 1 of myWord
considering case
if firstLetter is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then set firstLetter to makeUPPER(firstLetter)
--make the rest of the letters lower case
if length of myWord > 1 then
set lowerletters to text 2 thru (length of myWord) of myWord
set lowerletters to makelower(lowerletters)
else
set lowerletters to ""
end if
end considering
if myWord is in {"ABOUT", "ABOARD", "ABOVE", "ACROSS", "AFTER", "AGAINST", "ALONG", "AMONG", "AROUND", "AS", "AT", "BEFORE", "BEHIND", "BELOW", "BENEATH", "BESIDE", "BESIDES", "BETWEEN", "BEYOND", "BUT", "BY", "DOWN", "DURING", "FOR", "FROM", "IN", "INSIDE", "INTO", "NEAR", "OF", "OFF", "ON", "ONTO", "OPPOSITE", "OUT", "OUTSIDE", "OVER", "PAST", "SINCE", "THAN", "THROUGH", "THROUGHOUT", "TILL", "TO", "TOWARD", "UNDER", "UNDERNEATH", "UNTIL", "UP", "UPON", "VIA", "WITH", "WITHIN", "WITHOUT"} then
if newTitle is not {} then
set firstLetter to makelower(firstLetter)
end if
end if
set end of newTitle to firstLetter & lowerletters
end repeat
set AppleScript's text item delimiters to {space}
set the clipboard to newTitle as text
set AppleScript's text item delimiters to {}
on makeUPPER(aLetter)
considering case
set myChar to offset of aLetter in "abcdefghijklmnopqrstuvwxyz"
if myChar > 0 then
return character myChar of "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
else
return aLetter
end if
end considering
end makeUPPER
on makelower(theText)
set newText to ""
repeat with loop from 1 to (length of theText)
set newText to newText & lower(character loop of theText)
end repeat
return newText
end makelower
on lower(aLetter)
considering case
set myChar to offset of aLetter in "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
if myChar > 0 then
return character myChar of "abcdefghijklmnopqrstuvwxyz"
else
return aLetter
end if
end considering
end lowerのような AppleScript を ~/Library/Application Support/BibDesk/Scripts/ToLower.scpt として保存します。
そうすると、BibDesk のメニューから、この script を呼び出せます。既にコピーしてクリップボード上にある大文字の論文タイトルが、小文字を含むものに置換されます。
主要な前置詞は行頭以外では小文字になるようにしています。ここは好み。
