neofetchよ、永遠に

Transcript

1. neofetchよ、永遠に ニート　harukun
2. 自己紹介 { name: 能島明希 handle: harukun origin: 広島->岡山->大阪->東京->会津 tech: { front-end: React+TS backend: Rust, Go, TS(勉強中) etc: Rust, Haskell Rust: Rust } favorites: Tobacco, BoyScout, Rust, Neovim, NixOS Twitter(x): https://twitter.com/pieceofharuki Blog: https://zenn.dev/haru_blog 　update: 最近先輩の家に居候している（１K３人暮らし） }
4. neofetchとは システム情報を表示してくれるコマンドラインツール 詳細な情報表示、カスタマイズ性、おしゃれな見た目で人気があった
5. 世はまさに大航海時代 2024年4月、開発者の引退によって neofetchのGitHubリポジトリはアーカイブされた 人々は理想の開発環境を目指し代替ツールを追い求める、世はまさに大航海時代！！ • fastfetch: ほとんどneofetchのように動作する。割と珍しく、 Windowsにも対応している • ufetch: めっちゃシンプルなフェッチツール • macchina: Rust製のCLIツール。まだ開発段階って感じ fastfetch macchina ufetch
6. 作ってみた。
7. 技術スタック
9. 技術スタック
10. ライブラリ • process: プロセス間通信や外部プログラムの実行を扱うためのライブラリ。 これによってシェルコマンドの実行が可能になる • filepath: ファイルパスを扱うためのライブラリ。パスの結合・抽出とかができるようになる • mtl: モナドを扱うためのライブラリ。 Stateモナドを扱うために使った • lens: 関数型言語であるHaskellで、オブジェクトっぽいものを扱うためのライブラリ。 これを拡張すると黒魔術である Template Haskellになるらしい。知らん。
11. Why 自分自身、neofetchの代替を探していた 某研究室のゼミに潜り込んで Haskellの勉強をしていたのでアウトプットとして何か作りたかった
12. 作る...前に Haskellとは: 純粋関数型言語。遅延評価と強い静的型付けが特徴。研究目的で開発された言語で、 　　　　　 事業に導入された例はあまり聞いたことない。 （Git Challengeのシステムの一部はHaskell作られてるらしい） Stackとは: Haskellのビルドツール兼パッケージマネージャー。 　　　　 Haskellのエコシステムは割とごちゃごちゃしていてわかりづらい。
13. stack-templateの作成 . ├── app │ └── Main.hs ├── src │ └── Lib.hs └── test └── Spec.hs . ├── src │ ├── Main.hs │ └── lib │ └── Lib.hs 普通にStackを使ってプロジェクトを作成すると右の様な構成になる → 個人的にはコードはすべて src/以下にあって欲しいのと、 このくらい規模の開発なら testなんていらんやろ！（怠惰） という思想なので、stackでプロジェクトを作る時のディレクトリ構成を左の様 に変更した→
14. Stackのドキュメントをみに行くとなんか書いてあった。 どうやら、stack-templatesというリポジトリににmy-template.hsfileという設定ファイルを書いて GitHubにあげる と stack newコマンドに`stack new username/my-template`という形で引数として渡せる様になるらしい 情報がマジでないのでStackが公式に用意しているテンプレートを参考にコネコネする... だいたいこんな感じ→
15. ディレクトリ構成 . ├── src │ ├── Main.hs │ └── lib // モジュールは全てlib/以下に配置 │ ├── Ascii // ロゴをアスキーアートとして出力するためのゴニョゴニョ │ │ ├── Ascii.hs │ │ ├── fhs.txt │ │ └── macos.txt │ ├── Lib.hs // main関数から呼び出す関数を配置 │ ├── Linux.hs │ ├── MacOS.hs // macos固有のデータ取得関数を配置 │ ├── Pkgs.hs // パッケージマネージャーに関する情報を取得する関数を配置 │ └── SystemData.hs // 取得するデータをStateとして定義したり、共通の処理を書いたり
16. SystemData OSに依存しない共通の処理と、取得するデータ群を Stateという形で定義する 例えば上記のようにコマンドを実行する関数を用意しておくと、 カーネルの情報を取得する処理を `concat <$> runCommand "uname" ["-r"]`とかける （今の所Windowsをサポートする予定はないので） macos固有の処理もrunCommandをインポートすれば `concat <$> runCommand "sw_vers" ["-productVersion"]`（これはOSのバージョンを取得する関数）のように 書くことができて便利 runCommand :: FilePath -> [String] -> IO [String] runCommand cmd args = map trim . lines <$> readProcess cmd args ""
17. StateとLens • State: 状態（と引数）を受け取って、結果と新しい状態を返すモナド。 　　 関数型言語であるHaskellでは破壊的代入は許されていないので、そのあたりを純粋性を　　 保ち ながら扱える様うまいことゴニョゴニョしたもの • Lens: 簡単にいうとGetterとSetterのペア。難しい話はあるが説明できる気はしないし理解も怪　　 しい のでしない。Stateと合わせるとさらに簡単に扱うことができる Stateの図示。→ 簡単なLensの図示。→
18. data SysInfo = SI { hostName :: Maybe String, machine :: Maybe String, kernel :: Maybe String, os :: Maybe String, de :: Maybe String, wm :: Maybe String, packages :: Maybe String, shell :: Maybe String, terminal :: Maybe String, uptime :: Maybe String, cpu :: Maybe String, cpuLoad :: Maybe String, memory :: Maybe String, disk :: Maybe String, battery :: Maybe String } deriving (Show) みなくていいよ！ なにはともあれ、データ群を SysInfoというStateとして定 義し、右の画像の様にLens を用意することでデータ群を 状態としてもち回すことがで きる （怒涛のLens定義は Template Haskellという黒 魔術を使うと自動化できるら しい）
19. 難しいことはいいんだ！！ getKernel :: IO String getKernel = do concat <$> runCommand "uname" ["-r"] applyLens kernelLens getKernel とりあえずStateとLensを使えば、カーネルの情報を取得 して状態（オブジェクト的なもの）にセットするという処理が こんなに簡潔に書けるよ
20. MacOS 一部のシステム情報はLinux、MacOSともに同じコマンドで取得することができるが、そうでないものもたくさんあ る。同じコマンドが使えても、出力の形が違ってたりするので、 OSに依存してしまうものはモジュールを分割して ある
21. macOSでのメモリの使用状況をxxGB/YYGB (ZZ%)み たいな形式で出力する関数
22. Linux, Windows Unimplemented…
23. できたもの MacOSでのみ、neofetchで取得できる情報をほぼほぼ 取得できた（バッテリーの状態とか CPU使用率とかが未 実装）
24. 課題 なんか実行時間遅くね...? →timeコマンドで実行時間計測 CPU使用率が異様に高いしプログラムの実行時間 が他のツールと比べて10倍くらい長い... ======================== Program : stack exec fetchs-exe CPU : 58% user : 0.285s system : 0.144s total : 0.726s ======================== ======================== Program : fastfetch CPU : 12% user : 0.021s system : 0.025s total : 0.382s ======================== ======================== Program : macchina CPU : 9% user : 0.012s system : 0.013s total : 0.277s ======================== ↑自作ツール
25. 今後 とりあえずLinuxでも動作する様にしたい（ディストリビューションごとに仕様が違ったりするので若干めんどくさそ う...） 現状モノクロなので色をつけてリッチにしたい 最終的にはbrewとか各パッケージマネージャーからインストールできる様にしたい
26. 感想 まずプロジェクトのセットアップをするところでだいぶ詰まった Rustに慣れるとエラー文が親切じゃない インデント構文はクソ Haskell、まだまだ知らないことばかりで難しいけどたのちい！ https://github.com/noharu36/fetchs
27. 参考文献 Graham Hutton . Programming in Haskell 2nd edition . ラムダノート株式会社, 2020 Lensで覗く心の深遠（Lensの具体例）. https://zenn.dev/yvvakimoto/articles/201bc52c940a1e