blob: fbdeb9d0f820c026d81cb78b73921028d76fe894 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
;;; bills.el --- Helping me manage my bills -*- lexical-binding: t -*-
;; Author: William Carroll <wpcarro@gmail.com>
;;; Commentary:
;; For personal use only.
;;; Code:
(defconst bills/whitelist '(("Council Tax" . "rbkc.gov.uk/onlinepayments/counciltaxpayments/")
("Internet". "plus.net/member-centre/login"))
"Maps searchable labels to URLs to pay these bills.")
(defun bills/url ()
"Copies the URL to pay a bill onto the clipboard."
(ivy-read
"Bill: "
bills/whitelist
:action (lambda (entry)
(kill-new (cdr entry))
(alert "Copied to clipboard!"))))
(macros/comment
(bills/url))
(provide 'bills)
;;; bills.el ends here
|
