emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Yet another big update

Browse source
This commit is contained in:
Henrik Lissner 2015-05-08 03:03:38 -04:00
parent a8f32547a3
commit c6862d1489
27 changed files with 474 additions and 355 deletions
Download patch file Download diff file Expand all files Collapse all files

32
core/core-osx.el
View file

@ -25,32 +25,12 @@
(unless (featurep 'ns) ad-do-it)))
;; Send current file to OSX apps
(defun my--open-file-with (path &optional appName)
(if (and appName
(stringp appName)
(not (string= "" appName)))
(setq appName (concat "-a " appName ".app")))
(shell-command (concat "open " appName " " (shell-quote-argument path))))
(defun my-open-with (appName file)
(interactive "sApp name: ")
(my--open-file-with file appName))
(defun my-send-to-transmit (file)
(interactive "f")
(my-open-with "Transmit" file))
(defun my-send-to-launchbar (file)
(interactive "f")
(my-open-with "LaunchBar" file))
(defun my-send-dir-to-launchbar (dir)
(interactive "D")
(my--open-file-with dir "LaunchBar"))
(defun my-send-dir-to-finder (dir)
(interactive "D")
(my--open-file-with dir "Finder"))
(defun my-open-with (&optional app-name path)
(interactive)
(let ((app-name (if app-name (concat "-p " app-name)))
(path (or path (if (eq major-mode 'dired-mode) (dired-get-file-for-visit) (buffer-file-name)))))
(shell-command (concat "open " app-name " " (shell-quote-argument path)))))
(provide 'core-osx)
;;; core-osx.el ends here