add visibility-based limiter

* gist.el (gist-list-push-visibility-limit): new limiter

Author: sigma

gist.el

@@ -608,6 +608,7 @@ put it into `kill-ring'."
     (define-key map "*" 'gist-star)
     (define-key map "^" 'gist-unstar)
     (define-key map "f" 'gist-fork)
+    (define-key map "/p" 'gist-list-push-visibility-limit)
     (define-key map "/w" 'gist-list-pop-limit)
     map))
 
@@ -632,6 +633,15 @@ put it into `kill-ring'."
     (pop gist-list-limits))
   (gist-list-user 'current-user))
 
+(defun gist-list-push-visibility-limit (&optional private)
+  (interactive "P")
+  (push (apply-partially (lambda (flag g)
+                           (or (and flag (not (oref g :public)))
+                               (and (not flag) (oref g :public))))
+                         private)
+        gist-list-limits)
+  (gist-list-user 'current-user))
+
 (defun gist-list-apply-limits (gists)
   (condition-case nil
       (delete nil