Don’t compile oni-windows-nt.el on non-windows systems

1 files changed, 93 insertions, 0 deletions

diff --git a/emacs/.emacs.d/os-lisp/oni-windows-nt.el b/emacs/.emacs.d/os-lisp/oni-windows-nt.el
new file mode 100755
index 0000000..b0ed004
--- /dev/null
+++ b/emacs/.emacs.d/os-lisp/oni-windows-nt.el
@@ -0,0 +1,93 @@
+;;; oni-windows-nt.el --- Windows-specific configuration  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2018  Tom Willemse
+
+;; Author: Tom Willemse <tom@ryuslash.org>
+;; Keywords: local
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Any settings that only apply when working on a Windows machine.
+
+;;; Code:
+
+(eval-when-compile
+  (require 'package)
+  (package-initialize)
+
+  (require 'find-dired)
+  (require 'ivy)
+  (require 'grep)
+  (require 'magit)
+  (require 'alert)
+  (require 'fill-column-indicator)
+  (require 'projectile)
+  (require 'sort))
+
+(defun oni-windows-nt--disable-ivy (orig-fun &rest args)
+  "Disable ivy while running ORIG-FUN with ARGS."
+  (let ((ivy-enabled ivy-mode))
+    (unwind-protect
+        (progn
+          (when ivy-enabled
+            (ivy-mode -1))
+          (apply orig-fun args))
+      (when ivy-enabled
+        (ivy-mode 1)))))
+
+(add-to-list 'load-path (locate-user-emacs-file "vendor/p4-vc"))
+(add-to-list 'exec-path "c:/Program Files/Git/bin")
+(add-to-list 'exec-path "C:/Program Files/Git/usr/bin")
+(add-to-list 'exec-path "c:/cygwin64/bin")
+
+(setq find-program (shell-quote-argument "c:/cygwin64/bin/find.exe"))
+(setq grep-program (shell-quote-argument "c:/cygwin64/bin/grep.exe"))
+(setq grep-use-null-device nil)
+(setq delete-by-moving-to-trash t)
+(setq projectile-enable-caching nil)
+(setq projectile-generic-command "\"C:\\Program Files\\Git\\usr\\bin\\find.exe\" . -type d \"(\" -path \"*/node_modules\" -o -path \"*/upload-test\" -o -path \"*/dlls\" -o -path \"*/apps/*/img\" -o -path \"*/apps/*/video\" -o -path \"*/apps/*/font\" -o -path \"*/apps/*/content\" -o -path \"*/apps/*/favicons\" -o -path \"*/apps/*/pages.*\" -o -path \"*/.intl\" \")\" -prune -o -type f -print0")
+(setq projectile-git-command "\"C:/Program Files/Git/bin/git.exe\" ls-files -zco --exclude-standard")
+(setq projectile-indexing-method 'alien)
+(setq sort-fold-case t)
+
+(setq-default buffer-file-coding-system 'utf-8-unix)
+
+(let ((exe (shell-quote-argument "c:/cygwin64/bin/ls.exe")))
+  (setq find-ls-option
+        (cons (concat "-exec " exe " -ld {} \";\"") "-ld")))
+
+(with-eval-after-load 'alert
+  (setq alert-default-icon "c:/Users/WillemsenT/Emacs-25.1-2/share/emacs/25.1/etc/images/icons/hicolor/48x48/apps/emacs.png")
+  (setq alert-default-style 'toaster)
+  (setq alert-toaster-command "U:/projects/toaster/toast/bin/Release/toast.exe")
+  (setq alert-toaster-default-icon "c:/Users/WillemsenT/Emacs-25.1-2/share/emacs/25.1/etc/images/icons/hicolor/48x48/apps/emacs.png"))
+
+(with-eval-after-load 'grep
+  (add-function :around (symbol-function 'grep-read-files) #'oni-windows-nt--disable-ivy))
+
+(with-eval-after-load 'magit
+  (setq magit-git-executable "c:/msys64/usr/bin/git.exe"))
+
+(with-eval-after-load 'vc
+  (require 'vc-p4))
+
+(with-eval-after-load 'fill-column-indicator
+  (setq fci-always-use-textual-rule t))
+
+(server-mode)
+
+(provide 'oni-windows-nt)
+;;; oni-windows-nt.el ends here