quantumman

set LANG "ja_JP.UTF-8"

set -x PATH /opt/homebrew/bin $PATH
set -x PATH ~/.local/bin $PATH
set -x GOPATH $HOME/dev
set -x PATH $PATH $GOPATH/bin
set -x GOENV_ROOT $HOME/.goenv
set -x PATH $PATH $GOENV_ROOT/bin

eval (nodenv init - | source)

quantumman

[user]
	name = Syoudai Yokoyama
	email = ''
[color]
	ui = auto
[core]
	# editor = vim -c \"set fenc=utf-8\"
	editor = emacsclient -t

[alias]

quantumman

※ TeamSpirit Advent Calender 2018 6日目の記事です

こんにちはTeamSpiritでフロントエンドエンジニアやっている quantumman です。 今年も残す所後少しと言うことで、とりあえず雑に今年を振り返ります。

概況

大人の事情で2018/6/1からエンジニア人生が始まったと思い込んでいる人間なので、今年の前半は無しです。 初めて転職しました。

quantumman

{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE OverlappingInstances #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE UnboxedTuples #-}
{-# LANGUAGE TypeSynonymInstances #-}
module Marshal where
import Control.Applicative
import Control.Exception (bracket)
import Foreign

quantumman

{-# LANGUAGE DeriveFunctor #-}
import Control.Monad.Free
import Control.Applicative

data Card

data PlayingF next
    = Draw (Card -> next)
    | Discard Card next
    | Play Card next

quantumman

{-# LANGUAGE TypeFamilies, GeneralizedNewtypeDeriving, ConstraintKinds  #-}
import Control.Applicative
import Control.Concurrent
import Control.Monad
import Control.Monad.State
import Data.List

{- Card definition -}

data CardType = Inherits | Land deriving Show

quantumman

{-# LANGUAGE TypeFamilies, GADTs, RankNTypes, TypeSynonymInstances, FlexibleInstances, TypeOperators #-}

import Text.Parsec
import Control.Applicative
import Data.Char
import Control.Monad


data Y a
data M a

quantumman

putStrLn "Hello, world!"

quantumman

(require 'vc-git)
(defun get-git-branch-name (path)
  (let ((git-directory (concat path "/.git")))
    (if (file-exists-p git-directory)
	(concat " (" (vc-git-mode-line-string git-directory) ") ")
      ""
      )))

(defun custom:eshell-prompt-function ()

quantumman

withYiki f = withSqlitePool "yiki.sqlite" openConnectionCount $ \pool -> do
    runSqlPool (runMigration migrateAll) pool
    let yiki = Yiki pool
    toWaiApp yiki >>= f >> return ()