-
Notifications
You must be signed in to change notification settings - Fork 2
/
disk-status.el
53 lines (46 loc) · 1.76 KB
/
disk-status.el
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
;;
;; 监控disk使用量的包
;;
(require 'json)
(defconst ab/disk-status-this-dir (file-name-directory (or load-file-name (buffer-file-name))))
(defcustom ab/disk-status-file-name (expand-file-name "html/disk_status.json" ab/disk-status-this-dir)
"disk status file name"
:group 'disk-status
:type 'string)
(setq ab/disk-status-file-name (expand-file-name "html/disk_status.json" ab/disk-status-this-dir))
(defun ab/get-disk-status-command (arg)
(cond
((string= system-type "gnu/linux")
(cond
((string= arg "used")
"df -h |grep \"/dev/\" |awk '{print $5}'")
((string= arg "avail")
"df -h |grep \"/dev/\" |awk '{print $4}'")))
((string= system-type "darwin")
(cond
((string= arg "used")
"df -h |grep \"dev/disk1\" |awk '{print $8}'")
((string= arg "avail")
"df -h |grep \"dev/disk1\" |awk '{print $4}'")))))
(defun ab/shell-command-to-string (command)
(replace-regexp-in-string "\r?\n$" "" ;; 去掉换行符号
(shell-command-to-string command)))
(defun ab/disk-status ()
(interactive)
(with-temp-file ab/disk-status-file-name
(let* ((command-result-used
(ab/shell-command-to-string (ab/get-disk-status-command "used")))
(command-result-avail
(ab/shell-command-to-string (ab/get-disk-status-command "avail"))))
;; (message (format "write result to %s" ab/disk-status-file-name))
(insert
(json-encode `(:used ,command-result-used :avail ,command-result-avail))))))
(defun ab/debug-disk-status ()
(interactive)
(with-temp-file "~/debug.txt"
(when (string= system-type "gnu/linux")
(insert "gun/linux"))
(when (string= system-type "darwin")
(insert "mac osx")))
(message system-type))
(provide 'disk-status)