YAMAMOTO Yuji igrep

## translate-mdn-ja-nvim.vim
function! ToJaPath(enPath) abort
  " e.g. content\files\en-us\glossary\boolean\html\index.md
  return substitute(a:enPath, '^content\\files\\en-us', 'translated-content\\files\\ja', '')
endfunction

function! PrepareJaPath() abort
  let path_to_index_md = ToJaPath(expand('%'))
  call mkdir(v:lua.vim.fs.dirname(path_to_index_md), "p")
  return path_to_index_md
endfunction

## bookmarklet.js
javascript:location.href="https://www.youtube.com/watch?v="+location.href.slice(`${location.origin}/shorts/`.length)

## no-empty.hs
{-# LANGUAGE DataKinds           #-}
{-# LANGUAGE FlexibleInstances   #-}
{-# LANGUAGE KindSignatures      #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeApplications    #-}
{-# LANGUAGE TypeOperators       #-}

import           Data.Kind (Type)

data ExampleData (as :: [Type]) = ExampleData

## gist:1028628
#!/usr/bin/env ruby
# -*- coding: utf-8 -*-
$VERBOSE = true
=begin
Maybe usable as generator expression in Python
requires ruby1.9 or facets ( >= 2.9.1 )
=end

if RUBY_VERSION < '1.9'
  require 'rubygems'

## rewrite-the-only-case-where-I-use-let-in.hs
import Test.Hspec
import Test.Hspec.QuickCheck
import Test.QuickCheck

-- 従来、Hspecで個別のテストケースに対して Gen を定義したい場合、
-- いちいち違う名前を付けるのが面倒なので let ... in で g （あるいはgen）という名前を使い回していたが、
-- 別にそれもdoの中のletで解決できることが発覚した。

main = hspec $ do
  -- let ... inを使った場合

## lets-in-do.hs
main = do
  -- let ... in を使った場合
  let f :: String -> IO ()
      f = putStrLn
   in f "f"
  -- ただの let を使った場合（こっちの方が大抵おすすめ！）
  let g :: String -> IO ()
      g = putStrLn
  g "g"

## download-from-m3u8.hs
#!/usr/bin/env stack
{- stack --resolver lts-17.4 script
    --package=typed-process
    --package=filepath
    --package=modern-uri
    --package=text
-}

{-# LANGUAGE OverloadedStrings #-}

## parser-strscan.rb
require 'strscan'

class Parser

  def initialize string
    @scanner = StringScanner.new string
  end

  def self.eval string
    self.new(string).expr

## .vimrc
function! GoToPreviousWindowWhenQf() abort
  if &filetype == 'qf'
    wincmd p
  endif
endfunction
let g:quickrun_config = {
      \   "_": {
      \     "outputter/quickfix/open_cmd" : "cwindow | call GoToPreviousWindowWhenQf()"
      \   },
      \ }

## list-google-shopping-list-items.js
prompt("Copy", [...document.getElementsByClassName('listItemTitle')].map(e => e.innerText).join("\n"))
	function! ToJaPath(enPath) abort
	" e.g. content\files\en-us\glossary\boolean\html\index.md
	return substitute(a:enPath, '^content\\files\\en-us', 'translated-content\\files\\ja', '')
	endfunction

	function! PrepareJaPath() abort
	let path_to_index_md = ToJaPath(expand('%'))
	call mkdir(v:lua.vim.fs.dirname(path_to_index_md), "p")
	return path_to_index_md
	endfunction
	{-# LANGUAGE DataKinds #-}
	{-# LANGUAGE FlexibleInstances #-}
	{-# LANGUAGE KindSignatures #-}
	{-# LANGUAGE ScopedTypeVariables #-}
	{-# LANGUAGE TypeApplications #-}
	{-# LANGUAGE TypeOperators #-}

	import Data.Kind (Type)

	data ExampleData (as :: [Type]) = ExampleData
	#!/usr/bin/env ruby
	# -- coding: utf-8 --
	$VERBOSE = true
	=begin
	Maybe usable as generator expression in Python
	requires ruby1.9 or facets ( >= 2.9.1 )
	=end

	if RUBY_VERSION < '1.9'
	require 'rubygems'
	import Test.Hspec
	import Test.Hspec.QuickCheck
	import Test.QuickCheck

	-- 従来、Hspecで個別のテストケースに対して Gen を定義したい場合、
	-- いちいち違う名前を付けるのが面倒なので let ... in で g （あるいはgen）という名前を使い回していたが、
	-- 別にそれもdoの中のletで解決できることが発覚した。

	main = hspec $ do
	-- let ... inを使った場合
	main = do
	-- let ... in を使った場合
	let f :: String -> IO ()
	f = putStrLn
	in f "f"
	-- ただの let を使った場合（こっちの方が大抵おすすめ！）
	let g :: String -> IO ()
	g = putStrLn
	g "g"
	#!/usr/bin/env stack
	{- stack --resolver lts-17.4 script
	--package=typed-process
	--package=filepath
	--package=modern-uri
	--package=text
	-}

	{-# LANGUAGE OverloadedStrings #-}
	require 'strscan'

	class Parser

	def initialize string
	@scanner = StringScanner.new string
	end

	def self.eval string
	self.new(string).expr
	function! GoToPreviousWindowWhenQf() abort
	if &filetype == 'qf'
	wincmd p
	endif
	endfunction
	let g:quickrun_config = {
	\ "_": {
	\ "outputter/quickfix/open_cmd" : "cwindow \| call GoToPreviousWindowWhenQf()"
	\ },
	\ }