Alexander Q lattenwald
lattenwald
/ feedly.user.js
Last active
August 29, 2015 14:06
My very own feedly enhance userscript: some style tweaks and loading of large Shorpy.com images into the feed.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // ==UserScript== | |
| // @name Shorpy large images at Feedly | |
| // @namespace q.alexander.feedly.shorpy | |
| // @version 0.4 | |
| // @description Replace small Shorpy.com previews with large images in Feedly | |
| // @match http://feedly.com/* | |
| // @match https://feedly.com/* | |
| // @copyright 2014+, Alexaner Q | |
| // @grant none | |
| // ==/UserScript== |
lattenwald
/ ap.navigation.user.js
Last active
August 29, 2015 14:07
Apps list navigation for AndroidPolice userscript
lattenwald
/ bigpicture.navi.user.js
Last active
January 19, 2016 09:51
BigPicture navigation with keys j/k
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // ==UserScript== | |
| // @name Lepra | |
| // @namespace q.alexander.feedly.shorpy | |
| // @version 0.2 | |
| // @description Miscellaneous improvements | |
| // @match http://leprosorium.ru/* | |
| // @match http://*.leprosorium.ru/* | |
| // @match https://leprosorium.ru/* | |
| // @match https://*.leprosorium.ru/* | |
| // @copyright 2014+, Alexaner Q |
lattenwald
/ integralWith.hs
Created
March 25, 2015 08:30
netwire integralWith' (integralWith, correction function has time (a -> a))
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| integralWith' | |
| :: (W.HasTime t s, Fractional a) | |
| => (a -> a) -- ^ Correction function. | |
| -> a -- ^ Integration constant (aka start value). | |
| -> W.Wire s e m a a | |
| integralWith' correct = loop | |
| where | |
| loop x' = | |
| W.mkPure $ \ds dx -> | |
| let dt = realToFrac (W.dtime ds) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- This is even slower than triangleNumsAlt, but this is exactly | |
| -- THE function where I grocked lazy lists | |
| triangleNums = map fst triangleNums' | |
| where | |
| triangleNums' = (1, 2) : map (\(n, i) -> (n+i, i+1)) triangleNums' | |
| triangleNumsAlt = map (\i -> i * (i+1) `div` 2) [1..] |
lattenwald
/ adme.navi.user.js
Last active
August 16, 2016 08:37
user-js adme.ru pictures navigation
lattenwald
/ builder-packages.user.js
Last active
August 16, 2016 08:35
user-js buildmail:.dev.mail.ru Press "q" to get dialog with neatly formatted package names
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // ==UserScript== | |
| // @name Builder packet names | |
| // @namespace q.alexander.mailru.builder | |
| // @version 0.3 | |
| // @description enter something useful | |
| // @author Alexander Q <qalexx@gmail.com> | |
| // @match http://buildmail.dev.mail.ru/* | |
| // @grant none | |
| // ==/UserScript== |
lattenwald
/ Tree.purs
Last active
August 16, 2016 08:36
purescript Solution of exercise 5 from "Purescript by example", chapter 10.19
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| module Tree where | |
| import Prelude | |
| import Data.Either | |
| import Data.Foreign | |
| import Data.Foreign.Class | |
| data Tree a = Leaf a | Branch (Tree a) (Tree a) | |
| newtype STree = STree |
lattenwald
/ 24days.md
Created
April 22, 2016 08:28
— forked from paf31/24days.md
24 Days of PureScript
OlderNewer