joncol

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE RankNTypes #-}

module GADTs where

data Subject = Math | English | French
  deriving (Eq, Show)

joncol

module Day12 where

import Control.Applicative (Alternative((<|>)))
import Data.List ((\\))
import Data.Maybe (isJust)
import Data.Text (Text)
import GHC.Generics (Generic)
import Optics
import Text.Megaparsec (some)
import Text.Megaparsec.Char (char, eol, lowerChar, upperChar)

joncol

{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE NamedFieldPuns #-}

module Lib
  ( foo
  , someFunc
  ) where

import Data.Text (Text)
import Control.Monad.Reader (runReader)

joncol

{ config, pkgs, ... }:

{
  nix.package = pkgs.nixUnstable;
  nix.extraOptions = ''
    experimental-features = nix-command flakes
  '';

  boot.loader.grub.enable = true;
  boot.loader.grub.version = 2;

joncol

{ config, pkgs, ... }:

{
  imports =
    [
      ./hardware-configuration.nix
    ];

  boot.kernelPackages = pkgs.linuxPackages_latest;

joncol

(defn get-callback-success [request id]
  (jdbc/with-db-transaction [db (-> request :opts :db)]
    (let [config (-> request :opts :config)
          boundaries (-> request :opts :boundaries)
          merchant (:merchant boundaries)
          mantis (:mantis boundaries)
          deposit (db/get-deposit db {:id id})
          identification (delay (db/get-identification db {:id id}))
          withdrawal (delay (update-withdrawal! (:opts request) id))]
      (cond

joncol

(ns nordea-deposits-scraping.main
  (:gen-class)
  (:require [clojure.spec.alpha :as s]
            [clojure.tools.cli :refer [parse-opts]]
            [clojure.tools.logging :as log]
            [clojure.tools.logging.impl :as log-impl]
            ;; [duct.core :as duct]
            nordea-deposits-scraping.app
            [nordea-deposits-scraping.config :refer [read-config]]
            nordea-deposits-scraping.postgres

joncol

;; Project dependencies:
;; [org.seleniumhq.selenium/selenium-chrome-driver "3.141.59"]
;; [org.seleniumhq.selenium/selenium-java "3.141.59"]

(ns hello-selenium.core
  (:gen-class)
  (:import [org.openqa.selenium By WebDriver WebElement]
           [org.openqa.selenium.chrome ChromeDriver]))

(defn -main []

joncol

(defun create-test-report-window (&rest _)
  "Create window to show test report buffer, if one exists.
Place it to the right of the current window. If a window for the test report
buffer already exists, don't create a new one."
  (when-let* ((buf (get-buffer cider-test-report-buffer)))
    (unless (get-buffer-window buf)
      (let ((buffer-window (split-window (selected-window)
                                         (/ (window-width) 2)
                                         'right)))
        (set-window-buffer buffer-window buf)

joncol