adding various bits.

This commit is contained in:
Kyle Isom 2023-04-12 19:24:13 -07:00
parent 78bb2c64b7
commit fc983b39a6
5 changed files with 289 additions and 3 deletions

View File

@ -5,7 +5,8 @@ K := -K # prompt for sudo password
O := # additional options O := # additional options
P := site.yml # playbook P := site.yml # playbook
T := # if y, time the process T := # if y, time the process
V := -vvv # verbosity V := # verbosity
# V := -vvv # verbosity
ifeq ($T,y) ifeq ($T,y)

View File

@ -31,6 +31,7 @@
with_items: with_items:
- i3 - i3
- i3lock - i3lock
- stumpwm
- name: set up xprogs - name: set up xprogs
become: true become: true

View File

@ -242,6 +242,8 @@
become: true become: true
ansible.builtin.apt: name=code state=present ansible.builtin.apt: name=code state=present
## rust ## rust
- name: check if cargo is installed - name: check if cargo is installed
@ -287,3 +289,40 @@
- scipy - scipy
- tensorflow - tensorflow
- torch - torch
- name: install balena etcher repo key
become: true
when: (dev_full or dev_embedded) and not headless
ansible.builtin.apt_key:
url: https://dl.cloudsmith.io/public/balena/etcher/gpg.70528471AFF9A051.key
state: present
- name: setup balena etcher repo
become: true
when: (dev_full or dev_embedded) and not headless
ansible.builtin.apt_repository:
repo: 'deb https://dl.cloudsmith.io/public/balena/etcher/deb/ubuntu jammy main'
state: present
- name: setup balena etcher source repo
become: true
when: (dev_full or dev_embedded) and not headless
ansible.builtin.apt_repository:
repo: 'deb-src https://dl.cloudsmith.io/public/balena/etcher/deb/ubuntu jammy main'
state: present
- name: install balena etcher
become: true
when: (dev_full or dev_embedded) and not headless
ansible.builtin.apt: name=balena-etcher-electron state=present
- name: link etcher to /usr/bin
become: true
when: (dev_full or dev_embedded) and not headless
ansible.builtin.file:
src: /opt/balenaEtcher/balena-etcher-electron
dest: /usr/local/bin/etcher
owner: root
group: root
mode: 0755
state: link

View File

