<p style="font-size:small;">Content-Length: 50515 | <a href="http://clevelandohioweatherforecast.com//pFad.php?u=" style="font-size:small;">pFad</a> | <a href="https://github.com/monkpearman/mon-emacs/raw/master/emacs-load-files/naf-mode/mon-mysql-utils.el" style="font-size:small;">https://github.com/monkpearman/mon-emacs/raw/master/emacs-load-files/naf-mode/mon-mysql-utils.el</a></p>h: 50503
;;; mon-mysql-utils.el --- procedures for extracting from MySQL query results
;; -*- mode: EMACS-LISP; -*-
;;; ================================================================
;; Copyright © 2009-2024 MON KEY. All rights reserved.
;;; ================================================================
;; FILENAME: mon-mysql-utils.el
;; AUTHOR: MON KEY
;; MAINTAINER: MON KEY
;; CREATED:
;; VERSION: 1.0.0
;; COMPATIBILITY: Emacs23.*
;; KEYWORDS: external, editing, data, execute, programming,
;;; ================================================================
;;; COMMENTARY:
;; =================================================================
;; DESCRIPTION:
;; mon-mysql-utils provides interactive procedures for stripping content from
;; MySQL query result tables.Also, provides an alist of MySQL help categorys
;; and topics and a rudimentary completion functionality for accessing MySQL's
;; `mysql' client help facility:
;; mysql> help contents
;; mysql> help [<CATEGORY>|<TOPIC>]
;;
;; :SEE-ALSO :FILE naf-mode-sql-skeletons.el
;; :SEE-ALSO :FILE ../lisp/progmodes/sql.el
;;
;; :SEE (URL `http://www.emacswiki.org/cgi-bin/emacs/download/sql-completion.el')
;; :SEE (URL `http://www.emacswiki.org/emacs/mysql.el')
;;
;; FUNCTIONS:▶▶▶
;; `mon-help-mysql-complete', `mon-help-mysql-commands', `mon-csv-split-string',
;; `mon-csv-map-col-field-pairs', `mon-csv-string-to-list',
;; `mon-csv-string-map-list', `mon-mysql-cln-pipes',
;; `mon-cln-pipes-map-field-pairs', `mon-cln-pipes-get-field-col', `%subst%',
;; `mon-bind-mysql-help-table-loadtime',
;; FUNCTIONS:◀◀◀
;;
;; MACROS:
;;
;; METHODS:
;;
;; CLASSES:
;;
;; CONSTANTS:
;;
;; FACES:
;;
;; VARIABLES:
;; `*regexp-clean-mysql*'
;;
;; ALIASED/ADVISED/SUBST'D:
;; `mon-mysql-cln-pipes' -> `mon-cln-pipes'
;; `mon-mysql-cln-pipes-map-col-field' -> `mon-cln-pipes-map-field-pairs'
;; `mon-mysql-get-field-col' -> `mon-cln-pipes-get-field-col'
;; `mon-mysql-csv-to-list' -> `mon-csv-string-to-list'
;; `mon-mysql-csv-split-string' -> `mon-csv-split-string'
;; `mon-mysql-csv-map-list' -> `mon-csv-string-map-list'
;; `mon-mysql-csv-map-col-field' -> `mon-csv-map-col-field-pairs'
;;
;; DEPRECATED:
;;
;; RENAMED:
;;
;; MOVED:
;;
;; TODO:
;; Incorporate popup-menus for the `mon-help-mysql-*' functions
;;
;; NOTES:
;;
;; SNIPPETS:
;;
;; REQUIRES:
;; `mon-cln-pipes' <- `mon-string-from-sequence' -> :FILE mon-utils.el
;; `mon-cln-pipes' <- `mon-string-to-sequence' -> :FILE mon-utils.el
;;
;; THIRD-PARTY-CODE:
;;
;; FIRST-PUBLISHED: <Timestamp: #{2009-12-10T14:59:16-05:00Z}#{09504} - by MON>
;;
;; FILE-CREATED:
;; <Timestamp: #{2009-12-10T11:11:41-05:00Z}#{09504} - by MON>
;;
;; =================================================================
;;; LICENSE:
;; =================================================================
;; This file is not part of GNU Emacs.
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 3, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
;; Floor, Boston, MA 02110-1301, USA.
;; =================================================================
;; Permission is granted to copy, distribute and/or modify this
;; document under the terms of the GNU Free Documentation License,
;; Version 1.3 or any later version published by the Free Software
;; Foundation; with no Invariant Sections, no Front-Cover Texts,
;; and no Back-Cover Texts. A copy of the license is included in
;; the section entitled ``GNU Free Documentation License''.
;;
;; A copy of the license is also available from the Free Software
;; Foundation Web site at:
;; (URL `http://www.gnu.org/licenses/fdl-1.3.txt').
;;; ==============================
;; Copyright © 2009-2024 MON KEY
;;; ==============================
;;; CODE:
(eval-when-compile (require 'cl))
;;; ==============================
;;; :CREATED <Timestamp: #{2009-12-10T16:39:52-05:00Z}#{09504} - by MON>
(defun mon-cln-pipes-get-field-col (start end &optional field-1 intrp)
"Return list of extracted rows in region of MySQL table's with FIELD-1 as key.
List has the form \(FIELD-1 (ROW1-VAL ROW2-VAL ROW3-VAL\)\)
When called-interactively or INTRP is non-nil put return value on the kill ring.\n
When called-interactively with prefix arg or FIELD-1 is non-nil match FIELD1
as first field in table header row. Default is \"Field\".\n
Use to extract fields from mysql command:\nmysql> SHOW COLUMNS FROM THE-DB.TABLE\n
:EXAMPLE
\(let \(\(r-eg `\(,\(1+ \(search-forward-regexp \"^▶\" nil t\)\) .
,\(- \(search-forward-regexp \"◀$\" nil t\) 3\)\)\)\)
\(mon-cln-pipes-get-field-col \(car r-eg\) \(cdr r-eg\) \"Tables_in_mysql\" t\)
\(momentary-string-display \(current-kill 0\) \(point\)\)\)
▶\n +---------------------------+
| Tables_in_mysql | \n +---------------------------+
| columns_priv | \n | db |
| event | \n | func |
| general_log | \n | help_category |
| help_keyword | \n | help_relation |
| help_topic | \n | host |
| ndb_binlog_index | \n | plugin |
| proc | \n | procs_priv |
| servers | \n | slow_log |
| tables_priv | \n | time_zone |
| time_zone_leap_second | \n | time_zone_name |
| time_zone_transition | \n | time_zone_transition_type |
| user | \n +---------------------------+ \n◀\n
:SEE-ALSO `mon-cln-pipes',`mon-cln-pipes-map-field-pairs'
`mon-csv-split-string', `mon-csv-string-to-list',`mon-cln-csv-fields',
`mon-csv-string-map-list',`mon-csv-map-col-field-pairs', .\n▶▶▶"
(interactive "r\nsFirst field's value: \np")
(let (flds
(the-field (if (or intrp field-1) field-1 "Field")))
(setq flds (buffer-substring-no-properties start end))
(setq flds
(with-temp-buffer
(insert flds)
(goto-char (buffer-end 0))
;; Remove whitespace at BOL & EOL.
(whitespace-cleanup)
(goto-char (buffer-end 0))
(while (search-forward-regexp "^[\\[:blank:]]" nil t)
(replace-match ""))
(goto-char (buffer-end 0))
;; Remove all "+----+----+...." lines.
(while (search-forward-regexp "^\\([+-]+\\)$" nil t)
;; :WAS "^\\([\\[:blank:]]?\\)\\([+-]+\\)\\([\\[:blank:]]?\\)" nil t)
;; ^^1^^^^^^^^^^^^^^^^^^^^2^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^
(replace-match ""))
(goto-char (buffer-end 0))
(progn
;; Remove table header.
(search-forward-regexp (concat "\\(\| " the-field " .* |\\)") nil t)
(replace-match ""))
(goto-char (buffer-end 0))
(while (search-forward-regexp
"^\\(\\(\| \\)\\([A-z0-9_]+\\)\\([\\[:space:]].*\\)\\)$"
;;^^1^^^2^^^^^^^^3^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^
nil t)
(replace-match "\\3"))
(whitespace-cleanup)
(buffer-substring-no-properties (buffer-end 0)(buffer-end 1))))
(setq flds (concat "(" flds ")"))
(setq flds `(,(car (read-from-string field-1)) ,(car (read-from-string flds))))
(if intrp
(progn
(kill-new (format "%S" flds))
flds)
flds)))
;;
(defalias 'mon-mysql-get-field-col 'mon-cln-pipes-get-field-col)
;;; ==============================
;;; :NOTE This is CL packages `subst' but as we aren't using keyword here we
;;; just do what the `subst' function does; punt to `cl-do-subst'.
;;; :CREATED <Timestamp: #{2010-06-15T15:20:25-04:00Z}#{10242} - by MON KEY>
;; (defun --cl-subst-- (cl-new cl-old cl-tree)
;; (if (and (numberp cl-old) (not (integerp cl-old))) ;; float check.
;; (apply 'sublis (list (cons cl-old cl-new)) cl-tree)
(defun %subst% (cl-new cl-old cl-tree)
"This is CL's `subst' without keywords and no float checking.\n
:EXAMPLE\n
\(let \(\(rnd-trip '\(83 89 77 66 79 76 32 70 79 82 32 83 80 65 67 69\)\)
catch-trip\)
\(push rnd-trip catch-trip\)
\(setq rnd-trip \(%subst% 9248 32 rnd-trip\)\)
\(push rnd-trip catch-trip\)
\(setq catch-trip
\(mapcar #'\(lambda \(rnd\)
\(mon-string-from-sequence rnd\)\)
catch-trip\)\)\)\n
:SEE-ALSO `subst', `cl-do-subst'.\n▶▶▶"
(cond ((eq cl-tree cl-old) cl-new)
((consp cl-tree)
(let ((a (%subst% cl-new cl-old (car cl-tree)))
(d (%subst% cl-new cl-old (cdr cl-tree))))
(if (and (eq a (car cl-tree)) (eq d (cdr cl-tree)))
cl-tree (cons a d))))
(t cl-tree)))
;;; ==============================
;;; :NOTE Following functions uses ␠ as a temporary whitespace dummy.
;;; character: ␠ -> (9248, #o22040, #x2420) code point: 0x2420
;;; (ucs-insert 9248) (princ (char-to-string 9248)(current-buffer))
;;
;;; :TEST-ME
;;; (let ((rnd-trip '(83 89 77 66 79 76 32 70 79 82 32 83 80 65 67 69))
;;; catch-trip)
;;; (push rnd-trip catch-trip)
;;; (setq rnd-trip (%subst% 9248 32 rnd-trip))
;;; (push rnd-trip catch-trip)
;;; (setq catch-trip
;;; (mapcar #'(lambda (rnd)
;;; (mon-string-from-sequence rnd))
;;; catch-trip)))
;;;
;;; `mon-string-from-sequence', `mon-string-to-sequence' in :FILE mon-utils.el
;;; :CREATED <Timestamp: #{2009-12-11T17:10:27-05:00Z}#{09505} - by MON>
(defun mon-cln-pipes (start end &optional to-kill)
"Return MySQL query table rows in region without the table.
When called-interactively or TO-KILL is non-nil put retun value on kill-ring.\n
:NOTE Replaces empty valued cell ` | | ' with `\\\\?NULL\\\\?'.
Converts row values containing whitespace to strings.
Attempts handling quoted strings in table rows, but may be unreliable.
May return incorrect results for wrapped lines. Use toggle-truncate-lines.\n
:EXAMPLE\n\(let \(\(r-eg `\(,\(1+ \(search-forward-regexp \"^▶\" nil t\)\) .
,\(- \(search-forward-regexp \"^◀\" nil t\) 2 \)\)\)
\(mmnt\)\)
\(mon-cln-pipes \(car r-eg\) \(cdr r-eg\) t\)
\(setq mmnt \(read \(current-kill 0\)\)\)
\(momentary-string-display \(concat \"\\n=>\\n\" \(pp-to-string mmnt\)\)\(point\)\)\)\n
▶\n+-----------------------+-------+------+----------+
| COL0 | COL1 | COL2 | COL3 |
+-----------------------+-------+------+----------+
| | | NULL | \"1200\" |
+-----------------------+-------+------+----------+
| \"STR-QTD \\\"bubba\\\"\" | 1200 | 0 | bubba |
+-----------------------+-------+------+----------+
| \"2008-05-25 16:54:04\" | F | T | \"bubba\" |
+-----------------------+-------+------+----------+
| 2008-10-25 16:54:04 | 1200 | | NULL |
+-----------------------+-------+------+----------+\n◀\n
:SEE-ALSO `mon-cln-pipes-get-field-col', `mon-cln-pipes-map-field-pairs'
`mon-csv-split-string', `mon-csv-string-to-list', `mon-cln-csv-fields',
`mon-csv-string-map-list', `mon-csv-map-col-field-pairs',
`mon-string-csv-rotate'.\n▶▶▶"
(interactive "r\np")
(let (tb mtb)
(setq tb (buffer-substring-no-properties start end))
(setq tb (with-temp-buffer
(toggle-truncate-lines -1) ;; <- Paranoia.
(insert tb)
(goto-char (buffer-end 0))
;; Remove all "+----+----+...." lines.
(while (search-forward-regexp "^\\([+-]+\\)$" nil t)
(replace-match ""))
(goto-char (buffer-end 0))
;; pipe at BOL.
(while (search-forward-regexp "^|[\\[:blank:]]+" nil t)
;; :WAS (replace-match "| "))
(replace-match " | "))
(goto-char (buffer-end 0))
;; Remove pipe at EOL.
(while (search-forward-regexp "[\\[:blank:]]+|$" nil t)
;; :WAS (replace-match " |"))
(replace-match " | "))
;; Attempt to find empty pairs of pipes ` | | '.
;; These may or may not be column vals. replace with ?NULL?
(goto-char (buffer-end 0))
(while (search-forward-regexp
"\\([\\[:graph:]]?\\)\\([\\[:blank:]]|[\\[:blank:]]+|[\\[:blank:]]\\)" nil t)
;; :NOTE The `?' chars in ?NULL? has representation issues for symbols
;; and can't be back read in when list is (?NULL? more-val ?NULL?).
;; However, this is the best way to represent a _possibly_ null value
;; when we can't be sure if in fact the value should be NULL.
;; So, the best is to escape the replace value e.g.
;;
;; (replace-match " | \\\\?NULL\\\\? | " nil t nil 2)
;; (search-backward "\\?NULL\\?" nil t))
;;
;; The above is being debugged and verified.
;; Thus far it appears to work correctly
;;
;; :WAS (replace-match "\\1 | ?NULL? | ")
;; (search-backward "?NULL?" nil t))
;;
;; :TESTING <Timestamp: #{2009-12-16T16:55:37-05:00Z}#{09513} - by MON>
(replace-match " | \\\\?NULL\\\\? | " nil t nil 2)
(search-backward "\\\\?NULL\\\\?" nil t))
(goto-char (buffer-end 0))
;; Replace the single char cell ` | T | '
(while (search-forward-regexp
(concat "\\([\\[:blank:]]|[\\[:blank:]]\\)" ;; <- grp1
"\\([A-Z]\\{1,1\\}\\)" ;; <- grp2
"\\([\\[:blank:]]+|\\)") ;; <- grp3
nil t)
(replace-match " | \\2 |")
(skip-chars-backward " |"))
(goto-char (buffer-end 0))
;; Replace leading whitespace - should only happend on digits?
(while (search-forward-regexp
(concat
"\\([\\[:blank:]]|[\\[:blank:]]+\\)"
;;^^1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
"\\(\\([\\[:digit:]]+\\)"
;;^^2^^3^^^^^^^^^^^^^^^^^
"\\([\\[:blank:]]|[\\[:blank:]]\\) \\)")
;;^^4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
nil t)
(replace-match " | \\3 |")
(skip-chars-backward " |"))
(goto-char (buffer-end 0))
;; Replace remaining trailing whitespace on digits and UPPERS.
(while (search-forward-regexp
(concat
"\\(|[\\[:blank:]]" ;; <- grp1 leading piped w/ space.
"\\([A-Z]\\{1,1\\}\\|[0-9]+\\)\\)" ;; <-grp2 A Single UPPER or Digit
"\\([\\[:blank:]]+|\\)" ;; <- grp3 trailing space
) nil t)
(replace-match "| \\2 |")
(skip-chars-backward " |"))
(goto-char (buffer-end 0))
;; Remaining _Big_ whitespace is after field data.
;; (search-forward-regexp "\\([\\[:blank:]]+|\\)[\\[:blank:]]" nil t)
(while (search-forward-regexp "\\([\\[:blank:]]+|\\)[\\[:blank:]]" nil t)
(replace-match " | "))
(goto-char (buffer-end 0))
;; Replace the field data.
(while (search-forward-regexp
(concat
"\\("
;;^1^
"\\([^| \n][\\[:graph:]\\[:blank:]][^|]+\\)\\([\\[:blank:]]|\\)\\)"
;;^2^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^
"\\|\\(| \\([\\[:alpha:]]\\) |\\)") nil t)
;;^^^^4^^^^5^^^^^^^^^^^^^^^
(let* ((rep-mtch
(if (match-string-no-properties 2)
(match-string-no-properties 2)
(match-string-no-properties 5)))
(rep-seq (mon-string-to-sequence ;; in :FILE `mon-utils.el'
rep-mtch)))
(cond ( ;; First char is `"'.
(eq (car rep-seq) 34)
;; Test for whitespace.
(if (member 32 rep-seq)
(setq rep-seq (mon-string-from-sequence ;; in :FILE `mon-utils.el'
;; :WAS (subst 9248 32 rep-seq)))
(%subst% 9248 32 rep-seq)))
;;(format "%S | " rep-seq)
(replace-match (concat rep-seq " |") nil t)
(replace-match (concat rep-mtch " |") nil t)))
( ;; Not string _but_ contains whitespace and should be.
(member 32 rep-seq)
(setq rep-seq ;; :WAS (subst 9248 32 rep-seq))
(%subst% 9248 32 rep-seq))
(setq rep-seq (mon-string-from-sequence rep-seq))
(replace-match (format "%S | " rep-seq) nil t))
( ;; Got one char - in case we want to change logic.
(eq (length rep-seq) 1)
(replace-match (concat rep-mtch " |")))
( ;; Symbol without whitespace
t (replace-match (concat rep-mtch " |"))))))
;; Remove remaining inter-field pipes per row.
(goto-char (buffer-end 0))
(while (search-forward-regexp "\\(| \\| + | \\| +| +| \\)" nil t)
(replace-match " "))
(goto-char (buffer-end 0))
;; Try to catch any remaining cruft at EOL.
(whitespace-cleanup)
(goto-char (buffer-end 0))
(while (search-forward-regexp "[\\[:blank:]]?|[\\[:blank:]]?$" nil t)
(replace-match ""))
;; Did we miss any straggling whitespace at BOL?
(while (search-forward-regexp "^ " nil t)
(replace-match ""))
(buffer-substring-no-properties (buffer-end 0) (buffer-end 1))))
(setq tb (split-string tb "\n" ))
(setq mtb (mapcar #'(lambda (r) (split-string r nil t)) tb))
(setq mtb (remq nil mtb)) ;; Any nil's are from empty lines. Kill them now!
(setq tb nil)
(let ((map-tb mtb)
(tst-tb))
(while map-tb
(setq tst-tb
(mapcar #'(lambda (rnd)
(let ((tst-rnd rnd))
(if (stringp tst-rnd)
(progn
(setq tst-rnd (mon-string-to-sequence tst-rnd))
(if (member 9248 tst-rnd)
(setq tst-rnd (mon-string-from-sequence
;; :WAS (subst 32 9248 tst-rnd)))
(%subst% 32 9248 tst-rnd)))
(setq tst-rnd (mon-string-from-sequence tst-rnd))))
tst-rnd)))
(pop map-tb)))
(push tst-tb tb))
(setq tb (nreverse tb)))
(setq mtb (format "%s" tb))
(if to-kill
(progn
(kill-new mtb)
(setq mtb (read mtb)))
(setq mtb (read mtb)))))
;;
(defalias 'mon-mysql-cln-pipes 'mon-cln-pipes)
;;
;;; :TEST-ME:
;;; (let ((r-eg `(,(1+ (search-forward-regexp "^▶" nil t)) .
;;; ,(- (search-forward-regexp "^◀" nil t) 2 )))
;;; (mmnt))
;;; (mon-cln-pipes (car r-eg) (cdr r-eg) t)
;;; (setq mmnt (read (current-kill 0)))
;;; (pp-to-string mmnt))
;;
;; ,---- :UNCOMMENT-BELOW-TO-TEST
;; | ▶
;; | +-----------------------+-------+------+----------+
;; | | COL0 | COL1 | COL2 | COL3 |
;; | +-----------------------+-------+------+----------+
;; | | | | NULL | "1200" |
;; | +-----------------------+-------+------+----------+
;; | | "STR-QTD \"bubba\"" | 1200 | 0 | bubba |
;; | +-----------------------+-------+------+----------+
;; | | "2008-05-25 16:54:04" | F | T | "bubba" |
;; | +-----------------------+-------+------+----------+
;; | | 2008-10-25 16:54:04 | 1200 | | NULL |
;; | +-----------------------+-------+------+----------+
;; | ◀
;; `----
;;; ==============================
;;; :CREATED <Timestamp: #{2009-12-16T13:22:39-05:00Z}#{09513} - by MON>
(defun mon-cln-pipes-map-field-pairs (col-v-list field-v-list &optional insrtp)
"Map each table row COL-V-LIST to each rows FIELD-V-LIST.\n
COL-V-LIST is a list containing the value of columns of first table row.\n
When INSRTP in non-nil return pretty printed list at point. Does not move point.\n
Like `mon-csv-map-col-field-pairs' but used with return value of
`mon-cln-pipes' instead of `mon-csv-string-map-list'.\n
:EXAMPLE\n\(let \(\(r-eg `\(,\(1+ \(search-forward-regexp \"^▶\" nil t\)\) .
,\(1- \(search-forward-regexp \"◀\" nil t\)\)\)\)
\(mmnt\)\)
\(setq mmnt \(mon-cln-pipes \(car r-eg\) \(cdr r-eg\)\)\)
\(setq mmnt \(mon-cln-pipes-map-field-pairs \(car mmnt\) \(cdr mmnt\)\)\)
\(setq mmnt \(pp-to-string mmnt\)\)
\(momentary-string-display \(concat \"\\n=>\\n\" mmnt\)\(point\)\)\)\n
▶\n+-----------------------+-------+------+----------+
| COL0 | COL1 | COL2 | COL3 |
+-----------------------+-------+------+----------+
| | | NULL | \"1200\" |
+-----------------------+-------+------+----------+
| \"STR-QTD \\\"bubba\\\"\" | 1200 | 0 | bubba |
+-----------------------+-------+------+----------+
| \"2008-05-25 16:54:04\" | F | T | \"bubba\" |
+-----------------------+-------+------+----------+
| 2008-10-25 16:54:04 | 1200 | | NULL |
+-----------------------+-------+------+----------+\n◀
:SEE-ALSO `mon-cln-pipes' `mon-cln-pipes-get-field-col',
`mon-csv-map-col-field-pairs', `mon-csv-split-string',
`mon-csv-string-to-list', `mon-cln-csv-fields'\n▶▶▶"
(let ((hd col-v-list)
(rows field-v-list)
(gthr))
(while rows
(let ((hh hd)
(rr (car rows))
(g))
(while rr
(funcall #'(lambda (r h)
(push (cons (car hh) (car rr)) g)
(setq hh (cdr hh))
(setq rr (cdr rr))
(when (null rr)
(push (nreverse g) gthr)
(setq g nil)
(setq rows (cdr rows))))
rr hh))))
(setq gthr (nreverse gthr))
(if insrtp
(save-excursion
(newline)
(pp gthr (current-buffer)))
gthr)))
;;
(defalias 'mon-mysql-cln-pipes-map-col-field 'mon-cln-pipes-map-field-pairs)
;;
;;; :TEST-ME
;;; (let ((r-eg `(,(1+ (search-forward-regexp "^▶" nil t)) .
;;; ,(1- (search-forward-regexp "◀" nil t))))
;;; (mmnt))
;;; (setq mmnt (mon-cln-pipes (car r-eg) (cdr r-eg)))
;;; (mon-cln-pipes-map-field-pairs (car mmnt) (cdr mmnt)))
;;
;; ,---- :UNCOMMENT-BELOW-TO-TEST
;; | ▶
;; | +-----------------------+-------+------+----------+
;; | | COL0 | COL1 | COL2 | COL3 |
;; | +-----------------------+-------+------+----------+
;; | | | | NULL | "1200" |
;; | +-----------------------+-------+------+----------+
;; | | "STR-QTD \"bubba\"" | 1200 | 0 | bubba |
;; | +-----------------------+-------+------+----------+
;; | | "2008-05-25 16:54:04" | F | T | "bubba" |
;; | +-----------------------+-------+------+----------+
;; | | 2008-10-25 16:54:04 | 1200 | | NULL |
;; | +-----------------------+-------+------+----------+
;; | ◀
;; `----
;;; ==============================
;;; :CREATED <Timestamp: #{2009-12-10T19:27:04-05:00Z}#{09505} - by MON>
(defun mon-csv-string-to-list (csv-str)
"Return a converted csv string (a paren wrapped list) as a lisp list.\n
Assumes the following:\n
o Initial value of is formated as \"\('<INITIAL-VALUE>',
o A null values has the format ,''
o Numeric values are not quoted: ,0 instead of ,'0'\n
Primarily useful for tearing down SQL dumps on the way to a pairlis.\n
:EXAMPLE
\(mon-csv-string-to-list
\"('VALUE','VALUE','VALUE-3','Y','N','T','F','escaped\\\\\\'quote','','',0,1,2\)\"\)\n
\(pairlis
'\(KEY-0 KEY-1 KEY-3 wrkng pretty will-do gv-a-sht PITA has-val nth first second\)
\(mon-csv-string-to-list
\"('VALUE-0','VALUE-1','VALUE-3','Y','N','T','F','escaped\\\\\\'quote','','',0,1,2\)\")\)\n
:SEE-ALSO `mon-csv-split-string', `mon-clean-pipes-get-field-col',
`mon-cln-pipes-map-field-pairs', `mon-csv-string-to-list',
`mon-cln-csv-fields', `mon-csv-string-map-list',
`mon-csv-map-col-field-pairs', `mon-string-csv-rotate'.\n▶▶▶"
(let ((normalize csv-str))
(setq normalize (replace-regexp-in-string
",\\([0-9]+\\)" ",'\\1'" ;; ,DIGIT -> ,'DIGIT'
normalize nil))
(setq normalize (replace-regexp-in-string
"\\((\\)\\([\\[:digit:]]+\\)\\(,\\)" "('\\2',"
;;^1^^^^^^^2^^^^^^^^^^^^^^^^^^3^^^^ ;; (DIGIT, -> ('DIGIT',
normalize))
(setq normalize ;; Replace empty value with 'nil'
(replace-regexp-in-string ",''" ",'nil'" normalize))
(setq normalize ;; Remove lead/trail parens.
(replace-regexp-in-string "('\\|')" "" normalize))
(setq normalize ;; Remove the value separators
(replace-regexp-in-string "','" " " normalize))
(setq normalize ;; Turn string into a list we can `read'.
(car (read-from-string (concat "(" normalize ")"))))))
;;
(defalias 'mon-mysql-csv-to-list 'mon-csv-string-to-list)
;;
;;; :TEST-ME
;;; (mon-csv-string-to-list
;;; "('VALUE','VALUE','VALUE-3','Y','N','T','F','escaped\\'quote','','',0,1,2)")
;;; ==============================
;;; :CREATED <Timestamp: #{2009-12-15T16:10:18-05:00Z}#{09512} - by MON KEY>
(defun mon-csv-string-map-list (csv-list)
"Map CSV-LIST a of strings containing csv separated values.\n
Return pretty printed list with each string of CSV-LIST in a list.\n
:EXAMPLE\n\(mon-csv-string-map-list
'\(\"\('VALUE-A0','VALUE-A1','VALUE-A2','Y','N','T','F','escaped\\\\\'quote','','',0,1,2\)\"
\"\('VALUE-B0','VALUE-B1','VALUE-A2','N','N','T','T','bubba','','',2,1,0\)\"
\"\('VALUE-C0','VALUE-C1','VALUE-C2','N','Y','F','T','bubbette','','',1,0,2\)\"\)\)\n
:SEE-ALSO `mon-csv-split-string', `mon-clean-pipes-get-field-col',
`mon-csv-string-to-list', `mon-cln-csv-fields', `mon-csv-string-map-list',
`mon-cln-pipes-map-field-pairs', `mon-csv-map-col-field-pairs'
`mon-string-csv-rotate'.\n▶▶▶"
(let (ii)
(dolist (i csv-list (setq ii (nreverse ii)))
(push (mon-csv-string-to-list i) ii))))
;;
(defalias 'mon-mysql-csv-map-list 'mon-csv-string-map-list)
;;
;;; :TEST-ME
;;; (mon-csv-string-map-list
;;; '("('VALUE-A0','VALUE-A1','VALUE-A2','Y','N','T','F','escaped\\'quote','','',0,1,2)"
;;; "('VALUE-B0','VALUE-B1','VALUE-A2','N','N','T','T','bubba','','',2,1,0)"
;;; "('VALUE-C0','VALUE-C1','VALUE-C2','N','Y','F','T','bubbette','','',1,0,2)"))
;;; ==============================
;;; :CREATED <Timestamp: #{2009-12-15T16:54:49-05:00Z}#{09512} - by MON KEY>
(defun mon-csv-map-col-field-pairs (col-val-list csv-field-vals &optional insrtp)
"Map key value pairs in COL-VAL-LIST with val list of strings CSV-FIELD-VALS.\n
Return a list of lists of of key-val -> field-val for each string.\n
:EXAMPLE\n\n\(mon-csv-map-col-field-pairs\n '\(KEY-0 KEY-1 KEY-2\)
'\(\"\(1,'VAL-A1','VAL-A2'\)\" \"\('VAL-B0',1,''\)\" \"\('VAL-C0','VAL-C1',2\)\"\)\)\n
:SEE-ALSO `mon-csv-split-string', `mon-csv-string-to-list',
`mon-cln-csv-fields', `mon-csv-string-map-list', `mon-csv-map-col-field-pairs',
`mon-cln-pipes-map-field-pairs', `mon-clean-pipes-get-field-col',
`mon-string-csv-rotate'.\n▶▶▶"
(let (kvrt)
(dolist (kv (mon-mysql-csv-map-list csv-field-vals)
(setq kvrt (nreverse kvrt)))
;; :WAS (push (pairlis col-val-list kv) kvrt))
;; (push (cl::pairlis col-val-list kv) kvrt))
(let (tmp)
;; (push (nconc (mapcar* 'cons col-val-list kv) tmp) kvrt)
;; (push (nconc (gnus-mapcar 'cons col-val-list kv) tmp) kvrt)
(push (nconc (mon-mapcar 'cons col-val-list kv) tmp) kvrt)))
(if insrtp
(save-excursion
(newline)
(princ (pp kvrt) (current-buffer)))
kvrt)))
;;
(defalias 'mon-mysql-csv-map-col-field 'mon-csv-map-col-field-pairs)
;;
;;; :TEST-ME
;;; (mon-csv-map-col-field-pairs
;;; '(KEY-0 KEY-1 KEY-2)
;;; '("(1,'VAL-A1','VAL-A2')" "('VAL-B0',1,'')" "('VAL-C0','VAL-C1',2)"))
;;; ==============================
;;; :TODO Decide how we want to handle blocks of csv lists starting from strings.
;;; :CREATED <Timestamp: #{2009-12-15T16:31:58-05:00Z}#{09512} - by MON KEY>
;;; (defun mon- ( &optional insertp intrp)
;;; (interactive " \ni\np")
;;; (SOME XXX {...}
;;; (save-excursion
;;; (newline)
;;; (DO XXX (current-buffer))))
;;; ==============================
;;; :COURTESY Francis J. Wright :HIS csv-mode.el :WAS `csv-split-string'
;;; :CREATED <Timestamp: #{2009-12-10T19:03:25-05:00Z}#{09505} - by MON>
(defun mon-csv-split-string (string &optional separators subexp allowbeg allowend)
"Split STRING into substrings where there are matches for SEPARATORS.\n
Return list of substrings between split points.\n
When SEPARATORS is nil default is \"[ \\f\\t\\n\\r\\v]+\".\n
SUBEXP specifies a subexpression of SEPARATORS as split point; defaults is 0.\n
If ALLOWBEG is non-nil when there is a match for SEPARATORS at the beginning of
STRING include a null substring for that.\n
If ALLOWEND is non-nil when match is at the end of STRING include a null
substring for that.\n
:NOTE Modifies the match data; use `save-match-data' if necessary.\n
:SEE-ALSO `mon-clean-pipes-get-field-col', `mon-csv-string-to-list',
`mon-csv-string-map-list', `mon-cln-csv-fields', `mon-csv-map-col-field-pairs'
`mon-cln-pipes-map-field-pairs', `mon-string-csv-rotate'.\n▶▶▶"
(or subexp (setq subexp 0))
(let ((rexp (or separators "[ \f\t\n\r\v]+"))
(start 0)
notfirst
(list nil))
(while (and (string-match rexp string
(if (and notfirst
(= start (match-beginning subexp))
(< start (length string)))
(1+ start) start))
(< (match-beginning subexp) (length string)))
(setq notfirst t)
(or (and (not allowbeg) (eq (match-beginning subexp) 0))
(and (eq (match-beginning subexp) (match-end subexp))
(eq (match-beginning subexp) start))
(push (substring string start (match-beginning subexp)) list))
(setq start (match-end subexp)))
(or (and (not allowend) (eq start (length string)))
(push (substring string start) list))
(nreverse list)))
;;
(defalias 'mon-mysql-csv-split-string 'mon-csv-split-string)
;;; ==============================
;;; :NOTE "mysql> help contents"
;;; :CREATED <Timestamp: #{2009-12-10T10:52:19-05:00Z}#{09504} - by MON>
(defvar *regexp-clean-mysql* nil
"*An alist of key value pairs for use with `mysql help' command.\n
:EXAMPLE\n (cdr (assoc :DATA-TYPES *regexp-clean-mysql*))\n
\(mapcar 'car *regexp-clean-mysql*\)\n
Alist keys correpsond to the following `mysql help' categories:\n
Account Management - Administration - Compound Statements - Data Definition
Data Manipulation - Data Types - Functions - Geographic Features
Language Structure - Plugins - Table Maintenance - Transactions
User-Defined Functions - Utility
Functions and Modifiers for Use with GROUP BY\n
;; :MYSQL-HELP-KEYS\n
:ACCOUNT-MANAGEMENT \n:ADMINISTRATION \n:COMPOUND-STATEMENTS
:DATA-DEFINITION \n:DATA-MANIPULATION \n:DATA-TYPES
:BIT-FUNCTIONS \n:COMPARISON-OPERATORS \n:CONTROL-FLOW-FUNCTIONS
:DATE-AND-TIME-FUNCTIONS \n:ENCRYPTION-FUNCTIONS \n:INFORMATION-FUNCTIONS
:LOGICAL-OPERATORS \n:MISCELLANEOUS-FUNCTIONS \n:NUMERIC-FUNCTIONS
:STRING-FUNCTIONS \n:GROUP-BY-FUNCTIONS-MODIFIERS \n:GEOGRAPHIC-FEATURES
:GEOMETRY-CONSTRUCTORS \n:GEOMETRY-PROPERTIES \n:GEOMETRY-RELATIONS
:LINESTRING-PROPERTIES \n:MBR \n:POINT-PROPERTIES \n:POLYGON-PROPERTIES
:WKB \n:WKT \n:PLUGINS \n:TABLE-MAINTENANCE \n:TRANSACTIONS
:USER-DEFINED-FUNCTIONS \n:UTILITY \n
:NOTE When IS-MON-SYSTEM-P bound at loadtime with
`mon-bind-mysql-help-table-loadtime' by `mon-after-mon-utils-loadtime'.\n
:SEE-ALSO `mon-help-mysql-complete', `mon-help-mysql-commands'.\n▶▶▶.")
;;
;;; :TEST-ME (cdr (assoc :STRING-FUNCTIONS *regexp-clean-mysql*))
;;; :TEST-ME (mapcar 'car *regexp-clean-mysql*)
;;
;;; (progn (makunbound '*regexp-clean-mysql*)(unintern '*regexp-clean-mysql*))
;;; ==============================
;;; :CREATED <Timestamp: #{2010-09-03T12:02:46-04:00Z}#{10355} - by MON KEY>
(defun mon-bind-mysql-help-table-loadtime (&optional w-msg-user)
"Bind variable `*regexp-clean-mysql*' at loadtime.\n
When optional arg W-MSG-USER is non-nil or `*regexp-clean-mysql*' is unbound
message user that variable was bound.\n
:NOTE When IS-MON-SYSTEM-P evaluated at loadtime with
`mon-after-mon-utils-loadtime'.\n
:SEE-ALSO `mon-help-mysql-complete', `mon-help-mysql-commands'.\n▶▶▶"
(unless (and (intern-soft "*regexp-clean-mysql*")
(bound-and-true-p *regexp-clean-mysql*))
(when (or (null (bound-and-true-p *regexp-clean-mysql*))
w-msg-user)
(setq w-msg-user t))
(setq *regexp-clean-mysql*
'((:ACCOUNT-MANAGEMENT . ("create user" "drop user" "grant"
"rename user" "revoke" "set password"))
(:ADMINISTRATION . ("binlog" "cache index" "change master to"
"deallocate prepare" "execute statement" "flush"
"flush query cache" "help command" "kill"
"load data from master" "load index"
"load table from master" "prepare" "purge binary logs"
"reset" "reset master" "reset slave" "set"
"set global sql_slave_skip_counter"
"set sql_log_bin" "show"
"show authors" "show binary logs"
"show binlog events" "show character set"
"show collation" "show columns" "show contributors"
"show create database" "show create event"
"show create function" "show create procedure"
"show create table" "show create trigger"
"show create view" "show databases" "show engine"
"show engines" "show errors" "show events"
"show function code" "show function status" "show grants"
"show index" "show innodb status" "show master status"
"show open tables" "show plugins" "show privileges"
"show procedure code" "show procedure status"
"show processlist" "show profile" "show profiles"
"show slave hosts" "show slave status"
"show status" "show table status" "show tables"
"show triggers" "show variables" "show warnings"
"start slave" "stop slave"))
(:COMPOUND-STATEMENTS . ("begin end" "case statement" "close"
"declare condition" "declare cursor"
"declare handler" "declare variable"
"fetch" "if statement" "iterate"
"leave" "loop" "open" "repeat loop"
"return" "select into" "set variable" "while"))
(:DATA-DEFINITION . ("alter database" "alter event" "alter function"
"alter logfile group" "alter procedure"
"alter server" "alter table" "alter tablespace"
"alter view" "constraint" "create database"
"create event" "create function" "create index"
"create procedure" "create server" "create table"
"create tablespace" "create trigger" "create view"
"drop database" "drop event" "drop function"
"drop index" "drop procedure" "drop server"
"droptable" "drop tablespace" "drop trigger"
"drop view" "merge" "rename table"))
(:DATA-MANIPULATION . ("call" "delete" "do" "dual" "handler" "insert"
"insert delayed" "insert select" "join"
"load data" "replace" "select" "truncate table"
"union" "update"))
(:DATA-TYPES . ("auto_increment" "bigint" "binary" "bit" "blob"
"blob data type" "boolean" "char" "char byte" "date"
"datetime" "dec" "decimal" "double" "double precision"
"enum" "float" "int" "integer" "longblob" "longtext"
"mediumblob" "mediumint" "mediumtext" "set data type"
"smallint" "text" "time" "timestamp" "tinyblob"
"tinyint" "tinytext" "varbinary" "varchar"
"year data type"))
(:BIT-FUNCTIONS . ("&" "<<" ">>" "BIT_COUNT" "^" "|" "~"))
(:COMPARISON-OPERATORS . ("!=" "<" "<=" "<=>" "=" ">" ">="
"between and" "coalesce" "greatest" "in"
"interval" "is" "is not" "is not null"
"is null" "isnull" "least" "not between"
"not in"))
(:CONTROL-FLOW-FUNCTIONS . ("case operator" "if function"
"ifnull" "nullif"))
(:DATE-AND-TIME-FUNCTIONS . ("adddate" "addtime" "convert_tz"
"curdate" "current_date" "current_time"
"current_timestamp" "curtime"
"date function" "datediff" "date_add"
"date_format" "date_sub" "day" "dayname"
"dayofmonth" "dayofweek" "dayofyear"
"extract" "from_days" "from_unixtime"
"get_format" "hour" "last_day"
"localtime" "localtimestamp" "makedate"
"maketime" "microsecond" "minute" "month"
"monthname" "now" "period_add"
"period_diff" "quarter" "second"
"sec_to_time" "str_to_date" "subdate"
"subtime" "sysdate" "time function"
"timediff" "timestamp function"
"timestampadd" "timestampdiff"
"time_format" "time_to_sec" "to_days"
"unix_timestamp" "utc_date" "utc_time"
"utc_timestamp" "week" "weekday"
"weekofyear" "year" "yearweek"))
(:ENCRYPTION-FUNCTIONS . ("aes_decrypt" "aes_encrypt" "compress"
"decode" "des_decrypt" "des_encrypt"
"encode" "encrypt" "md5" "old_password"
"password" "sha1" "uncompress"
"uncompressed_length"))
(:INFORMATION-FUNCTIONS . ("benchmark" "charset" "coercibility"
"collation" "connection_id" "current_user"
"database" "found_rows" "last_insert_id"
"row_count" "schema" "session_user"
"system_user" "user" "version"))
(:LOGICAL-OPERATORS . ("!" "&&" "xor" "||"))
(:MISCELLANEOUS-FUNCTIONS . ("procedure analyse" "default" "get_lock"
"inet_aton" "inet_ntoa" "is_free_lock"
"is_used_lock" "master_pos_wait"
"name_const" "release_lock" "sleep"
"uuid" "uuid_short" "values"))
(:NUMERIC-FUNCTIONS . ("%" "*" "+" "- binary" "- unary" "/" "abs"
"acos" "asin" "atan" "atan2" "ceil" "ceiling"
"conv" "cos" "cot" "crc32" "degrees" "div"
"exp" "floor" "ln" "log" "log10" "log2" "mod"
"oct" "pi" "pow" "power" "radians" "rand"
"round" "sign" "sin" "sqrt" "tan" "truncate"))
(:STRING-FUNCTIONS . ("ascii" "bin" "binary operator" "bit_length"
"cast" "char function" "character_length"
"char_length" "concat" "concat_ws" "convert"
"elt" "export_set" "extractvalue" "field"
"find_in_set" "format" "hex" "insert function"
"instr" "lcase" "left" "length" "like"
"load_file" "locate" "lower" "lpad" "ltrim"
"make_set" "match against" "mid" "not like"
"not regexp" "octet_length" "ord" "position"
"quote" "regexp" "repeat function"
"replace function" "reverse" "right" "rpad"
"rtrim" "soundex" "sounds like" "space" "strcmp"
"substr" "substring" "substring_index" "trim"
"ucase" "unhex" "updatexml" "upper"))
(:GROUP-BY-FUNCTIONS-MODIFIERS . ("avg" "bit_and" "bit_or" "bit_xor"
"count" "count distinct"
"group_concat" "max" "min" "std"
"stddev" "stddev_pop" "stddev_samp"
"sum" "variance" "var_pop" "var_samp"))
(:GEOGRAPHIC-FEATURES . ("geometry" "geometry hierarchy" "spatial"))
(:GEOMETRY-CONSTRUCTORS . ("geometrycollection" "linestring"
"multilinestring" "multipoint"
"multipolygon" "point" "polygon"))
(:GEOMETRY-PROPERTIES . ("boundary" "dimension" "envelope"
"geometrytype" "isempty" "issimple" "srid"))
(:GEOMETRY-RELATIONS . ("contains" "crosses" "disjoint" "equals"
"intersects" "overlaps" "touches" "within"))
(:LINESTRING-PROPERTIES . ("endpoint" "glength" "numpoints" "pointn"
"startpoint"))
(:MBR . ("mbr definition" "mbrcontains" "mbrdisjoint" "mbrequal"
"mbrintersects" "mbroverlaps" "mbrtouches" "mbrwithin"))
(:POINT-PROPERTIES . ("x" "y"))
(:POLYGON-PROPERTIES . ("area" "exteriorring" "interiorringn"
"numinteriorrings"))
(:WKB . ("asbinary" "geomcollfromwkb" "geomfromwkb" "linefromwkb"
"mlinefromwkb" "mpointfromwkb" "mpolyfromwkb" "pointfromwkb"
"polyfromwkb"))
(:WKT . ("astext" "geomcollfromtext" "geomfromtext" "linefromtext"
"mlinefromtext" "mpointfromtext" "mpolyfromtext"
"pointfromtext" "polyfromtext" "wkt definition"))
;; (:LANGUAGE-STRUCTURE . ( ))
(:PLUGINS . ("show plugins"))
(:TABLE-MAINTENANCE . ("analyze table" "backup table" "check table"
"checksum table" "optimize table"
"repair table" "restore table"))
(:TRANSACTIONS . ("isolation" "lock" "savepoint" "start transaction"))
(:USER-DEFINED-FUNCTIONS . ("create function udf"
"drop function udf"))
(:UTILITY . ("describe" "explain" "help statement" "use"))))
(when w-msg-user
(message (concat ":FUNCTION `mon-bind-mysql-help-table-loadtime' "
"-- variable `*regexp-clean-mysql*' now bound")))))
;;
;;; :TEST-ME (mon-bind-mysql-help-table-loadtime)
;;; ==============================
;;; :CREATED <Timestamp: #{2009-12-09T17:43:40-05:00Z}#{09503} - by MON>
(defun mon-help-mysql-complete (&optional mysql-key)
"Return a symbol for the alist keys of `*regexp-clean-mysql*'.
When MYSQL-KEY (a string or :symbol) is non-nil try completing it instead.\n
:EXAMPLE\n\(mon-help-mysql-complete\)
\(mon-help-mysql-complete :ADMINISTR\)
\(mon-help-mysql-complete \":ADMINISTR\"\)
\(cdr \(assoc \(mon-help-mysql-complete\) *regexp-clean-mysql*\)\)\n
:SEE `mon-get-process' to access/send a local MySql system (sub)process.\n
:SEE-ALSO `mon-help-mysql-commands', `mon-bind-mysql-help-table-loadtime'.\n▶▶▶"
(let (a b)
(setq a (mapcar #'car *regexp-clean-mysql*))
(setq b (mapcar #'(lambda (s) (format "%s" s)) a))
(if mysql-key
(read (try-completion (format "%s" mysql-key) b))
(read (completing-read
(concat ":FUNCTION `mon-help-mysql-complete' "
"-- which mysql command keyword \(tab completes\): ")
b nil t ":")))))
;;
;;; :TEST-ME (mon-help-mysql-complete :ADMINISTR)
;;; :TEST-ME (mon-help-mysql-complete ":ADMINISTR")
;;; :TEST-ME (mon-help-mysql-complete :AD)
;;; :TEST-ME (mon-help-mysql-complete ":AC")
;;; :TEST-ME (mon-help-mysql-complete)
;;; ==============================
;;; :CREATED <Timestamp: #{2009-12-11T19:22:39-05:00Z}#{09506} - by MON KEY>
(defun mon-help-mysql-commands (&optional insrtp intrp)
"Return a MySQL help 'topic' by with completions by category.\n
When optional arg INSRTP is non-nil or called-interactively insert the
incantation for accessing MySQL online help, e.g:
help <SOME-HELP-TOPIC>\n
Useful for passing/insertiong to the MySQL CLI e.g. will insert:
mysql> help <SOME-TOPIC>
for help finding the topic which accesses the online help from the MySQL client.\n
:EXAMPLE\n\n\(mon-help-mysql-commands\)\n
:SEE-ALSO: `mon-help-mysql-complete', `*regexp-clean-mysql*',
`mon-bind-mysql-help-table-loadtime'.\n▶▶▶"
(interactive "i\np")
(let ((help-for
(completing-read
(concat ":FUNCTION `mon-help-mysql-complete' "
"-- MySQL help for command \(tab completes\): ")
(cdr (assoc (mon-help-mysql-complete) *regexp-clean-mysql*)))))
(if (or insrtp intrp)
(princ (concat "help " help-for) (current-buffer))
help-for)))
;;
;;; :TEST-ME (mon-help-mysql-commands)
;;; :TEST-ME (call-interactively 'mon-help-mysql-commands)
;;; ==============================
;;; :NOTE For use to get help for a specific MySQL help topic e.g.
;;; "mysql> help contents", "mysql> help [<CATEGORY>|<TOPIC>]"
;;; :TODO needs to test if there is an existing mysql processs running; system|subproccess.
;;; :SEE `mon-get-process'
;;; (let ((help-for
;;; (completing-read "Get MySQL help for :"
;;; (cdr (assoc (mon-help-mysql-complete) *regexp-clean-mysql*)))))
;;; (if (processp (get-process "shell"))
;;; (process-send-string
;;; (get-process "shell")
;;; (concat "help " help-for "\n"))))
;;; ==============================
;;; :NOTE Process related functions.
;;; :SEE (describe-function 'mon-help-process-functions)
;;; (process-plist (get-process "shell"))
;;; (process-status (get-process "shell"))
;;; =>run
;;; (process-type (get-process "shell"))
;;; =>real
;;; (process-send-string process string)
;;; (list-processes)
;;; (process-buffer
;;; (process-id
;;; ==============================
;;; ==============================
(provide 'mon-mysql-utils)
;;; ==============================
(when (and (not (intern-soft "IS-MON-SYSTEM-P"))
(not (bound-and-true-p 'IS-MON-SYSTEM-P)))
(eval-after-load "mon-mysql-utils"
'(mon-bind-mysql-help-table-loadtime t)))
;; Local Variables:
;; generated-autoload-file: "./mon-loaddefs.el"
;; coding: utf-8
;; End:
;;; ================================================================
;;; mon-mysql-utils.el ends here
;;; EOF
<!-- URL input box at the bottom -->
<form method="GET" action="">
<label for="targeturl-bottom"><b>Enter URL:</b></label>
<input type="text" id="targeturl-bottom" name="u" value="https://github.com/monkpearman/mon-emacs/raw/master/emacs-load-files/naf-mode/mon-mysql-utils.el" required><br><small>
<label for="useWeserv-bottom">Disable Weserv Image Reduction:</label>
<input type="checkbox" id="useWeserv-bottom" name="useWeserv" value="false"><br>
<label for="stripJS-bottom">Strip JavaScript:</label>
<input type="checkbox" id="stripJS-bottom" name="stripJS" value="true"><br>
<label for="stripImages-bottom">Strip Images:</label>
<input type="checkbox" id="stripImages-bottom" name="stripImages" value="true"><br>
<label for="stripFnts-bottom">Stripout Font Forcing:</label>
<input type="checkbox" id="stripFnts-bottom" name="stripFnts" value="true"><br>
<label for="stripCSS-bottom">Strip CSS:</label>
<input type="checkbox" id="stripCSS-bottom" name="stripCSS" value="true"><br>
<label for="stripVideos-bottom">Strip Videos:</label>
<input type="checkbox" id="stripVideos-bottom" name="stripVideos" value="true"><br>
<label for="removeMenus-bottom">Remove Headers and Menus:</label>
<input type="checkbox" id="removeMenus-bottom" name="removeMenus" value="true"><br></small>
<!-- New form elements Sandwich Strip -->
<label for="start"><small>Remove from after:</label>
<input type="text" id="start" name="start" value="<body>">
<label for="end"><small>to before:</label>
<input type="text" id="end" name="end">
<input type="checkbox" id="applySandwichStrip" name="applySandwichStrip" value="1" onclick="submitForm()"> ApplySandwichStrip<br></small>
<button type="submit">Fetch</button>
</form><!-- Header banner at the bottom -->
<p><h1><a href="http://clevelandohioweatherforecast.com//pFad.php?u=" title="pFad">pFad - (p)hone/(F)rame/(a)nonymizer/(d)eclutterfier! <i>Saves Data!</i></a></h1><br><em>--- a PPN by Garber Painting Akron. <b> With Image Size Reduction </b>included!</em></p><p>Fetched URL: <a href="https://github.com/monkpearman/mon-emacs/raw/master/emacs-load-files/naf-mode/mon-mysql-utils.el" target="_blank">https://github.com/monkpearman/mon-emacs/raw/master/emacs-load-files/naf-mode/mon-mysql-utils.el</a></p><p>Alternative Proxies:</p><p><a href="http://clevelandohioweatherforecast.com/php-proxy/index.php?q=https://github.com/monkpearman/mon-emacs/raw/master/emacs-load-files/naf-mode/mon-mysql-utils.el" target="_blank">Alternative Proxy</a></p><p><a href="http://clevelandohioweatherforecast.com/pFad/index.php?u=https://github.com/monkpearman/mon-emacs/raw/master/emacs-load-files/naf-mode/mon-mysql-utils.el&useWeserv=true" target="_blank">pFad Proxy</a></p><p><a href="http://clevelandohioweatherforecast.com/pFad/v3index.php?u=https://github.com/monkpearman/mon-emacs/raw/master/emacs-load-files/naf-mode/mon-mysql-utils.el&useWeserv=true" target="_blank">pFad v3 Proxy</a></p><p><a href="http://clevelandohioweatherforecast.com/pFad/v4index.php?u=https://github.com/monkpearman/mon-emacs/raw/master/emacs-load-files/naf-mode/mon-mysql-utils.el&useWeserv=true" target="_blank">pFad v4 Proxy</a></p>