drives.clj

(ns happygapi.drive.drives
  "Drive API: drives.
  Manages files in Drive including uploading, downloading, searching, detecting changes, and updating sharing permissions.
  See: https://developers.google.com/drive/api/reference/rest/v3/drives"
  (:require [cheshire.core :as json]
            [clj-http.client :as http]
            [happy.util :as util]))

(defn create$
  "https://developers.google.com/drive/api/reference/rest/v3/drives/create
  
  Required parameters: requestId
  
  Optional parameters: none
  
  Body: 
  
  {:capabilities {:canChangeDomainUsersOnlyRestriction boolean,
                  :canRenameDrive boolean,
                  :canCopy boolean,
                  :canManageMembers boolean,
                  :canTrashChildren boolean,
                  :canDownload boolean,
                  :canChangeDriveMembersOnlyRestriction boolean,
                  :canDeleteChildren boolean,
                  :canListChildren boolean,
                  :canRename boolean,
                  :canReadRevisions boolean,
                  :canDeleteDrive boolean,
                  :canChangeCopyRequiresWriterPermissionRestriction boolean,
                  :canEdit boolean,
                  :canComment boolean,
                  :canAddChildren boolean,
                  :canChangeDriveBackground boolean,
                  :canShare boolean},
   :restrictions {:adminManagedRestrictions boolean,
                  :copyRequiresWriterPermission boolean,
                  :domainUsersOnly boolean,
                  :driveMembersOnly boolean},
   :themeId string,
   :backgroundImageFile {:id string,
                         :width number,
                         :xCoordinate number,
                         :yCoordinate number},
   :name string,
   :createdTime string,
   :hidden boolean,
   :id string,
   :kind string,
   :colorRgb string,
   :backgroundImageLink string}
  
  Creates a new shared drive."
  {:scopes ["https://www.googleapis.com/auth/drive"]}
  [auth args body]
  {:pre [(util/has-keys? args #{:requestId})]}
  (util/get-response
   (http/post
    (util/get-url
     "https://www.googleapis.com/drive/v3/"
     "drives"
     #{:requestId}
     args)
    (merge-with
     merge
     {:content-type :json,
      :body (json/generate-string body),
      :throw-exceptions false,
      :query-params args,
      :accept :json,
      :as :json}
     auth))))

(defn delete$
  "https://developers.google.com/drive/api/reference/rest/v3/drives/delete
  
  Required parameters: driveId
  
  Optional parameters: none
  Permanently deletes a shared drive for which the user is an organizer. The shared drive cannot contain any untrashed items."
  {:scopes ["https://www.googleapis.com/auth/drive"]}
  [auth args]
  {:pre [(util/has-keys? args #{:driveId})]}
  (util/get-response
   (http/delete
    (util/get-url
     "https://www.googleapis.com/drive/v3/"
     "drives/{driveId}"
     #{:driveId}
     args)
    (merge-with
     merge
     {:throw-exceptions false,
      :query-params args,
      :accept :json,
      :as :json}
     auth))))

(defn get$
  "https://developers.google.com/drive/api/reference/rest/v3/drives/get
  
  Required parameters: driveId
  
  Optional parameters: useDomainAdminAccess
  Gets a shared drive's metadata by ID."
  {:scopes ["https://www.googleapis.com/auth/drive"
            "https://www.googleapis.com/auth/drive.readonly"]}
  [auth args]
  {:pre [(util/has-keys? args #{:driveId})]}
  (util/get-response
   (http/get
    (util/get-url
     "https://www.googleapis.com/drive/v3/"
     "drives/{driveId}"
     #{:driveId}
     args)
    (merge-with
     merge
     {:throw-exceptions false,
      :query-params args,
      :accept :json,
      :as :json}
     auth))))

(defn hide$
  "https://developers.google.com/drive/api/reference/rest/v3/drives/hide
  
  Required parameters: driveId
  
  Optional parameters: none
  Hides a shared drive from the default view."
  {:scopes ["https://www.googleapis.com/auth/drive"]}
  [auth args]
  {:pre [(util/has-keys? args #{:driveId})]}
  (util/get-response
   (http/post
    (util/get-url
     "https://www.googleapis.com/drive/v3/"
     "drives/{driveId}/hide"
     #{:driveId}
     args)
    (merge-with
     merge
     {:throw-exceptions false,
      :query-params args,
      :accept :json,
      :as :json}
     auth))))

(defn list$
  "https://developers.google.com/drive/api/reference/rest/v3/drives/list
  
  Required parameters: none
  
  Optional parameters: pageSize, pageToken, q, useDomainAdminAccess
  Lists the user's shared drives."
  {:scopes ["https://www.googleapis.com/auth/drive"
            "https://www.googleapis.com/auth/drive.readonly"]}
  [auth args]
  {:pre [(util/has-keys? args #{})]}
  (util/get-response
   (http/get
    (util/get-url
     "https://www.googleapis.com/drive/v3/"
     "drives"
     #{}
     args)
    (merge-with
     merge
     {:throw-exceptions false,
      :query-params args,
      :accept :json,
      :as :json}
     auth))))

(defn unhide$
  "https://developers.google.com/drive/api/reference/rest/v3/drives/unhide
  
  Required parameters: driveId
  
  Optional parameters: none
  Restores a shared drive to the default view."
  {:scopes ["https://www.googleapis.com/auth/drive"]}
  [auth args]
  {:pre [(util/has-keys? args #{:driveId})]}
  (util/get-response
   (http/post
    (util/get-url
     "https://www.googleapis.com/drive/v3/"
     "drives/{driveId}/unhide"
     #{:driveId}
     args)
    (merge-with
     merge
     {:throw-exceptions false,
      :query-params args,
      :accept :json,
      :as :json}
     auth))))

(defn update$
  "https://developers.google.com/drive/api/reference/rest/v3/drives/update
  
  Required parameters: driveId
  
  Optional parameters: useDomainAdminAccess
  
  Body: 
  
  {:capabilities {:canChangeDomainUsersOnlyRestriction boolean,
                  :canRenameDrive boolean,
                  :canCopy boolean,
                  :canManageMembers boolean,
                  :canTrashChildren boolean,
                  :canDownload boolean,
                  :canChangeDriveMembersOnlyRestriction boolean,
                  :canDeleteChildren boolean,
                  :canListChildren boolean,
                  :canRename boolean,
                  :canReadRevisions boolean,
                  :canDeleteDrive boolean,
                  :canChangeCopyRequiresWriterPermissionRestriction boolean,
                  :canEdit boolean,
                  :canComment boolean,
                  :canAddChildren boolean,
                  :canChangeDriveBackground boolean,
                  :canShare boolean},
   :restrictions {:adminManagedRestrictions boolean,
                  :copyRequiresWriterPermission boolean,
                  :domainUsersOnly boolean,
                  :driveMembersOnly boolean},
   :themeId string,
   :backgroundImageFile {:id string,
                         :width number,
                         :xCoordinate number,
                         :yCoordinate number},
   :name string,
   :createdTime string,
   :hidden boolean,
   :id string,
   :kind string,
   :colorRgb string,
   :backgroundImageLink string}
  
  Updates the metadate for a shared drive."
  {:scopes ["https://www.googleapis.com/auth/drive"]}
  [auth args body]
  {:pre [(util/has-keys? args #{:driveId})]}
  (util/get-response
   (http/patch
    (util/get-url
     "https://www.googleapis.com/drive/v3/"
     "drives/{driveId}"
     #{:driveId}
     args)
    (merge-with
     merge
     {:content-type :json,
      :body (json/generate-string body),
      :throw-exceptions false,
      :query-params args,
      :accept :json,
      :as :json}
     auth))))