joncol

g_LastCtrlKeyDownTime := 0
g_AbortSendBackSpace := false
g_ControlRepeatDetected := false

*CapsLock::
    if (g_ControlRepeatDetected)
    {
        return
    }

joncol

(def ^:private credentials-status-atom (atom nil))

(defn- credentials-status []
  (when-not @credentials-status-atom
    (reset! credentials-status-atom
            {:status "awaiting_mobile_bankid_authentication"})
    (future
      (Thread/sleep 3000)
      (reset! credentials-status-atom {:status "updating"}))
    (future

joncol

joncol

joncol

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

;; 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

(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

(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

{ config, pkgs, ... }:

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

  boot.kernelPackages = pkgs.linuxPackages_latest;