DeCarabas/Init-Files
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Don't remember why but I don't like this

Browse source 
Summary:

Test Plan:

Reviewers:

Subscribers:

Tasks:

Tags:
This commit is contained in:
doty 2019-01-09 10:06:33 -08:00
parent 76bdf7bfb3
commit 7e27526eca
2 changed files with 54 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

2
.config/htop/htoprc
View file

@ -1,6 +1,6 @@
# Beware! This file is rewritten by htop when settings are changed in the interface. # Beware! This file is rewritten by htop when settings are changed in the interface.
# The parser is also very primitive, and not human-friendly. # 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_key=46
sort_direction=1 sort_direction=1
hide_threads=0 hide_threads=0

106
.emacs.d/core.el
View file

@ -787,68 +787,68 @@
;; Some build stuff; I swiped this from handmade-hero. Good for ;; Some build stuff; I swiped this from handmade-hero. Good for
;; unibuild setups. ;; unibuild setups.
;; ================================================================= ;; =================================================================
(when (featurep 'w32) ;; (when (featurep 'w32)
(setq doty-makescript "build.bat")) ;; (setq doty-makescript "build.bat"))
(when (featurep 'cocoa) ;; (when (featurep 'cocoa)
(setq doty-makescript "./build.macosx")) ;; (setq doty-makescript "./build.macosx"))
(when (featurep 'x) ;; (when (featurep 'x)
(setq doty-makescript "./build.linux")) ;; (setq doty-makescript "./build.linux"))
(setq compilation-directory-locked nil) ;; (setq compilation-directory-locked nil)
(setq compilation-context-lines 0) ;; (setq compilation-context-lines 0)
(setq compilation-error-regexp-alist ;; (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)) ;; (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)) ;; compilation-error-regexp-alist))
(defun find-project-directory-recursive () ;; (defun find-project-directory-recursive ()
"Recursively search for a makefile." ;; "Recursively search for a makefile."
(interactive) ;; (interactive)
(if (file-exists-p doty-makescript) t ;; (if (file-exists-p doty-makescript) t
(cd "../") ;; (cd "../")
(find-project-directory-recursive))) ;; (find-project-directory-recursive)))
(defun lock-compilation-directory () ;; (defun lock-compilation-directory ()
"The compilation process should NOT hunt for a makefile." ;; "The compilation process should NOT hunt for a makefile."
(interactive) ;; (interactive)
(setq compilation-directory-locked t) ;; (setq compilation-directory-locked t)
(message "Compilation directory is locked.")) ;; (message "Compilation directory is locked."))
(defun unlock-compilation-directory () ;; (defun unlock-compilation-directory ()
"The compilation process SHOULD hunt for a makefile." ;; "The compilation process SHOULD hunt for a makefile."
(interactive) ;; (interactive)
(setq compilation-directory-locked nil) ;; (setq compilation-directory-locked nil)
(message "Compilation directory is roaming.")) ;; (message "Compilation directory is roaming."))
(defun find-project-directory () ;; (defun find-project-directory ()
"Find the project directory." ;; "Find the project directory."
(interactive) ;; (interactive)
(setq find-project-from-directory default-directory) ;; (setq find-project-from-directory default-directory)
(switch-to-buffer-other-window "*compilation*") ;; (switch-to-buffer-other-window "*compilation*")
(if compilation-directory-locked (cd last-compilation-directory) ;; (if compilation-directory-locked (cd last-compilation-directory)
(cd find-project-from-directory) ;; (cd find-project-from-directory)
(find-project-directory-recursive) ;; (find-project-directory-recursive)
(setq last-compilation-directory default-directory))) ;; (setq last-compilation-directory default-directory)))
(defun make-without-asking () ;; (defun make-without-asking ()
"Make the current build." ;; "Make the current build."
(interactive) ;; (interactive)
(if (find-project-directory) (compile doty-makescript)) ;; (if (find-project-directory) (compile doty-makescript))
(other-window 1)) ;; (other-window 1))
(define-key global-map "\C-c\C-m" 'make-without-asking) ;; (define-key global-map "\C-c\C-m" 'make-without-asking)
(defun set-vs-environment () ;; (defun set-vs-environment ()
"Load the VS environment variables into the current Emacs process." ;; "Load the VS environment variables into the current Emacs process."
(interactive) ;; (interactive)
(dolist ;; (dolist
(ev (split-string ;; (ev (split-string
(shell-command-to-string "cmd /c \" \"%ProgramFiles(x86)%\\Microsoft Visual Studio 14.0\\VC\\vcvarsall.bat\" x64 && set \"") ;; (shell-command-to-string "cmd /c \" \"%ProgramFiles(x86)%\\Microsoft Visual Studio 14.0\\VC\\vcvarsall.bat\" x64 && set \"")
"[\n]+")) ;; "[\n]+"))
(letrec ((spev (split-string ev "=")) ;; (letrec ((spev (split-string ev "="))
(vn (car spev)) ;; (vn (car spev))
(vv (cadr spev))) ;; (vv (cadr spev)))
(setenv vn vv)))) ;; (setenv vn vv))))
;; ================================================================= ;; =================================================================