今使っている SH-M05 のバッテリーがだめになったので Sharp AQUOS sense4 SH-M15 を購入。
最近固定電話も解約したし電話もういらない気がするのだけど、２段階認証でスマホは必要だからしかたないね。バッテリーが理由で機種交換せざるを得ないのはだめだめだけど。
LastPass のアプリが LastPass Password Manager と LastPass Authenticator の２つあるのに気づかなくて２段階認証の移行につまずいたこと以外は、すんなりと機種変更できた。
Sycom さんで新しい PC を購入した。
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" ]
