hirono2021 @ ウィキ

Markdownから見出しレベルを指定しWikiに投稿するデータを生成

2021-04-14T11:20:51+09:00

&bold(){Emacs-Lisp関数} #highlight(lisp){{ ;; 2021-04-14 (defun k-markdown-copy-to-subtree-wiki (arg) "Narrow buffer to the current subtree." (interactive "p") (save-excursion (let ((=start)(=end)(=p)(line_start)(line_end)) ;;(markdown-outline-previous) (setq exec (lambda (pattern1 pattern2) (setq =p (point)) (re-search-backward pattern1 nil t)(setq =start (point)) (beginning-of-line)(setq line_start (point)) (end-of-line)(setq line_end (point)) (setq lv1 (concat "./" (car (nthcdr 5 (split-string (buffer-file-name) "/"))) "/")) (setq lv2 (concat (car (nthcdr 6 (split-string (buffer-file-name) "/"))) "/")) (setq title (concat lv1 lv2 (buffer-substring line_start line_end))) ;;(progn (markdown-back-to-heading-over-code-block t) (setq =start (point))) ;;(progn (markdown-end-of-subtree) ;;(if (and (markdown-heading-at-point) (not (eobp))) (goto-char =p)(message (int-to-string =start))(message (format "\$%s\\|%s\$" pattern2 pattern1)) (cond ((re-search-forward (format "\$%s\\|%s\$" pattern2 pattern1) nil t) (progn (backward-char 1)(beginning-of-line)(setq =end (point)))) (t (message "該当なし")))(message "%s" (int-to-string =end)) (setq fname (file-name-nondirectory (buffer-file-name))) (string-match ".+_\$.+\$\\.md" fname) (setq fname (match-string 1 fname)) ;;(copy-region-as-kill =start =end) ;; 指定した範囲のリージョンのテキストを変数に代入 (setq title (replace-regexp-in-string "#+ " "" title)) ;;(setq title (concat fname " ＃令和3年3月31日付告発状 " title)) (setq fname (concat "TITLE:" title)) (setq fname (concat fname "\n#contents\n----\n")) (setq text (buffer-substring-no-properties =start =end)) (setq text (concat fname text)) (setq text (replace-regexp-in-string "^#### " "**** " text)) (setq text (replace-regexp-in-string "^### " "*** " text)) (setq text (replace-regexp-in-string "^## " "** " text)) (setq text (replace-regexp-in-string "^# " "* " text)) (message title) ;; クリップボードに変数の内容を送る。 (generate-new-buffer "a") (with-temp-buffer (insert text) (call-process-region (point-min) (point-max) "xsel" nil "a" nil "--clipboard" "--input")) (message "%s" (buffer-string)) (kill-buffer "a") (generate-new-buffer "b") (with-temp-buffer (insert title) (call-process-region (point-min) (point-max) "xsel" nil "b" nil "--primary" "--input") (message "%s" (buffer-string))) (kill-buffer "b"))) ;; (if (boundp n) ;; (setq n 3)) (if arg (setq n arg) (setq n 3)) ;;なぜか1の処理が実行される。なかなか消えなかったエラー。 (cond ((eq n 1) (funcall exec "^# .+$" "^# .+$")) ((eq n 2) (funcall exec "^## .+$" "^# .+$")) ((eq n 3) (funcall exec "^### .+$" "^## .+$")) (t (funcall exec "^### .+$" "^## .+$"))) ))) }}

トップページ

2021-04-14T03:30:53+09:00

