blob: 7d1665c2dc071b7b255783a65daa0136b7f741a4 (
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
;;; my-uptime.el --- calculates uptime for SLOs
;;; Commentary:
;; Calculate how much downtime is allowed for different periods of time
;; based on a given SLO. Display results in an aligned org-mode table.
;;; Code:
(require 'org)
(defconst my-uptime/buffer-name "*slo-calculator*")
(defconst my-uptime/seconds-per-hour 3600
"Number of seconds in an hour.")
(defconst my-uptime/seconds-per-day (* my-uptime/seconds-per-hour 24)
"Number of seconds in a day.")
(defconst my-uptime/seconds-per-week (* my-uptime/seconds-per-day 7)
"Number of seconds in a week.")
(defconst my-uptime/seconds-per-month (* my-uptime/seconds-per-day 30)
"Number of seconds in a month.")
(defconst my-uptime/seconds-per-quarter (* my-uptime/seconds-per-month 3)
"Number of seconds in a quarter.")
(defconst my-uptime/seconds-per-year (* my-uptime/seconds-per-month 12)
"Number of seconds in a year.")
(defun my/uptime-is (slo)
"Return the amount of allowed downtime for a given SLO."
(interactive "nSLO:")
(let* ((slo (cond ((< slo 0) 0)
((> slo 100) 100)
(t slo)))
(allowed (/ (- (* 100 100) (* slo 100.0)) (* 100 100))))
(my/uptime--message allowed slo)))
(defun my/uptime--message (seconds slo)
"Insert buffer text with allowed downtime based on SECONDS (derived from SLO)."
(let ((inhibit-read-only t)
(buffer-undo-list t))
(pop-to-buffer my-uptime/buffer-name)
(erase-buffer)
(org-mode)
(insert (format "* Calculated allowed downtime for %.2f%% availability\n\n" slo))
(insert "| Time Period | Allowed Downtime |\n")
(insert "|-------------+-------------------|\n")
(dolist (period '(("Daily" . my-uptime/seconds-per-day)
("Weekly" . my-uptime/seconds-per-week)
("Monthly" . my-uptime/seconds-per-month)
("Quarterly" . my-uptime/seconds-per-quarter)
("Yearly" . my-uptime/seconds-per-year)))
(let* ((period-name (car period))
(period-seconds (symbol-value (cdr period)))
(downtime (seconds-to-time (* period-seconds seconds))))
(insert (format "| %s | %s |\n"
period-name
(format-seconds "%D %H:%M:%S" downtime)))))
(insert "|-------------+-------------------|\n")
(org-table-align)
(goto-char (point-min))))
(provide 'my-uptime)
;;; my-uptime.el ends here
|
