åã¯æ®æ®µ Emacs ã使ã£ã¦ãããããããæè¿ Cursive*1 ã使ããã¨ãããã ããã§ä½ãå°ããã¨ãã㨠Cursive ã¯ã¡ãã£ã¨ã¤ã±ã¦ãªãã®ã§ãã¡ãã㨠Clojure(Script)? ããã©ã¼ããããããã¨ãã§ããªã*2ã Clojure ã®ã¹ã¿ã¤ã«ã¬ã¤ãã ã¨ä¾ãã° with-* ãã¯ãã®ã¨ã㯠2 ã¹ãã¼ã¹åã¤ã³ãã³ãããã¨ããããã ãã©ãããã Cursive ã§ãããªã«ããã®çµæ§ããã©ãããã¨ããããç¬èªã§ with-* ãå®ç¾©ãã¦ããããããã©ã«ãã§ç¶ºéºã«ã¤ã³ãã³ããã¦ãããªããã ãããã®ã¾ã¾ã³ãããããã¨å°ã£ããã¨ã«ãªãããã§ããã ãããã³ãããåã«èªåã§ã©ãã«ãããããã¨æãããã§ããè³¢æãªèªè ãªãæ¢ã«æ°ä»ãã¦ããã¨æããã©ããã Emacs Lisp ã使ãã°ãããã§ãã ã¹ã¯ãªããè¨èªã¨ãã¦ã®Emacs Lisp ã¨ãããã¨ã§ãããªæãã®ã¹ã¯ãªãããæ¸ã
ãã£ã¨åããããããªã¼ã£ã¦æã£ã¦ããã©ãæãã®å¤ç°¡åã«åºæ¥ãã®ã§æºè¶³ãã¦ããã (setq-default header-line-format '("" (:propertize (:eval (shorten-directory default-directory 30)) face mode-line-folder-face) (:propertize "%b" face mode-line-filename-face))) (defun shorten-directory (dir max-length) "Show up to `max-length' characters of a directory name `dir'." (let ((path (reverse (split-string (abbreviate-file-name dir) "/"))) (output
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
å¦çãå®è¡ä¸ã§ã
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}