ThinkPadでタッチパッド（trackpoint）の中央ボタンをマウスの中ボタンにアサインする方法です。忘れそうなのでメモ。
「設定」→「マウス」を開き「ELAN TrackPoint for ThinkTrackPoint」の「TrackPoint settings」を開く。
開いた「ELAN TrackPoint for ThinkTrackPoint」の「中央ボタン」のリストボックすのデフォルトが「スクロール」になっている。これを「中ボタン」に変更すると、中ボタンクリック挙動になる。
※ 公式ページ（リンク）では、「その他のマウスオプション」で表示されるダイアログに「ThankPad」タブが表示される、とあるが、2024.07.19現在、Windows10 22H2では表示されないので注意が必要。
[ATOK] 候補ウィンドウがカーソル位置ではなく、画面中央に固定表示されるようになってしまった
Windows10上で、特に設定を変更したつもりはないのだが、変換候補ウィンドウ、及び、推測候補ウィンドウが画面中央に固定表示される状態になった。
JUST SYSTEMSのサポートページに以下のページがあり、ウィンドウをドラッグ＆ドロップすることで位置を変更できることが分かったが、肝心の「左上のピン」が表示されておらず、カーソル位置表示に戻すことができない。
ATOKプロパティ設定の中を確認しても、表示・非表示の切り替えはあるが、表示位置の切り替えが見つからない･･･（FAQは2007年記載なので、古いバージョンの挙動っぽい）。
困っていた中、ふと候補ウィンドウ右下の画面の「候補メニュー」の存在に気がつき、表示してみると「表示位置を固定」にチェックが入っていることに気がついた。このチェックを外すことで、カーソル位置表示に無事に戻った。
ちなみに自環境のATOKのバージョンは2017です。
Visual Studioの外部ツール機能を利用して、Visual Studioで開いているファイルをショートカットキー一発で（orメニューから）emacs/emacsclientで開くことができる設定を紹介します。カーソル位置がemacsに引き継がれるのが地味に便利です。職場の都合などでビルド環境がVisual Studioだが、ビルド以外の作業は使い慣れたemacsを利用したい、という方にお勧めです。
今の時代になぜWSLでなくcygwinなのか？という疑問をもたれる方がいると思いますが、このエントリはWSLがリリース前にメモを作って、ずっと公開しないまま眠っていたものです。せっかくの情報なので時代遅れを承知の上公開します。
% gpg -e -r abc@test.org a.txt gpg: AAAA4C0DD6F2ZZZZ: この鍵が本当に本人のものである、という兆候が、ありません sub elg2048/AAAA4C0DD6F2ZZZZ 2020-05-06 Hiroyuki Kurokawa <abc@test.org> 主鍵フィンガープリント: <snip> 副鍵フィンガープリント: <snip> この鍵は、このユーザIDをなのる本人のものかどうか確信でき ません。今から行うことを＊本当に＊理解していない場合には、 次の質問にはnoと答えてください。 それでもこの鍵を使いますか? (y/N)以下のオプションを指定することで、指定した公開鍵がすべてtrust済みと見なされて処理されます。
--trust-model always
always
Skip key validation and assume that used keys are always fully valid. You generally won’t use this unless you are using some external validation scheme. This option also suppresses the "[uncertain]" tag printed with signature checks when there is no evidence that the user ID is bound to the key. Note that this trust model still does not allow the use of expired, revoked, or disabled keys.
% port qv installed
Error: Current platform "darwin 15" does not match expected platform "darwin 14"
Error: If you upgraded your OS, please follow the migration instructions: https://trac.macports.org/wiki/Migration
OS platform mismatch
while executing
"mportinit ui_options global_options global_variations"
Error: /opt/local/bin/port: Failed to initialize MacPorts, OS platform mismatch
% xcode-select --install
% port -qv installed > myports.txt
% port echo requested | cut -d ' ' -f 1 > requested.txt
% sudo port -f uninstall installed
% sudo rm -rf /opt/local/var/macports/build/*
% curl -O https://svn.macports.org/repository/macports/contrib/restore_ports/restore_ports.tcl % chmod +x restore_ports.tcl % sudo ./restore_ports.tcl myports.txt
% port echo requested | cut -d ' ' -f 1 > requested.txt
% ghc ghc: Command not found.
% unzip hoge.zip error: invalid compressed data to inflateこのような場合には、-tzipオプションを指定して7zコマンドを実行することで、エラーを回避して解凍できます。パスワード保護されているzipアーカイブも問題なく解凍できました。
% 7z x -tzip hoge.zip
The program supports 7z (that implements LZMA compression algorithm), ZIP, CAB, ARJ, GZIP, BZIP2, TAR, CPIO, RPM and DEB formats.
% 7z --help 7-Zip [64] 15.14 : Copyright (c) 1999-2015 Igor Pavlov : 2015-12-31 p7zip Version 15.14.1 (locale=ja_JP.UTF-8,Utf16=on,HugeFiles=on,64 bits,4 CPUs Intel(R) Core(TM) i3-4130 CPU @ 3.40GHz (306C3),ASM,AES-NI) Usage: 7z[ ...] [ ...] [<@listfiles...>] a : Add files to archive b : Benchmark d : Delete files from archive e : Extract files from archive (without using directory names) h : Calculate hash values for files i : Show information about supported formats l : List contents of archive rn : Rename files in archive t : Test integrity of archive u : Update files to archive x : eXtract files with full paths -- : Stop switches parsing -ai[r[-|0]]{@listfile|!wildcard} : Include archives -ax[r[-|0]]{@listfile|!wildcard} : eXclude archives -ao{a|s|t|u} : set Overwrite mode -an : disable archive_name field -bb[0-3] : set output log level -bd : disable progress indicator -bs{o|e|p}{0|1|2} : set output stream for output/error/progress line -bt : show execution time statistics -i[r[-|0]]{@listfile|!wildcard} : Include filenames -m{Parameters} : set compression Method -mmt[N] : set number of CPU threads -o{Directory} : set Output directory -p{Password} : set Password -r[-|0] : Recurse subdirectories -sa{a|e|s} : set Archive name mode -scc{UTF-8|WIN|DOS} : set charset for for console input/output -scs{UTF-8|UTF-16LE|UTF-16BE|WIN|DOS|{id}} : set charset for list files -scrc[CRC32|CRC64|SHA1|SHA256|*] : set hash function for x, e, h commands -sdel : delete files after compression -seml[.] : send archive by email -sfx[{name}] : Create SFX archive -si[{name}] : read data from stdin -slp : set Large Pages mode -slt : show technical information for l (List) command -snh : store hard links as links -snl : store symbolic links as links -sni : store NT security information -sns[-] : store NTFS alternate streams -so : write data to stdout -spd : disable wildcard matching for file names -spe : eliminate duplication of root folder for extract command -spf : use fully qualified file paths -ssc[-] : set sensitive case mode -ssw : compress shared files -stl : set archive timestamp from the most recently modified file -stm{HexMask} : set CPU thread affinity mask (hexadecimal number) -stx{Type} : exclude archive type -t{Type} : Set type of archive -u[-][p#][q#][r#][x#][y#][z#][!newArchiveName] : Update options -v{Size}[b|k|m|g] : Create volumes -w[{path}] : assign Work directory. Empty path means a temporary directory -x[r[-|0]]{@listfile|!wildcard} : eXclude filenames -y : assume Yes on all queries
{-# LANGUAGE OverloadedStrings #-} import Network.HTTP.Client import Network.HTTP.Types.Status (statusCode) main :: IO () main = do manager <- newManager defaultManagerSettings request <- parseRequest "http://httpbin.org/get" response <- httpLbs request manager putStrLn $ "The status code was: " ++ (show $ statusCode $ responseStatus response) print $ responseBody response
{-# LANGUAGE OverloadedStrings #-} import Network.HTTP.Client import Network.HTTP.Types.Status (statusCode) import Network.HTTP.Client.TLS (tlsManagerSettings) -- 新たにimport文を追加 main :: IO () main = do -- manageSetProxyでデフォルトのプロキシ設定を上書く。 -- tlsManagerSettingsを利用するとこでhttps通信が可能になる。 manager <- newManager $ managerSetProxy (useProxy $ Proxy "127.0.0.1" 8080) tlsManagerSettings request <- parseRequest "https://httpbin.org/get" -- https通信に変更 response <- httpLbs request manager putStrLn $ "The status code was: " ++ (show $ statusCode $ responseStatus response) print $ responseBody response
import Network.HTTP.Client.Internal -- tlsManagerSettingsをベースにmanagerResponseTimeoutを30→5秒に、 -- managerConnCountを10→3に変更 mySettings :: ManagerSettings mySettings = tlsManagerSettings { managerResponseTimeout = responseTimeoutMicro 5000000 , managerConnCount = 3 }
{-# LANGUAGE OverloadedStrings #-} import Network.HTTP.Client import Network.HTTP.Types.Status (statusCode) main :: IO () main = do manager <- newManager defaultManagerSettings initialRequest <- parseRequest "http://httpbin.org/anything" let request = initialRequest { method = "POST" -- "GET", "PUT", "DELETE"などのメソッドを指定 , queryString = "foo=bar&xxx=yyy" -- parseRequestのuriに記述してもよい , requestHeaders = -- ヘッダはタプル（名前、値）のリストで指定 [ ("User-Agent", "New Agent!") , ("Content-Type", "text/plain") , ("Added-Header", "hoge") ] , requestBody = "body string." } let authRequest = applyBasicAuth "user" "pass" request -- ベーシック認証情報付与 response <- httpLbs authRequest manager putStrLn $ "The status code was: " ++ (show $ statusCode $ responseStatus response) print $ responseBody response
{-# LANGUAGE OverloadedStrings #-} import Network.HTTP.Client import Network.HTTP.Types.Status (statusCode) import qualified Data.ByteString as B main :: IO () main = do manager <- newManager defaultManagerSettings request <- parseRequest "http://httpbin.org/get" withResponse request manager receiveResponse receiveResponse :: Response BodyReader -> IO () receiveResponse response = do putStrLn $ "response version: " ++ (show $ responseVersion response) putStrLn $ "status code: " ++ (show $ statusCode $ responseStatus response) putStrLn $ "response header: " ++ (show $ responseHeaders response) -- receive body data block by block let loop = do bs <- brRead $ responseBody response if B.null bs then putStrLn "\nFinished response body" else do print bs loop loop
{-# LANGUAGE OverloadedStrings #-} import Network.HTTP.Client import Network.HTTP.Types.Status (statusCode) import Control.Exception (try) import System.Environment (getArgs) createRequest :: [String] -> IO Request createRequest [] = do putStrLn "NOTE: no argument is given. so use not existing url." parseRequest "http://unknown-host:80/" -- valid but not exists createRequest args = do let url = head args eRequest <- try $ parseRequest url case eRequest of Left e -> do print (e :: HttpException) putStrLn $ "given url (1st argument) is invalid: " ++ url error "error!" Right request -> return $ request main :: IO () main = do args <- getArgs manager <- newManager defaultManagerSettings request <- createRequest args eResponse <- try $ httpLbs request manager case eResponse of Left e -> do print (e :: HttpException) putStrLn $ "cannot reach server with given url: " ++ (head args) Right response -> do putStrLn $ "The status code was: " ++ (show $ statusCode $ responseStatus response) print $ responseBody response
% stack install cryptonite
-- While building custom Setup.hs for package cryptonite-0.24 using:
/Users/xxx/.stack/setup-exe-cache/x86_64-osx/Cabal-simple_mPHDZzAJ_2.0.1.0_ghc-8.2.2 --builddir=.stack-work/dist/x86_64-osx/Cabal-2.0.1.0 build --ghc-options " -ddump-hi -ddump-to-file -fdiagnostics-color=always"
Process exited with code: ExitFailure 1
Logs have been written to: /Users/kurokawa/.stack/script/lts-10.4/.stack-work/logs/cryptonite-0.24.log
Configuring cryptonite-0.24...
Preprocessing library for cryptonite-0.24..
Building library for cryptonite-0.24..
[ 1 of 120] Compiling Crypto.Cipher.DES.Primitive ( Crypto/Cipher/DES/Primitive.hs, .stack-work/dist/x86_64-osx/Cabal-2.0.1.0/build/Crypto/Cipher/DES/Primitive.o )
... snip ...
[120 of 120] Compiling Crypto.Tutorial ( Crypto/Tutorial.hs, .stack-work/dist/x86_64-osx/Cabal-2.0.1.0/build/Crypto/Tutorial.o )
/private/var/folders/3f/7fg601f92_33t43jhn2p0v0w0000gn/T/stack47334/cryptonite-0.24/cbits/cryptonite_rdrand.c:89:0: error:
no such instruction: `rdrand %r8'
|
89 | asm volatile ("rdrand %0; setc %1" : "=r" (*buffer), "=qm" (err));
| ^
/private/var/folders/3f/7fg601f92_33t43jhn2p0v0w0000gn/T/stack47334/cryptonite-0.24/cbits/cryptonite_rdrand.c:89:0: error:
no such instruction: `rdrand %r8'
|
89 | asm volatile ("rdrand %0; setc %1" : "=r" (*buffer), "=qm" (err));
| ^
/private/var/folders/3f/7fg601f92_33t43jhn2p0v0w0000gn/T/stack47334/cryptonite-0.24/cbits/cryptonite_rdrand.c:89:0: error:
no such instruction: `rdrand %r8'
|
89 | asm volatile ("rdrand %0; setc %1" : "=r" (*buffer), "=qm" (err));
| ^
`gcc' failed in phase `Assembler'. (Exit code: 1)
% stack install cryptonite --flag cryptonite:-support_rdrand cryptonite-0.24: configure cryptonite-0.24: build cryptonite-0.24: copy/register--flag cryptonite:-support_rdrandは、crptoniteパッケージのビルド処理において-support_rdrandフラグを適用することを意味する。
% cabal configure --flag='-support_rdrand' OR % cabal install --constraint="cryptonite -support_rdrand"
<table border> <tr> <th>name</th> <th>sex</th> <th>age</th> </tr> <tr> <td>Taro Yamada</td> <td>Male</td> <td>18</td> </tr> <tr> <td>Hanako Yamada</td> <td>Female</td> <td>25</td> </tr> <tr> <td>Ichiro Suzuki</td> <td>Male</td> <td>43</td> </tr> </table>
[
{"name":"Taro Yamada", "sex":"Male", "age":18},
{"name":"Hanako Yamada", "sex":"Female", "age":25},
{"name":"Ichiro Suzuki", "sex":"Male", "age":43}
]
Taro Yamada,Male,18 Hanako Yamada,Female,25 Ichiro Suzuki,Male,43
% stack new typedcontent yesod-simpleyesod-simpleは最も単純なyesodテンプレートでDB関連ライブラリへの依存がありません。
% cd typedcontent % stack build yesod-bin cabal-install
% stack build
% stack exec -- yesod develブラウザからhttp://localhost:3000/を開いてdevelサーバーにアクセスできることを確認してください。
-- サーバー上で管理するデータ定義。 data Sex = Male | Female deriving (Show) data Person = Person { name :: Text , age :: Int , sex :: Sex } deriving (Show) -- サーバー上のサンプルデータ。3人分の情報を保持。 samplePersonList :: [Person] samplePersonList = [ (Person "Taro Yamada" 18 Male) , (Person "Hanako Yamada" 25 Female) , (Person "Ichiro Suzuki" 41 Male) ]
-- HTML tableフォーマットでレスポンスを生成。 toTableHtml :: Handler Html toTableHtml = withUrlRenderer [hamlet| <table border> <tr> <th>name <th>age <th>sex $forall person <- samplePersonList <tr> <td>#{name person} <td>#{age person} <td>#{show $ sex person} |] getHomeR :: Handler Html getHomeR = toTableHtml
% curl http://localhost:3000/
getHomeR :: Handler TypedContent
getHomeR = selectRep $ do
provideRep $ toTableHtml
provideRep $ return $ repPlain $ show samplePersonList
selectRepはdoブロックの中でprovidRepによって提供される複数のフォーマットから、クライアントの要求に適合するものを選択します。provideRepの引数で渡されているHtml, RepPlainはHasContentTypeのインスタンスであり、hasContentTypeが実装されています。この関数によりmime typeが比較され適切なContentが選択されます。マッチするものがない場合にはクライアントには406 Not Acceptableが返されます。
% curl -H "Accept: text/plain" http://localhost:3000/
[Person {name = "Taro Yamada", age = 18, sex = Male},Person {name = "Hanako Yamada", age = 25, sex = Female},Person {name = "Ichiro Suzuki", age = 41, sex = Male}]
% curl -H "Accept: text/html" http://localhost:3000/
<table border><tr><th>name</th>
<th>age</th>
<th>sex</th>
...
Yesodにはquery string parameterからAcceptヘッダを自動生成する便利機能が実装されています。
この仕組みを利用することで、Acceptヘッダを入力できないブラウザ上でも（URL入力だけで）動作を確認できます。
% curl http://localhost:3000/?_accept=text/plain
[Person {name = "Taro Yamada", age = 18, sex = Male},Person {name = "Hanako Yamada", age = 25, sex = Female},Person {name = "Ichiro Suzuki", age = 41, sex = Male}]
getHomeR :: Handler TypedContent getHomeR = selectRep $ do provideRep $ toTableHtml -- provideRep $ return $ repPlain $ show samplePersonList provideRepType "text/plain" (return $ show samplePersonList)provideRepTypeを利用することで、HasContentTypeのインスタンスを持っていないフォーマットを返すことができます。
-- CSVフォーマットのレスポンスを生成する。 class ToCSV a where toCsv :: a -> Text instance ToCSV Person where toCsv p = (name p) ++ ("," :: Text) ++ (pack $ show $ age p) ++ ("," :: Text) ++ (pack $ show $ sex p) ++ ("\n" :: Text) instance (ToCSV a) => ToCSV [a] where toCsv [] = "" toCsv (x:xs) = (toCsv x) ++ (toCsv xs) getHomeR :: Handler TypedContent getHomeR = selectRep $ do provideRep $ toTableHtml provideRep $ return $ repPlain $ show samplePersonList provideRepType "text/csv" (return $ toCsv samplePersonList) -- 追加！
% curl -H "Accept: text/csv" http://localhost:3000/ Taro Yamada,18,Male Hanako Yamada,25,Female Ichiro Suzuki,41,Male
{-# LANGUAGE DeriveGeneric #-}
...
-- toJSONを自動導出。DeriveGeneric言語拡張が必要。 instance ToJSON Sex instance ToJSON Person getHomeR :: Handler TypedContent getHomeR = selectRep $ do provideRep $ toTableHtml provideRep $ return $ repPlain $ show samplePersonList provideRepType "text/csv" (return $ toCsv samplePersonList) provideJson $ samplePersonList -- 追加！
% curl -H "Accept: application/json" http://localhost:3000/
[{"age":18,"name":"Taro Yamada","sex":"Male"},{"age":25,"name":"Hanako Yamada","sex":"Female"},{"age":41,"name":"Ichiro Suzuki","sex":"Male"}]
% grep Test -R doc --include="*.txt"
% grep typedef -R src -R include --include="*.h" --include="*.cpp"
% stack new json-sample yesod-sqlite --system-ghc"--system-ghc"は省略可能。インストール済みのghcを使うことを指示しています。
% stack build yesod-bin cabal-install --no-install-ghc"--no-install-ghc"は省略可。ghcのインストールを抑制するオプションです。
% stack build
% stack exec -- yesod develブラウザで http://localhost:3000/ にアクセスできることを確認
CREATE TABLE "post"( "id" INTEGER PRIMARY KEY, "title" VARCHAR NOT NULL, "content" VARCHAR NOT NULL, "sender" VARCHAR NOT NULL);
Post json
title Text
content Text
sender Text
% stack exec -- yesod add-handler Name of route (without trailing R): Posts Enter route pattern (ex: /entry/#EntryId): /posts Enter space-separated list of methods (ex: GET POST): GET POST後で実装するGETもあわせて追加しておきます。
{-- postPostsR :: Handler Html postPostsR = error "Not yet implemented: postPostsR" --} postPostsR :: Handler () postPostsR = do post <- requireJsonBody :: Handler Post _ <- runDB $ insert post sendResponseStatus status201 ("CREATED" :: Text)
library
hs-source-dirs: ., app
exposed-modules: Application
Foundation
Import
Import.NoFoundation
Model
Settings
Settings.StaticFiles
Handler.Common
Handler.Home
Handler.Comment
Handler.Posts
上記の通り、json-sample.cabalファイルの"exposed-modules"にHandler.Postsを手動で追記します。
% curl -v -H "Accept: application/json" -H "Content-type: application/json" -X POST -d '{"title" : "this is a title.", "content" : "this is a content.", "sender" : "kuro"}' --noproxy "*" http://localhost:3000/posts
* Trying 127.0.0.1...
* Connected to localhost (127.0.0.1) port 3000 (#0)
> POST /posts HTTP/1.1
> Host: localhost:3000
> User-Agent: curl/7.47.0
> Accept: application/json
> Content-type: application/json
> Content-Length: 83
>
* upload completely sent off: 83 out of 83 bytes
< HTTP/1.1 201 Created
< Transfer-Encoding: chunked
< Date: Sun, 28 Aug 2016 07:28:15 GMT
< Server: Warp/3.2.8
< Content-Type: text/plain; charset=utf-8
< Set-Cookie: _SESSION=O2DB2N/gbqZCdpbwyHihgoyK0Zfcj77lkv7J619gaHi8YZliO58oqpvWHIXKeGYZxZcDZpiVF1MJxWzoSaza0+pB5OrEMoG59xLuayySrnI2gUNMrGn+zRfeLkIUDEcCy7DjTNLaaYY=; Path=/; Expires=Sun, 28-Aug-2016 09:28:07 GMT; HttpOnly
< Vary: Accept, Accept-Language
<
* Connection #0 to host localhost left intact
POSTに成功しHTTP/1.1 201 Createdが返されていればOKです。GETで記事を取得できるかどうかは次のフェーズで確認します。
{-- getPostsR :: Handler Html getPostsR = error "Not yet implemented: getPostsR" --} getPostsR :: Handler Value getPostsR = do posts <- runDB $ selectList [] [] :: Handler [Entity Post] return $ object ["posts" .= posts]"selectList [] []"により、persistentの機能を利用して、postテーブル内のすべての行を取得しています。
% curl -v -H "Accept: application/json" --noproxy "*" http://localhost:3000/posts
* Trying 127.0.0.1...
* Connected to localhost (127.0.0.1) port 3000 (#0)
> GET /posts HTTP/1.1
> Host: localhost:3000
> User-Agent: curl/7.47.0
> Accept: application/json
>
< HTTP/1.1 200 OK
< Transfer-Encoding: chunked
< Date: Sun, 28 Aug 2016 07:37:02 GMT
< Server: Warp/3.2.8
< Content-Type: application/json; charset=utf-8
< Set-Cookie: _SESSION=8cq2RzyFQ4GmsHEgbAltpOFpOgys9zSm+xaE1LWFfv1WvgGpyKhmAkfRNRjqQf/clKN1y5BDgI36KedcIJWlIBFSz2teM8QSqMUon1BeLjzz8SOAT1Kdgi0JS5hfdlgu0TMMtHYXwIk=; Path=/; Expires=Sun, 28-Aug-2016 09:37:02 GMT; HttpOnly
< Vary: Accept, Accept-Language
<
* Connection #0 to host localhost left intact
{"posts":[{"sender":"kuro","content":"this is a content.","id":1,"title":"this is a title."}]}
% curl -H "Accept: application/json" --noproxy "*" http://localhost:3000/posts | python -mjson.tool
{
"posts" : [
{
"sender" : "kuro",
"id" : 1,
"content" : "this is a content.",
"title" : "this is a title."
}
]
}
% stack exec -- yesod add-handler Name of route (without trailing R): Filter Enter route pattern (ex: /entry/#EntryId): /posts/#Text Enter space-separated list of methods (ex: GET POST): GET
{-- getFilterR :: Text -> Handler Html getFilterR sender = error "Not yet implemented: getFilterR" --} getFilterR :: Text -> Handler Value getFilterR sender = do posts <- runDB $ selectList [PostSender ==. sender] [] :: Handler [Entity Post] return $ object ["posts" .= posts]persistentのクエリ機能の詳細については以前にまとめたブログエントリを参照を参照していただければ。
% curl --noproxy "*" http://localhost:3000/posts/kuro
{"posts":[{"sender":"kuro","content":"this is a content.","id":1,"title":"this is a title."},{"sender":"kuro","content":"this is a content.","id":2,"title":"this is a title."}]}
% curl --noproxy "*" http://localhost:3000/posts/hoge
{"posts":[{"sender":"hoge","content":"this is a content.","id":3,"title":"this is a title."}]}
% curl --noproxy "*" http://localhost:3000/posts/xxx
{"posts":[]}