@ -0,0 +1,228 @@
Content-Type: text/enriched
Text-Width: 70
;; <x-color><param>#565766</param>-*-lisp-*-
</x-color>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>#565766</param>
</x-color>;;; <x-color><param>#565766</param>INDEX ;;;
</x-color>;;; <x-color><param>#565766</param>- DEPRECATED - MANIFEST ;;;
</x-color>;;; <x-color><param>#565766</param>- SWANK INTERACTION ;;;
</x-color>;;; <x-color><param>#565766</param>- GENERAL CONFIG ;;;
</x-color>;;; <x-color><param>#565766</param>- UTILITY FUNCTIONS ;;;
</x-color>;;; <x-color><param>#565766</param>- KEY BINDING ;;;
</x-color>;;; <x-color><param>#565766</param>- EXECUTION ;;;
</x-color>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>#565766</param>
</x-color>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>#565766</param>
</x-color>;;; <x-color><param>#565766</param>DEPRECATED - MANIFEST ;;;
</x-color>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>#565766</param>
</x-color>;; <x-color><param>#565766</param>without the ability to select localhost-only, we can't use
</x-color>;; <x-color><param>#565766</param>manifest at this time.
</x-color>;; <x-color><param>#565766</param>(defvar *manifest-url*
</x-color>;; <x-color><param>#565766</param>(manifest:start))
</x-color>;; <x-color><param>#565766</param>(defun browse-manifest ()
</x-color>;; <x-color><param>#565766</param>(format nil "exec ~A ~A" *default-browser* *manifest-url*))
</x-color>;; <x-color><param>#565766</param>(define-key *root-map* (kbd "C-d") (browse-manifest))
</x-color>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>#565766</param>
</x-color>;;; <x-color><param>#565766</param>SWANK INTERACTION ;;;
</x-color>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>#565766</param>
</x-color>;; <x-color><param>#565766</param>swank interaction allows us to connect to the StumpWM
</x-color>;; <x-color><param>#565766</param>process from emacs while it's running.
</x-color>
(ql:quickload <x-color><param>#a3646f</param>:swank</x-color>)
(<x-color><param>#93e57c</param>let</x-color> ((server-running nil))
(defcommand swank () ()
<x-color><param>#627e95</param>"Toggle the swank server on/off"</x-color>
(<x-color><param>#93e57c</param>if</x-color> server-running
(<x-color><param>#93e57c</param>progn</x-color>
(swank:stop-server 4005)
(echo-string
(current-screen)
<x-color><param>#627e95</param>"Stopping swank."</x-color>)
(setf server-running nil))
(<x-color><param>#93e57c</param>progn</x-color>
(swank:create-server <x-color><param>#a3646f</param>:port</x-color> 4005
<x-color><param>#a3646f</param>:style</x-color> swank:*communication-style*
<x-color><param>#a3646f</param>:dont-close</x-color> t)
(echo-string
(current-screen)
<x-color><param>#627e95</param>"Starting swank. M-x slime-connect RET RET, then (in-packqage stumpwm)."</x-color>)
(setf server-running t)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>#565766</param>
</x-color>;;; <x-color><param>#565766</param>GENERAL CONFIG ;;;
</x-color>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>#565766</param>
</x-color>;; <x-color><param>#565766</param>this is where configuration parameters, the frame numbering
</x-color>;; <x-color><param>#565766</param>and switching, and other general configuration is set up.
</x-color>
(<x-color><param>#93e57c</param>defparameter</x-color> <x-color><param>#9e79b3</param>*default-browser*</x-color> <x-color><param>#627e95</param>"firefox"</x-color>)
(<x-color><param>#93e57c</param>defparameter</x-color> <x-color><param>#9e79b3</param>*default-terminal*</x-color> <x-color><param>#627e95</param>"mate-terminal"</x-color>)
;; <x-color><param>#565766</param>make frames 1-numbered (i.e. for getting with ALT-FN)
</x-color>(setf *frame-number-map* <x-color><param>#627e95</param>"1234567890"</x-color>)
(run-commands
<x-color><param>#627e95</param>"gnewbg G2"</x-color> ;; <x-color><param>#565766</param>F2
</x-color> <x-color><param>#627e95</param>"gnewbg G3"</x-color> ;; <x-color><param>#565766</param>F3
</x-color> <x-color><param>#627e95</param>"gnewbg G4"</x-color> ;; <x-color><param>#565766</param>F4
</x-color> <x-color><param>#627e95</param>"gnewbg G5"</x-color> ;; <x-color><param>#565766</param>F5
</x-color> <x-color><param>#627e95</param>"gnewbg G6"</x-color> ;; <x-color><param>#565766</param>F6
</x-color> <x-color><param>#627e95</param>"gnewbg G7"</x-color> ;; <x-color><param>#565766</param>F7
</x-color> <x-color><param>#627e95</param>"gnewbg G8"</x-color> ;; <x-color><param>#565766</param>F8
</x-color> <x-color><param>#627e95</param>"gnewbg G9"</x-color> ;; <x-color><param>#565766</param>F9
</x-color> <x-color><param>#627e95</param>"gnewbg G10"</x-color> ;; <x-color><param>#565766</param>F10
</x-color> <x-color><param>#627e95</param>"gnewbg G11"</x-color> ;; <x-color><param>#565766</param>F11
</x-color> <x-color><param>#627e95</param>"gnewbg G12"</x-color>
<x-color><param>#627e95</param>"gnewbg G13"</x-color>
<x-color><param>#627e95</param>"gnewbg G14"</x-color>
<x-color><param>#627e95</param>"gnewbg G15"</x-color>
<x-color><param>#627e95</param>"gnewbg G16"</x-color>
<x-color><param>#627e95</param>"gnewbg G17"</x-color>
<x-color><param>#627e95</param>"gnewbg G18"</x-color>
<x-color><param>#627e95</param>"gnewbg G19"</x-color>)
;; <x-color><param>#565766</param>Fluxbox-style Alt-F# virtual desktop (group in StumpWM-speak)
</x-color>;; <x-color><param>#565766</param>switching. Modified from:
</x-color>;; <x-color><param>#565766</param>http://hcl-club.lu/svn/development/lisp/.stumpwmrc
</x-color>(<x-color><param>#93e57c</param>loop</x-color> for i from 1 to 9
do
(<x-color><param>#93e57c</param>progn</x-color>
(format t <x-color><param>#627e95</param>"Key: ~A~%"</x-color> i)
(define-key *top-map*
(kbd (format nil <x-color><param>#627e95</param>"M-~a"</x-color> i))
(format nil <x-color><param>#627e95</param>"gselect ~a"</x-color> i))))
(define-key *top-map* (kbd <x-color><param>#627e95</param>"M-!"</x-color>) <x-color><param>#627e95</param>"gselect 10"</x-color>)
(define-key *top-map* (kbd <x-color><param>#627e95</param>"M-@"</x-color>) <x-color><param>#627e95</param>"gselect 11"</x-color>)
(define-key *top-map* (kbd <x-color><param>#627e95</param>"M-#"</x-color>) <x-color><param>#627e95</param>"gselect 12"</x-color>)
(define-key *top-map* (kbd <x-color><param>#627e95</param>"M-$"</x-color>) <x-color><param>#627e95</param>"gselect 13"</x-color>)
(define-key *top-map* (kbd <x-color><param>#627e95</param>"M-%"</x-color>) <x-color><param>#627e95</param>"gselect 14"</x-color>)
(define-key *top-map* (kbd <x-color><param>#627e95</param>"M-^"</x-color>) <x-color><param>#627e95</param>"gselect 15"</x-color>)
(define-key *top-map* (kbd <x-color><param>#627e95</param>"M-&"</x-color>) <x-color><param>#627e95</param>"gselect 16"</x-color>)
(define-key *top-map* (kbd <x-color><param>#627e95</param>"M-*"</x-color>) <x-color><param>#627e95</param>"gselect 17"</x-color>)
(define-key *top-map* (kbd <x-color><param>#627e95</param>"M-\("</x-color>) <x-color><param>#627e95</param>"gselect 18"</x-color>)
(define-key *top-map* (kbd <x-color><param>#627e95</param>"M-\)"</x-color>) <x-color><param>#627e95</param>"gselect 19"</x-color>)
;; <x-color><param>#565766</param>set FFM
</x-color>(setf *mouse-focus-policy* <x-color><param>#a3646f</param>:sloppy</x-color>)
;; <x-color><param>#565766</param>show input bar in centre of screen
</x-color>(setf *input-window-gravity* <x-color><param>#a3646f</param>:center</x-color>)
;; <x-color><param>#565766</param>enable the mode-line (and preferably the system tray)
</x-color>(setf *mode-line-position* <x-color><param>#a3646f</param>:bottom</x-color>)
(load-module <x-color><param>#627e95</param>"stumptray"</x-color>)
(<x-color><param>#93e57c</param>dolist</x-color>
(head (screen-heads (current-screen)))
(toggle-mode-line (current-screen) head))
(stumptray::stumptray)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>#565766</param>
</x-color>;;; <x-color><param>#565766</param>UTILITY FUNCTIONS ;;;
</x-color>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>#565766</param>
</x-color>
(defcommand acpi-status () ()
<x-color><param>#627e95</param>"Print ACPI status in the StumpWM message box."</x-color>
(stumpwm:echo-string (current-screen)
(<x-color><param>#93e57c</param>with-output-to-string</x-color> (stream)
(sb-ext:run-program
<x-color><param>#627e95</param>"/usr/bin/acpitool"</x-color>
nil
<x-color><param>#a3646f</param>:output</x-color> stream))))
(defcommand lock () ()
<x-color><param>#627e95</param>"Lock the screen by invoking i3lock."</x-color>
(stumpwm:echo-string (current-screen) <x-color><param>#627e95</param>"Locking screen..."</x-color>)
(sb-ext:run-program <x-color><param>#627e95</param>"/usr/bin/i3lock"</x-color> nil))
(<x-color><param>#93e57c</param>defun</x-color> <x-color><param>#beb7f7</param>exec-for-status</x-color> (path <x-color><param>#5992c2</param>&rest</x-color> args)
<x-color><param>#565766</param>"Run the path with args and return the status code."</x-color>
(sb-ext:process-exit-code
(sb-ext:run-program path args <x-color><param>#a3646f</param>:wait</x-color> t)))
(<x-color><param>#93e57c</param>defun</x-color> <x-color><param>#beb7f7</param>exec-ok</x-color> (path <x-color><param>#5992c2</param>&rest</x-color> args)
<x-color><param>#565766</param>"Returns true if path with args ran without error."</x-color>
(zerop (exec-for-status path args)))
(<x-color><param>#93e57c</param>defun</x-color> <x-color><param>#beb7f7</param>daemon-is-running</x-color> (daemon)
(zerop (exec-for-status <x-color><param>#627e95</param>"/usr/bin/pgrep"</x-color> daemon)))
(<x-color><param>#93e57c</param>defun</x-color> <x-color><param>#beb7f7</param>start-daemon-if-not-running</x-color> (path <x-color><param>#5992c2</param>&rest</x-color> args)
<x-color><param>#565766</param>"If the program specified at path isn't running, start it."</x-color>
(<x-color><param>#93e57c</param>when</x-color> (not (daemon-is-running (pathname-name path)))
(run-shell-command (<x-color><param>#93e57c</param>if</x-color> (null args)
path
(format nil <x-color><param>#627e95</param>"~A~{ ~A~}"</x-color> path args)))))
(<x-color><param>#93e57c</param>defun</x-color> <x-color><param>#beb7f7</param>start-program-if-not-running</x-color> (program <x-color><param>#5992c2</param>&rest</x-color> args)
(format t <x-color><param>#627e95</param>"WOULD RUN: nohup ~A~{ ~A~}"</x-color> program args)
(<x-color><param>#93e57c</param>when</x-color> (not (exec-ok <x-color><param>#627e95</param>"/usr/bin/pgrep"</x-color> program))
(run-shell-command (format nil <x-color><param>#627e95</param>"nohup ~A~{ ~A~}"</x-color>
program args))))
(<x-color><param>#93e57c</param>defun</x-color> <x-color><param>#beb7f7</param>with-terminal</x-color> (<x-color><param>#5992c2</param>&key</x-color> (run <x-color><param>#627e95</param>""</x-color> run-p) (term *default-terminal*))
(concat <x-color><param>#627e95</param>"exec "</x-color> term (<x-color><param>#93e57c</param>if</x-color> run-p <x-color><param>#627e95</param>" -e "</x-color> <x-color><param>#627e95</param>""</x-color>) run))
(<x-color><param>#93e57c</param>defun</x-color> <x-color><param>#beb7f7</param>with-homedir</x-color> (path)
(merge-pathnames path (user-homedir-pathname)))
(<x-color><param>#93e57c</param>defun</x-color> <x-color><param>#beb7f7</param>in-homedir-p</x-color> (path)
(probe-file (<x-color><param>#93e57c</param>with-homedir</x-color> path)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>#565766</param>
</x-color>;;; <x-color><param>#565766</param>DEMON^WKEY BINDING ;;;
</x-color>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>#565766</param>
</x-color>
(define-key stumpwm:*root-map* (kbd <x-color><param>#627e95</param>"B"</x-color>) <x-color><param>#627e95</param>"exec firefox"</x-color>)
(define-key stumpwm:*root-map* (kbd <x-color><param>#627e95</param>"c"</x-color>) (<x-color><param>#93e57c</param>with-terminal</x-color>))
(define-key *root-map* (kbd <x-color><param>#627e95</param>"b"</x-color>) <x-color><param>#627e95</param>"acpi-status"</x-color>)
(define-key *root-map* (kbd <x-color><param>#627e95</param>"RET"</x-color>) (<x-color><param>#93e57c</param>with-terminal</x-color>))
(define-key *root-map* (kbd <x-color><param>#627e95</param>"d"</x-color>) <x-color><param>#627e95</param>"exec dmenu_run"</x-color>)
(define-key *root-map* (kbd <x-color><param>#627e95</param>"D"</x-color>) <x-color><param>#627e95</param>"exec i3-dmenu-desktop"</x-color>)
(define-key *root-map* (kbd <x-color><param>#627e95</param>"e"</x-color>) <x-color><param>#627e95</param>"exec emacsclient -c -a \"\""</x-color>)
(define-key *root-map* (kbd <x-color><param>#627e95</param>"E"</x-color>) (<x-color><param>#93e57c</param>with-terminal</x-color> <x-color><param>#a3646f</param>:run</x-color> <x-color><param>#627e95</param>"'emacsclient -c -nw -a \"\"'"</x-color>))
(define-key *root-map* (kbd <x-color><param>#627e95</param>"g"</x-color>) (<x-color><param>#93e57c</param>with-terminal</x-color> <x-color><param>#a3646f</param>:run</x-color> <x-color><param>#627e95</param>"ghci"</x-color>))
(define-key *root-map* (kbd <x-color><param>#627e95</param>"C-i"</x-color>) (<x-color><param>#93e57c</param>with-terminal</x-color> <x-color><param>#a3646f</param>:run</x-color> <x-color><param>#627e95</param>"ipython"</x-color>))
(define-key *root-map* (kbd <x-color><param>#627e95</param>"l"</x-color>) <x-color><param>#627e95</param>"lock"</x-color>)
(define-key *root-map* (kbd <x-color><param>#627e95</param>"C-l"</x-color>) (<x-color><param>#93e57c</param>with-terminal</x-color> <x-color><param>#a3646f</param>:run</x-color> <x-color><param>#627e95</param>"rlwrap sbcl"</x-color>))
(<x-color><param>Purple</param>define-key</x-color> *root-map* (kbd <x-color><param>VioletRed4</param>"M"</x-color>) (<x-color><param>Purple</param>with-terminal</x-color> <x-color><param>dark slate blue</param>:run</x-color> <x-color><param>VioletRed4</param>"htop"</x-color>))
(<x-color><param>Purple</param>define-key</x-color> *root-map* (kbd <x-color><param>VioletRed4</param>"C-s"</x-color>) <x-color><param>VioletRed4</param>"swank"</x-color>)
(<x-color><param>Purple</param>define-key</x-color> *root-map* (kbd <x-color><param>VioletRed4</param>"C-v"</x-color>) <x-color><param>VioletRed4</param>"exec pavucontrol"</x-color>)
(<x-color><param>Purple</param>define-key</x-color> *root-map* (kbd <x-color><param>VioletRed4</param>"w"</x-color>) (<x-color><param>Purple</param>with-terminal</x-color> <x-color><param>dark slate blue</param>:run</x-color> <x-color><param>VioletRed4</param>"nmtui-connect"</x-color>))
(<x-color><param>Purple</param>define-key</x-color> *root-map* (kbd <x-color><param>VioletRed4</param>"`"</x-color>) <x-color><param>VioletRed4</param>"scratch-pad"</x-color>)
(<x-color><param>Purple</param>define-key</x-color> *root-map* (kbd <x-color><param>VioletRed4</param>"~"</x-color>) <x-color><param>VioletRed4</param>"scratch-pad-float"</x-color>)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>Firebrick</param>
</x-color>;;; <x-color><param>Firebrick</param>EXECUTION ;;;
</x-color>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>Firebrick</param>
</x-color>
(run-shell-command <x-color><param>VioletRed4</param>"ssh-add"</x-color>)
(<x-color><param>Purple</param>when</x-color> (in-homedir-p <x-color><param>VioletRed4</param>".fehbg"</x-color>)
(sb-ext:run-program <x-color><param>VioletRed4</param>"/bin/sh"</x-color> (<x-color><param>Purple</param>with-homedir</x-color> <x-color><param>VioletRed4</param>".fehbg"</x-color>)))
(<x-color><param>Purple</param>when</x-color> (in-homedir-p <x-color><param>VioletRed4</param>".screenlayouts/norminal.sh"</x-color>)
(run-shell-command (<x-color><param>Purple</param>with-homedir</x-color> <x-color><param>VioletRed4</param>".screenlayouts/norminal.sh"</x-color>)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>Firebrick</param>
</x-color>;;; <x-color><param>Firebrick</param>THIS BATTLESTATION IS FULLY OPERATIONAL ;;;
</x-color>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<x-color><param>Firebrick</param>
</x-color>(message <x-color><param>VioletRed4</param>"Ready."</x-color>)
;;<x-color><param>Firebrick</param>LISP=sbcl
</x-color>

View File

@ -5,6 +5,15 @@
directory_mode: 0755 directory_mode: 0755
force: false force: false
# changes are made often enough right now that this
# should be copied every run.
- name: copy the shell profile over
ansible.builtin.copy:
src: "{{ role_path }}/files/.profile"
dest: "/home/{{ laptop_user }}/.profile"
mode: 0644
force: true
- name: create binary directory - name: create binary directory
ansible.builtin.file: ansible.builtin.file:
path: "/home/{{ laptop_user }}/.local/bin" path: "/home/{{ laptop_user }}/.local/bin"
@ -27,9 +36,7 @@
- .gitignore_global - .gitignore_global
- .hgrc - .hgrc
- .mg - .mg
- .profile
- .vimrc - .vimrc
- .XCompose
- name: copy vim directory - name: copy vim directory
ansible.builtin.copy: ansible.builtin.copy:
@ -37,3 +44,13 @@
dest: "/home/{{ laptop_user }}/" dest: "/home/{{ laptop_user }}/"
directory_mode: 0755 directory_mode: 0755
force: false force: false
- name: copy various dotfiles for non-headless systems
when: not headless
ansible.builtin.copy:
src: "{{ role_path }}/files/{{ item }}"
dest: "/home/{{ laptop_user }}/{{ item }}"
mode: 0644
with_items:
- .stumpwmrc
- .XCompose