chore: migrate to unique git repo
This commit is contained in:
		
							
								
								
									
										8
									
								
								lib/README.md
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										8
									
								
								lib/README.md
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,8 @@ | ||||
| ## lib | ||||
|  | ||||
| These would normally be installed by `luarocks`; however, given how central they are to the config, they are vendored in instead. | ||||
|  | ||||
| ### Versions | ||||
|  | ||||
| - `fennel`: 0.1.1-2 | ||||
| - `fun`: 0.1.3-1 | ||||
							
								
								
									
										1964
									
								
								lib/fennel.lua
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										1964
									
								
								lib/fennel.lua
									
									
									
									
									
										Normal file
									
								
							
										
											
												File diff suppressed because it is too large
												Load Diff
											
										
									
								
							
							
								
								
									
										1056
									
								
								lib/fun.lua
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										1056
									
								
								lib/fun.lua
									
									
									
									
									
										Normal file
									
								
							
										
											
												File diff suppressed because it is too large
												Load Diff
											
										
									
								
							
							
								
								
									
										35
									
								
								lib/keys.fnl
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										35
									
								
								lib/keys.fnl
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,35 @@ | ||||
| ;;; lib/keys.fnl --- Key configuration utilities | ||||
|  | ||||
| ;;; Commentary: | ||||
| ;; Comments | ||||
|  | ||||
| ;;; Code: | ||||
|  | ||||
| (var keys {}) | ||||
|  | ||||
| (local awful (require :awful)) | ||||
| (local fun (require :lib.fun)) | ||||
|  | ||||
| (local modifiers | ||||
|        {:mod "Mod4" | ||||
|         :alt "Mod1" | ||||
|         :super "Mod4" | ||||
|         :shift "Shift" | ||||
|         :ctrl "Control"}) | ||||
|  | ||||
| ;;; | ||||
| ;; Functions | ||||
|  | ||||
| (fn map-mods [mods] | ||||
|   (->> mods | ||||
|      (fun.map (partial . modifiers)) | ||||
|      (fun.totable))) | ||||
|  | ||||
| (fn keys.key [mods kc fun] | ||||
|   (awful.key (map-mods mods) kc fun)) | ||||
|  | ||||
| (fn keys.button [mods bc fun] | ||||
|   (awful.button (map-mods mods) bc fun)) | ||||
|  | ||||
| keys | ||||
| ;;; lib/keys.fnl ends here | ||||
							
								
								
									
										17
									
								
								lib/std.fnl
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										17
									
								
								lib/std.fnl
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,17 @@ | ||||
| ;;; std.fnl --- A small standard library | ||||
|  | ||||
| ;;; Commentary: | ||||
| ;; Porting a few functions that I'm used to from other Lisps. | ||||
|  | ||||
| ;;; Code: | ||||
|  | ||||
| (var std {}) | ||||
|  | ||||
| ;;; | ||||
| ;; Functions | ||||
|  | ||||
| (fn std.zero? [n] | ||||
|   (= 0 n)) | ||||
|  | ||||
| std | ||||
| ;;; std.fnl ends here | ||||
		Reference in New Issue
	
	Block a user