sjs/config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[CHANGED] A bit of cleanup in mojo-cmd*. Added app list cache invalidation on known app list changes.

Browse source
This commit is contained in:
Sami Samhuri 2009-11-21 05:57:04 -08:00
parent eb6d701502
commit 01791ba2b3
1 changed files with 18 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
emacs.d/mojo.el
View file

@ -210,7 +210,8 @@ NAME is the name of the scene."
(defun mojo-install () (defun mojo-install ()
"Install the package named by `MOJO-PACKAGE-FILENAME'. The emulator needs to be running." "Install the package named by `MOJO-PACKAGE-FILENAME'. The emulator needs to be running."
(interactive) (interactive)
(mojo-cmd "palm-install" (list (expand-file-name (mojo-read-package-filename))))) (mojo-cmd "palm-install" (list (expand-file-name (mojo-read-package-filename))))
(mojo-invalidate-cachapp-cache))
;;* interactive ;;* interactive
(defun mojo-list () (defun mojo-list ()
@ -222,7 +223,8 @@ NAME is the name of the scene."
(defun mojo-delete () (defun mojo-delete ()
"Remove the current application using `MOJO-APP-ID'." "Remove the current application using `MOJO-APP-ID'."
(interactive) (interactive)
(mojo-cmd "palm-install" (list "-r" (mojo-read-app-id)))) (mojo-cmd "palm-install" (list "-r" (mojo-read-app-id)))
(mojo-invalidate-cachapp-cache))
;;* interactive ;;* interactive
(defun mojo-launch () (defun mojo-launch ()
@ -459,6 +461,10 @@ If the cache file does not exist then it is considered stale."
(age (- now last-mod))) (age (- now last-mod)))
(> age *mojo-app-cache-ttl*)))) (> age *mojo-app-cache-ttl*))))
(defun mojo-invalidate-cachapp-cache ()
"Delete the app list cache."
(delete-file (mojo-app-cache-file)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -475,7 +481,9 @@ URL is the luna url, and DATA is the data."
(defun mojo-path-to-cmd (cmd) (defun mojo-path-to-cmd (cmd)
"Return the absolute path to a Mojo SDK command line program." "Return the absolute path to a Mojo SDK command line program."
) (case system-type
((windows-nt) (concat mojo-sdk-directory "/bin/" cmd ".bat"))
(t (concat mojo-sdk-directory "/bin/" cmd))))
;;* lowlevel cmd ;;* lowlevel cmd
(defun mojo-cmd (cmd args) (defun mojo-cmd (cmd args)
@ -485,26 +493,22 @@ CMD is the name of the command (without path or extension) to execute.
Automagically shell quoted. Automagically shell quoted.
ARGS is a list of all arguments to the command. ARGS is a list of all arguments to the command.
These arguments are NOT shell quoted." These arguments are NOT shell quoted."
(let ((cmd (case system-type (let ((cmd (mojo-path-to-cmd cmd)))
((windows-nt) (concat mojo-sdk-directory "/bin/" cmd ".bat")) (if mojo-debug (message "running %s with args %s " cmd (string-join " " args)))
(t (concat mojo-sdk-directory "/bin/" cmd))))) (shell-command (concat cmd " " (string-join " " args)))))
(if mojo-debug (message "running %s with args %s " cmd (string-join " " args)))
(shell-command (concat cmd " " (string-join " " args)))))
;;* lowlevel cmd ;;* lowlevel cmd
(defun mojo-cmd-to-string (cmd args) (defun mojo-cmd-to-string (cmd args)
"General interface for running mojo-skd commands and capturing the output "General interface for running mojo-sdk commands and capturing the output
to a string. to a string.
CMD is the name of the command (without path or extension) to execute. CMD is the name of the command (without path or extension) to execute.
Automatically shell quoted. Automatically shell quoted.
ARGS is a list of all arguments to the command. ARGS is a list of all arguments to the command.
These arguments are NOT shell quoted." These arguments are NOT shell quoted."
(let ((cmd (case system-type (let ((cmd (mojo-path-to-cmd cmd)))
((windows-nt) (concat mojo-sdk-directory "/bin/" cmd ".bat")) (if mojo-debug (message "running %s with args %s " cmd (string-join " " args)))
(t (concat mojo-sdk-directory "/bin/" cmd))))) (shell-command-to-string (concat cmd " " (string-join " " args)))))
(if mojo-debug (message "running %s with args %s " cmd (string-join " " args)))
(shell-command-to-string (concat cmd " " (string-join " " args)))))
(provide 'mojo) (provide 'mojo)