On 19/4/13 at 18:51, listmeis...@suddenlink.net (Christopher
Stone) wrote:
I got tired of typing 'pwd'<enter><Cmd-Z> to check the working
directory of a worksheet, so I wrote a script to add/update it
as a comment on line one. It attempts to restore the cursor
location or selection.
Hello Chris,
I just felt like a bit of useless amusement this evening, so
here's my variant of your script:
tell application "BBEdit"
if class of front document is shell document then
tell front shell window
activate
set {_key, _pwd} to {"# PWD: ", its document's working directory}
set _selected_text to the selection
set _insertion_point to characterOffset of _selected_text
set _text_is_selected to false
if the length of the _selected_text is not 0 then
set _text_is_selected to true
set _first_char to characterOffset of _selected_text
set _last_char to _first_char + (length of
_selected_text) - 1
end if
set _current_top_line to the contents of the first line
set _new_top_line to _key & _pwd
if _current_top_line is "" or _current_top_line starts
with _key then
set the contents of the first line to _new_top_line
else
set the contents of the first line to _new_top_line &
linefeed & _current_top_line
end if
set _increment to (length of _new_top_line) - (length of
_current_top_line)
if _text_is_selected then
set _first_char to _first_char + _increment
set _last_char to _last_char + _increment
select (characters _first_char through _last_char)
else
select insertion point before character
(_insertion_point + _increment)
end if
end tell
end if
end tell
--JD
--
--
You received this message because you are subscribed to the
"BBEdit Talk" discussion group on Google Groups.
To post to this group, send email to bbedit@googlegroups.com
To unsubscribe from this group, send email to
bbedit+unsubscr...@googlegroups.com
For more options, visit this group at
<http://groups.google.com/group/bbedit?hl=en>
If you have a feature request or would like to report a problem,
please email "supp...@barebones.com" rather than posting to the group.
Follow @bbedit on Twitter: <http://www.twitter.com/bbedit>
---
You received this message because you are subscribed to the Google Groups "BBEdit Talk" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to bbedit+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.