some toobnix code

1 files changed, 311 insertions, 74 deletions

diff --git a/emacsconf-extract.el b/emacsconf-extract.el
index ceca898..52d181b 100644
--- a/emacsconf-extract.el
+++ b/emacsconf-extract.el
@@ -693,14 +693,21 @@ Would you like to help? See [[help_with_chapter_markers]] for more details. You
 		(when (called-interactively-p 'any) (kill-new s))
 		s))
 
-(defun emacsconf-extract-download-published-recordings (source dest)
+(defun emacsconf-extract-download-published-recordings-command ()
 	"Copy the command for downloading published recordings from SOURCE to DEST."
+	(interactive)
 	(kill-new
 	 (mapconcat (lambda (o) (if (plist-get o :bbb-meeting-id)
-															(format "rsync -avzue ssh %s%s %s\n"
-																			source
-																			(match-string 1 (plist-get o :bbb-rec))
-																			dest)
+															(replace-regexp-in-string
+															 "/ssh:" ""
+															 (format "rsync -avzue ssh %s %s # %s\n"
+																			 (expand-file-name
+																				(plist-get o :bbb-meeting-id)
+																				(expand-file-name "published/presentation"
+																													emacsconf-extract-bbb-path
+																													))
+																			 emacsconf-extract-bbb-published-dir
+																			 (plist-get o :slug)))
 														""))
 							(emacsconf-get-talk-info))))
 
@@ -713,6 +720,23 @@ Would you like to help? See [[help_with_chapter_markers]] for more details. You
 	(setq talk (emacsconf-resolve-talk talk))
 	(expand-file-name "events.xml" (expand-file-name (plist-get talk :bbb-meeting-id) emacsconf-extract-bbb-raw-dir)))
 
+(defun emacsconf-extract-bbb-dired-raw (talk)
+	(interactive (list (emacsconf-complete-talk-info)))
+	(setq talk (emacsconf-resolve-talk talk))
+	(dired (expand-file-name (plist-get talk :bbb-meeting-id) emacsconf-extract-bbb-raw-dir)))
+
+(defun emacsconf-extract-bbb-dired-published (talk)
+	(interactive (list (emacsconf-complete-talk-info)))
+	(setq talk (emacsconf-resolve-talk talk))
+	(dired (expand-file-name (plist-get talk :bbb-meeting-id) emacsconf-extract-bbb-published-dir)))
+
+(defun emacsconf-extract-waveform-published-webcam-video (talk)
+	(interactive (list (emacsconf-complete-talk-info)))
+	(setq talk (emacsconf-resolve-talk talk))
+	(waveform-show (expand-file-name "video/webcams.webm"
+																	 (expand-file-name (plist-get talk :bbb-meeting-id) emacsconf-extract-bbb-published-dir))))
+
+
 (defun emacsconf-extract-bbb-parse-events (talk)
 	"Parse events TALK from raw recordings.
 This works with the events.xml from /var/bigbluebutton/raw.
@@ -957,7 +981,8 @@ Strategies:
          (output (expand-file-name (concat (plist-get talk :file-prefix) "--answers.webm") emacsconf-cache-dir))
          (webcam-video (expand-file-name "video/webcams.webm" source-dir))
          (deskshare-video (expand-file-name "deskshare/deskshare.webm" source-dir))
-				 (stop-ms (or stop-ms (emacsconf-get-file-duration-ms webcam-video)))
+				 (webcam-duration (emacsconf-get-file-duration-ms webcam-video))
+				 (stop-ms (or stop-ms webcam-duration))
 				 (command
 					(if (file-exists-p deskshare-video)
 							;; Has deskshare
@@ -971,10 +996,15 @@ Strategies:
 										 (compile-media-output-video-height (cdr final-size)))
 								(compile-media-get-command spans output))
 						;; Just webcams
-						(compile-media-get-command
-						 (compile-media-split-tracks
-							(list (list :source webcam-video :start-ms start-ms :stop-ms stop-ms)))
-						 output))))
+						(if (and (= start-ms 0)
+										 (= stop-ms webcam-duration))
+								(format "cp %s %s"
+												webcam-video
+												output)
+							(compile-media-get-command
+							 (compile-media-split-tracks
+								(list (list :source webcam-video :start-ms start-ms :stop-ms stop-ms)))
+							 output)))))
 		(when (called-interactively-p 'any)
 			(kill-new command))
 		command))
