2019-04-12

PHP プロフェッショナル 辞める 辞める すぎる EmacsLisp pre code defun php insert special interactive let default point point ))) insert quot ;'' ''& quot goto char default point ))) defun move front comma interactive goto char point string match quot ;,& quot buffer substring point point max )))))) defun move back comma interactive goto char point string match quot ;,& quot reverse buffer substring point min point ))))))) use package php mode ensure config define key php mode map kbd quot -.& quot php insert define key php mode map kbd quot quot php insert special define key global map kbd quot quot move front comma define key global map kbd quot quot move back comma define key web mode map kbd quot -.& quot php insert define key web mode map kbd quot quot php insert special ;)) code ></ pre ここら href https :// github com wasuken emacs blob master init github ></ コード PHP

日常

「PHPプロフェッショナル開発」やってた。それだけ。

外に出てない。

後会社辞めることになった。

経緯とかは特別なものはない。鬱で限界だったから辞めるだけ。客観的に見ても主観的に見ても会社は悪くない。

悪いのは弱すぎる私だ。全て私が悪い。

EmacsLisp書いた

(defun php-insert-special=> ()
  (interactive)
  (let ((default-point (point)))
	(insert "'' => ''")
	(goto-char default-point)))

(defun move-front-comma ()
  (interactive)
  (goto-char (+ (point) (string-match "," (buffer-substring (point) (point-max))))))

(defun move-back-comma ()
  (interactive)
  (goto-char (- (point)
				(string-match ","
							  (reverse (buffer-substring (point-min) (point)))))))

(use-package php-mode
  :ensure t
  :config
  (define-key php-mode-map (kbd "C-.") 'php-insert->)
  (define-key php-mode-map (kbd "C-M->") 'php-insert-special=>)
  (define-key global-map (kbd "C-, >") 'move-front-comma)
  (define-key global-map (kbd "C-, <") 'move-back-comma)
  (define-key web-mode-map (kbd "C-.") 'php-insert->)
  (define-key web-mode-map (kbd "C-M->") 'php-insert-special=>))

ここら辺かな。詳細はgithub

現段階ではこの程度のコードで問題ないはず。

PHPに限らず他の言語でも利用できそう。

comment:

Tweet

Home