arifian

;; instant ergoemacs, emacs 28.1 script for MacOS
(require 'package)
;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))

(package-initialize)

arifian

(require 'package)
;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))

(package-initialize)

;; c setup

arifian

(defn group-by-red [f coll]
  (r/fold 2048
          (partial merge-with into)
          (fn [groups a]
            (let [k (f a)]
              (assoc groups k (conj (get groups k []) a))))
          coll))

arifian

(ns app.pedestal.component
  "Connection between the Component framework and the Pedestal web application server.
  inspired by: https://github.com/stuartsierra/component.pedestal/commit/9ee90960b86f84c02ec59848c6f34bd977c5e8d0"
  (:require [com.stuartsierra.component :as component]
            [io.pedestal.http :as http]
            [io.pedestal.http.cors :as cors]
            [io.pedestal.http.impl.servlet-interceptor :as servlet-interceptor]
            [io.pedestal.interceptor :refer [interceptor interceptor-name]]))

arifian

(require 'package)
;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))

(package-initialize)

(unless (package-installed-p 'ergoemacs-mode)

arifian

(ns oauth-google
  (:require
   [io.pedestal.interceptor :refer [interceptor]]
   [io.pedestal.interceptor.chain :refer [terminate]]
   [io.pedestal.http :as http]
   [io.pedestal.log :as log]
   [cheshire.core :as cheshire]
   [clj-http.client :as client-clj]
   [ring.util.response :as ring-resp]
   [ring.util.codec :as codec]))