about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/bills.el
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