Clean up unused configs. This repo has bitrotted very badly.
This commit is contained in:
parent
8e69cd62c3
commit
8959303640
17 changed files with 28 additions and 681 deletions
|
|
@ -1,4 +1,4 @@
|
||||||
# config
|
# config
|
||||||
Various config files and small scripts I use.
|
Various config files and small scripts I use.
|
||||||
|
|
||||||
TODO: Set up some sort of orchestration so this can be quickly installed on new systems and such.
|
TODO: Set up some sort of orchestration so this can be quickly installed on new systems.
|
||||||
|
|
|
||||||
87
emacs/.emacs
87
emacs/.emacs
|
|
@ -1,87 +0,0 @@
|
||||||
;; Added by Package.el. This must come before configurations of
|
|
||||||
;; installed packages. Don't delete this line. If you don't want it,
|
|
||||||
;; just comment it out by adding a semicolon to the start of the line.
|
|
||||||
;; You may delete these explanatory comments.
|
|
||||||
(package-initialize)
|
|
||||||
(add-to-list
|
|
||||||
'package-archives
|
|
||||||
'("melpa" . "http://melpa.org/packages/")
|
|
||||||
t)
|
|
||||||
|
|
||||||
(custom-set-variables
|
|
||||||
;; custom-set-variables was added by Custom.
|
|
||||||
;; If you edit it by hand, you could mess it up, so be careful.
|
|
||||||
;; Your init file should contain only one such instance.
|
|
||||||
;; If there is more than one, they won't work right.
|
|
||||||
'(c-basic-offset 2)
|
|
||||||
'(c-tab-always-indent t)
|
|
||||||
'(canlock-password "201dd6597717bea7c6569288a099ce4c838cd1a7")
|
|
||||||
'(case-fold-search t)
|
|
||||||
'(current-language-environment "English")
|
|
||||||
'(default-input-method "latin-1-prefix")
|
|
||||||
'(global-font-lock-mode t nil (font-lock))
|
|
||||||
'(make-backup-files nil)
|
|
||||||
'(package-selected-packages (quote (py-autopep8 lua-mode go-mode)))
|
|
||||||
'(pc-select-meta-moves-sexps t)
|
|
||||||
'(pc-select-selection-keys-only t)
|
|
||||||
'(pc-selection-mode t t)
|
|
||||||
'(php-file-patterns nil)
|
|
||||||
'(show-paren-mode t nil (paren))
|
|
||||||
'(transient-mark-mode t)
|
|
||||||
'(version-control (quote never)))
|
|
||||||
(custom-set-faces
|
|
||||||
;; custom-set-faces was added by Custom.
|
|
||||||
;; If you edit it by hand, you could mess it up, so be careful.
|
|
||||||
;; Your init file should contain only one such instance.
|
|
||||||
;; If there is more than one, they won't work right.
|
|
||||||
'(mmm-default-submode-face ((t nil))))
|
|
||||||
(put 'narrow-to-region 'disabled nil)
|
|
||||||
|
|
||||||
;; *** User-added stuff *** ;;
|
|
||||||
|
|
||||||
;; General custom variables
|
|
||||||
(setq require-final-newline 't)
|
|
||||||
(set-language-environment "UTF-8")
|
|
||||||
(setq inhibit-eol-conversion 't)
|
|
||||||
|
|
||||||
;; Kill GUI elements
|
|
||||||
(menu-bar-mode 0)
|
|
||||||
|
|
||||||
;; *** Programming
|
|
||||||
(global-set-key (kbd "C-x g") 'goto-line)
|
|
||||||
(define-key global-map (kbd "<f5>") 'vc-diff)
|
|
||||||
(define-key global-map (kbd "<f7>") 'compile)
|
|
||||||
(define-key global-map (kbd "<f8>") 'recompile)
|
|
||||||
(setq-default indent-tabs-mode nil)
|
|
||||||
(setq-default tab-width 4)
|
|
||||||
(setq-default python-indent-offset 2)
|
|
||||||
(setq-default css-indent-offset 2)
|
|
||||||
(setq js-indent-level 4)
|
|
||||||
(column-number-mode)
|
|
||||||
|
|
||||||
;; Use the right mode for Arduino sketches
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.ino\\'" . c++-mode))
|
|
||||||
|
|
||||||
(add-to-list 'load-path "~/.emacs.d/lisp")
|
|
||||||
(require 'yaml-mode)
|
|
||||||
(require 'slim-mode)
|
|
||||||
(require 'haml-mode)
|
|
||||||
|
|
||||||
;; Markdown support
|
|
||||||
(autoload 'markdown-mode "markdown-mode"
|
|
||||||
"Major mode for editing Markdown files" t)
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.text\\'" . markdown-mode))
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
|
|
||||||
|
|
||||||
(add-hook 'go-mode-hook
|
|
||||||
(lambda ()
|
|
||||||
(add-hook 'before-save-hook 'gofmt-before-save)
|
|
||||||
(setq tab-width 2)
|
|
||||||
(setq indent-tabs-mode 0)))
|
|
||||||
|
|
||||||
(require 'py-autopep8)
|
|
||||||
(add-hook 'python-mode-hook 'py-autopep8-enable-on-save)
|
|
||||||
|
|
||||||
;; (require 'kos-mode)
|
|
||||||
;; (setq kos-indent 2)
|
|
||||||
10
emacs/dotemacs
Executable file
10
emacs/dotemacs
Executable file
|
|
@ -0,0 +1,10 @@
|
||||||
|
(package-initialize)
|
||||||
|
|
||||||
|
(setq make-backup-files nil)
|
||||||
|
(setq require-final-newline 't)
|
||||||
|
(setq inhibit-eol-conversion 't)
|
||||||
|
|
||||||
|
(set-language-environment "UTF-8")
|
||||||
|
(menu-bar-mode 0)
|
||||||
|
(global-set-key (kbd "C-x g") 'goto-line)
|
||||||
|
(column-number-mode)
|
||||||
|
|
@ -1,325 +0,0 @@
|
||||||
;;; kos-mode.el --- KSP kOS KerboScript major mode
|
|
||||||
|
|
||||||
;; Author: Charlie Green
|
|
||||||
;; URL: https://github.com/charliegreen/kos-mode
|
|
||||||
;; Version: 0.2.1
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; A major mode for editing KerboScript program files, from the Kerbal Space Program mod
|
|
||||||
;; kOS. I hope this is useful for someone!
|
|
||||||
|
|
||||||
;; TODO:
|
|
||||||
;; features:
|
|
||||||
;; * potentially add custom faces for strings/comments
|
|
||||||
;; * add AGn action group highlighting
|
|
||||||
;; * add useful interactive commands (eg electric braces)
|
|
||||||
;; other:
|
|
||||||
;; * yikes, clean up some of the regexes here....
|
|
||||||
|
|
||||||
;; TODO (long-term):
|
|
||||||
;; * make sure I got the syntax right and included all global functions and variables
|
|
||||||
;; * add some nice completion thing for completing fields of data structures (eg
|
|
||||||
;; SHIP:VELOCITY autofills ":SURFACE", which autofills ":MAG", etc)
|
|
||||||
;; * deal with highlighting function calls vs global variables, especially when they
|
|
||||||
;; have the same name (eg STAGE)
|
|
||||||
;; * add an optional auto-formatter
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(defgroup kos-mode ()
|
|
||||||
"Options for `kos-mode'."
|
|
||||||
:group 'languages)
|
|
||||||
|
|
||||||
(defgroup kos-mode-faces ()
|
|
||||||
"Faces used by `kos-mode'."
|
|
||||||
:group 'kos-mode)
|
|
||||||
|
|
||||||
(defcustom kos-indent (default-value 'tab-width)
|
|
||||||
"Basic indent increment for indenting kOS code."
|
|
||||||
:group 'kos-mode)
|
|
||||||
|
|
||||||
(defface kos-keyword-face
|
|
||||||
'((t :inherit (font-lock-keyword-face)))
|
|
||||||
"Face for keywords."
|
|
||||||
:group 'kos-mode-faces)
|
|
||||||
|
|
||||||
(defface kos-operator-face
|
|
||||||
'((t :inherit (font-lock-builtin-face)))
|
|
||||||
"Face for operators."
|
|
||||||
:group 'kos-mode-faces)
|
|
||||||
|
|
||||||
(defface kos-global-face
|
|
||||||
'((t :inherit (font-lock-constant-face)))
|
|
||||||
"Face for globally defined variables."
|
|
||||||
:group 'kos-mode-faces)
|
|
||||||
|
|
||||||
(defface kos-constant-face
|
|
||||||
'((t :inherit (font-lock-constant-face)))
|
|
||||||
"Face for constants."
|
|
||||||
:group 'kos-mode-faces)
|
|
||||||
|
|
||||||
(defface kos-function-name-face
|
|
||||||
'((t :inherit (font-lock-function-name-face)))
|
|
||||||
"Face for highlighting the names of functions in their definitions."
|
|
||||||
:group 'kos-mode-faces)
|
|
||||||
|
|
||||||
(defmacro kos--opt (keywords)
|
|
||||||
"Compile a regex matching any of KEYWORDS."
|
|
||||||
`(eval-when-compile
|
|
||||||
(regexp-opt ,keywords 'words)))
|
|
||||||
|
|
||||||
(eval-and-compile
|
|
||||||
(defconst kos-keywords
|
|
||||||
'("add" "all" "at" "batch" "break" "clearscreen" "compile" "copy" "declare"
|
|
||||||
"delete" "deploy" "do" "do" "edit" "else" "file" "for" "from" "from"
|
|
||||||
"function" "global" "if" "in" "is" "local" "lock" "log" "off" "on"
|
|
||||||
"once" "parameter" "preserve" "print" "reboot" "remove" "rename" "run"
|
|
||||||
"set" "shutdown" "stage" "step" "switch" "then" "to" "toggle" "unlock"
|
|
||||||
"unset" "until" "volume" "wait" "when" "return" "lazyglobal")))
|
|
||||||
|
|
||||||
(eval-and-compile
|
|
||||||
(defconst kos-globals
|
|
||||||
'("ship" "target" "hastarget" "heading" "prograde" "retrograde" "facing"
|
|
||||||
"maxthrust" "velocity" "geoposition" "latitude" "longitude" "up" "north"
|
|
||||||
"body" "angularmomentum" "angularvel" "angularvelocity" "mass"
|
|
||||||
"verticalspeed" "groundspeed" "surfacespeed" "airspeed" "altitude"
|
|
||||||
"apoapsis" "periapsis" "sensors" "srfprograde" "srfretrograde" "obt"
|
|
||||||
"status" "shipname"
|
|
||||||
|
|
||||||
"terminal" "core" "archive" "nextnode" "hasnode" "allnodes"
|
|
||||||
|
|
||||||
"liquidfuel" "oxidizer" "electriccharge" "monopropellant" "intakeair"
|
|
||||||
"solidfuel"
|
|
||||||
|
|
||||||
"alt" "eta" "encounter"
|
|
||||||
|
|
||||||
"sas" "rcs" "gear" "lights" "brakes" "abort" "legs" "chutes" "chutessafe"
|
|
||||||
"panels" "radiators" "ladders" "bays" "intakes" "deploydrills" "drills"
|
|
||||||
"fuelcells" "isru" "ag1" "ag2" "ag3" "ag4" "ag5" "ag6" "ag7" "ag8" "ag9"
|
|
||||||
"ag10"
|
|
||||||
|
|
||||||
"throttle" "steering" "wheelthrottle" "wheelsteering"
|
|
||||||
|
|
||||||
"missiontime" "version" "major" "minor" "build" "sessiontime"
|
|
||||||
"homeconnection" "controlconnection"
|
|
||||||
|
|
||||||
"kuniverse" "config" "warp" "warpmode" "mapview" "loaddistance"
|
|
||||||
"solarprimevector" "addons"
|
|
||||||
|
|
||||||
"red" "green" "blue" "yellow" "cyan" "magenta" "purple" "white" "black")))
|
|
||||||
|
|
||||||
(eval-and-compile
|
|
||||||
(defconst kos-functions
|
|
||||||
'("round" "mod" "abs" "ceiling" "floor" "ln" "log10" "max" "min" "random" "sqrt"
|
|
||||||
"char" "unchar" "sin" "cos" "tan" "arcsin" "arccos" "arctan" "arctan2"
|
|
||||||
|
|
||||||
"list" "rgb" "rgba" "hsv" "hsva"
|
|
||||||
"clearscreen" "stage" "constant" "profileresult")))
|
|
||||||
|
|
||||||
(eval-and-compile
|
|
||||||
(defconst kos-constants
|
|
||||||
'("pi" "e" "g" "c" "atmtokpa" "kpatoatm" "degtorad" "radtodeg")))
|
|
||||||
|
|
||||||
(defun kos--opt-nomember (keywords)
|
|
||||||
"Compile a regex matching any of KEYWORDS with no leading colon.
|
|
||||||
|
|
||||||
This is the same as `kos--opt', except it won't match any of
|
|
||||||
KEYWORDS if they are being accessed as a structure member (eg,
|
|
||||||
for `(kos--opt-nomember '(\"foo\"))`, 'foo' would be highlighted,
|
|
||||||
but 'bar:foo' would not)."
|
|
||||||
(concat "\\(?:^\\|[^:]\\)" (kos--opt keywords)))
|
|
||||||
|
|
||||||
(defconst kos-font-lock-keywords
|
|
||||||
;; aren't these regexes beautiful?
|
|
||||||
`((,(kos--opt-nomember kos-keywords) 1 'kos-keyword-face)
|
|
||||||
|
|
||||||
(,(kos--opt-nomember kos-globals) 1 'kos-global-face)
|
|
||||||
(,(kos--opt-nomember kos-constants) 1 'kos-constant-face)
|
|
||||||
|
|
||||||
;; for numbers; have this before operators so decimals are still highlighted
|
|
||||||
("\\b[[:digit:].]+\\(e[+-]?[:digit:]+\\)?\\b" . 'kos-constant-face)
|
|
||||||
|
|
||||||
;; ((rx (any ?+ ?- ?* ?/ ?^ ?( ?))) . 'kos-operator-face) ; arithmetic ops
|
|
||||||
("\\+\\|-\\|\\*\\|/\\|\\^\\|(\\|)" . 'kos-operator-face) ; arithmetic ops
|
|
||||||
|
|
||||||
;; ((rx word-boundary
|
|
||||||
;; (or "not" "and" "or" "true" "false" "<>" "<=" ">=" "=" ">" "<")
|
|
||||||
;; word-boundary) 1 'kos-operator-face) ; logical ops
|
|
||||||
("\\b\\(not\\|and\\|or\\|true\\|false\\|<>\\|<=\\|>=\\|=\\|>\\|<\\)\\b" ; logical ops
|
|
||||||
1 'kos-operator-face)
|
|
||||||
|
|
||||||
;;((rx (any ?{ ?} ?[ ?] ?, ?. ?: ?@)) . 'kos-operator-face) ; other ops
|
|
||||||
("{\\|}\\|\\[\\|\\]\\|,\\|\\.\\|:\\|@" . 'kos-operator-face) ; other ops
|
|
||||||
|
|
||||||
;; highlight function declarations
|
|
||||||
("\\bfunction\\s-+\\([[:alpha:]_][[:alnum:]_]*\\)" 1 'kos-function-name-face))
|
|
||||||
"Keyword highlighting specification for `kos-mode'.")
|
|
||||||
|
|
||||||
;; (defvar kos-mode-map
|
|
||||||
;; (let ((map (make-sparse-keymap)))
|
|
||||||
;; ;(define-key map [foo] 'kos-do-foo)
|
|
||||||
;; map)
|
|
||||||
;; "Keymap for `kos-mode'.")
|
|
||||||
|
|
||||||
(defvar kos-mode-syntax-table
|
|
||||||
(let ((st (make-syntax-table)))
|
|
||||||
(modify-syntax-entry ?/ ". 12" st) ; // starts comments
|
|
||||||
(modify-syntax-entry ?\n ">" st) ; newline ends comments
|
|
||||||
st)
|
|
||||||
"Syntax table for `kos-mode'.")
|
|
||||||
|
|
||||||
;; https://web.archive.org/web/20070702002238/http://two-wugs.net/emacs/mode-tutorial.html
|
|
||||||
(defun kos-indent-line ()
|
|
||||||
"Indent the current line of kOS code."
|
|
||||||
(interactive)
|
|
||||||
|
|
||||||
(require 'cl-lib)
|
|
||||||
|
|
||||||
(let ((not-indented t) cur-indent
|
|
||||||
(r-bob "^[^\n]*?{[^}]*$") ; beginning of block regex
|
|
||||||
(r-nl "\\(?:\n\\|\r\n\\|$\\)") ; an actual newline ($ was acting funky)
|
|
||||||
(ltss nil)) ; lines to start of (unterminated) statement; see `in-unterminated-p'
|
|
||||||
|
|
||||||
(cl-flet* ((get-cur-line ()
|
|
||||||
(save-excursion
|
|
||||||
(let ((start (progn (beginning-of-line) (point)))
|
|
||||||
(end (progn (end-of-line) (point))))
|
|
||||||
(buffer-substring-no-properties start end))))
|
|
||||||
|
|
||||||
(back-to-nonblank-line ()
|
|
||||||
(let ((cont t))
|
|
||||||
(while cont
|
|
||||||
(forward-line -1)
|
|
||||||
(if (or (bobp) (not (looking-at "^\\s-*$")))
|
|
||||||
(setq cont nil)))))
|
|
||||||
|
|
||||||
(set-indent (v &optional not-relative)
|
|
||||||
(setq cur-indent (if not-relative v
|
|
||||||
(+ (current-indentation)
|
|
||||||
(* v kos-indent))))
|
|
||||||
(setq not-indented nil))
|
|
||||||
|
|
||||||
(strip-text
|
|
||||||
(s) ;; remove strings and comments
|
|
||||||
(while (string-match
|
|
||||||
(rx (: ?\" (0+ (or (: ?\\ ?\")
|
|
||||||
(not (any ?\")))) ?\")) s)
|
|
||||||
(setq s (replace-match "" t t s)))
|
|
||||||
(while (string-match (concat "//.*" r-nl) s)
|
|
||||||
(setq s (replace-match "" t t s))) s)
|
|
||||||
|
|
||||||
(in-unterminated-p
|
|
||||||
()
|
|
||||||
;; Returns nil if in unterminated statement and the number of
|
|
||||||
;; lines back to the beginning of the statement otherwise
|
|
||||||
(setq ltss nil)
|
|
||||||
(save-excursion
|
|
||||||
(let ((loopp t) ; whether we should keep searching
|
|
||||||
(rettp nil) ; whether we'll return a positive value
|
|
||||||
(count 0) ; number of lines we've processed before
|
|
||||||
(found-end-p nil) ; whether we've found a terminating line
|
|
||||||
cur-line) ; the current line we're processing
|
|
||||||
(while (and loopp (not (bobp)))
|
|
||||||
(setq cur-line (strip-text (get-cur-line)))
|
|
||||||
(cond
|
|
||||||
;; found an unterminated statement
|
|
||||||
((string-match
|
|
||||||
(concat "^\\s-*" (kos--opt kos-keywords) "\\b\\s-*[^{.]*$")
|
|
||||||
cur-line)
|
|
||||||
(setq loopp nil rettp t))
|
|
||||||
|
|
||||||
;; found a block opener
|
|
||||||
((string-match "^\\s-*{[^}]*$" cur-line)
|
|
||||||
(setq loopp nil))
|
|
||||||
|
|
||||||
;; found a block closer (which counts as terminator,
|
|
||||||
;; since it presumably has an opener) or a line ending
|
|
||||||
;; with a dot
|
|
||||||
((or
|
|
||||||
(string-match ".*\\.\\s-*$" cur-line)
|
|
||||||
(string-match "^\\s-*}[^{]*$" cur-line))
|
|
||||||
|
|
||||||
;; check if count is zero so we don't indent whitespace
|
|
||||||
;; past the terminator
|
|
||||||
(if (and (not found-end-p) (zerop count))
|
|
||||||
(setq found-end-p t)
|
|
||||||
(setq loopp nil))))
|
|
||||||
|
|
||||||
;; at end of each loop, if we don't want to break, update
|
|
||||||
;; counter and move POINT to next line to process
|
|
||||||
(if loopp
|
|
||||||
(progn
|
|
||||||
(setq count (1+ count))
|
|
||||||
(forward-line -1))))
|
|
||||||
(if (not rettp) nil
|
|
||||||
(progn
|
|
||||||
(setq ltss count)
|
|
||||||
(not (= count 0)))))))
|
|
||||||
|
|
||||||
;; for "looking-at-line"
|
|
||||||
(lal (r) (string-match r (strip-text (get-cur-line)))))
|
|
||||||
|
|
||||||
(save-excursion
|
|
||||||
(beginning-of-line)
|
|
||||||
|
|
||||||
(cond ((bobp) (set-indent 0 t)) ; if at beginning of buffer, indent to 0
|
|
||||||
((lal "^[ \t]*}") ; if closing a block
|
|
||||||
(progn ; then indent one less than previous line
|
|
||||||
;; TODO: check if previous line is part of a line continuation
|
|
||||||
(back-to-nonblank-line)
|
|
||||||
(cond
|
|
||||||
((looking-at r-bob) (set-indent 0)) ; if closing empty block, match it
|
|
||||||
((in-unterminated-p) ; if last line unterminated, indent back two
|
|
||||||
(set-indent -2))
|
|
||||||
(t (set-indent -1))))) ; otherwise, indent back one
|
|
||||||
|
|
||||||
((lal "^[ \t]*{") ; if opening a block on a blank line
|
|
||||||
(progn ; then indent the same as last line
|
|
||||||
(back-to-nonblank-line)
|
|
||||||
(set-indent 0)))
|
|
||||||
|
|
||||||
((in-unterminated-p) ; if line part of unterminated statement
|
|
||||||
(progn ; then indent one more than beginning
|
|
||||||
(forward-line (- ltss))
|
|
||||||
(set-indent +1)))
|
|
||||||
|
|
||||||
(t (while not-indented ; else search backwards for clues
|
|
||||||
(back-to-nonblank-line)
|
|
||||||
(cond
|
|
||||||
((bobp) (setq not-indented nil)) ; perhaps we won't find anything
|
|
||||||
((lal "^[ \t]*}[^{]*$") (set-indent 0)) ; found the end of a block
|
|
||||||
((lal r-bob) (set-indent +1)))))))) ; found the beginning of a block
|
|
||||||
|
|
||||||
(if (not cur-indent) (setq cur-indent 0))
|
|
||||||
(if (< cur-indent 0) (setq cur-indent 0))
|
|
||||||
|
|
||||||
;; now actually indent to cur-indent
|
|
||||||
(if (save-excursion ; if within indentation
|
|
||||||
(let ((point (point))
|
|
||||||
(start (progn (beginning-of-line) (point)))
|
|
||||||
(end (progn (back-to-indentation) (point))))
|
|
||||||
(and (<= start point) (<= point end))))
|
|
||||||
(indent-line-to cur-indent) ; then indent line and move point
|
|
||||||
(save-excursion (indent-line-to cur-indent))))) ; else just indent line
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(define-derived-mode kos-mode prog-mode "KerboScript"
|
|
||||||
"Major mode for editing kOS program files, for the game Kerbal Space Program."
|
|
||||||
:syntax-table kos-mode-syntax-table
|
|
||||||
(make-local-variable 'comment-start)
|
|
||||||
(make-local-variable 'comment-start-skip)
|
|
||||||
(make-local-variable 'font-lock-defaults)
|
|
||||||
(make-local-variable 'indent-line-function)
|
|
||||||
(setq comment-start "// ")
|
|
||||||
(setq comment-start-skip "//+\\s-*")
|
|
||||||
(setq font-lock-defaults
|
|
||||||
'(kos-font-lock-keywords nil t)) ; t makes this case-insensitive
|
|
||||||
(setq indent-line-function 'kos-indent-line))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.ks\\'" . kos-mode))
|
|
||||||
|
|
||||||
(provide 'kos-mode)
|
|
||||||
|
|
||||||
;;; kos-mode.el ends here
|
|
||||||
5
emacs/readme.md
Normal file
5
emacs/readme.md
Normal file
|
|
@ -0,0 +1,5 @@
|
||||||
|
## Usage
|
||||||
|
|
||||||
|
```
|
||||||
|
mv dotemacs ~/.emacs
|
||||||
|
```
|
||||||
|
|
@ -1,12 +0,0 @@
|
||||||
[user]
|
|
||||||
name = Anna Wiggins
|
|
||||||
email = annabunches@gmail.com
|
|
||||||
signingkey = EFEF6022
|
|
||||||
[commit]
|
|
||||||
gpgsign = true
|
|
||||||
[gpg]
|
|
||||||
program = gpg2
|
|
||||||
[push]
|
|
||||||
default = simple
|
|
||||||
[alias]
|
|
||||||
graph = log --graph --oneline --decorate --all
|
|
||||||
7
git/dotgitconfig
Normal file
7
git/dotgitconfig
Normal file
|
|
@ -0,0 +1,7 @@
|
||||||
|
[user]
|
||||||
|
name = Anna Rose Wiggins
|
||||||
|
email = annabunches@gmail.com
|
||||||
|
[init]
|
||||||
|
defaultBranch = main
|
||||||
|
[alias]
|
||||||
|
graph = log --graph --oneline --decorate --all
|
||||||
5
git/readme.md
Normal file
5
git/readme.md
Normal file
|
|
@ -0,0 +1,5 @@
|
||||||
|
## Usage
|
||||||
|
|
||||||
|
```
|
||||||
|
mv dotgitconfig ~/.gitconfig
|
||||||
|
```
|
||||||
|
|
@ -1,6 +0,0 @@
|
||||||
# WIP
|
|
||||||
enable-ssh-support
|
|
||||||
pinentry-program /usr/bin/pinentry-curses
|
|
||||||
default-cache-ttl 60
|
|
||||||
max-cache-ttl 120
|
|
||||||
extra-socket ~/.gnupg/S.gpg-agent.forwarded
|
|
||||||
|
|
@ -1,3 +0,0 @@
|
||||||
[Command]
|
|
||||||
FileManager=pcmanfm %s
|
|
||||||
Terminal=lxterminal
|
|
||||||
|
|
@ -1,69 +0,0 @@
|
||||||
# lxpanel <profile> config file. Manually editing is not recommended.
|
|
||||||
# Use preference dialog in lxpanel to adjust config when you can.
|
|
||||||
|
|
||||||
Global {
|
|
||||||
edge=bottom
|
|
||||||
allign=right
|
|
||||||
margin=0
|
|
||||||
widthtype=percent
|
|
||||||
width=40
|
|
||||||
height=30
|
|
||||||
transparent=0
|
|
||||||
tintcolor=#000000
|
|
||||||
alpha=0
|
|
||||||
autohide=0
|
|
||||||
heightwhenhidden=2
|
|
||||||
setdocktype=1
|
|
||||||
setpartialstrut=1
|
|
||||||
usefontcolor=1
|
|
||||||
fontsize=10
|
|
||||||
fontcolor=#ffffff
|
|
||||||
usefontsize=0
|
|
||||||
background=1
|
|
||||||
backgroundfile=/usr/share/lxpanel/images/background.png
|
|
||||||
iconsize=24
|
|
||||||
loglevel=2
|
|
||||||
}
|
|
||||||
|
|
||||||
Plugin {
|
|
||||||
type = taskbar
|
|
||||||
expand=1
|
|
||||||
Config {
|
|
||||||
tooltips=1
|
|
||||||
IconsOnly=0
|
|
||||||
ShowAllDesks=0
|
|
||||||
UseMouseWheel=1
|
|
||||||
UseUrgencyHint=1
|
|
||||||
FlatButton=0
|
|
||||||
MaxTaskWidth=150
|
|
||||||
spacing=1
|
|
||||||
GroupedTasks=0
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
Plugin {
|
|
||||||
type = pager
|
|
||||||
}
|
|
||||||
|
|
||||||
Plugin {
|
|
||||||
type = tray
|
|
||||||
}
|
|
||||||
|
|
||||||
Plugin {
|
|
||||||
type = space
|
|
||||||
Config {
|
|
||||||
Size=2
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
Plugin {
|
|
||||||
type = dclock
|
|
||||||
Config {
|
|
||||||
ClockFmt=%F %R
|
|
||||||
TooltipFmt=%A
|
|
||||||
BoldFont=0
|
|
||||||
IconOnly=0
|
|
||||||
CenterText=0
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
@ -1,26 +0,0 @@
|
||||||
#!/bin/sh
|
|
||||||
#
|
|
||||||
# Must be run as root / sudo
|
|
||||||
|
|
||||||
dnf -y install emacs git tmux gnupg2 dnf-plugins-core make go pinentry transmission-remote-cli
|
|
||||||
|
|
||||||
# docker
|
|
||||||
dnf config-manager --add-repo https://download.docker.com/linux/fedora/docker-ce.repo
|
|
||||||
dnf -y install docker-ce docker-ce-cli containerd.io
|
|
||||||
systemctl enable docker
|
|
||||||
systemctl start docker
|
|
||||||
|
|
||||||
# docker-machine
|
|
||||||
DOCKER_MACHINE_URL=https://github.com/docker/machine/releases/download/v0.16.0
|
|
||||||
curl -L $DOCKER_MACHINE_URL/docker-machine-$(uname -s)-$(uname -m) > /tmp/docker-machine
|
|
||||||
install /tmp/docker-machine /usr/local/bin/docker-machine
|
|
||||||
|
|
||||||
# docker-compose
|
|
||||||
DOCKER_COMPOSE_URL=https://github.com/docker/compose/releases/download/1.23.2
|
|
||||||
curl -L $DOCKER_COMPOSE_URL/docker-compose-$(uname -s)-$(uname -m) -o /usr/local/bin/docker-compose
|
|
||||||
chmod 755 /usr/local/bin/docker-compose
|
|
||||||
|
|
||||||
# Security
|
|
||||||
sed -i 's/^.*PubkeyAuthentication.*$/PubkeyAuthentication yes/' /etc/ssh/sshd_config
|
|
||||||
sed -i 's/^.*PasswordAuthentication.*$/PasswordAuthentication no/' /etc/ssh/sshd_config
|
|
||||||
service sshd restart
|
|
||||||
140
sawfish/rc
140
sawfish/rc
|
|
@ -1,140 +0,0 @@
|
||||||
(require 'sawfish.wm.defaults)
|
|
||||||
(require 'sawfish.wm.ext.match-window)
|
|
||||||
|
|
||||||
;;; Programs to run on startup
|
|
||||||
(system "setxkbmap dvorak")
|
|
||||||
(system "setxkbmap -option compose:caps")
|
|
||||||
(system "lxpanel &")
|
|
||||||
; (system "xscreensaver &")
|
|
||||||
|
|
||||||
;; For VMs
|
|
||||||
; (system "xset s off")
|
|
||||||
; (system "xset -dpms")
|
|
||||||
|
|
||||||
|
|
||||||
;;; Custom functions
|
|
||||||
|
|
||||||
(defun launch-app (app)
|
|
||||||
(case app
|
|
||||||
('chrome (system "google-chrome --disable-gpu-compositing &"))
|
|
||||||
('term-code (system "gnome-terminal --role code --geometry=120x34 &"))
|
|
||||||
('term-quick (system "gnome-terminal --role quick --geometry=80x24 &"))
|
|
||||||
('term-std (system "gnome-terminal --role terminal --geometry=100x28 &"))
|
|
||||||
('quassel (system "quasselclient &")) ))
|
|
||||||
|
|
||||||
; Note that the documentation for 'insert-workspace' is wrong, and we insert
|
|
||||||
; *after* the provided value, not before
|
|
||||||
(defun launch-app-in-new-workspace (app)
|
|
||||||
(progn
|
|
||||||
(select-workspace (insert-workspace (cdr (workspace-limits))))
|
|
||||||
(launch-app app) ))
|
|
||||||
|
|
||||||
(defun send-to-new-workspace ()
|
|
||||||
(progn
|
|
||||||
(set 'space current-workspace)
|
|
||||||
(set 'window (input-focus))
|
|
||||||
(move-window-to-workspace
|
|
||||||
window
|
|
||||||
space
|
|
||||||
(insert-workspace (cdr (workspace-limits)))
|
|
||||||
t )
|
|
||||||
(select-workspace (cdr (workspace-limits))) ))
|
|
||||||
|
|
||||||
(defun send-workspace-to-top ()
|
|
||||||
(move-workspace current-workspace (- (cdr (workspace-limits)) current-workspace)) )
|
|
||||||
|
|
||||||
(defun build-new-workspace ()
|
|
||||||
(progn
|
|
||||||
(launch-app-in-new-workspace 'chrome)
|
|
||||||
(launch-app 'term-code)))
|
|
||||||
|
|
||||||
(defun destroy-workspace ()
|
|
||||||
(progn
|
|
||||||
(mapcar
|
|
||||||
(lambda (win)
|
|
||||||
(if (not (equal "panel" win)) (destroy-window win)) )
|
|
||||||
(workspace-windows) )
|
|
||||||
(remove-workspace)
|
|
||||||
(previous-workspace 1) ))
|
|
||||||
|
|
||||||
|
|
||||||
;;; Keybinds
|
|
||||||
(define apps-keymap (make-keymap))
|
|
||||||
|
|
||||||
(bind-keys apps-keymap
|
|
||||||
"t" '(launch-app 'term-std)
|
|
||||||
"q" '(launch-app 'term-quick)
|
|
||||||
"o" '(launch-app 'term-code)
|
|
||||||
"c" '(launch-app 'chrome)
|
|
||||||
"i" '(launch-app 'quassel) )
|
|
||||||
|
|
||||||
(unbind-keys global-keymap
|
|
||||||
"W-Left"
|
|
||||||
"W-Right"
|
|
||||||
"M-Up"
|
|
||||||
"M-Down"
|
|
||||||
"C-Tab")
|
|
||||||
|
|
||||||
; Workspace bindings
|
|
||||||
(bind-keys global-keymap
|
|
||||||
"M-C-Delete" 'restart
|
|
||||||
"Super-Left" '(previous-workspace 1)
|
|
||||||
"Super-Right" '(next-workspace 1)
|
|
||||||
"Super-Up" '(select-workspace (cdr (workspace-limits))) ; top of stack
|
|
||||||
"Super-Down" '(select-workspace (car (workspace-limits))) ; bottom of stack
|
|
||||||
"Super-Next" 'move-workspace-forwards
|
|
||||||
"Super-Prior" 'move-workspace-backwards
|
|
||||||
"Super-Shift-Next" send-workspace-to-top
|
|
||||||
"Super-End" destroy-workspace
|
|
||||||
"M-F1" '(select-workspace 0)
|
|
||||||
"M-F2" '(select-workspace 1)
|
|
||||||
"M-F3" '(select-workspace 2)
|
|
||||||
"M-F4" '(select-workspace 3)
|
|
||||||
"M-F5" '(select-workspace 4)
|
|
||||||
"M-F6" '(select-workspace 5)
|
|
||||||
"M-F7" '(select-workspace 6)
|
|
||||||
"M-F8" '(select-workspace 7)
|
|
||||||
)
|
|
||||||
|
|
||||||
; Window-specific workspace bindings
|
|
||||||
(bind-keys window-keymap
|
|
||||||
"Super-Shift-Left" 'send-to-previous-workspace
|
|
||||||
"Super-Shift-Right" 'send-to-next-workspace
|
|
||||||
"Super-Shift-Up" send-to-new-workspace )
|
|
||||||
|
|
||||||
; General bindings
|
|
||||||
(bind-keys global-keymap
|
|
||||||
"M-TAB" 'cycle-windows
|
|
||||||
"M-Shift-TAB" 'cycle-windows-backward
|
|
||||||
"Super-l" '(system "xscreensaver-command -lock")
|
|
||||||
"Super-x" apps-keymap
|
|
||||||
"Super-n" build-new-workspace
|
|
||||||
)
|
|
||||||
|
|
||||||
; Given a list of paired letter-command items, returns a new list of paired
|
|
||||||
; letter-function items, where each anonymous function calls the passed
|
|
||||||
; function with the original string as its argument
|
|
||||||
; 'function' should be a function, 'map' should be a list of strings
|
|
||||||
;
|
|
||||||
; This is currently unused, because my needs changed, but it's an excellent idea.
|
|
||||||
(defun funcmap (function map)
|
|
||||||
(mapcar
|
|
||||||
(lambda (item)
|
|
||||||
(if (= (length item) 1)
|
|
||||||
item
|
|
||||||
(lambda () (function item)) ))
|
|
||||||
map) )
|
|
||||||
|
|
||||||
|
|
||||||
;;; Custom variables
|
|
||||||
(set 'lock-first-workspace nil)
|
|
||||||
|
|
||||||
;;; Hooks
|
|
||||||
(add-hook 'idle-hook delete-empty-workspaces)
|
|
||||||
|
|
||||||
;;; Window Matching
|
|
||||||
(add-window-matcher '((WM_WINDOW_ROLE . "^code|terminal$"))
|
|
||||||
'((position . south-east)) )
|
|
||||||
|
|
||||||
(add-window-matcher '((WM_WINDOW_ROLE . "^quick$"))
|
|
||||||
'((position . north-east)) )
|
|
||||||
2
screenrc
2
screenrc
|
|
@ -1,2 +0,0 @@
|
||||||
defhstatus "^ES"
|
|
||||||
caption always "%w"
|
|
||||||
|
|
@ -1,3 +0,0 @@
|
||||||
Makes all your stderr messages red!
|
|
||||||
|
|
||||||
To install, just run `install.sh`.
|
|
||||||
|
|
@ -1,7 +0,0 @@
|
||||||
#!/bin/sh
|
|
||||||
|
|
||||||
if ! grep 'stderred.so' ~/.bash_profile; then
|
|
||||||
echo 'export LD_PRELOAD=$LD_PRELOAD:"~/.local/lib64/stderred.so"' >> ~/.bash_profile
|
|
||||||
fi
|
|
||||||
mkdir -p ~/.local/lib64
|
|
||||||
cp stderred.so ~/.local/lib64/
|
|
||||||
Binary file not shown.
Loading…
Add table
Add a link
Reference in a new issue