How to open file in some applicationl with AppleScript

The one way is: 

 set the_application to path to application "TextEdit"
 tell application "Finder"
  open the_file using the_application
 end tell


but the best seems to be:

set f to choose file of type "TEXT"
tell application "Finder"
 set a to application file id "com.apple.TextEdit"
 open f using a
end tell

Comments

Post a Comment

Popular posts from this blog

openmcl-init.lisp

(setf (logical-pathname-translations "src") `(("**;*.*.*" ,(logical-pathname "home:Src;**;*.*"))) (logical-pathname-translations "systems") `(("**;*.*.*" ,(logical-pathname "home:Library;CCL;systems;**;*.*")))) (load "ccl:tools;asdf.lisp") (setf asdf:*central-registry* '( *default-pathname-defaults* #p"systems:")) (asdf:operate 'asdf:load-op 'asdf-install) (setf asdf-install:*locations* `((,(truename "systems:src") ,(truename "systems:") "Personal installation")))
Read more

Constraint Solving and Planning with Picat

I started reading a book Constraint Solving and Planning with Picat and found that there is no suitable mode for Picat in Emacs. There is only a basic mode from Reini Urban, which does not provide indentation and interaction with the Picat process. So I wrote my own version of picat-mode, which is somewhat more functional, although not perfect. It is available for free on github .
Read more

EMACS HOOKS FOR SWITCHING HEADER TO PROPER MODE

;; C-HOOK FOR SWITCHING HEADER TO PROPER MODE (defun u:objc-h-match () (and (string-match "\\.[hH]$" (buffer-file-name)) (string-match "^\\(@\\|#import\\)" (buffer-string)))) (defun u:c++-h-match () (and (string-match "\\.[hH]$" (buffer-file-name)) (string-match "^\s*\\(class\s*.*\\(\s*:\s*public\\|protected\\|private\\)?\\)\\|\\(public\\|protected\\|private\\):\\|\\ \\|\\ " (buffer-string)))) (push '(u:objc-h-match . objc-mode) magic-mode-alist) (push '(u:c++-h-match . c++-mode) magic-mode-alist)
Read more