Remove :emacs :fun and :os (moved)
This commit is contained in:
parent
7fc29c26a3
commit
8122c9f653
6 changed files with 0 additions and 680 deletions
|
@ -1,48 +0,0 @@
|
|||
;;; os/macos/autoload.el
|
||||
|
||||
;;;###autoload
|
||||
(defun +macos-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 (format "open %s"
|
||||
(if app-name
|
||||
(format "-a %s '%s'" (shell-quote-argument app-name) path)
|
||||
(format "'%s'" path)))))
|
||||
(message "Running: %s" command)
|
||||
(shell-command command)))
|
||||
|
||||
(defmacro +macos@open-with (id &optional app dir)
|
||||
`(defun ,(intern (format "+macos/%s" id)) ()
|
||||
(interactive)
|
||||
(+macos-open-with ,app ,dir)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +macos/open-in-browser ()
|
||||
"Open current file in your default browser."
|
||||
(interactive)
|
||||
(browse-url buffer-file-name))
|
||||
|
||||
;;;###autoload (autoload '+macos/open-in-default-program "os/macos/autoload" nil t)
|
||||
(+macos@open-with open-in-default-program)
|
||||
|
||||
;;;###autoload (autoload '+macos/reveal-in-finder "os/macos/autoload" nil t)
|
||||
(+macos@open-with reveal-in-finder "Finder" default-directory)
|
||||
|
||||
;;;###autoload (autoload '+macos/reveal-project-in-finder "os/macos/autoload" nil t)
|
||||
(+macos@open-with reveal-project-in-finder "Finder" (doom-project-root))
|
||||
|
||||
;;;###autoload (autoload '+macos/send-to-transmit "os/macos/autoload" nil t)
|
||||
(+macos@open-with send-to-transmit "Transmit")
|
||||
|
||||
;;;###autoload (autoload '+macos/send-cwd-to-transmit "os/macos/autoload" nil t)
|
||||
(+macos@open-with send-cwd-to-transmit "Transmit" default-directory)
|
||||
|
||||
;;;###autoload (autoload '+macos/send-to-launchbar "os/macos/autoload" nil t)
|
||||
(+macos@open-with send-to-launchbar "LaunchBar")
|
||||
|
||||
;;;###autoload (autoload '+macos/send-project-to-launchbar "os/macos/autoload" nil t)
|
||||
(+macos@open-with send-project-to-launchbar "LaunchBar" (doom-project-root))
|
|
@ -1,36 +0,0 @@
|
|||
;;; os/macos/config.el
|
||||
|
||||
(setq mac-command-modifier 'meta
|
||||
mac-option-modifier 'alt
|
||||
;; sane trackpad/mouse scroll settings
|
||||
mac-redisplay-dont-reset-vscroll t
|
||||
mac-mouse-wheel-smooth-scroll nil
|
||||
mouse-wheel-scroll-amount '(5 ((shift) . 2)) ; one line at a time
|
||||
mouse-wheel-progressive-speed nil ; don't accelerate scrolling
|
||||
;; Curse Lion and its sudden but inevitable fullscreen mode!
|
||||
;; NOTE Meaningless to railwaycat's emacs-mac build
|
||||
ns-use-native-fullscreen nil
|
||||
;; Don't open files from the workspace in a new frame
|
||||
ns-pop-up-frames nil)
|
||||
|
||||
(cond ((display-graphic-p)
|
||||
;; `exec-path-from-shell' is slow, so bring out the cache
|
||||
(setq exec-path
|
||||
(or (persistent-soft-fetch 'exec-path "emacs")
|
||||
(persistent-soft-store
|
||||
'exec-path
|
||||
(progn (require 'exec-path-from-shell)
|
||||
(exec-path-from-shell-initialize)
|
||||
exec-path)
|
||||
"emacs"))))
|
||||
(t
|
||||
(require 'osx-clipboard)
|
||||
(osx-clipboard-mode +1)))
|
||||
|
||||
(@after evil
|
||||
;; On OSX, stop copying each visual state move to the clipboard:
|
||||
;; https://bitbucket.org/lyro/evil/issue/336/osx-visual-state-copies-the-region-on
|
||||
;; Most of this code grokked from:
|
||||
;; http://stackoverflow.com/questions/15873346/elisp-rename-macro
|
||||
(when (or (featurep 'mac) (featurep 'ns))
|
||||
(advice-add 'evil-visual-update-x-selection :override 'ignore)))
|
|
@ -1,5 +0,0 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; os/macos/packages.el
|
||||
|
||||
(@package exec-path-from-shell)
|
||||
(@package osx-clipboard)
|
Loading…
Add table
Add a link
Reference in a new issue