hidsh

#!/usr/bin/sh

patch evil-ex.el evil-ex.patch

hidsh

#!/usr/bin/sh

patch undo-tree.el undo-tree.el.patch

hidsh

#!/usr/bin/sh

patch mozc.el mozc.el.patch

hidsh

$ ls
Makefile  a.out  hogelib.c  main.c
$ ./a.out
2
$

！！！！！！！！！！！！！まじか！！！！！！！

hidsh

#!/usr/bin/sh
wait_sec=5

beg=`date +%s`
end=$(($beg + $wait_sec))
while [ `date +%s` -le $end ]; do
        echo -n '.'
done
echo '\nend'

hidsh

;;; consult-selected.el --- Consult extension for selected.el  -*- lexical-binding: t; -*-

;; Copyright (C) 2022 ballforest

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,

hidsh

;; 関数のトップレベルでしか動作しないので注意
(defmacro my-assert (form)
  `(let* ((backtrace (backtrace-frame 2))
          (func-name (nth 1 backtrace)))
     (unless ,form (error "Assert in %s(): should be %S" func-name ',form))))

hidsh

// soatari-matrix test for pro micro
// マトリクスのテスト　RC1..RC3を順ぐりにLO出力にして、LO出力以外のRCxを入力にしてSWxxをセンスする
// マトリクスが変化したときのAD値を表示する

//  7     8     9 <-- pin number 
// RC1   RC2   RC3
// ----------------
//  -  , SW12, SW13
// SW21,  -  , SW23
// SW31, SW32,   - 

hidsh

(defun my-consult-ripgrep (&optional parg dir initial)
  "`consult-ripgrep` with symbol-at-point.
Besides, it can be Specified top directory to search using prefix-argument, e.g. C-u."
  (interactive "p")
  (setq initial (thing-at-point 'symbol))
  (setq dir (pcase parg
              (1 nil)               ;; not given prefix-arg
              (t (let ((insert-default-directory t))
                   (read-directory-name "Ripgrep Dir: ")))))
  (consult-ripgrep dir initial)))

hidsh

# コマンドライン(powershell)で Windows 10 の復元ポイントを作成
#

$comment = Read-Host "コメント"
if([string]::IsNullOrEmpty($comment)) {
	$comment = "変更"
}

#Write-Output $comment