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