From c1ad9cd835ff4d6eb85a4c3c3d1b4372f41b090b Mon Sep 17 00:00:00 2001 From: John Doty Date: Tue, 6 Nov 2018 20:00:48 +0000 Subject: [PATCH 01/11] Only add buck bin if it exists --- .config/fish/config.fish | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/.config/fish/config.fish b/.config/fish/config.fish index 4be23f9..c37eb0c 100644 --- a/.config/fish/config.fish +++ b/.config/fish/config.fish @@ -1,5 +1,8 @@ if status --is-login - set PATH $PATH ~/bin ~/devtools/buck/bin + set PATH $PATH ~/bin + if test -d ~/devtools/buck/bin + set PATH $PATH ~/devtools/buck/bin + end end # export EDITOR=ec From fb2240002d2b905c16c45602160b7bf5e91e9fdb Mon Sep 17 00:00:00 2001 From: John Doty Date: Tue, 6 Nov 2018 20:32:14 +0000 Subject: [PATCH 02/11] Fix control keys under emacs --- .config/fish/config.fish | 3 +++ .emacs.d/core.el | 5 +++-- .tmux.conf | 17 ++++++++++------- 3 files changed, 16 insertions(+), 9 deletions(-) diff --git a/.config/fish/config.fish b/.config/fish/config.fish index c37eb0c..f179927 100644 --- a/.config/fish/config.fish +++ b/.config/fish/config.fish @@ -3,6 +3,9 @@ if status --is-login if test -d ~/devtools/buck/bin set PATH $PATH ~/devtools/buck/bin end + if test -d /snap/bin + set PATH $PATH /snap/bin + end end # export EDITOR=ec diff --git a/.emacs.d/core.el b/.emacs.d/core.el index c3aa951..75b133b 100644 --- a/.emacs.d/core.el +++ b/.emacs.d/core.el @@ -233,8 +233,9 @@ "Apply xterm keymap, allowing use of keys passed through tmux." (if (getenv "TMUX") (let ((map (copy-keymap xterm-function-map))) - (set-keymap-parent map (keymap-parent input-decode-map)) - (set-keymap-parent input-decode-map map)))) + (message "Activating tmux keys...") + (set-keymap-parent map (keymap-parent input-decode-map)) + (set-keymap-parent input-decode-map map)))) ;; ================================================================= ;; Random Goo. diff --git a/.tmux.conf b/.tmux.conf index f8e154c..d993166 100644 --- a/.tmux.conf +++ b/.tmux.conf @@ -6,7 +6,7 @@ bind-key C-b last-window set -g base-index 1 # Allows for faster key repetition -#set -s escape-time 0 +# set -s escape-time 0 # Set status bar set -g status-bg black @@ -14,12 +14,15 @@ set -g status-fg white set -g status-left "" set -g status-right "#[fg=green]#H" -# Rather than constraining window size to the maximum size of any client -# connected to the *session*, constrain window size to the maximum size of any +# COLORS +set -g default-terminal "screen-256color" + +# Rather than constraining window size to the maximum size of any client +# connected to the *session*, constrain window size to the maximum size of any # client connected to *that window*. Much more reasonable. setw -g aggressive-resize on -# Allows us to use C-a a to send commands to a TMUX session inside +# Allows us to use C-a a to send commands to a TMUX session inside # another TMUX session bind-key a send-prefix @@ -27,11 +30,11 @@ bind-key a send-prefix set -g xterm-keys on # Activity monitoring -#setw -g monitor-activity on -#set -g visual-activity on +# setw -g monitor-activity on +# set -g visual-activity on # Example of using a shell command in the status line -#set -g status-right "#[fg=yellow]#(uptime | cut -d ',' -f 2-)" +# set -g status-right "#[fg=yellow]#(uptime | cut -d ',' -f 2-)" # Highlight active window set-window-option -g window-status-current-bg red From ca09101d69b4bc7682839c68b60a6d5bf070a690 Mon Sep 17 00:00:00 2001 From: John Doty Date: Wed, 14 Nov 2018 21:47:33 +0000 Subject: [PATCH 03/11] Beets config --- .config/beets/config.yaml | 5 +++++ .gitignore | 11 ++++++----- 2 files changed, 11 insertions(+), 5 deletions(-) create mode 100644 .config/beets/config.yaml diff --git a/.config/beets/config.yaml b/.config/beets/config.yaml new file mode 100644 index 0000000..9c6b867 --- /dev/null +++ b/.config/beets/config.yaml @@ -0,0 +1,5 @@ +directory: /var/media/music +library: /var/media/music/musiclibrary.db +plugins: ftintitle fetchart embedart +import: + move: yes diff --git a/.gitignore b/.gitignore index 0e289b8..c2c87a2 100644 --- a/.gitignore +++ b/.gitignore @@ -1,17 +1,18 @@ *.elc .config/.isolated-storage -.config/fish/fish_history -.config/fish/fishd* -.config/fish/generated_completions .config/.mono .config/NuGet/nugetorgadd.trk .config/StardewValley/Saves +.config/beets/state.pickle +.config/fish/fish_history +.config/fish/fishd* +.config/fish/generated_completions .config/stetic .config/xbuild/pkgconfig-cache-2.xml .emacs.d/.cache +.emacs.d/.python-environments/ .emacs.d/ido.last .emacs.d/server .emacs.d/url/cookies .ipython/profile_default/history.sqlite -_viminfo -.emacs.d/.python-environments/ \ No newline at end of file +_viminfo \ No newline at end of file From e6b32d485757156c45ed720f81e7385e8bc5ed80 Mon Sep 17 00:00:00 2001 From: John Doty Date: Wed, 14 Nov 2018 21:48:52 +0000 Subject: [PATCH 04/11] npm? --- .config/configstore/update-notifier-npm.json | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.config/configstore/update-notifier-npm.json b/.config/configstore/update-notifier-npm.json index c46177c..c67e7d7 100644 --- a/.config/configstore/update-notifier-npm.json +++ b/.config/configstore/update-notifier-npm.json @@ -1,4 +1,4 @@ { "optOut": false, - "lastUpdateCheck": 1522264648840 + "lastUpdateCheck": 1541536521678 } \ No newline at end of file From b19b0b9e8621fefacdbf6c9dfa8c47d1dd654b01 Mon Sep 17 00:00:00 2001 From: John Doty Date: Wed, 14 Nov 2018 21:49:07 +0000 Subject: [PATCH 05/11] Cargo bin --- .config/fish/config.fish | 3 +++ .profile | 2 ++ 2 files changed, 5 insertions(+) diff --git a/.config/fish/config.fish b/.config/fish/config.fish index f179927..514f797 100644 --- a/.config/fish/config.fish +++ b/.config/fish/config.fish @@ -6,6 +6,9 @@ if status --is-login if test -d /snap/bin set PATH $PATH /snap/bin end + if test -d ~/.cargo/bin + set PATH $PATH ~/.cargo/bin + end end # export EDITOR=ec diff --git a/.profile b/.profile index b4372c5..e40abee 100644 --- a/.profile +++ b/.profile @@ -23,3 +23,5 @@ fi # added by Anaconda3 2.4.1 installer export PATH="/Users/doty/anaconda/bin:$PATH" + +export PATH="$HOME/.cargo/bin:$PATH" From 00b40365952d65196e540e25ab1fd77eca011762 Mon Sep 17 00:00:00 2001 From: John Doty Date: Wed, 14 Nov 2018 21:50:39 +0000 Subject: [PATCH 06/11] deluge --- .config/deluge/auth | 1 + .gitignore | 4 ++++ 2 files changed, 5 insertions(+) create mode 100644 .config/deluge/auth diff --git a/.config/deluge/auth b/.config/deluge/auth new file mode 100644 index 0000000..280797d --- /dev/null +++ b/.config/deluge/auth @@ -0,0 +1 @@ +localclient:6cc881c5537a3a468ad94c36a73db292122c642a:10 diff --git a/.gitignore b/.gitignore index c2c87a2..71f4171 100644 --- a/.gitignore +++ b/.gitignore @@ -14,5 +14,9 @@ .emacs.d/ido.last .emacs.d/server .emacs.d/url/cookies +.config/deluge/state/ +.config/deluge/ssl/ +.config/deluge/deluged.log +.config/deluge/deluged.pid .ipython/profile_default/history.sqlite _viminfo \ No newline at end of file From 7ebc828269b6f152adfa9925ee7ef13e7803ddea Mon Sep 17 00:00:00 2001 From: John Doty Date: Wed, 14 Nov 2018 21:51:50 +0000 Subject: [PATCH 07/11] NPM --- .config/configstore/update-notifier-bower.json | 4 ---- .config/configstore/update-notifier-npm.json | 4 ---- 2 files changed, 8 deletions(-) delete mode 100644 .config/configstore/update-notifier-bower.json delete mode 100644 .config/configstore/update-notifier-npm.json diff --git a/.config/configstore/update-notifier-bower.json b/.config/configstore/update-notifier-bower.json deleted file mode 100644 index 9947597..0000000 --- a/.config/configstore/update-notifier-bower.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "optOut": false, - "lastUpdateCheck": 1458929677651 -} \ No newline at end of file diff --git a/.config/configstore/update-notifier-npm.json b/.config/configstore/update-notifier-npm.json deleted file mode 100644 index c67e7d7..0000000 --- a/.config/configstore/update-notifier-npm.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "optOut": false, - "lastUpdateCheck": 1541536521678 -} \ No newline at end of file From 82767c9896de5c9c91ec4bc115b7dbfe55dfd37a Mon Sep 17 00:00:00 2001 From: doty Date: Wed, 14 Nov 2018 16:21:40 -0800 Subject: [PATCH 08/11] Key stuff Summary: Test Plan: Reviewers: Subscribers: Tasks: Tags: --- .emacs.d/core.el | 21 +++++--- .emacs.d/custom.el | 2 +- site-lisp/blacken.el | 124 +++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 139 insertions(+), 8 deletions(-) create mode 100644 site-lisp/blacken.el diff --git a/.emacs.d/core.el b/.emacs.d/core.el index 75b133b..485953f 100644 --- a/.emacs.d/core.el +++ b/.emacs.d/core.el @@ -318,7 +318,8 @@ (define-key c-mode-base-map "\C-m" 'c-context-line-break) (unless is-fb-environment (set-fill-column 120)) - (local-set-key "}" 'indent-on-closing-bracket)) + ;; (local-set-key "}" 'indent-on-closing-bracket) + ) (add-hook 'c-mode-common-hook 'my-c-common-hook) @@ -620,22 +621,28 @@ :modes python-mode) (add-to-list 'flycheck-checkers 'python-fb-flake8) -(when is-fb-environment - (add-hook 'python-mode-hook - (lambda () - (flycheck-select-checker `python-fb-flake8))) - ) - (global-flycheck-mode) ;; ================================================================= ;; Python Support ;; ================================================================= (autoload 'python-mode "python-mode" "Python editing mode." t) +(autoload 'blacken-mode "blacken" "Automatically run black before saving." t) (add-to-list 'auto-mode-alist '("\\.py$" . python-mode)) (add-to-list 'interpreter-mode-alist '("python" . python-mode)) +(defun my-python-mode-hook () + "My hook for `python-mode`." + (when is-fb-environment + (flycheck-select-checker `python-fb-flake8)) + (unless (and (buffer-file-name) + (string-match-p "TARGETS" (buffer-file-name))) + (blacken-mode))) + +(add-hook 'python-mode-hook 'my-python-mode-hook) + + ;; ================================================================= ;; JavaScript Support ;; ================================================================= diff --git a/.emacs.d/custom.el b/.emacs.d/custom.el index 8a57278..6fd8027 100644 --- a/.emacs.d/custom.el +++ b/.emacs.d/custom.el @@ -50,7 +50,7 @@ ((sequence "TODO" "|" "DONE" "ABANDONED" "DEFERRED")))) '(package-selected-packages (quote - (lsp-ui company-lsp cquery mustache-mode clang-format projectile dash-functional mocha add-node-modules-path rjsx-mode xref-js2 js2-refactor company omnisharp geiser cider clojure-mode graphviz-dot-mode multi-term xterm-color thrift markdown-mode tuareg merlin ag use-package flycheck dockerfile-mode js2-mode web-mode zencoding-mode tss switch-window python-mode paredit magit lua-mode go-mode go-autocomplete exec-path-from-shell csharp-mode color-theme-solarized color-theme-monokai auto-complete auto-complete-nxml flymake flyspell json-mode popup ruby-mode company-jedi tide ahg elm-mode monky))) + (wgrep lsp-ui company-lsp cquery mustache-mode clang-format projectile dash-functional mocha add-node-modules-path rjsx-mode xref-js2 js2-refactor company omnisharp geiser cider clojure-mode graphviz-dot-mode multi-term xterm-color thrift markdown-mode tuareg merlin ag use-package flycheck dockerfile-mode js2-mode web-mode zencoding-mode tss switch-window python-mode paredit magit lua-mode go-mode go-autocomplete exec-path-from-shell csharp-mode color-theme-solarized color-theme-monokai auto-complete auto-complete-nxml flymake flyspell json-mode popup ruby-mode company-jedi tide ahg elm-mode monky))) '(reb-re-syntax (quote string)) '(rmail-mail-new-frame t) '(safe-local-variable-values diff --git a/site-lisp/blacken.el b/site-lisp/blacken.el new file mode 100644 index 0000000..5120cab --- /dev/null +++ b/site-lisp/blacken.el @@ -0,0 +1,124 @@ +;;; blacken.el --- Reformat python buffers using the "black" formatter + +;; Copyright (C) 2018 Artem Malyshev + +;; Author: Artem Malyshev +;; Homepage: https://github.com/proofit404/blacken +;; Version: 0.0.1 +;; Package-Requires: ((emacs "25.2")) + +;; This file 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, or (at your +;; option) any later version. +;; +;; This file 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. +;; +;; For a full copy of the GNU General Public License +;; see . + +;;; Commentary: +;; +;; Blacken uses black to format a Python buffer. It can be called +;; explicitly on a certain buffer, but more conveniently, a minor-mode +;; 'blacken-mode' is provided that turns on automatically running +;; black on a buffer before saving. +;; +;; Installation: +;; +;; Add blacken.el to your load-path. +;; +;; To automatically format all Python buffers before saving, add the +;; function blacken-mode to python-mode-hook: +;; +;; (add-hook 'python-mode-hook 'blacken-mode) +;; +;;; Code: + + +(defgroup blacken nil + "Reformat Python code with \"black\"." + :group 'python) + +(defcustom blacken-executable "black" + "Name of the executable to run." + :type 'string) + +(defcustom blacken-line-length nil + "Line length to enforce." + :type 'number + :safe 'numberp) + +(defun blacken-call-bin (input-buffer output-buffer error-buffer) + "Call process black. + +Send INPUT-BUFFER content to the process stdin. Saving the +output to OUTPUT-BUFFER. Saving process stderr to ERROR-BUFFER. +Return black process the exit code." + (with-current-buffer input-buffer + (let ((process (make-process :name "blacken" + :command `(,blacken-executable ,@(blacken-call-args)) + :buffer output-buffer + :stderr error-buffer + :noquery t + :sentinel (lambda (process event))))) + (set-process-query-on-exit-flag (get-buffer-process error-buffer) nil) + (set-process-sentinel (get-buffer-process error-buffer) (lambda (process event))) + (save-restriction + (widen) + (process-send-region process (point-min) (point-max))) + (process-send-eof process) + (accept-process-output process nil nil t) + (while (process-live-p process) + (accept-process-output process nil nil t)) + (process-exit-status process)))) + +(defun blacken-call-args () + "Build black process call arguments." + (append + (when blacken-line-length + (list "--line-length" (number-to-string blacken-line-length))) + '("-"))) + +;;;###autoload +(defun blacken-buffer (&optional display) + "Try to blacken the current buffer. + +Show black output, if black exit abnormally and DISPLAY is t." + (interactive (list t)) + (let* ((original-buffer (current-buffer)) + (original-point (point)) + (original-window-pos (window-start)) + (tmpbuf (get-buffer-create "*blacken*")) + (errbuf (get-buffer-create "*blacken-error*"))) + ;; This buffer can be left after previous black invocation. It + ;; can contain error message of the previous run. + (dolist (buf (list tmpbuf errbuf)) + (with-current-buffer buf + (erase-buffer))) + (condition-case err + (if (not (zerop (blacken-call-bin original-buffer tmpbuf errbuf))) + (error "Black failed, see %s buffer for details" (buffer-name errbuf)) + (with-current-buffer tmpbuf + (copy-to-buffer original-buffer (point-min) (point-max))) + (mapc 'kill-buffer (list tmpbuf errbuf)) + (goto-char original-point) + (set-window-start (selected-window) original-window-pos)) + (error (message "%s" (error-message-string err)) + (when display + (pop-to-buffer errbuf)))))) + +;;;###autoload +(define-minor-mode blacken-mode + "Automatically run black before saving." + :lighter " Black" + (if blacken-mode + (add-hook 'before-save-hook 'blacken-buffer nil t) + (remove-hook 'before-save-hook 'blacken-buffer t))) + +(provide 'blacken) + +;;; blacken.el ends here From cea2592edc1fe7abb1d80c21c9a68344113fb870 Mon Sep 17 00:00:00 2001 From: doty Date: Wed, 14 Nov 2018 19:20:36 -0800 Subject: [PATCH 09/11] tmux fixes --- .tmux.conf | 22 +++++++++++++++------- 1 file changed, 15 insertions(+), 7 deletions(-) diff --git a/.tmux.conf b/.tmux.conf index d993166..00b71bb 100644 --- a/.tmux.conf +++ b/.tmux.conf @@ -6,7 +6,7 @@ bind-key C-b last-window set -g base-index 1 # Allows for faster key repetition -# set -s escape-time 0 +#set -s escape-time 0 # Set status bar set -g status-bg black @@ -14,9 +14,6 @@ set -g status-fg white set -g status-left "" set -g status-right "#[fg=green]#H" -# COLORS -set -g default-terminal "screen-256color" - # Rather than constraining window size to the maximum size of any client # connected to the *session*, constrain window size to the maximum size of any # client connected to *that window*. Much more reasonable. @@ -27,14 +24,25 @@ setw -g aggressive-resize on bind-key a send-prefix # Fix control keys through putty +# (It looks like on some versions of tmux this needs to be setw not set.) set -g xterm-keys on +setw -g xterm-keys on + +# Colors? +set -g default-terminal "screen-256color" # Activity monitoring -# setw -g monitor-activity on -# set -g visual-activity on +#setw -g monitor-activity on +#set -g visual-activity on # Example of using a shell command in the status line -# set -g status-right "#[fg=yellow]#(uptime | cut -d ',' -f 2-)" +set -g status-right "#[fg=yellow]#(date)" # Highlight active window set-window-option -g window-status-current-bg red + +# set-window-option -g mouse on +set -g history-limit 30000 + +# fish! +set-option -g default-shell /bin/fish \ No newline at end of file From 76bdf7bfb35830c98a3008547798b8f775982882 Mon Sep 17 00:00:00 2001 From: doty Date: Wed, 14 Nov 2018 19:22:38 -0800 Subject: [PATCH 10/11] Oops. Summary: Test Plan: Reviewers: Subscribers: Tasks: Tags: --- .tmux.conf | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.tmux.conf b/.tmux.conf index 00b71bb..2686020 100644 --- a/.tmux.conf +++ b/.tmux.conf @@ -36,7 +36,7 @@ set -g default-terminal "screen-256color" #set -g visual-activity on # Example of using a shell command in the status line -set -g status-right "#[fg=yellow]#(date)" +# set -g status-right "#[fg=yellow]#(date)" # Highlight active window set-window-option -g window-status-current-bg red From 7e27526eca7e98c14ed22b80c4fee08520906bc7 Mon Sep 17 00:00:00 2001 From: doty Date: Wed, 9 Jan 2019 10:06:33 -0800 Subject: [PATCH 11/11] Don't remember why but I don't like this Summary: Test Plan: Reviewers: Subscribers: Tasks: Tags: --- .config/htop/htoprc | 2 +- .emacs.d/core.el | 106 ++++++++++++++++++++++---------------------- 2 files changed, 54 insertions(+), 54 deletions(-) diff --git a/.config/htop/htoprc b/.config/htop/htoprc index a1c6722..285dac4 100644 --- a/.config/htop/htoprc +++ b/.config/htop/htoprc @@ -1,6 +1,6 @@ # Beware! This file is rewritten by htop when settings are changed in the interface. # The parser is also very primitive, and not human-friendly. -fields=0 48 17 18 38 39 2 46 47 49 1 +fields=0 48 17 18 38 39 2 46 47 49 1 0 sort_key=46 sort_direction=1 hide_threads=0 diff --git a/.emacs.d/core.el b/.emacs.d/core.el index 485953f..345a311 100644 --- a/.emacs.d/core.el +++ b/.emacs.d/core.el @@ -787,68 +787,68 @@ ;; Some build stuff; I swiped this from handmade-hero. Good for ;; unibuild setups. ;; ================================================================= -(when (featurep 'w32) - (setq doty-makescript "build.bat")) +;; (when (featurep 'w32) +;; (setq doty-makescript "build.bat")) -(when (featurep 'cocoa) - (setq doty-makescript "./build.macosx")) +;; (when (featurep 'cocoa) +;; (setq doty-makescript "./build.macosx")) -(when (featurep 'x) - (setq doty-makescript "./build.linux")) +;; (when (featurep 'x) +;; (setq doty-makescript "./build.linux")) -(setq compilation-directory-locked nil) -(setq compilation-context-lines 0) -(setq compilation-error-regexp-alist - (cons '("^\\([0-9]+>\\)?\\(\\(?:[a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)) : \\(?:fatal error\\|warnin\\(g\\)\\) C[0-9]+:" 2 3 nil (4)) - compilation-error-regexp-alist)) +;; (setq compilation-directory-locked nil) +;; (setq compilation-context-lines 0) +;; (setq compilation-error-regexp-alist +;; (cons '("^\\([0-9]+>\\)?\\(\\(?:[a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)) : \\(?:fatal error\\|warnin\\(g\\)\\) C[0-9]+:" 2 3 nil (4)) +;; compilation-error-regexp-alist)) -(defun find-project-directory-recursive () - "Recursively search for a makefile." - (interactive) - (if (file-exists-p doty-makescript) t - (cd "../") - (find-project-directory-recursive))) +;; (defun find-project-directory-recursive () +;; "Recursively search for a makefile." +;; (interactive) +;; (if (file-exists-p doty-makescript) t +;; (cd "../") +;; (find-project-directory-recursive))) -(defun lock-compilation-directory () - "The compilation process should NOT hunt for a makefile." - (interactive) - (setq compilation-directory-locked t) - (message "Compilation directory is locked.")) +;; (defun lock-compilation-directory () +;; "The compilation process should NOT hunt for a makefile." +;; (interactive) +;; (setq compilation-directory-locked t) +;; (message "Compilation directory is locked.")) -(defun unlock-compilation-directory () - "The compilation process SHOULD hunt for a makefile." - (interactive) - (setq compilation-directory-locked nil) - (message "Compilation directory is roaming.")) +;; (defun unlock-compilation-directory () +;; "The compilation process SHOULD hunt for a makefile." +;; (interactive) +;; (setq compilation-directory-locked nil) +;; (message "Compilation directory is roaming.")) -(defun find-project-directory () - "Find the project directory." - (interactive) - (setq find-project-from-directory default-directory) - (switch-to-buffer-other-window "*compilation*") - (if compilation-directory-locked (cd last-compilation-directory) - (cd find-project-from-directory) - (find-project-directory-recursive) - (setq last-compilation-directory default-directory))) +;; (defun find-project-directory () +;; "Find the project directory." +;; (interactive) +;; (setq find-project-from-directory default-directory) +;; (switch-to-buffer-other-window "*compilation*") +;; (if compilation-directory-locked (cd last-compilation-directory) +;; (cd find-project-from-directory) +;; (find-project-directory-recursive) +;; (setq last-compilation-directory default-directory))) -(defun make-without-asking () - "Make the current build." - (interactive) - (if (find-project-directory) (compile doty-makescript)) - (other-window 1)) -(define-key global-map "\C-c\C-m" 'make-without-asking) +;; (defun make-without-asking () +;; "Make the current build." +;; (interactive) +;; (if (find-project-directory) (compile doty-makescript)) +;; (other-window 1)) +;; (define-key global-map "\C-c\C-m" 'make-without-asking) -(defun set-vs-environment () - "Load the VS environment variables into the current Emacs process." - (interactive) - (dolist - (ev (split-string - (shell-command-to-string "cmd /c \" \"%ProgramFiles(x86)%\\Microsoft Visual Studio 14.0\\VC\\vcvarsall.bat\" x64 && set \"") - "[\n]+")) - (letrec ((spev (split-string ev "=")) - (vn (car spev)) - (vv (cadr spev))) - (setenv vn vv)))) +;; (defun set-vs-environment () +;; "Load the VS environment variables into the current Emacs process." +;; (interactive) +;; (dolist +;; (ev (split-string +;; (shell-command-to-string "cmd /c \" \"%ProgramFiles(x86)%\\Microsoft Visual Studio 14.0\\VC\\vcvarsall.bat\" x64 && set \"") +;; "[\n]+")) +;; (letrec ((spev (split-string ev "=")) +;; (vn (car spev)) +;; (vv (cadr spev))) +;; (setenv vn vv)))) ;; =================================================================