adding various bits.
This commit is contained in:
		
							parent
							
								
									78bb2c64b7
								
							
						
					
					
						commit
						fc983b39a6
					
				
							
								
								
									
										3
									
								
								Makefile
								
								
								
								
							
							
						
						
									
										3
									
								
								Makefile
								
								
								
								
							| 
						 | 
					@ -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)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -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
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -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
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -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>
 | 
				
			||||||
| 
						 | 
					@ -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
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue