Skip to content

Instantly share code, notes, and snippets.

View FiV0's full-sized avatar
🍌

Finn Völkel FiV0

🍌
View GitHub Profile
@FiV0
FiV0 / csv_helper.clj
Created March 22, 2023 13:48
Too often written from scratch... (CSV reading/writing)
(require '[clojure.java.io :as io]
'[clojure.data.csv :as csv]
'[clojure.string :as str])
(defn header [edn-map]
(->> edn-map keys (map name)))
(defn write-to-csv-file
([file edn-results] (write-to-csv-file file edn-results {}))
([file edn-results {:keys [append write-header] :or {write-header true} :as _opts}]
@FiV0
FiV0 / scratch.clj
Last active December 8, 2022 09:16
Problem 7 AoC 2022 solution from the Clojure Berlin Meetup
(ns scratch
(:require [clojure.string :as str]))
;;///////////////////////////////////////////////////////////////////////////////
;;===============================================================================
;; Parsing
;;===============================================================================
;;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
@FiV0
FiV0 / Arc-Dark2.rasi
Created September 30, 2022 15:02
Arc-Dark theme for rofi with index in launcher
/************************************************
* ROFI Color theme
* User: leofa
* Copyright: 2017 leofa
***********************************************/
* {
selected-normal-foreground: rgba ( 249, 249, 249, 100 % );
foreground: rgba ( 196, 203, 212, 100 % );
normal-foreground: @foreground;
@FiV0
FiV0 / inactivity.cljs
Created April 1, 2021 13:23
Checking for inactivity in ClojureScript
(defn inactive[]
(js/console.log "You have been inactive!!!"))
(def timer (atom nil))
(defn reset-timer []
(js/clearTimeout @timer)
(swap! timer #(js/setTimeout inactive 3000)))
(defn inactivity-time []
@FiV0
FiV0 / move-namespace.clj
Last active December 18, 2020 18:02
Moving a namespace in a clj/cljs/cljc project with mranderson
;; needed if you don't use leiningen
(do
(create-ns 'leiningen.core.main)
(intern 'leiningen.core.main 'warn #(apply println "[warn]" %&))
(intern 'leiningen.core.main 'info #(apply println "[info]" %&))
(intern 'leiningen.core.main 'debug #(apply println "[debug]" %&))
(dosync (commute @#'clojure.core/*loaded-libs* conj 'leiningen.core.main)))
(require '[mranderson.move :as move])
(require '[clojure.java.io :as io])
@FiV0
FiV0 / core.cljs
Created June 6, 2020 14:12
Fragment issue
(ns frontend-re-frame.core
(:require [re-frame.core :as re-frame]
[reagent.core :as reagent]
[reitit.core :as r]
[reitit.coercion.spec :as rss]
[reitit.frontend :as rf]
[reitit.frontend.controllers :as rfc]
[reitit.frontend.easy :as rfe]))
;;; Events ;;;
@FiV0
FiV0 / cl-git-function-doc.mk
Created March 20, 2019 07:59
russel/cl-git function documentation
CL-GIT:AMBIGUOUS-ERROR
[symbol]
AMBIGUOUS-ERROR names the condition-class #<SB-PCL::CONDITION-CLASS CL-GIT:AMBIGUOUS-ERROR>:
Class precedence-list: AMBIGUOUS-ERROR, BASIC-ERROR, SIMPLE-ERROR,
SIMPLE-CONDITION, ERROR, SERIOUS-CONDITION,
CONDITION, SB-PCL::SLOT-OBJECT, T
Direct superclasses: BASIC-ERROR
No subclasses.
No direct slots.

Keybase proof

I hereby claim:

  • I am fiv0 on github.
  • I am fivo (https://keybase.io/fivo) on keybase.
  • I have a public key ASCGV9p8o7xICM0j-IFlO8lT6JWvtPtgIjWd24yfXgrPTQo

To claim this, I am signing this object:

@FiV0
FiV0 / backtrader-ccxt.py
Created March 11, 2018 16:11
Backtrader with ccxt two datafeeds
# !/usr/bin/env python
# -*- coding: utf-8; py-indent-offset:4 -*-
from __future__ import (absolute_import, division, print_function,
unicode_literals)
import sys
import time
from datetime import datetime, timedelta
import backtrader as bt
import ccxt
@FiV0
FiV0 / extract_classes.py
Last active July 10, 2017 10:04
Extracts jar class files for android from aar files.
#!/usr/bin/python
import sys, os
from os.path import isdir
import glob
from shutil import copy
import zipfile
source_dir = ''
destination_dir = ''