Elisp : 형식으로 따옴표를 얻을 수/<code>.mailrc</code>에서

Question

, 내가 첫 번째 행을 좀하고 싶습니다 에코,하지만 난 문제가 format 또는 echo와 경우

alias UIF "UIF Boxning <uifboxning@boxing.se>" # cool (written manually by me) 
alias test_alias test_name <test_mail> # no quotation marks (written by below defun) 

내가 확실하지 오전 두 번째 행을 얻을. 보라 :

(defun save-mail-address (address name alias) 
    "add an alias to the .mailrc file" 
    (interactive "sMail address: \nsFull name: \nsAlias: ") 
    (let ((compl-alias (format "alias %s \"%s \<%s\>\"" alias name address))) 
    (shell-command (concat "echo " compl-alias " >> .mailrc")))) 
(defalias 'sma 'save-mail-address) 

편집 :

:

또한

alias long  "Long Long <long@long.long>"     # 123456 
alias s   "S S <s@s.s>"         # 1 

, 내가 중복을 포함하도록 그렇게하지 확인했다 :

OK, 목표는 다음과 같이 유지하다

(defun append-blanks (str len) 
    (concat str (make-string (- len (length str)) ?))) 


(defun save-mail-address (mail name alias phone) 
"add an alias to the .mailrc file" 
(interactive "sMail mail: \nsFull name: \nsAlias: \nnPhone: ") 
    (let*(
    (alias-alias (format "alias %s" alias)) 
    (alias-alias-blanks (append-blanks alias-alias 16)) 
    (mail-str (append-blanks (format "\"%s \<%s\>\"" name mail) 48)) 
    (line (format "%s%s\# %d\n" alias-alias-blanks mail-str phone)) 
    (file "~/.mailrc")) 
     (with-temp-buffer 
     (insert-file file) 
     (if 
      (search-forward alias-alias (point-max) t) ; t = return nil on fail 
      (message (format "Error: The alias %s is already in use." alias)) 
      (progn 
       (insert line) 
       (sort-columns nil (point-min) (point-max)) ; nil = not reversed 
       (write-file file nil)))))) ; nil = inhibit confirm 

Answer 1

셸 명령에 전달되는 가변 인수가 항상 적절히 탈출했다.

(shell-command (concat "echo " (shell-quote-argument compl-alias))) 

Answer 2

그냥 다음과 같을 것입니다 Elisp을 통해 텍스트를 추가 :

(defun save-mail-address (address name alias) 
    "add an alias to the .mailrc file" 
    (interactive "sMail address: \nsFull name: \nsAlias: ") 
    (let ((compl-alias (format "alias %s \"%s \<%s\>\"" alias name address))) 
    (with-temp-buffer 
     (insert compl-alias "\n") 
     (write-region (point-min) (point-max) "~/.mailrc" t))))