タオ
ラグドールのタオが今日他界した。 9月末に心筋症・動脈血栓症で突然両後脚が動かなくなったけど、なんとかもちなおし少しずつ脚も動くようになってきていた。 今日急変してそのまま。 ねこまい たお
タオ
python
開発環境
プロジェクトの作成
mkdir project
cd project
git init
python3 -m venv venv
source venv/bin/activate
pip install jedi rope flake8 autopep8 yapf black
emacs
auto-virtualenvwrapper
, elpy
をインストール(require 'auto-virtualenvwrapper)
(add-hook 'python-mode-hook #'auto-virtualenvwrapper-activate)
(add-hook 'projectile-after-switch-project-hook #'auto-virtualenvwrapper-activate)
(advice-add 'python-mode :before 'elpy-enable)
https://stackoverflow.com/questions/3327312/how-can-i-drop-all-the-tables-in-a-postgresql-database https://stackoverflow.com/questions/649246/is-it-possible-to-create-a-multi-line-string-variable-in-a-makefile Makefile から PostgreSQL の全テーブルを削除する
define DROP_ALL_TABLES
DO $$$$ DECLARE
r RECORD;
BEGIN
-- if the schema you operate on is not "current", you will want to
-- replace current_schema() in query with 'schematodeletetablesfrom'
-- *and* update the generate 'DROP...' accordingly.
FOR r IN (SELECT tablename FROM pg_tables WHERE schemaname = current_schema()) LOOP
EXECUTE 'DROP TABLE IF EXISTS ' || quote_ident(r.tablename) || ' CASCADE';
END LOOP;
END $$$$;
endef
export DROP_ALL_TABLES
drop_all_tables:
echo "$$DROP_ALL_TABLES" | sudo -u postgres psql target_database
https://github.com/quek/cocsan-purescript Halogen はぜひ v5 系を使いたい。 Child component addressing (H.slot) がきれいになっている。 purescript-halogen-realworld を持って来て Webpack 化した。 js でログイン処理と一緒にやっちゃう。ログインできたら PureScript の main を呼ぶ。 Firestore.purs 必要最低限なものだけ。 js のクラス毎にモジュールを分けた方がいいだろうか? id, get など名前がかぶるから。 purescript-halogen-realworld は Hash ベースだったけど History API ベースで実装した。 purescript-halogen-realworld がやっているようにモナドを作る(?) AppM.purs Global Message passing inside Purescript Halogen - DEV Community あと Main で PopStateEvent を監視する。 file-loader が処理した画像ファイル名を使いたいのでこんなふうにした。ちょっとめんどい。もっといい方法ないかな。 Assets.js Assets.purs PureScript + Halogen + Firebase で簡単なものを作った
version
参考にすべきもの
build
Firebase
初期化
/__/firebase/init.json
を使うコードあまり見かけないけど環境ごとの設定ファイルが不要になるので便利。fetch('/__/firebase/init.json')
.then(response => {
return response.json();
})
.then(config => {
firebase.initializeApp(config);
firebase.auth().onAuthStateChanged(function(user) {
if (user) {
require('./Main').main();
} else {
const provider = new firebase.auth.GoogleAuthProvider();
firebase.auth().signInWithRedirect(provider);
}
});
});
ffi
ルーティング
class Monad m <= Navigate m where
navigate :: MyRoute -> m Unit
instance navigateHalogenM :: Navigate m => Navigate (H.HalogenM st act slots msg m) where
navigate = lift <<< navigate
instance navigateAppM :: Navigate AppM where
navigate route = do
globalMessage <- asks _.globalMessage
liftAff $ put (NavigateG route) globalMessage
handleAction :: Action -> H.HalogenM State Action ChildSlots o m Unit
handleAction = case _ of
Initialize -> do
logMessage "初期化 Routing.purs"
path <- H.liftEffect $ window >>= location >>= pathname
updateRoute path
void $ H.fork globalMessageLoop
globalMessageLoop = do
globalMessage <- asks _.globalMessage
query <- H.liftAff $ AVar.take globalMessage
case query of
NavigateG route -> do
pushState route
H.modify_ \st -> st { route = route }
pure unit
globalMessageLoop
pushState route = do
pushStateInterface <- asks _.pushStateInterface
H.liftEffect $ pushStateInterface.pushState (unsafeToForeign {}) $ routeToPath route
updateRoute path = do
case match myRoute path of
Right newRoute -> do
H.modify_ \st -> st { route = newRoute }
Left e -> H.liftEffect $ log e
-- A producer coroutine that emits messages whenever the window emits a
-- `hashchange` event.
popStateProducer :: Coroutine.Producer HCE.PopStateEvent Aff Unit
popStateProducer = CoroutineAff.produce \emitter -> do
listener <- eventListener (traverse_ (emit emitter) <<< HCE.fromEvent)
liftEffect $
window
>>= Window.toEventTarget
>>> addEventListener HCET.popstate listener false
-- A consumer coroutine that takes the `query` function from our component IO
-- record and sends `ChangeRoute` queries in when it receives inputs from the
-- producer.
popStateConsumer
:: (forall a. Routing.Query a -> Aff (Maybe a))
-> Coroutine.Consumer HCE.PopStateEvent Aff Unit
popStateConsumer query = CR.consumer \event -> do
path <- liftEffect $ window >>= location >>= pathname
H.liftEffect $ log path
void $ query $ H.tell $ Routing.ChangeRoute path
pure Nothing
main :: Effect Unit
main = HA.runHalogenAff do
globalMessage <- AVar.empty
pushStateInterface <- H.liftEffect $ makeInterface
let
environment = { globalMessage, pushStateInterface }
component = H.hoist (runAppM environment) Routing.component
body <- HA.awaitBody
io <- runUI component unit body
Coroutine.runProcess (popStateProducer Coroutine.$$ popStateConsumer io.query)
画像ファイル
const ASSETS = {
'1.png': require('./assets/1.png')
};
exports.assets = function(name) {
return ASSETS[name];
};
module Assets where
foreign import assets :: String -> String
import Assets (assets)
render _ = HH.img [ HP.src $ assets "1.png" ]
投稿者
Yoshinori Tahara
時刻:
16:22
0
コメント
この投稿へのリンク
ラベル: Halogen, PureScript
Emacs Muse で書いて、Common Lisp 経由で Blogger に投稿する ↑ を書き直した。 Markdown を HTML にするのに Grip を使う。そのインストールとセットアップ。 ~/.emacs Grip で出力される HTML の css を Blogger のテンプレに入れておく。 こんな感じ以前のように動くようになった。
ドキュメントは修正してない。 Markdown で書いて Common Lisp 経由で Blogger に投稿する
pip3 install grip
~/.local/bin/grip --version
(setq markdown-command "~/.local/bin/grip --export - -")
Common Lisp で css を書く時に #000
などどう書けばいいか悩んでいたけど、バックスラッシュでエスケープすればいい、という結論にたどりついた。
そんなわけでやっと書けた。 https://github.com/quek/info.read-eval-print.css
(in-package :info.read-eval-print.css) (with-output-to-string (*css-output*) (css `((\#foo :color \#ccc (.bar :margin 1px 2px 0 0 :font-size 12px)) (a\:hover :color yellow)))) ;;⇒ "#foo{color:#ccc;} ;; #foo .bar{margin:1px 2px 0 0;font-size:12px;} ;; a:hover{color:yellow;}"
投稿者
Yoshinori Tahara
時刻:
13:22
0
コメント
この投稿へのリンク
ラベル: Common Lisp