Skip to content

Instantly share code, notes, and snippets.

View takeutch-kemeco's full-sized avatar

Takeutch Kemeco takeutch-kemeco

2 followers · 0 following
  • japan
View GitHub Profile
@takeutch-kemeco
takeutch-kemeco / clearConsole.hs
Last active December 14, 2015 23:39
--GHC version 7.6.2, terminfo-0.3.2.5
import System.Console.Terminfo.Base (setupTermFromEnv, getCapability, tiGetOutput1, runTermOutput, TermOutput)
import Data.Maybe (fromJust)
clearConsole :: IO ()
clearConsole = do
term <- setupTermFromEnv
let termOutput = getCapability term (tiGetOutput1 "clear") :: Maybe TermOutput
runTermOutput term (fromJust termOutput)
@takeutch-kemeco
takeutch-kemeco / setCursorPosition.hs
Last active December 14, 2015 23:59
--GHC version 7.6.2, terminfo-0.3.2.5
import System.Console.Terminfo.Base (setupTermFromEnv, getCapability, TermOutput, runTermOutput)
import System.Console.Terminfo.Cursor
import Data.Maybe (fromJust)
setCursorPosition :: Int -> Int -> IO ()
setCursorPosition xpos ypos = do
term <- setupTermFromEnv
let cura = fromJust (getCapability term cursorAddress :: Maybe (Point -> TermOutput))
@takeutch-kemeco
takeutch-kemeco / setConsoleColor.hs
Created March 15, 2013 14:38
--GHC version 7.6.2, terminfo-0.3.2.5
import System.Console.Terminfo.Base (setupTermFromEnv, getCapability, runTermOutput, TermOutput)
import System.Console.Terminfo.Color
import Data.Maybe (fromJust)
setConsoleColor :: Int -> Int -> IO ()
setConsoleColor textcol bgcol = do
term <- setupTermFromEnv
let set_textcol = fromJust (getCapability term setForegroundColor :: Maybe (Color -> TermOutput))
@takeutch-kemeco
takeutch-kemeco / mergeSort.hs
Last active December 15, 2015 03:49
mergeSort :: Eq a => (a -> a -> Bool) -> [a] -> [a]
mergeSort _ [] = []
mergeSort f a = concat.loop $ map (\x -> [x]) a
where
pack [] = [([],[])]
pack (a:[]) = [(a,[])]
pack (a:b:s) = (a,b) : pack s
sort ([],[]) = []
sort ([],b) = b
@takeutch-kemeco
takeutch-kemeco / log_value_mode_for_gimp2.8_commit_ee38c196e26becfc1174941189c42e440ec7c700.patch
Created April 24, 2013 23:45
gimp2.8 commit ee38c196e26becfc1174941189c42e440ec7c700 The embedding function "log_value_mode" to "spinscale" of this.
diff --git a/app/tools/gimpinkoptions-gui.c b/app/tools/gimpinkoptions-gui.c
index 6daba3b..b457b06 100644
--- a/app/tools/gimpinkoptions-gui.c
+++ b/app/tools/gimpinkoptions-gui.c
@@ -29,6 +29,7 @@
#include "widgets/gimpblobeditor.h"
#include "widgets/gimppropwidgets.h"
+#include "widgets/gimpspinscale.h"
@takeutch-kemeco
takeutch-kemeco / 00-osecpu072d
Last active December 20, 2015 05:29
osecpu072d で追加された新しいキー入力に対応
更新:2013.08.23
00-osecpu072d
osecpu072d.cのそれを、これに置き換えてビルドすれば動く。
・とりあえず絵は出る。
・アニメーションも動く。
・新しいキー入力に対応。（ editor.ose、othello.ose で動作確認）
・c_blike_01f_linux の最新版 (commit: 83868bb8067f4209f4409e5b2d268b164b7a653e 以降)が別途必須。
@takeutch-kemeco
takeutch-kemeco / log_value_mode-gimp-2.8.6.patch
Created July 25, 2013 12:21
log_value_mode-gimp-2.8.6.patch
diff --git a/app/tools/gimpinkoptions-gui.c b/app/tools/gimpinkoptions-gui.c
index 6daba3b..b457b06 100644
--- a/app/tools/gimpinkoptions-gui.c
+++ b/app/tools/gimpinkoptions-gui.c
@@ -29,6 +29,7 @@
#include "widgets/gimpblobeditor.h"
#include "widgets/gimppropwidgets.h"
+#include "widgets/gimpspinscale.h"
@takeutch-kemeco
takeutch-kemeco / 00-teto.ask
Last active December 23, 2015 08:19
osecpu上で動くテトリス
osecpu上で動く単純なテトリス。
・osecpu076d にて動作確認。（linuxと、windowsエミュレーター上にて）
・カーソルキーの左右と下が移動。上が右回転。それだけ。（段々レベルが上がって速くなるとか、スコア表示とか、そういうデコレーションは何も無い）
・__teto.ask は、コメントを削除して、改行を削除して、空白を削除しただけで、コードの内容自体はまったく同じ。
・__teto.ask の方だと .ose のサイズは 629 バイト。
@takeutch-kemeco
takeutch-kemeco / ntch-commit-5751d369719dcde54aa0237c91846ba118cb38de.patch
Created December 28, 2013 02:49
ntchで、スレッド一覧 から レス一覧 への移動を高速に行うと（→←のガチャ操作すると）、内部的な位置がおかしくなる問題を修正するパッチ 対象ソース commit 5751d369719dcde54aa0237c91846ba118cb38de
diff --git a/src/main.c b/src/main.c
index f402870..cf45582 100644
--- a/src/main.c
+++ b/src/main.c
@@ -454,6 +454,7 @@ static BOOL DoLoop(WINDOW *scrp, nt_usr_db_handle db_handle,
}
state = DISP_STATE_THREADTITLE;
}else if(DISP_STATE_RESLIST == state){
+ disp_state = state;
if(!nt_read_thread(h_sel_items)){
@takeutch-kemeco
takeutch-kemeco / ntch-fix-refresh-commit-5751d369719dcde54aa0237c91846ba118cb38de.patch
Last active January 1, 2016 14:09
ntchで、スレッド一覧 状態で、r による画面更新を行うと、 ← で戻れなくなる問題を修正するパッチ。パッチ 対象ソース commit 5751d369719dcde54aa0237c91846ba118cb38de
diff --git a/src/main.c b/src/main.c
index f402870..fdf6990 100644
--- a/src/main.c
+++ b/src/main.c
@@ -448,6 +448,8 @@ static BOOL DoLoop(WINDOW *scrp, nt_usr_db_handle db_handle,
}
ch = NT_KEY_NONE;
status_msg = NT_INFO_REFRESH_BOARD_SUCCESS;
+ state = DISP_STATE_THREADTITLE;
+ disp_state = state;