Skip to content

Instantly share code, notes, and snippets.

@jmn
jmn / Posts.jsx
Created December 25, 2018 22:14
Feedreader
import React from "react";
import { Query } from "react-apollo";
import gql from "graphql-tag";
import { Redirect } from "react-router";
import TagSelect from "./TagSelect";
const Q = gql`
query allPosts($cursor: String, $tags: String, $id: ID) {
allPosts(username: "jmn", tags: $tags, id: $id, first: 1, after: $cursor) {
edges {
@jmn
jmn / q.jsx
Created December 24, 2018 21:25
const GET_POST = gql`
query post($id: ID!) {
post(id: $id) {
id
title
content
}
}
`;
@jmn
jmn / foo.jsx
Created December 21, 2018 21:16
React redirect in render function warning
import React from "react";
import { Query } from "react-apollo";
import gql from "graphql-tag";
const Q = gql`
query allPosts($cursor: String) {
allPosts(username: "jmn", first: 1, after: $cursor) {
edges {
node {
id
@jmn
jmn / gql.jsx
Created December 21, 2018 14:43
Graphql with apollo react
import React from "react";
import { Query } from "react-apollo";
import gql from "graphql-tag";
const Q = gql`
query allPosts($cursor: String) {
allPosts(username: "jmn", first: 1, after: $cursor) {
edges {
node {
id
@jmn
jmn / 1.hs
Created December 8, 2018 07:14
replace' :: Eq b => b -> b -> [b] -> [b]
replace' a b = map (\x -> if (a == x) then b else x)
main = do
f <- readFile "1input"
let l = lines $ replace' '+' ' ' f
map (read::String->Int) l
putStrLn "hi"
@jmn
jmn / .js
Created November 22, 2018 17:43
React Native Apollo FlatList infinite scroll
import React from 'react';
import { Text, View, SafeAreaView, FlatList, WebView, Dimensions, Button, ScrollView} from 'react-native';
import { ListItem } from 'react-native-elements';
import ApolloClient from "apollo-boost";
import gql from "graphql-tag";
import { ApolloProvider } from "react-apollo";
import { Query } from "react-apollo";
import HTML from 'react-native-render-html';
import { createAppContainer, createStackNavigator} from 'react-navigation';
@jmn
jmn / gist:98c0740086046c23ce97b3911349ad04
Created November 21, 2018 15:39
React Native GraphQL Apollo Boost in FlatList
import React from 'react';
import { Text, View, SafeAreaView, FlatList } from 'react-native';
import ApolloClient from "apollo-boost";
import gql from "graphql-tag";
import { ApolloProvider } from "react-apollo";
import { Query } from "react-apollo";
const client = new ApolloClient({
uri: "https://www.fedry.net/graphql"
});
@jmn
jmn / worker.py
Created November 6, 2018 15:28
Django RQ Worker on Heroku
import os
import redis
from rq import Queue, Connection
from rq.worker import HerokuWorker as Worker
from django.conf import settings
import django
django.setup()
os.environ.setdefault('DJANGO_SETTINGS_MODULE', 'dj.settings.production')
@jmn
jmn / gist:5708b3fbecacbe33e3d368070895573b
Created May 31, 2018 21:03
xmonad audio control buttons snippet
import Graphics.X11.ExtraTypes.XF86
-- Audio buttons
`additionalKeys`
[ ((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock"),
((0 , xF86XK_AudioLowerVolume), spawn "amixer -q sset Master 2%-"),
((0 , xF86XK_AudioRaiseVolume), spawn "amixer -q sset Master 2%+"),
((0 , xF86XK_AudioMute), spawn "amixer set Master toggle")
]
@jmn
jmn / absurls2.hs
Created April 27, 2018 14:14
Absolute urls in haskell with hxt (2nd version)
import Text.XML.HXT.Core
import Data.Maybe
toAbsoluteUrl
:: ArrowXml a
=> String -> a XmlTree XmlTree
toAbsoluteUrl base =
processAttrl (mkAbsolute mkAbsoluteUrl `when` (hasName "href" <+> hasName "src"))
where
mkAbsolute f = replaceChildren (xshow getChildren >>> arr (f base) `orElse` this >>> mkText)