避免不小心编辑了.h 文件


#1

我现在的场景是:

  1. 时常要去看一下.h 文件
  2. 会较频繁的改.cpp 文件, 少数的场景要去修改.h 文件
  3. 偶尔不小心修改了.h 文件, 然后有时需要很长的时间去编译

所以我打算在save 特定的 .h 之前 做一些特殊的处理, 比如

(defun check-before-save()
   " 1. if the buffer is changed but the content is same as disk.  stop revert the buffer and stop save.
   " 2. if the buffer is different from the content in disk,  ask if save (yes/no), y save,  n.  revert the buffer. and not save 
)
(add-hook 'before-save-hook #'check-before-save)

我的问题是:

  1. 如何在 check-before-save 里面 stop save。 直接(revert-buffer) 是不是就可以了?
  2. ask if save (yes/no), y save, n (revert-buffer) ==> 这段逻辑在lisp 中 一直不会,如果能有个例子更好了。
  3. #'check-before-save 和 'check-before-save 的区别是什么?
  4. hook 的工作机制是什么样的? 因为(save-buffer) 之前会去检查 (before-save-hook) 的内容, 但我了 源码,好像并没有…

#2

我感觉其实可以换个思路解决这个问题……不在保存的时候处理,而在打开的时候就设置为只读模式。

因为反正你很少编辑.h文件,那么在需要编辑的时候关闭只读模式即可,


#3
(if (yes-or-no-p "Are you ready?")
    (message "Let's Rock'in roll!")
  (message "..."))

#4
(if (yes-or-no-p "dO yOu KnOw BoOgIe WoOgIe?")
    (message "Let me show you!")
  (message "..."))


#5

赞,这个想法我试试。


#6

多谢 emcas_ran & cireu, 原来函数如此简洁


#7
  1. 还有y-or-n-p。purcell是(fset 'yes-or-no-p 'y-or-n-p)的,这样不用再敲yes,永远只要按y。可以按个人口味酌量添加。


#8

我喜欢(advice-add #'yes-or-no-p :override #'y-or-n-p)

直接覆盖yes-or-no-p的话感觉还是不太好。有时候放magit在后台运行。运行完成的时候magit会强制你进入minibuffer回答一些提问。假如你正好在打字。而且正好打到y上,而你想选的是no,那就悲剧了。


#9

用advice不也一样是永远用y-or-n-p么……


#10

先苟且着用,用advice-add显得比较优雅(误)


#11
(advice-add #'yes-or-no-p :override #'y-or-n-p)

(defun cm/with-true-yes-or-no-p (fun &rest args)
  (require 'advice)
  (cl-letf (((symbol-function #'yes-or-no-p)
             (ad-get-orig-definition #'yes-or-no-p)))
    (apply fun args)))

(advice-add #'magit-y-or-n-p :override #'cm/with-true-yes-or-no-p)

#12

看了好久终于明白了……可以解释一下照顾我等lisp苦手。另外cl-letfletf多了啥?


#13

24以上letf就是cl-letf的别名

这个别名要requirecl才有,cl-lib没有这个别名

就是用advice.el提供的ad-get-orig-definition获取还没被advice的函数定义。然后放在letf块里遮盖住被adviced的定义。

其实笨一点的方法,用

(unwind-protect
    (progn
      (advice-remove #'yes-or-no-p #'y-or-n-p)
      ;; ...do something
      )
  (advice-add #'yes-or-no-p :override #'y-or-n-p))

也行


用错advice了,应该用around才对

还要你的magit-slow-confirm为t