feat(wpcarro/emacs): Package string.el

Mostly just a wrapper around s.el (for now?). Eventually I'd like to prune the
dependency on dash.el (and maybe s.el).

Change-Id: I5c2ba256524bedd93fcd13933fdbd95b1ddff6f8
Reviewed-on: https://cl.tvl.fyi/c/depot/+/6002
Reviewed-by: wpcarro <wpcarro@gmail.com>
Autosubmit: wpcarro <wpcarro@gmail.com>
Tested-by: BuildkiteCI
This commit is contained in:
William Carroll 2022-07-29 18:56:06 -07:00 committed by clbot
parent 7410928b5b
commit 8989dad5ed
4 changed files with 57 additions and 19 deletions

View file

@ -29,6 +29,7 @@ let
list
maybe
set
string
struct
zle
]) ++

View file

@ -0,0 +1,27 @@
{ pkgs, depot, ... }:
let
string = pkgs.callPackage
({ emacsPackages }:
emacsPackages.trivialBuild {
pname = "string";
version = "1.0.0";
src = ./string.el;
packageRequires = [
emacsPackages.dash
emacsPackages.s
];
})
{ };
emacs = (pkgs.emacsPackagesFor pkgs.emacs28).emacsWithPackages (epkgs: [
string
]);
in
string.overrideAttrs (_old: {
doCheck = true;
checkPhase = ''
${emacs}/bin/emacs -batch \
-l ert -l ${./tests.el} -f ert-run-tests-batch-and-exit
'';
})

View file

@ -5,7 +5,7 @@
;; Package-Requires: ((emacs "24"))
;;; Commentary:
;; Library for working with string.
;; Library for working with strings.
;;; Code:
@ -15,31 +15,15 @@
(require 's)
(require 'dash)
;; TODO: Resolve the circular dependency that this introduces.
;; (require 'prelude)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Library
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun string-contains? (c x)
"Return t if X is in C."
(s-contains? c x))
(defun string-hookify (x)
"Append \"-hook\" to X."
(s-append "-hook" x))
(defun string-split (y x)
"Map string X into a list of strings that were separated by Y."
(s-split y x))
(defun string-ensure-hookified (x)
"Ensure that X has \"-hook\" appended to it."
(if (s-ends-with? "-hook" x)
x
(string-hookify x)))
(defun string-format (x &rest args)
"Format template string X with ARGS."
(apply #'format (cons x args)))
@ -48,11 +32,11 @@
"Joins `STRINGS' into onto string."
(apply #'s-concat strings))
(defun string-->symbol (string)
(defun string-to-symbol (string)
"Maps `STRING' to a symbol."
(intern string))
(defun string-<-symbol (symbol)
(defun string-from-symbol (symbol)
"Maps `SYMBOL' into a string."
(symbol-name symbol))
@ -106,5 +90,9 @@
"Return t if X is a string."
(stringp x))
(defun string-contains? (c x)
"Return t if X is in C."
(s-contains? c x))
(provide 'string)
;;; string.el ends here

View file

@ -0,0 +1,22 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ert)
(require 'string)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Tests
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(ert-deftest string-caps->kebab ()
(string= "foo-bar-baz" (string-caps->kebab "FOO_BAR_BAZ")))
(ert-deftest string-kebab->caps ()
(string= "FOO_BAR_BAZ" (string-kebab->caps "foo-bar-baz")))
(ert-deftest string-lower->caps ()
(string= "FOO_BAR_BAZ" (string-lower->caps "foo bar baz")))
(ert-deftest string-lower->kebab ()
(string= "foo-bar-baz" (string-lower->kebab "foo bar baz")))