@@ -1079,19 +1109,27 @@ Strategies:
 					:headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")))
 					:as #'json-read))
 	(setq emacsconf-extract-youtube-api-videos
-				(plz 'get (concat "https://youtube.googleapis.com/youtube/v3/playlistItems?part=snippet,contentDetails,status&forMine=true&order=date&maxResults=50&playlistId="
-													(url-hexify-string
-													 (let-alist (elt (assoc-default 'items emacsconf-extract-youtube-api-channels) 0)
-														 .contentDetails.relatedPlaylists.uploads)
-													 ))
-					:headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")))
-					:as #'json-read)))
+				(emacsconf-extract-youtube-api-paginated-request
+				 (concat "https://youtube.googleapis.com/youtube/v3/playlistItems?part=snippet,contentDetails,status&forMine=true&order=date&maxResults=50&playlistId="
+								 (url-hexify-string
+									(let-alist (elt (assoc-default 'items emacsconf-extract-youtube-api-channels) 0)
+										.contentDetails.relatedPlaylists.uploads)
+									))
+				 nil
+				 (lambda (item)
+					 (string-match (regexp-quote emacsconf-year)
+												 (let-alist item .snippet.title))))))
 
 (defvar emacsconf-extract-youtube-tags '("emacs" "emacsconf"))
-(defun emacsconf-extract-youtube-object (video-id talk &optional privacy-status)
-	"Format the video object for VIDEO-ID using TALK details."
+(defun emacsconf-extract-youtube-object (video-id talk &optional privacy-status qa)
+	"Format the video object for VIDEO-ID using TALK details.
+If QA is non-nil, treat it as a Q&A video."
 	(setq privacy-status (or privacy-status "public"))
-	(let ((properties (emacsconf-publish-talk-video-properties talk 'youtube)))
+	(let ((properties
+				 (funcall (if qa
+											#'emacsconf-publish-answers-video-properties
+										#'emacsconf-publish-talk-video-properties)
+									talk 'youtube)))
 		`((id . ,video-id)
 			(kind . "youtube#video")
 			(snippet
@@ -1099,9 +1137,8 @@ Strategies:
 			 (title . ,(plist-get properties :title))
 			 (tags . ,emacsconf-extract-youtube-tags)
 			 (description . ,(plist-get properties :description))
-			 ;; Even though I set recordingDetails and status, it doesn't seem to stick.
-			 ;; I'll leave this in here in case someone else can figure it out.
 			 (recordingDetails (recordingDate . ,(format-time-string "%Y-%m-%dT%TZ" (plist-get talk :start-time) t))))
+			;; oooh, publishing seems to work now
 			(status (privacyStatus . ,privacy-status)
 							(license . "creativeCommon")))))
 
@@ -1129,16 +1166,53 @@ Strategies:
 	(when-let ((slug (emacsconf-extract-youtube-get-slug-for-video video-object)))
 		(emacsconf-resolve-talk slug)))
 
-(defun emacsconf-extract-youtube-api-update-video (video-object)
-	"Update VIDEO-OBJECT."
+(defun emacsconf-extract-youtube-api-videos ()
+	(plz 'get (concat "https://youtube.googleapis.com/youtube/v3/playlistItems?part=snippet,contentDetails,status&forMine=true&order=date&maxResults=50&playlistId="
+										(url-hexify-string
+										 (let-alist (elt (assoc-default 'items emacsconf-extract-youtube-api-channels) 0)
+											 .contentDetails.relatedPlaylists.uploads)
+										 ))
+		:headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")))
+		:as #'json-read))
+
+(defun emacsconf-extract-youtube-api-paginated-request (url &optional num-pages condition)
+	(let (result current-page (base-url url) current-page-items)
+		(while url
+			(setq current-page
+						(plz 'get url
+							:headers
+							`(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")))
+							:as #'json-read))
+			(setq current-page-items
+						(if condition
+								(seq-filter condition (assoc-default 'items current-page))
+							(assoc-default 'items current-page)))
+			(setq result (append result current-page-items nil))
+			(let-alist current-page
+				(setq url
+							(if .nextPageToken
+									(concat base-url
+													(if (string-match "\\?" base-url) "&" "?")
+													"pageToken=" .nextPageToken)
+								nil)))
+			(when (= (length current-page-items) 0) (setq url nil))
+			(when num-pages
+				(setq num-pages (1- num-pages))
+				(if (<= num-pages 0) (setq url null))))
+			result))
+
+(defun emacsconf-extract-youtube-api-update-video (video-object &optional qa)
+	"Update VIDEO-OBJECT.
+If QA is non-nil, treat it as a Q&A video."
 	(let-alist video-object
-		(let* ((slug (or (emacsconf-extract-youtube-get-slug-for-video video-object)
-										 (when (string-match (rx (literal emacsconf-id) " " (literal emacsconf-year))
-																				 .snippet.title)
-											 (completing-read (format "Slug for %s: "
-																								.snippet.title)
-																				(seq-map (lambda (o) (plist-get o :slug))
-																								 (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))))))
+		(let* ((slug (or
+									(emacsconf-extract-youtube-get-slug-for-video video-object)
+									(when (string-match (rx (literal emacsconf-id) " " (literal emacsconf-year))
+																			.snippet.title)
+										(completing-read (format "Slug for %s: "
+																						 .snippet.title)
+																		 (seq-map (lambda (o) (plist-get o :slug))
+																							(emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))))))
 					 (talk (and slug (emacsconf-resolve-talk slug)))
 					 (video-id .snippet.resourceId.videoId)
 					 (id .id)
@@ -1146,13 +1220,13 @@ Strategies:
 			(when slug
 				;; set the YOUTUBE_URL property
 				(emacsconf-with-talk-heading slug
-					(org-entry-put (point) "YOUTUBE_URL" (concat "https://www.youtube.com/watch?v=" video-id))
-					(org-entry-put (point) "YOUTUBE_ID" id))
+					(org-entry-put (point) (if qa "QA_YOUTUBE_URL" "YOUTUBE_URL") (concat "https://www.youtube.com/watch?v=" video-id))
+					(org-entry-put (point) (if qa "QA_YOUTUBE_ID" "YOUTUBE_ID") id))
 				(plz 'put "https://www.googleapis.com/youtube/v3/videos?part=snippet,recordingDetails,status"
 					:headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/"))
 										 ("Accept" . "application/json")
 										 ("Content-Type" . "application/json"))
-					:body (json-encode (emacsconf-extract-youtube-object video-id talk)))))))
+					:body (json-encode (emacsconf-extract-youtube-object video-id talk nil qa)))))))
 
 (defun emacsconf-extract-youtube-rename-videos (&optional videos)
 	"Rename videos and set the YOUTUBE_URL property in the Org heading."
@@ -1167,53 +1241,216 @@ Strategies:
 		 (assoc-default
 			'items
 			(or videos emacsconf-extract-youtube-api-videos
-					(plz 'get (concat "https://youtube.googleapis.com/youtube/v3/playlistItems?part=snippet,contentDetails,status&forMine=true&order=date&maxResults=50&playlistId="
-														(url-hexify-string
-														 (let-alist (elt (assoc-default 'items emacsconf-extract-youtube-api-channels) 0)
-															 .contentDetails.relatedPlaylists.uploads)
-														 ))
-						:headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")))
-						:as #'json-read))))))
+					(emacsconf-extract-youtube-api-videos))))))
+
+(defun emacsconf-extract-youtube-rename-draft-videos-as-qa (&optional videos)
+	"Rename videos and set the QA_YOUTUBE_URL property in the Org heading."
+	(interactive)
+	(let ((info (emacsconf-get-talk-info)))
+		(mapc
+		 (lambda (video)
+			 (let-alist video
+				 (when (and
+								(string= .status.privacyStatus "private")
+								(string-match (rx (literal emacsconf-id) " " (literal emacsconf-year) " ")
+															.snippet.title))
+					 (emacsconf-extract-youtube-api-update-video video t))))
+		 (assoc-default
+			'items
+			(or videos emacsconf-extract-youtube-api-videos
+					(emacsconf-extract-youtube-api-videos))))))
 
 ;; This still needed some tweaking, so maybe next time we'll try just inserting the items into the playlist
+(defvar emacsconf-extract-youtube-api-playlist nil)
+(defvar emacsconf-extract-youtube-api-playlist-items nil)
 (defun emacsconf-extract-youtube-sort-playlist ()
 	(interactive)
-	(let* ((playlist-info
-					(seq-find (lambda (o) (let-alist o (string= .snippet.title (concat emacsconf-name " " emacsconf-year))))
-										(assoc-default 'items emacsconf-extract-youtube-api-playlists)))
+	(setq emacsconf-extract-youtube-api-playlist (seq-find (lambda (o) (let-alist o (string= .snippet.title (concat emacsconf-name " " emacsconf-year))))
+																				(assoc-default 'items emacsconf-extract-youtube-api-playlists)))
+	(setq emacsconf-extract-youtube-api-playlist-items
+				(emacsconf-extract-youtube-api-paginated-request (concat "https://youtube.googleapis.com/youtube/v3/playlistItems?part=snippet,contentDetails,status&forMine=true&order=date&maxResults=100&playlistId="
+																								(url-hexify-string (assoc-default 'id emacsconf-extract-youtube-api-playlist)))))
+	(let* ((playlist-info emacsconf-extract-youtube-api-playlists)
 				 (playlist-items
-					(assoc-default 'items
-												 (plz 'get (concat "https://youtube.googleapis.com/youtube/v3/playlistItems?part=snippet,contentDetails,status&forMine=true&order=date&maxResults=50&playlistId=" (url-hexify-string (assoc-default 'id playlist-info)))
-													 :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")))
-													 :as #'json-read)))
+					(assoc-default 'items emacsconf-youtube-api-playlist-items))
 				 (info (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))
 				 (slugs (seq-map (lambda (o) (plist-get o :slug)) info))
-				 last-position)
+				 (position (1- (length playlist-items))))
 		;; sort items
-		(seq-map-indexed (lambda (talk position)
-											 (let ((video-object (seq-find (lambda (video) (string= (plist-get talk :slug)
-																																							(emacsconf-extract-youtube-get-slug-for-video video)))
-																										 playlist-items)))
-												 (let-alist video-object
-													 (cond
-														((null video-object)
-														 (message "Could not find video for %s" (plist-get talk :slug)))
-														;; not in the right position, try to move it
-														((> .snippet.position position)
-														 (let ((video-id .id)
-																	 (playlist-id .snippet.playlistId)
-																	 (resource-id .snippet.resourceId))
-															 (message "Trying to move %s to %d from %d" (plist-get talk :slug) position .snippet.position)
-															 (plz 'put "https://www.googleapis.com/youtube/v3/playlistItems?part=snippet"
-																 :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/"))
-																						("Accept" . "application/json")
-																						("Content-Type" . "application/json"))
-																 :body (json-encode
-																				`((id . ,video-id)
-																					(snippet
-																					 (playlistId . ,playlist-id)
-																					 (resourceId . ,resource-id)
-																					 (position . ,position)))))))))
-												 )) info)))
+		(seq-map (lambda (talk)
+							 (when (plist-get talk :qa-youtube-id)
+								 ;; move the q & a
+								 (let ((video-object (seq-find (lambda (video) (string= (assoc-default 'id video)
+																																				(plist-get talk :qa-youtube-id)))
+																							 playlist-items)))
+									 (let-alist video-object
+										 (cond
+											((null video-object)
+											 (message "Could not find video for %s" (plist-get talk :slug)))
+											;; not in the right position, try to move it
+											((< .snippet.position position)
+											 (let ((video-id .id)
+														 (playlist-id .snippet.playlistId)
+														 (resource-id .snippet.resourceId))
+												 (message "Trying to move %s Q&A to %d from %d" (plist-get talk :slug) position .snippet.position)
+												 (plz 'put "https://www.googleapis.com/youtube/v3/playlistItems?part=snippet"
+													 :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/"))
+																			("Accept" . "application/json")
+																			("Content-Type" . "application/json"))
+													 :body (json-encode
+																	`((id . ,video-id)
+																		(snippet
+																		 (playlistId . ,playlist-id)
+																		 (resourceId . ,resource-id)
+																		 (position . ,position)))))))))
+									 (setq position (1- position)))
+								 ;; move the talk if needed
+								 (let ((video-object (seq-find (lambda (video) (string-match
+																																(regexp-quote (let-alist video .resourceId.videoId))
+																																(plist-get talk :youtube-url)))
+																							 playlist-items)))
+									 (let-alist video-object
+										 (cond
+											((null video-object)
+											 (message "Could not find video for %s" (plist-get talk :slug)))
+											;; not in the right position, try to move it
+											((< .snippet.position position)
+											 (let ((video-id .id)
+														 (playlist-id .snippet.playlistId)
+														 (resource-id .snippet.resourceId))
+												 (message "Trying to move %s to %d from %d" (plist-get talk :slug) position .snippet.position)
+												 (plz 'put "https://www.googleapis.com/youtube/v3/playlistItems?part=snippet"
+													 :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/"))
+																			("Accept" . "application/json")
+																			("Content-Type" . "application/json"))
+													 :body (json-encode
+																	`((id . ,video-id)
+																		(snippet
+																		 (playlistId . ,playlist-id)
+																		 (resourceId . ,resource-id)
+																		 (position . ,position)))))))))
+									 (setq position (1- position)))))
+						 (nreverse info))))
+
+(defun emacsconf-extract-youtube-get-video-details (&optional videos)
+	(let (result url)
+		(dolist (partition (seq-partition (or videos emacsconf-extract-youtube-api-videos) 50) result)
+			(setq url
+ 						(format "https://www.googleapis.com/youtube/v3/videos?id=%s&part=snippet,contentDetails,statistics"
+										(mapconcat (lambda (item) (url-hexify-string (let-alist item .contentDetails.videoId))) partition ",")))
+			(message "%s" url)
+			(setq result
+						(append result
+										(assoc-default
+										 'items
+
+										 (plz 'get
+											 url
+											 :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/"))
+																	("Accept" . "application/json")
+																	("Content-Type" . "application/json"))
+											 :as #'json-read))
+										nil)))))
+
+(defun emacsconf-extract-youtube-duration-msecs (video)
+	(let-alist video
+		(when-let ((duration .contentDetails.duration))
+			(when (string-match "PT\\(?:\\([0-9]+\\)H\\)?\\([0-9]+\\)M\\([0-9]+\\)" duration)
+				(+ (* (string-to-number (or (match-string 1 duration) "0")) 60 60 1000)
+					 (* (string-to-number (or (match-string 2 duration) "0")) 60 1000)
+					 (* (string-to-number (or (match-string 3 duration) "0")) 1000))))))
+
+(defun emacsconf-extract-youtube-format-duration (s)
+	"Converts a string of the form PT1H9M22S to 1:09:22."
+	(when (and s (string-match "PT\\(?:\\([0-9]+\\)H\\)?\\([0-9]+\\)M\\([0-9]+\\)" s))
+		(concat
+		 (emacsconf-surround "" (match-string 1 s) ":")
+		 (if (match-string 1 s)
+				 (format "%02d:" (string-to-number (match-string 2 s)))
+			 (concat (match-string 2 s) ":"))
+		 (format "%02d" (string-to-number (match-string 3 s))))))
+
+(defun emacsconf-extract-youtube-find-url-video-in-list (url &optional videos)
+	(seq-find
+	 (lambda (o)
+		 (let-alist o
+			 (or (string-match .id url)
+					 (and .contentDetails.videoId (string-match .contentDetails.videoId url)))))
+	 (or videos emacsconf-extract-youtube-api-videos)))
+
+(ert-deftest emacsconf-extract-youtube-format-duration ()
+	(expect (emacsconf-extract-youtube-format-duration "PT1H9M22S") :to-equal "1:09:22")
+	(expect (emacsconf-extract-youtube-format-duration "PT9M22S") :to-equal "9:22"))
+
+
+;; (setq emacsconf-extract-youtube-api-video-details (emacsconf-extract-youtube-get-video-details emacsconf-extract-youtube-api-playlist-items))
+
+;;; PeerTube
+
+(defvar emacsconf-extract-toobnix-api-client nil)
+(defvar emacsconf-extract-toobnix-api-bearer-token nil)
+(defvar emacsconf-extract-toobnix-api-username "bandali")
+(defvar emacsconf-extract-toobnix-api-channel-handle "emacsconf")
+
+(defun emacsconf-extract-toobnix-api-header ()
+	`(("Authorization" . ,(concat "Bearer " emacsconf-extract-toobnix-api-bearer-token))))
+
+(defun emacsconf-extract-toobnix-api-setup ()
+	(interactive)
+	(require 'plz)
+	(require 'url-http-oauth)
+	(setq emacsconf-extract-toobnix-api-client
+				(plz 'get "https://toobnix.org/api/v1/oauth-clients/local" :as #'json-read))
+	(setq emacsconf-extract-toobnix-api-bearer-token
+				(plz 'post "https://toobnix.org/api/v1/users/token"
+					:body (mm-url-encode-www-form-urlencoded
+								 `(("client_id" . ,(assoc-default 'client_id emacsconf-extract-toobnix-api-client))
+									 ("client_secret" . ,(assoc-default 'client_secret emacsconf-extract-toobnix-api-client))
+									 ("grant_type" . "password")
+									 ("username" . ,emacsconf-extract-toobnix-api-username)
+									 ("password" . ,(auth-info-password (car (auth-source-search :host "https://toobnix.org"))))))
+					:as #'json-read))
+	(setq emacsconf-extract-toobnix-api-channels
+				(plz 'get (format "https://toobnix.org/api/v1/accounts/%s/video-channels"
+													emacsconf-extract-toobnix-api-username)
+					:headers
+					:as #'json-read))
+	(setq emacsconf-extract-toobnix-api-videos
+				(plz 'get
+					(format "https://toobnix.org/api/v1/accounts/%s/videos?count=100&sort=-createdAt"
+									emacsconf-extract-toobnix-api-username)
+					:headers (emacsconf-extract-toobnix-api-header)
+					:as #'json-read)))
+
+(defun emacsconf-extract-toobnix-publish-video-from-edit-page ()
+	"Messy hack to set a video to public and store the URL."
+	(interactive)
+	(spookfox-js-injection-eval-in-active-tab "document.querySelector('label[for=privacy]').scrollIntoView(); document.querySelector('label[for=privacy]').closest('.form-group').querySelector('input').dispatchEvent(new Event('input'));" t)
+	(sit-for 1)
+	(spookfox-js-injection-eval-in-active-tab "document.querySelector('span[title=\"Anyone can see this video\"]').click()" t)
+	(sit-for 1)
+	(spookfox-js-injection-eval-in-active-tab "document.querySelector('button.orange-button').click()" t)(sit-for 3)
+	(let ((desc (spookfox-js-injection-eval-in-active-tab
+							 "document.querySelector('.video-info-description-html').innerHTML" t)))
+		(when (string-match (rx (literal emacsconf-base-url) (literal emacsconf-year) "/talks/"
+														(group (1+ (not (or " " "/" "\"")))))
+												desc)
+			(let ((slug (match-string 1 desc))
+						(url (spookfox-js-injection-eval-in-active-tab "window.location.href" t)))
+				(save-window-excursion
+					(emacsconf-with-talk-heading slug
+						(org-entry-put (point)
+													 (if (string-match "Q&A" desc)
+															 "QA_TOOBNIX_URL"
+														 "TOOBNIX_URL")
+													 url)
+						(message "Updating %s %s %s"
+										 slug
+										 (if (string-match "Q&A" desc)
+												 "QA_TOOBNIX_URL"
+											 "TOOBNIX_URL")
+										 url))))
+			(shell-command "xdotool key Alt+Tab sleep 1 key Ctrl+w Alt+Tab"))))
+
 (provide 'emacsconf-extract)
 ;;; emacsconf-extract.el ends here