First commit.

lisp/lib/apps.el

@@ -0,0 +1,17 @@
+;;; apps.el --- Support functions for applications -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+
+(defun osx-app-installed-p (app)
+  "Return t if APP is installed."
+  (when (eq system-type 'darwin)
+    (let ((lsregister
+           "/System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/LaunchServices.framework/Versions/A/Support/lsregister"))
+      (and (file-executable-p lsregister)
+         (not (string-equal "" (shell-command-to-string
+                              (concat lsregister " -dump|grep " app))))))))
+
+
+(provide 'lib/apps)
+;;; apps.el ends here