From 96d038c44a1ef26892adf4b775d1e2efe9e7b44b Mon Sep 17 00:00:00 2001
From: JSDurand <mmemmew@gmail.com>
Date: Sat, 16 Jan 2021 14:04:07 +0800
Subject: The first stable version

Fixes: Avoid adding suffix-link repeatedly

* embark-conf.el ("embark"): Use view-mode instead of view-file

* init.el (load-after-function): Modify the macro so that it no longer
redefines built-in functions.
(global-map):
("view-conf.el"): Rename view-functions.el to view-conf.el

* suffix tree/generalized-suffix-tree.el (gst-edge-length):
(gst-add-suffix-link):
(gst-canonize):
(gst-extend-tree):
(gst-build-for-strs):
Fixed the bug.

* suffix tree/gst debugging platform.txt (strs): Add a new debugging file
* suffix tree/gst test ground (2).txt (strs): Do more debugging

* tab-conf.el (durand-switch-tab-dwim): Add my own dwim tab function.
(global-map): Bind it to the global map.

* theme.el Update the modus-themes.

* view-conf.el Rename view-functions.el to view-conf.el.
---
 view-functions.el | 90 -------------------------------------------------------
 1 file changed, 90 deletions(-)
 delete mode 100644 view-functions.el

(limited to 'view-functions.el')

diff --git a/view-functions.el b/view-functions.el
deleted file mode 100644
index 5d51293..0000000
--- a/view-functions.el
+++ /dev/null
@@ -1,90 +0,0 @@
-;;; view-functions.el --- My functions to view things -*- lexical-binding: t; -*-
-
-;;;###autoload
-(defun durand-view-timers-or-temps (&optional arg)
-  "View the list of timers or view the CPU temperature info.
-If ARG is nil, view the list of timers.
-If ARG is '(4), view the information about CPU temperature and
-fans speed and some others.
-If ARG is '(16), view the battery information."
-  (interactive "P")
-  (cond
-   ((null arg)
-    (let (fan-speed
-          cpu-die-temperature
-          remain
-          full-capacity
-          fullp
-          charging
-          cycle
-          condition
-          connected
-          battery-temp)
-      (with-temp-buffer
-;;; NOTE: First fans information
-        (insert (funcall
-                 (plist-get (car (auth-source-search :host "local-computer"))
-                            :secret)))
-        (call-process-region
-         nil nil "sudo"
-         nil t nil "-S" "powermetrics"
-         "-i1" "-n1" "-ssmc")
-        (goto-char (point-min))
-        (search-forward "Fan" nil t)
-        (setf fan-speed
-              (progn (re-search-forward "[[:digit:]]+" (line-end-position) t)
-                     (string-to-number (match-string 0)))
-              cpu-die-temperature
-              (progn (re-search-forward "temperature: \\([[:digit:]]+\\.[[:digit:]]+\\)" nil t)
-                     (string-to-number (match-string 1))))
-
-;;; NOTE: Now battery charge information
-        (erase-buffer)
-        (call-process "system_profiler" nil t nil
-                      "SPPowerDataType")
-        (goto-char (point-min))
-        (re-search-forward "Fully Charged: \\(.+\\)$" nil t)
-        (setf fullp (match-string-no-properties 1))
-        (re-search-forward "Charging: \\(.+\\)$" nil t)
-        (setf charging (match-string-no-properties 1))
-        (re-search-forward "Full Charge Capacity (mAh): \\([[:digit:]]+\\)$" nil t)
-        (setf full-capacity (string-to-number (match-string-no-properties 1)))
-        (re-search-forward "State of Charge (%): \\([[:digit:]]+\\)" nil t)
-        (setf remain (string-to-number (match-string-no-properties 1)))
-        (re-search-forward "Cycle Count: \\(.+\\)$" nil t)
-        (setf cycle (string-to-number (match-string-no-properties 1)))
-        (re-search-forward "Condition: \\(.+\\)$" nil t)
-        (setf condition (match-string-no-properties 1))
-        (re-search-forward "Connected: \\(.+\\)$" nil t)
-        (setf connected (match-string-no-properties 1))
-
-;;; NOTE: Now battery temperature
-        (erase-buffer)
-        (call-process "ioreg" nil t nil "-n" "AppleSmartBattery" "-r")
-        (goto-char (point-min))
-        (re-search-forward "Temperature..=." nil t)
-        (re-search-forward "[[:digit:]]+" nil t)
-        (setf battery-temp
-              (/ (string-to-number (match-string-no-properties 0))
-                 100.0)))
-      (message
-       (concat
-        (format "fan: %d, temp: %s, battery temp: %.2f"
-                fan-speed cpu-die-temperature battery-temp)
-        "\n"
-        (format "Full: %d, remaining: %d%s, fullp: %s, charging: %s, connected: %s, cycles: %d, condition: %s"
-                full-capacity remain "%%" fullp charging connected cycle condition)))))
-   ((equal arg (list 4)) (list-timers))
-   (t
-    (user-error "Unsupported ARG: %S" arg))))
-
-(define-obsolete-function-alias 'durand-view-timers 'durand-view-timers-or-temps
-  "2020-09-02" "View the list of timers.")
-
-;;;###autoload
-(defun durand-view-process (&optional arg)
-  "View the list of processes"
-  (interactive "P")
-  (if arg
-      (proced)
-    (message "%s" (process-list))))
-- 
cgit v1.2.3-18-g5258