Shigeru Fujiwara sgr
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| To load "cl-cuda-test": | |
| Load 1 ASDF system: | |
| cl-cuda-test | |
| ; Loading "cl-cuda-test" | |
| ...... | |
| [37mtest cuInit[0m | |
| Invoking CU-INIT succeded. | |
| [37mtest cuDeviceGet[0m | |
| Invoking CU-DEVICE-GET succeded. | |
| CUDA device handle: 0 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Test script | |
| ```lisp | |
| #!/bin/sh | |
| #|-*- mode:lisp -*-|# | |
| #| | |
| exec ros -Q -- $0 "$@" | |
| |# | |
| (progn ;;init forms |
sgr
/ file0.txt
Created
March 5, 2018 19:09
Azure Logic App で Azure メトリックアラートを Slack に投稿する ref: https://qiita.com/sgr@github/items/b79405f952b8de8987a4
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| { | |
| "properties": { | |
| "context": { | |
| "properties": { | |
| "condition": { | |
| "properties": { | |
| "metricName": { | |
| "type": "string" | |
| }, | |
| "metricUnit": { |
sgr
/ file0.txt
Last active
August 9, 2017 17:44
Raspberry Piでdocker-composeをインストールする ref: http://qiita.com/sgr@github/items/1de508bc89e4e7f3e299
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $ git clone -b release https://github.com/docker/compose.git | |
| $ cd compose |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| escape ^Tt | |
| altscreen on | |
| defscrollback 1000 | |
| termcapinfo xterm* ti@:te@ | |
| startup_message off | |
| defbce on | |
| term xterm-256color | |
| hardstatus alwayslastline | |
| #hardstatus string '%{= kG}[%{G}%H%? %1`%?%{g}][%= %{= kw}%-w%{+b yk} %n*%t%?(%u)%? %{-}%+w %=%{g}][%{B}%m/%d %{W}%C%A%' | |
| #hardstatus alwayslastline "%{= cd} %-w%{= wk} %n %t* %{-}%+w %= LoadAVG [%l] " |
sgr
/ NSUUID+Base64.h
Created
August 28, 2014 07:02
UUIDをなるべく短い文字列に変換する ref: http://qiita.com/sgr@github/items/1e720c916f0c80dff4f4
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // | |
| // NSUUID+Base64.h | |
| // | |
| // | |
| #import <Foundation/Foundation.h> | |
| @interface NSUUID (Base64) | |
| - (instancetype)initWithBase64String:(NSString*)string withPadding:(BOOL)padding; |
sgr
/ workaround_the_iconservices_bug_mavericks.sh
Last active
July 25, 2020 11:01
When "com.apple.IconServicesAgent" exhausts CPU resources on Mac OSX mavericks (10.9), you can try following workaround.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/bin/sh | |
| mkdir ${TMPDIR}/com.apple.IconServices |
sgr
/ gist:1809056
Created
February 12, 2012 15:27
condx: extends cond to allow 'if-let' style binding forms.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defmacro condx-aux [f & clauses] | |
| (when clauses | |
| (list f (first clauses) | |
| (if (next clauses) (second clauses) | |
| (throw (IllegalArgumentException. "condx requires an even number of forms"))) | |
| (cons 'condx (next (next clauses)))))) | |
| (defmacro condx | |
| "condx extends cond to allow 'if-let' style binding forms. | |
| Example: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defun init-cygpath () | |
| (when (eq system-type 'cygwin) | |
| (require 'compile) | |
| (require 'cl) | |
| (labels ((dquote (s) (concat "\"" s "\"")) | |
| (apply-cygpath (opt p) | |
| (replace-regexp-in-string | |
| "\n" "" | |
| (shell-command-to-string | |
| (mapconcat 'identity (list "cygpath" opt (dquote p)) " "))))) |