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

Refactor core-os-osx.el

Browse source
This commit is contained in:
Henrik Lissner 2015-11-13 03:51:02 -05:00
parent b69c1be4f4
commit 76ac7c4801
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/core-os-osx.el
View file

@ -55,19 +55,25 @@
(defun narf-open-with (&optional app-name path)
"Send PATH to APP-NAME on OSX."
(interactive)
(let* ((path (f-full (s-replace "'" "\\'" (or path (if (eq major-mode 'dired-mode) (dired-get-file-for-visit) (buffer-file-name))))))
(command (concat "open " (when app-name (concat "-a " (shell-quote-argument app-name))) " '" path "'")))
(let* ((path (f-full (s-replace "'" "\\'"
(or path (if (eq major-mode 'dired-mode)
(dired-get-file-for-visit)
(buffer-file-name))))))
(command (format "open %s"
(if app-name
(format "-a %s" (shell-quote-argument app-name))
(format "'%s'" path)))))
(message "Running: %s" command)
(shell-command command)))
(defun narf-switch-to-iterm ()
(interactive)
(shell-command "osascript -e 'tell application \"iTerm2\" to activate'" nil))
(do-applescript "tell application \"iTerm2\" to activate"))
(defun narf-switch-to-iterm-and-cd ()
(interactive)
(narf:tmux-chdir nil t)
(shell-command "osascript -e 'tell application \"iTerm2\" to activate'" nil))
(narf-switch-to-iterm))
(provide 'core-os-osx)
;;; core-os-osx.el ends here