5.08.2012

Script Utility for my "SOE"

This is a really old one, just re-hashing it here as I forgot to add it to my 10.7 SOE.

We use Lotus Notes in some of our offices. The default font size on larger resolutions is small enough to send people blind. Unfortunately there is no UI for changing the size. This simply applescript gives end users the option to do so.

Please note the values should range from 1-5 with 1 being the default size and 5 being the largest (not really the largest but the maximum you should go to, try it... you'll see what I mean).


set _prompt to display dialog "Lotus Notes Default Font Size?" & return & return & "Please ensure Lotus Notes is not running before proceeding." buttons {"Continue", "Quit", "Reset"} default button 1 with icon stop
set _response to button returned of _prompt

if _response is equal to "Continue" then
 
 set _sizes to display dialog "Lotus Notes Default Font Size?" & return buttons {"Large", "Larger", "Largest"} default button 1 with icon stop
 set _size to button returned of _sizes
 
 if _size is equal to "Large" then
  set Display_Font_adjustment to "2"
 end if
 
 if _size is equal to "Larger" then
  set Display_Font_adjustment to "3"
 end if
 
 if _size is equal to "Largest" then
  set Display_Font_adjustment to "4"
 end if
 
 do shell script ("/bin/cat ~/Library/Preferences/Notes\\ Preferences | grep -v 'Display_Font_adjustment' > ~/Library/Preferences/Notes\\ Preferences.new")
 do shell script ("/bin/cp -f ~/Library/Preferences/Notes\\ Preferences.new ~/Library/Preferences/Notes\\ Preferences")
 do shell script ("/bin/echo 'Display_Font_adjustment=" & Display_Font_adjustment & "' >> ~/Library/Preferences/Notes\\ Preferences")
 
else if _response is equal to "Reset" then
 do shell script ("/bin/cat ~/Library/Preferences/Notes\\ Preferences | grep -v 'Display_Font_adjustment' > ~/Library/Preferences/Notes\\ Preferences.new")
 do shell script ("/bin/cp -f ~/Library/Preferences/Notes\\ Preferences.new ~/Library/Preferences/Notes\\ Preferences")
end if

quit