Initial commit

command-list.el

@@ -0,0 +1,66 @@
+
+;; (defun command-list ()
+;;   "A `completing-read' based command list"
+;;   (interactive)
+;;   (let ((actions
+;; 	 '(("one" . 'one)) ))
+;;     (eval (cdr (assoc (completing-read "Prompt:" actions) actions)))))
+
+;;; A list of commands related to reading novels in `eww' and with `nob'.
+(defun nob-command-list ()
+  "A `completing-read' based command list"
+  (interactive)
+  (let ((actions
+	 '(("Nob select" . (nob-select))
+	   ("Next chapter" . (next-chapter))
+	   ("Next url" . (eww-next-url))
+	   ("Go back" . (eww-back-url))
+	   ("List buffers" . (eww-list-buffers))
+	   ("History" . (eww-list-histories))
+	   ("Email page" . (eww-mail-page-url))) ))
+    (eval (cdr (assoc (completing-read "Root->Nob: " actions) actions)))))
+
+(defun cb-category-list ()
+  (let ((categories
+	 '(("Female" . "female-cams")
+	   ("Asian" . "tag/asian/f")
+	   ("Lesbian" . "tag/lesbian")
+	   ("Couples" . "couple-cams")
+	   ;; ("Other" . (read-string "Path: ")) ; ALMOST works. I don't think I full understand lisp behavior. :(
+	   )))
+    (cb-stream-list (cdr (assoc (completing-read "Category: " categories) categories)))))
+
+(defun cb-category-list-no-xwinwrap ()
+  (let ((cb-player-command "mpv --input-ipc-server=/tmp/mpv
+--cache=yes --mute=yes"))
+    (cb-category-list)))
+
+;;; I see a lot of potential in this `completing-read' driver menu system.
+;;; Right now, there's a lot of hardcoded values, but with some functions
+;;; and maybe a macro, I think I could create a flexible system for
+;;; creating menus.
+;;; A macro that's aware of sub menu levels would be cool.
+(defun cb-command-list ()
+  "Choose a command in list to execute."
+  (interactive)
+  (let ((actions
+	 '(("Take screenshot" . (cb-screenshot))
+	   ("Select Stream" . (cb-stream-list))
+	   ("Select Stream by Category" . (cb-category-list))
+	   ("Select Stream by Category no xwinwrap" . (cb-category-list-no-xwinwrap))
+	   ("Toggle Transparency" . (transparency-toggle))
+	   ("Toggle mute" . (cb-mute))
+	   ("Kill " . (cb-kill))) ))
+    (eval (cdr (assoc (completing-read "Root->Chaturbate: " actions) actions)))))
+
+(defun root-command-list ()
+  "`completing-read based command menu.'"
+  (interactive)
+  (let ((actions
+	 '(("Nob" . (nob-command-list))
+	   ("Chaturbate ;-)" . (cb-command-list))
+	   ("Switch Buffer" . (counsel-switch-buffer))
+	   ("Start firefox" . (start-process-shell-command "firefox" nil "firefox")))))
+    (eval (cdr (assoc (completing-read "Root: " actions) actions)))))
+
+(provide 'command-list)