2021/08/21

Sharp AQUOS sense4 SH-M15

 今使っている SH-M05 のバッテリーがだめになったので Sharp AQUOS sense4 SH-M15 を購入。

最近固定電話も解約したし電話もういらない気がするのだけど、2段階認証でスマホは必要だからしかたないね。バッテリーが理由で機種交換せざるを得ないのはだめだめだけど。

LastPass のアプリが LastPass Password Manager と LastPass Authenticator の2つあるのに気づかなくて2段階認証の移行につまずいたこと以外は、すんなりと機種変更できた。



2021/08/18

新しい PC

Sycom さんで新しい PC を購入した。 

コンパイルすごく速くなった。 
それでいてかなり静か。
満足

CPU      : AMD Ryzen 9 5950X Vermeer[3.4GHz/16Core/TDP105W] 搭載モデル
CPUグリス: Arctic Silver AS-05A [高密度微粒子、高熱伝導率タイプ]
水冷UNIT : Fractal Design FD-WCU-CELSIUS-S36-BK [水冷ユニット]
MOTHER   : ASRock X570 Taichi [AMD X570chipset]
MEMORY   : 64GB[16GB*4枚] G.SKILL Trident Z RGB DDR4-3200 RGB内蔵ヒートスプレッダー搭載 Dual Channel
HDD/SSD  : Western Digital WD Black SN850 WDS200T1X0E [M.2 PCI-E GEN4 SSD 2TB]★PCI-E4.0対応 超高速次世代SSD
VGA      : サイコムオリジナル水冷静音仕様 GeForce RTX3070 8GB LHR+Asetek 740GN水冷+EnermaxUCTB12+サイコムオリジナルVGAサポートステイ [HDMI*1/DisplayPort*3]
CASE     : 【黒】Fractal Design Define S2 Black TG [ガラスパネル]
POWER    : Fractal Design ION+ 860P (FD-PSU-IONP-860P-BK ) [860W/80PLUS Platinum]※高品質セミファンレス電源

固定電話解約した

固定電話解約した

2021/01/09

タオ

タオ

ラグドールのタオが今日他界した。 9月末に心筋症・動脈血栓症で突然両後脚が動かなくなったけど、なんとかもちなおし少しずつ脚も動くようになってきていた。

今日急変してそのまま。

ねこまい

たお

2019/07/23

python

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)

2019/07/08

Makefile から PostgreSQL の全テーブルを削除する

Makefile から PostgreSQL の全テーブルを削除する

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

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

2019/07/05

PureScript + Halogen + Firebase で簡単なものを作った

PureScript + Halogen + Firebase で簡単なものを作った

https://github.com/quek/cocsan-purescript

version

  • PureScritp 0.12.5
  • Halogen v5.0.0-rc.4

Halogen はぜひ v5 系を使いたい。 Child component addressing (H.slot) がきれいになっている。

参考にすべきもの

build

purescript-halogen-realworld を持って来て Webpack 化した。

  • パッケージ管理は spago
  • コンパイルは webpack + purs-loader

Firebase

初期化

js でログイン処理と一緒にやっちゃう。ログインできたら PureScript の main を呼ぶ。

/__/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

Firestore.purs 必要最低限なものだけ。

js のクラス毎にモジュールを分けた方がいいだろうか? id, get など名前がかぶるから。

ルーティング

purescript-halogen-realworld は Hash ベースだったけど History API ベースで実装した。

purescript-halogen-realworld がやっているようにモナドを作る(?) AppM.purs

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

Global Message passing inside Purescript Halogen - DEV Community 👩‍💻👨‍💻 を参考にルーティングを担当するコンポーネントでグローバルメッセージ(AVar 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

あと Main で PopStateEvent を監視する。

-- 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)

画像ファイル

file-loader が処理した画像ファイル名を使いたいのでこんなふうにした。ちょっとめんどい。もっといい方法ないかな。

Assets.js

const ASSETS = {
  '1.png': require('./assets/1.png')
};
exports.assets = function(name) {
  return ASSETS[name];
};

Assets.purs

module Assets where
foreign import assets :: String -> String
import Assets (assets)

render _ = HH.img [ HP.src $ assets "1.png" ]