**@wikiへようこそ -ウィキはみんなで気軽にホームページ編集できるツールです。 -このページは自由に編集することができます。 -メールで送られてきたパスワードを用いてログインすることで、各種変更（サイト名、トップページ、メンバー管理、サイドページ、デザイン、ページ管理、等）することができます [[https://twitter.com/hirono_hideki/status/1377567816644141057]] &size(20){''Welcome to WIKIWIKI''}; * Twitter - [[奉納＼さらば弁護士鉄道・泥棒神社の物語（@hirono_hideki）さんの返信があるツイート / Twitter>https://twitter.com/hirono_hideki/with_replies]] - [[刑事告発・非常上告＿金沢地方検察庁御中（@kk_hirono）さんの返信があるツイート / Twitter>https://twitter.com/kk_hirono/with_replies]] - [[非常上告-最高検察庁御中_ツイッター（@s_hirono）さんの返信があるツイート / Twitter>https://twitter.com/s_hirono/with_replies]] * blog - [[非常上告-最高検察庁御中_ツイッター（@s_hirono）さんの返信があるツイート / Twitter>https://twitter.com/s_hirono/with_replies]] - [[告発・金沢地方検察庁御中 Wiki*>https://wikiwiki.jp/hirono2021/]] - [[告発＼金沢地方検察庁＼最高検察庁＼法務省＼石川県警察御中>https://hirono-hideki.hatenablog.com/]] - [[告発＼金沢地方検察庁＼最高検察庁＼法務省＼石川県警察御中2020>https://hirono-hideki.hatenadiary.jp/]] *wiki - [[令和3年3月31日付＼告発状の設計図面＼金沢地方検察庁御中>https://kokuhatu.memo.wiki/]] - [[告発・金沢地方検察庁御中 Wiki*>https://wikiwiki.jp/hirono2021/]] - [[hirono2021 @ ウィキ【4/11更新】 - atwiki（アットウィキ）>https://w.atwiki.jp/hirono2021/pages/1.html]] **まずはこちらをご覧ください。 -[[@wikiの基本操作>>http://www1.atwiki.jp/guide/pages/11.html]] -[[編集モード・構文一覧表>>http://www1.atwiki.jp/guide/pages/137.html]] -[[@wikiの設定・管理>>http://www1.atwiki.jp/guide/pages/36.html]] **分からないことは？ -[[@wiki ご利用ガイド>>http://atwiki.jp/guide/]] -[[よくある質問>>http://www1.atwiki.jp/guide/pages/21.html]] -[[@wiki更新情報>>http://www1.atwiki.jp/guide/pages/143.html]] -[[@wikiへのお問合せフォーム>>https://atwiki.zendesk.com/hc/ja]] 等をご活用ください **[[アットウィキモードでの編集方法>>http://www1.atwiki.jp/guide/pages/226.html#id_6861418f]] -[[文字入力>>http://www1.atwiki.jp/guide/pages/228.html]] -[[画像入力>>http://www1.atwiki.jp/guide/pages/230.html]] -[[表組み>>http://www1.atwiki.jp/guide/pages/914.html]] **[[ワープロモードでの編集方法>>http://www1.atwiki.jp/guide/pages/226.html#id_a14c0938]] -[[文字入力>>http://www1.atwiki.jp/guide/pages/2644.html]] -[[画像入力>>http://www1.atwiki.jp/guide/pages/2645.html]] -[[表組み>>http://www1.atwiki.jp/guide/pages/2646.html]] **その他にもいろいろな機能満載！！ -[[@wikiプラグイン一覧>>http://www1.atwiki.jp/guide/pages/264.html]] -[[@wikiかんたんプラグイン入力サポート>>http://www1.atwiki.jp/guide/pages/648.html]] **他のWIKIが気になる方はこちら -[[ハートオブクラウン@wiki>>https://w.atwiki.jp/hatokura/]] -[[VPVP wiki>>https://w.atwiki.jp/vpvpwiki/]] -[[ULTIMATE MARVEL VS. CAPCOM 3 @ wiki>>https://w.atwiki.jp/umvsc3/]] -[[AcesHigh Wiki Plus!>>https://w.atwiki.jp/aceshigh/]] -[[REBELLION Z-LIMITED>>https://w.atwiki.jp/z-limited/]] **バグ・不具合を見つけたら？要望がある場合は？お手数ですが、[[お問合せフォーム>>https://atwiki.zendesk.com/hc/ja]]からご連絡ください。

Markdownのカーソル位置にある見出しをwiki記法に変換し投稿用テキストを生成

2021-04-12T12:58:17+09:00

#highlight(lisp){{ ;; 2021-04-11 (defun k-markdown-copy-to-subtree-wiki () "Narrow buffer to the current subtree." (interactive) (save-excursion (let ((=start)(=end)) (markdown-outline-previous) (beginning-of-line)(setq =start (point)) (end-of-line)(setq =end (point)) (setq title (buffer-substring =start =end)) (progn (markdown-back-to-heading-over-code-block t) (setq =start (point))) (message title) (progn (markdown-end-of-subtree) (if (and (markdown-heading-at-point) (not (eobp))) (backward-char 1)) (setq =end (point)) (setq fname (file-name-nondirectory (buffer-file-name))) (string-match ".+_\$.+\$\\.md" fname) (setq fname (match-string 1 fname)) ;;(copy-region-as-kill =start =end) ;; 指定した範囲のリージョンのテキストを変数に代入 (setq title (replace-regexp-in-string "#" "＊" title)) (setq title (concat fname " ＃令和3年3月31日付告発状 " title)) (setq fname (concat "TITLE:" title)) (setq fname (concat fname "\n#contents\n----\n")) (setq text (buffer-substring-no-properties =start =end)) (setq text (concat fname text)) (setq text (replace-regexp-in-string "^#### " "**** " text)) (setq text (replace-regexp-in-string "^### " "*** " text)) (setq text (replace-regexp-in-string "^## " "** " text)) (setq text (replace-regexp-in-string "^# " "* " text)) (message title) ;; クリップボードに変数の内容を送る。 (x-set-selection nil text) }}

Emacs-Lisp/read-string

2021-04-12T10:40:07+09:00

&topicpath(top=Top) #highlight(lisp){{ (setq default-format "%Y/%m/%d %H:%M:%S") (defvar insert-date-format-history '()) (read-string (format "Format (default %s): " default-format) "" 'insert-date-format-history xxx) "てすと" "x" (setq xxx "てすと") "てすと" }}

Emacs-Lisp/現在の日付と時刻を独自フォーマットでカーソル位置に挿入

2021-04-12T10:39:19+09:00

&topicpath(top=Top) #highlight(sh){{ ;; 2021-04-11 (defun insert-start-date (arg) (interactive "p") (insert (format-time-string "〉〉〉 Linux Emacs： %Y/%m/%d %H:%M:%S 〉〉〉"))) (defun insert-end-date (arg) (interactive "p") (insert (format-time-string "〈〈〈 %Y/%m/%d %H:%M:%S Linux Emacs：〈〈〈 "))) ;;　キーマップに登録 ;;キャップスキーのキーバインド (let ((cmap (make-sparse-keymap))) ;caps key (define-key cmap "e" 'insert-end-date) (define-key cmap "s" 'insert-start-date) (setq caps-key cmap)) }} 実行結果： ---- ;; This buffer is for text that is not saved, and for Lisp evaluation. ;; To create a file, visit it with and enter text in its buffer. 〉〉〉 Linux Emacs： 2021/04/11 19:45:05 〉〉〉〈〈〈 2021/04/11 19:45:11 Linux Emacs：〈〈〈

あ

2021-04-11T20:24:51+09:00

あ &lightbox(https://img.atwiki.jp/hirono2021/attach/14/1/2021-04-07%2018.22.55.jpg,link=image,title=@wiki,percent=50) &lightbox(https://img.atwiki.jp/hirono2021/attach/14/2/2021-04-09%2015.43.02.jpg,link=image,title=@wiki,percent=50)

メニュー

2021-04-11T19:35:21+09:00

**メニュー -[[トップページ]] -[[プラグイン紹介>プラグイン]] -[[メニュー]] -[[右メニュー]] +[[menu]] [[Emacs-Lisp]] ---- **リンク -[[@wiki>>http://atwiki.jp]] -[[@wikiご利用ガイド>>http://atwiki.jp/guide/]] // リンクを張るには "[" 2つで文字列を括ります。 // ">" の左側に文字、右側にURLを記述するとリンクになります //**更新履歴 //#recent(20) &link_editmenu(text=ここを編集)

Emacs-Lisp

2021-04-11T19:31:43+09:00

* Emacs-Lisp #ls()

右メニュー

2021-04-11T18:49:17+09:00

**更新履歴 #recent(20) &link_editmenu2(text=ここを編集)

プラグイン/ニュース

2021-04-11T18:49:17+09:00

* ニュース @wikiのwikiモードでは #news(興味のある単語) と入力することで、あるキーワードに関連するニュース一覧を表示することができます詳しくはこちらをご覧ください。＝＞http://www1.atwiki.jp/guide/pages/266.html#id_542badf7 ----- たとえば、#news(ゲーム)と入力すると以下のように表示されます。 #news(ゲーム)