Rename alist.el to al.el
After switching my namespace separator from "/" to "-" the function, `alist-get`, clashed (surprise!) with the pre-existing function, `alist-get`. As I was struggling to debug my broken Emacs (it broke bc Emacs 27 rolled out), and I changed the module name, "alist", to "al" attempting to defuse the issue.
This commit is contained in:
parent
1fe5d0373e
commit
c17796a60d
10 changed files with 84 additions and 108 deletions
|
@ -1,4 +1,4 @@
|
||||||
;;; alist.el --- Interface for working with associative lists -*- lexical-binding: t -*-
|
;;; al.el --- Interface for working with associative lists -*- lexical-binding: t -*-
|
||||||
|
|
||||||
;; Author: William Carroll <wpcarro@gmail.com>
|
;; Author: William Carroll <wpcarro@gmail.com>
|
||||||
;; Version: 0.0.1
|
;; Version: 0.0.1
|
||||||
|
@ -66,7 +66,6 @@
|
||||||
;; Dependencies:
|
;; Dependencies:
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(require 'maybe)
|
|
||||||
(require 'macros)
|
(require 'macros)
|
||||||
(require 'dash)
|
(require 'dash)
|
||||||
(require 'tuple)
|
(require 'tuple)
|
||||||
|
@ -90,7 +89,7 @@
|
||||||
;; Constants
|
;; Constants
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(defconst alist-enable-tests? t
|
(defconst al-enable-tests? t
|
||||||
"When t, run the test suite.")
|
"When t, run the test suite.")
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
@ -98,104 +97,105 @@
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
;; TODO: Support a variadic version of this to easily construct alists.
|
;; TODO: Support a variadic version of this to easily construct alists.
|
||||||
(defun alist-new ()
|
(defun al-new ()
|
||||||
"Return a new, empty alist."
|
"Return a new, empty alist."
|
||||||
'())
|
'())
|
||||||
|
|
||||||
;; Create
|
;; Create
|
||||||
;; TODO: See if this mutates.
|
;; TODO: See if this mutates.
|
||||||
(defun alist-set (k v xs)
|
(defun al-set (k v xs)
|
||||||
"Set K to V in XS."
|
"Set K to V in XS."
|
||||||
(if (alist-has-key? k xs)
|
(if (al-has-key? k xs)
|
||||||
(progn
|
(progn
|
||||||
|
;; Note: this is intentional `alist-get' and not `al-get'.
|
||||||
(setf (alist-get k xs) v)
|
(setf (alist-get k xs) v)
|
||||||
xs)
|
xs)
|
||||||
(list-cons `(,k . ,v) xs)))
|
(list-cons `(,k . ,v) xs)))
|
||||||
|
|
||||||
(defun alist-set! (k v xs)
|
(defun al-set! (k v xs)
|
||||||
"Set K to V in XS mutatively.
|
"Set K to V in XS mutatively.
|
||||||
Note that this doesn't append to the alist in the way that most alists handle
|
Note that this doesn't append to the alist in the way that most alists handle
|
||||||
writing. If the k already exists in XS, it is overwritten."
|
writing. If the k already exists in XS, it is overwritten."
|
||||||
(map-delete xs k)
|
(map-delete xs k)
|
||||||
(map-put xs k v))
|
(map-put! xs k v))
|
||||||
|
|
||||||
;; Read
|
;; Read
|
||||||
(defun alist-get (k xs)
|
(defun al-get (k xs)
|
||||||
"Return the value at K in XS; otherwise, return nil.
|
"Return the value at K in XS; otherwise, return nil.
|
||||||
Returns the first occurrence of K in XS since alists support multiple entries."
|
Returns the first occurrence of K in XS since alists support multiple entries."
|
||||||
(cdr (assoc k xs)))
|
(cdr (assoc k xs)))
|
||||||
|
|
||||||
(defun alist-get-entry (k xs)
|
(defun al-get-entry (k xs)
|
||||||
"Return the first key-value pair at K in XS."
|
"Return the first key-value pair at K in XS."
|
||||||
(assoc k xs))
|
(assoc k xs))
|
||||||
|
|
||||||
;; Update
|
;; Update
|
||||||
;; TODO: Add warning about only the first occurrence being updated in the
|
;; TODO: Add warning about only the first occurrence being updated in the
|
||||||
;; documentation.
|
;; documentation.
|
||||||
(defun alist-update (k f xs)
|
(defun al-update (k f xs)
|
||||||
"Apply F to the value stored at K in XS.
|
"Apply F to the value stored at K in XS.
|
||||||
If `K' is not in `XS', this function errors. Use `alist-upsert' if you're
|
If `K' is not in `XS', this function errors. Use `al-upsert' if you're
|
||||||
interested in inserting a value when a key doesn't already exist."
|
interested in inserting a value when a key doesn't already exist."
|
||||||
(if (maybe-nil? (alist-get k xs))
|
(if (not (al-has-key? k xs))
|
||||||
(error "Refusing to update: key does not exist in alist")
|
(error "Refusing to update: key does not exist in alist")
|
||||||
(alist-set k (funcall f (alist-get k xs)) xs)))
|
(al-set k (funcall f (al-get k xs)) xs)))
|
||||||
|
|
||||||
(defun alist-update! (k f xs)
|
(defun al-update! (k f xs)
|
||||||
"Call F on the entry at K in XS.
|
"Call F on the entry at K in XS.
|
||||||
Mutative variant of `alist-update'."
|
Mutative variant of `al-update'."
|
||||||
(alist-set! k (funcall f (alist-get k xs))xs))
|
(al-set! k (funcall f (al-get k xs))xs))
|
||||||
|
|
||||||
;; TODO: Support this.
|
;; TODO: Support this.
|
||||||
(defun alist-upsert (k v f xs)
|
(defun al-upsert (k v f xs)
|
||||||
"If K exists in `XS' call `F' on the value otherwise insert `V'."
|
"If K exists in `XS' call `F' on the value otherwise insert `V'."
|
||||||
(if (alist-get k xs)
|
(if (al-has-key? k xs)
|
||||||
(alist-update k f xs)
|
(al-update k f xs)
|
||||||
(alist-set k v xs)))
|
(al-set k v xs)))
|
||||||
|
|
||||||
;; Delete
|
;; Delete
|
||||||
;; TODO: Make sure `delete' and `remove' behave as advertised in the Elisp docs.
|
;; TODO: Make sure `delete' and `remove' behave as advertised in the Elisp docs.
|
||||||
(defun alist-delete (k xs)
|
(defun al-delete (k xs)
|
||||||
"Deletes the entry of K from XS.
|
"Deletes the entry of K from XS.
|
||||||
This only removes the first occurrence of K, since alists support multiple
|
This only removes the first occurrence of K, since alists support multiple
|
||||||
key-value entries. See `alist-delete-all' and `alist-dedupe'."
|
key-value entries. See `al-delete-all' and `al-dedupe'."
|
||||||
(remove (assoc k xs) xs))
|
(remove (assoc k xs) xs))
|
||||||
|
|
||||||
(defun alist-delete! (k xs)
|
(defun al-delete! (k xs)
|
||||||
"Delete the entry of K from XS.
|
"Delete the entry of K from XS.
|
||||||
Mutative variant of `alist-delete'."
|
Mutative variant of `al-delete'."
|
||||||
(delete (assoc k xs) xs))
|
(delete (assoc k xs) xs))
|
||||||
|
|
||||||
;; Additions to the CRUD API
|
;; Additions to the CRUD API
|
||||||
;; TODO: Implement this function.
|
;; TODO: Implement this function.
|
||||||
(defun alist-dedupe-keys (xs)
|
(defun al-dedupe-keys (xs)
|
||||||
"Remove the entries in XS where the keys are `equal'.")
|
"Remove the entries in XS where the keys are `equal'.")
|
||||||
|
|
||||||
(defun alist-dedupe-entries (xs)
|
(defun al-dedupe-entries (xs)
|
||||||
"Remove the entries in XS where the key-value pair are `equal'."
|
"Remove the entries in XS where the key-value pair are `equal'."
|
||||||
(delete-dups xs))
|
(delete-dups xs))
|
||||||
|
|
||||||
(defun alist-keys (xs)
|
(defun al-keys (xs)
|
||||||
"Return a list of the keys in XS."
|
"Return a list of the keys in XS."
|
||||||
(mapcar 'car xs))
|
(mapcar 'car xs))
|
||||||
|
|
||||||
(defun alist-values (xs)
|
(defun al-values (xs)
|
||||||
"Return a list of the values in XS."
|
"Return a list of the values in XS."
|
||||||
(mapcar 'cdr xs))
|
(mapcar 'cdr xs))
|
||||||
|
|
||||||
(defun alist-has-key? (k xs)
|
(defun al-has-key? (k xs)
|
||||||
"Return t if XS has a key `equal' to K."
|
"Return t if XS has a key `equal' to K."
|
||||||
(maybe-some? (assoc k xs)))
|
(maybe-some? (assoc k xs)))
|
||||||
|
|
||||||
(defun alist-has-value? (v xs)
|
(defun al-has-value? (v xs)
|
||||||
"Return t if XS has a value of V."
|
"Return t if XS has a value of V."
|
||||||
(maybe-some? (rassoc v xs)))
|
(maybe-some? (rassoc v xs)))
|
||||||
|
|
||||||
(defun alist-count (xs)
|
(defun al-count (xs)
|
||||||
"Return the number of entries in XS."
|
"Return the number of entries in XS."
|
||||||
(length xs))
|
(length xs))
|
||||||
|
|
||||||
;; TODO: Should I support `alist-find-key' and `alist-find-value' variants?
|
;; TODO: Should I support `al-find-key' and `al-find-value' variants?
|
||||||
(defun alist-find (p xs)
|
(defun al-find (p xs)
|
||||||
"Find an element in XS.
|
"Find an element in XS.
|
||||||
|
|
||||||
Apply a predicate fn, P, to each key and value in XS and return the key of the
|
Apply a predicate fn, P, to each key and value in XS and return the key of the
|
||||||
|
@ -205,76 +205,51 @@ first element that returns t."
|
||||||
(car result)
|
(car result)
|
||||||
nil)))
|
nil)))
|
||||||
|
|
||||||
(defun alist-map-keys (f xs)
|
(defun al-map-keys (f xs)
|
||||||
"Call F on the values in XS, returning a new alist."
|
"Call F on the values in XS, returning a new alist."
|
||||||
(list-map (lambda (x)
|
(list-map (lambda (x)
|
||||||
`(,(funcall f (car x)) . ,(cdr x)))
|
`(,(funcall f (car x)) . ,(cdr x)))
|
||||||
xs))
|
xs))
|
||||||
|
|
||||||
(defun alist-map-values (f xs)
|
(defun al-map-values (f xs)
|
||||||
"Call F on the values in XS, returning a new alist."
|
"Call F on the values in XS, returning a new alist."
|
||||||
(list-map (lambda (x)
|
(list-map (lambda (x)
|
||||||
`(,(car x) . ,(funcall f (cdr x))))
|
`(,(car x) . ,(funcall f (cdr x))))
|
||||||
xs))
|
xs))
|
||||||
|
|
||||||
(defun alist-reduce (acc f xs)
|
(defun al-reduce (acc f xs)
|
||||||
"Return a new alist by calling F on k v and ACC from XS.
|
"Return a new alist by calling F on k v and ACC from XS.
|
||||||
F should return a tuple. See tuple.el for more information."
|
F should return a tuple. See tuple.el for more information."
|
||||||
(->> (alist-keys xs)
|
(->> (al-keys xs)
|
||||||
(list-reduce acc
|
(list-reduce acc
|
||||||
(lambda (k acc)
|
(lambda (k acc)
|
||||||
(funcall f k (alist-get k xs) acc)))))
|
(funcall f k (al-get k xs) acc)))))
|
||||||
|
|
||||||
(defun alist-merge (a b)
|
(defun al-merge (a b)
|
||||||
"Return a new alist with a merge of alists, A and B.
|
"Return a new alist with a merge of alists, A and B.
|
||||||
In this case, the last writer wins, which is B."
|
In this case, the last writer wins, which is B."
|
||||||
(alist-reduce a #'alist-set b))
|
(al-reduce a #'al-set b))
|
||||||
|
|
||||||
;; TODO: Support `-all' variants like:
|
|
||||||
;; - get-all
|
|
||||||
;; - delete-all
|
|
||||||
;; - update-all
|
|
||||||
|
|
||||||
;; Scratch-pad
|
|
||||||
(macros-comment
|
|
||||||
(progn
|
|
||||||
(setq person '((first-name . "William")
|
|
||||||
(first-name . "William")
|
|
||||||
(last-name . "Carroll")
|
|
||||||
(last-name . "Another")))
|
|
||||||
(alist-set 'last-name "Van Gogh" person)
|
|
||||||
(alist-get 'last-name person)
|
|
||||||
(alist-update 'last-name (lambda (x) "whoops") person)
|
|
||||||
(alist-delete 'first-name person)
|
|
||||||
(alist-keys person)
|
|
||||||
(alist-values person)
|
|
||||||
(alist-count person)
|
|
||||||
(alist-has-key? 'first-name person)
|
|
||||||
(alist-has-value? "William" person)
|
|
||||||
;; (alist-dedupe-keys person)
|
|
||||||
(alist-dedupe-entries person)
|
|
||||||
(alist-count person)))
|
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; Tests
|
;; Tests
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(when alist-enable-tests?
|
(when al-enable-tests?
|
||||||
(prelude-assert
|
(prelude-assert
|
||||||
(equal '((2 . one)
|
(equal '((2 . one)
|
||||||
(3 . two))
|
(3 . two))
|
||||||
(alist-map-keys #'1+
|
(al-map-keys #'1+
|
||||||
'((1 . one)
|
'((1 . one)
|
||||||
(2 . two)))))
|
(2 . two)))))
|
||||||
(prelude-assert
|
(prelude-assert
|
||||||
(equal '((one . 2)
|
(equal '((one . 2)
|
||||||
(two . 3))
|
(two . 3))
|
||||||
(alist-map-values #'1+
|
(al-map-values #'1+
|
||||||
'((one . 1)
|
'((one . 1)
|
||||||
(two . 2))))))
|
(two . 2))))))
|
||||||
|
|
||||||
|
|
||||||
;; TODO: Support test cases for the entire API.
|
;; TODO: Support test cases for the entire API.
|
||||||
|
|
||||||
(provide 'alist)
|
(provide 'al)
|
||||||
;;; alist.el ends here
|
;;; al.el ends here
|
|
@ -27,6 +27,7 @@
|
||||||
;; Dependencies
|
;; Dependencies
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
(require 'al)
|
||||||
(require 'number)
|
(require 'number)
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
@ -42,11 +43,11 @@
|
||||||
|
|
||||||
(defun bag-new ()
|
(defun bag-new ()
|
||||||
"Create an empty bag."
|
"Create an empty bag."
|
||||||
(make-bag :xs (alist-new)))
|
(make-bag :xs (al-new)))
|
||||||
|
|
||||||
(defun bag-contains? (x xs)
|
(defun bag-contains? (x xs)
|
||||||
"Return t if XS has X."
|
"Return t if XS has X."
|
||||||
(alist-has-key? x (bag-xs xs)))
|
(al-has-key? x (bag-xs xs)))
|
||||||
|
|
||||||
;; TODO: Tabling this for now since working with structs seems to be
|
;; TODO: Tabling this for now since working with structs seems to be
|
||||||
;; disappointingly difficult. Where is `struct-update'?
|
;; disappointingly difficult. Where is `struct-update'?
|
||||||
|
|
|
@ -15,7 +15,7 @@
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(require 'dash)
|
(require 'dash)
|
||||||
(require 'alist)
|
(require 'al)
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; Library
|
;; Library
|
||||||
|
@ -30,7 +30,7 @@
|
||||||
|
|
||||||
(defun device-classify ()
|
(defun device-classify ()
|
||||||
"Return the device symbol for the current host or nil if not supported."
|
"Return the device symbol for the current host or nil if not supported."
|
||||||
(alist-get system-name device-hostname->device))
|
(al-get system-name device-hostname->device))
|
||||||
|
|
||||||
(defun device-work-laptop? ()
|
(defun device-work-laptop? ()
|
||||||
"Return t if current device is work laptop."
|
"Return t if current device is work laptop."
|
||||||
|
|
|
@ -18,7 +18,7 @@
|
||||||
(require 'cycle)
|
(require 'cycle)
|
||||||
(require 'string)
|
(require 'string)
|
||||||
(require 'prelude)
|
(require 'prelude)
|
||||||
(require 'alist)
|
(require 'al)
|
||||||
(require 'set)
|
(require 'set)
|
||||||
(require 'maybe)
|
(require 'maybe)
|
||||||
(require 'macros)
|
(require 'macros)
|
||||||
|
@ -53,23 +53,23 @@
|
||||||
(prelude-assert
|
(prelude-assert
|
||||||
(set-distinct? (set-from-list
|
(set-distinct? (set-from-list
|
||||||
(cycle-to-list
|
(cycle-to-list
|
||||||
(alist-get "irc.freenode.net"
|
(al-get "irc.freenode.net"
|
||||||
irc-server->channels)))
|
irc-server->channels)))
|
||||||
(set-from-list
|
(set-from-list
|
||||||
(cycle-to-list
|
(cycle-to-list
|
||||||
(alist-get "irc.corp.google.com"
|
(al-get "irc.corp.google.com"
|
||||||
irc-server->channels)))))
|
irc-server->channels)))))
|
||||||
|
|
||||||
(defun irc-channel->server (server->channels channel)
|
(defun irc-channel->server (server->channels channel)
|
||||||
"Using SERVER->CHANNELS, resolve an IRC server from a given CHANNEL."
|
"Using SERVER->CHANNELS, resolve an IRC server from a given CHANNEL."
|
||||||
(let ((result (alist-find (lambda (k v) (cycle-contains? channel v))
|
(let ((result (al-find (lambda (k v) (cycle-contains? channel v))
|
||||||
server->channels)))
|
server->channels)))
|
||||||
(prelude-assert (maybe-some? result))
|
(prelude-assert (maybe-some? result))
|
||||||
result))
|
result))
|
||||||
|
|
||||||
(defun irc-channel->cycle (server->channels channel)
|
(defun irc-channel->cycle (server->channels channel)
|
||||||
"Using SERVER->CHANNELS, resolve an IRC's channels cycle from CHANNEL."
|
"Using SERVER->CHANNELS, resolve an IRC's channels cycle from CHANNEL."
|
||||||
(alist-get (irc-channel->server server->channels channel)
|
(al-get (irc-channel->server server->channels channel)
|
||||||
server->channels))
|
server->channels))
|
||||||
|
|
||||||
;; Setting `erc-join-buffer' to 'bury prevents erc from stealing focus of the
|
;; Setting `erc-join-buffer' to 'bury prevents erc from stealing focus of the
|
||||||
|
@ -79,8 +79,8 @@
|
||||||
;; TODO: Here is another horrible hack that should be revisted.
|
;; TODO: Here is another horrible hack that should be revisted.
|
||||||
(setq erc-autojoin-channels-alist
|
(setq erc-autojoin-channels-alist
|
||||||
(->> irc-server->channels
|
(->> irc-server->channels
|
||||||
(alist-map-values #'cycle-to-list)
|
(al-map-values #'cycle-to-list)
|
||||||
(alist-map-keys (>-> (s-chop-prefix "irc.")
|
(al-map-keys (>-> (s-chop-prefix "irc.")
|
||||||
(s-chop-suffix ".net")))))
|
(s-chop-suffix ".net")))))
|
||||||
|
|
||||||
(defcustom irc-install-kbds? t
|
(defcustom irc-install-kbds? t
|
||||||
|
|
|
@ -12,7 +12,6 @@
|
||||||
;; Dependencies
|
;; Dependencies
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(require 'alist)
|
|
||||||
(require 'tuple)
|
(require 'tuple)
|
||||||
(require 'string)
|
(require 'string)
|
||||||
|
|
||||||
|
|
|
@ -23,7 +23,7 @@
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(require 'prelude)
|
(require 'prelude)
|
||||||
(require 'alist)
|
(require 'al)
|
||||||
(require 'set)
|
(require 'set)
|
||||||
(require 'string)
|
(require 'string)
|
||||||
|
|
||||||
|
@ -38,9 +38,9 @@
|
||||||
|
|
||||||
;; Assert that no keybindings are colliding.
|
;; Assert that no keybindings are colliding.
|
||||||
(prelude-assert
|
(prelude-assert
|
||||||
(= (alist-count kbd-prefixes)
|
(= (al-count kbd-prefixes)
|
||||||
(->> kbd-prefixes
|
(->> kbd-prefixes
|
||||||
alist-values
|
al-values
|
||||||
set-from-list
|
set-from-list
|
||||||
set-count)))
|
set-count)))
|
||||||
|
|
||||||
|
@ -53,10 +53,10 @@
|
||||||
Values for F include:
|
Values for F include:
|
||||||
- workspace
|
- workspace
|
||||||
- x11"
|
- x11"
|
||||||
(prelude-assert (alist-has-key? f kbd-prefixes))
|
(prelude-assert (al-has-key? f kbd-prefixes))
|
||||||
(string-format
|
(string-format
|
||||||
"%s-%s"
|
"%s-%s"
|
||||||
(alist-get f kbd-prefixes)
|
(al-get f kbd-prefixes)
|
||||||
x))
|
x))
|
||||||
|
|
||||||
(defun kbd-for (f x)
|
(defun kbd-for (f x)
|
||||||
|
|
|
@ -27,7 +27,7 @@
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(require 'battery)
|
(require 'battery)
|
||||||
(require 'alist)
|
(require 'al)
|
||||||
(require 'maybe)
|
(require 'maybe)
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
@ -42,7 +42,7 @@
|
||||||
"Return the current percentage of the battery."
|
"Return the current percentage of the battery."
|
||||||
(->> battery-status-function
|
(->> battery-status-function
|
||||||
funcall
|
funcall
|
||||||
(alist-get 112)))
|
(al-get 112)))
|
||||||
|
|
||||||
(defun laptop-battery-print-percentage ()
|
(defun laptop-battery-print-percentage ()
|
||||||
"Return the current percentage of the battery."
|
"Return the current percentage of the battery."
|
||||||
|
|
|
@ -17,7 +17,7 @@
|
||||||
;; Dependencies
|
;; Dependencies
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(require 'alist)
|
(require 'al)
|
||||||
(require 'stack)
|
(require 'stack)
|
||||||
(require 'struct)
|
(require 'struct)
|
||||||
(require '>)
|
(require '>)
|
||||||
|
@ -31,7 +31,7 @@
|
||||||
(defun scope-new ()
|
(defun scope-new ()
|
||||||
"Return an empty scope."
|
"Return an empty scope."
|
||||||
(make-scope :scopes (->> (stack-new)
|
(make-scope :scopes (->> (stack-new)
|
||||||
(stack-push (alist-new)))))
|
(stack-push (al-new)))))
|
||||||
|
|
||||||
(defun scope-flatten (xs)
|
(defun scope-flatten (xs)
|
||||||
"Return a flattened representation of the scope, XS.
|
"Return a flattened representation of the scope, XS.
|
||||||
|
@ -39,15 +39,15 @@ The newest bindings eclipse the oldest."
|
||||||
(->> xs
|
(->> xs
|
||||||
scope-scopes
|
scope-scopes
|
||||||
stack-to-list
|
stack-to-list
|
||||||
(list-reduce (alist-new)
|
(list-reduce (al-new)
|
||||||
(lambda (scope acc)
|
(lambda (scope acc)
|
||||||
(alist-merge acc scope)))))
|
(al-merge acc scope)))))
|
||||||
|
|
||||||
(defun scope-push-new (xs)
|
(defun scope-push-new (xs)
|
||||||
"Push a new, empty scope onto XS."
|
"Push a new, empty scope onto XS."
|
||||||
(struct-update scope
|
(struct-update scope
|
||||||
scopes
|
scopes
|
||||||
(>-> (stack-push (alist-new)))
|
(>-> (stack-push (al-new)))
|
||||||
xs))
|
xs))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
@ -58,7 +58,7 @@ The newest bindings eclipse the oldest."
|
||||||
"Return K from XS if it's in scope."
|
"Return K from XS if it's in scope."
|
||||||
(->> xs
|
(->> xs
|
||||||
scope-flatten
|
scope-flatten
|
||||||
(alist-get k)))
|
(al-get k)))
|
||||||
|
|
||||||
(defun scope-current (xs)
|
(defun scope-current (xs)
|
||||||
"Return the newest scope from XS."
|
"Return the newest scope from XS."
|
||||||
|
@ -75,7 +75,7 @@ The newest bindings eclipse the oldest."
|
||||||
"Set value, V, at key, K, in XS for the current scope."
|
"Set value, V, at key, K, in XS for the current scope."
|
||||||
(struct-update scope
|
(struct-update scope
|
||||||
scopes
|
scopes
|
||||||
(>-> (stack-map-top (>-> (alist-set k v))))
|
(>-> (stack-map-top (>-> (al-set k v))))
|
||||||
xs))
|
xs))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
@ -96,7 +96,7 @@ The newest bindings eclipse the oldest."
|
||||||
"Return t if K is in scope of XS."
|
"Return t if K is in scope of XS."
|
||||||
(->> xs
|
(->> xs
|
||||||
scope-flatten
|
scope-flatten
|
||||||
(alist-has-key? k)))
|
(al-has-key? k)))
|
||||||
|
|
||||||
;; TODO: Find a faster way to write aliases like this.
|
;; TODO: Find a faster way to write aliases like this.
|
||||||
(defun scope-instance? (xs)
|
(defun scope-instance? (xs)
|
||||||
|
|
|
@ -21,6 +21,7 @@
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(require 'alert)
|
(require 'alert)
|
||||||
|
(require 'al)
|
||||||
(require 'prelude)
|
(require 'prelude)
|
||||||
(require 'string)
|
(require 'string)
|
||||||
(require 'cycle)
|
(require 'cycle)
|
||||||
|
@ -285,7 +286,7 @@ Ivy is used to capture the user's input."
|
||||||
(funcall
|
(funcall
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(shell-command
|
(shell-command
|
||||||
(alist-get (ivy-read "System: " (alist-keys name->cmd))
|
(al-get (ivy-read "System: " (al-keys name->cmd))
|
||||||
name->cmd))))))
|
name->cmd))))))
|
||||||
|
|
||||||
(defun window-manager--label->index (label workspaces)
|
(defun window-manager--label->index (label workspaces)
|
||||||
|
@ -356,7 +357,7 @@ predicate."
|
||||||
buffer)))))
|
buffer)))))
|
||||||
(label (completing-read "Switch to EXWM buffer: " buffer-alist)))
|
(label (completing-read "Switch to EXWM buffer: " buffer-alist)))
|
||||||
(exwm-workspace-switch-to-buffer
|
(exwm-workspace-switch-to-buffer
|
||||||
(alist-get label buffer-alist nil nil #'string=))))
|
(al-get label buffer-alist))))
|
||||||
|
|
||||||
(when window-manager--install-kbds?
|
(when window-manager--install-kbds?
|
||||||
(progn
|
(progn
|
||||||
|
|
|
@ -16,7 +16,7 @@
|
||||||
|
|
||||||
(require 'constants)
|
(require 'constants)
|
||||||
(require 'prelude)
|
(require 'prelude)
|
||||||
(require 'alist)
|
(require 'al)
|
||||||
(require 'fonts)
|
(require 'fonts)
|
||||||
(require 'colorscheme)
|
(require 'colorscheme)
|
||||||
(require 'device)
|
(require 'device)
|
||||||
|
@ -91,7 +91,7 @@
|
||||||
:config
|
:config
|
||||||
(counsel-mode t)
|
(counsel-mode t)
|
||||||
(ivy-mode t)
|
(ivy-mode t)
|
||||||
(alist-set! #'counsel-M-x "" ivy-initial-inputs-alist)
|
(al-set! #'counsel-M-x "" ivy-initial-inputs-alist)
|
||||||
;; prefer using `helpful' variants
|
;; prefer using `helpful' variants
|
||||||
(progn
|
(progn
|
||||||
(setq counsel-describe-function-function #'helpful-callable)
|
(setq counsel-describe-function-function #'helpful-callable)
|
||||||
|
|
Loading…
Reference in a new issue