dotfiles/emacs/.emacs.d/os-lisp/oni-windows-nt.el

73 lines
2.4 KiB
EmacsLisp
Executable file

;;; 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 'grep)
(require 'magit)
(require 'alert)
(require 'fill-column-indicator)
(require 'sort))
(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 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 '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