jason/emacs.d
1
0
Fork 0
Code Issues 3 Pull requests Projects Releases Packages Wiki Activity

closed TODO and updated comments

Browse source
This commit is contained in:
Jason Tian 2023-08-20 10:50:22 +08:00
parent 3104fa845d
commit 41fbe857f5
1 changed files with 16 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
lisp/init-misc.el
View file

@ -520,15 +520,18 @@ support."
;; { START: config for counsel-etags and company-ctags
;; <<config-ce-cc>>
(defun my-tags-file (&optional select tags-file)
"If SELECT is non-nil, set the value of `my-tags-file` to TAG-FILE. If TAGS-FILE is nil, use the user-selected file path
"If SELECT is non-nil, set the value of `my-tags-file` to
TAG-FILE. If TAGS-FILE is nil, use the user-selected file path
after prompting for it through `my/file`.
Otherwise, set `my-tags-file` to the value returned by `my/find-tags-file`.
-- generated by ChatGPT :)"
Otherwise, set `my-tags-file` to the value returned by
`my/find-tags-file`. -- generated by ChatGPT :)
Updated: 2023-08-20"
(if select
(if tags-file
(setq my-tags-file tags-file)
(progn (my/file)
(setq my-tags-file my-file-value)))
(if tags-file
(setq my-tags-file tags-file)
(progn (my/file)
(setq my-tags-file my-file-value)))
(setq my-tags-file (my/find-tags-file)))
)
@ -540,12 +543,13 @@ files in counsel-etags-extra-tags-files should have symbols with
absolute path only." my-tags-table-list)
)
;; TODO: to be tested...
(defun my/insert-into-my-tags-table-list(&optional select tags-file)
"automatically insert the TAGS file or select TAGS file to
insert(C-u), into `my-tags-table-list',
`counsel-etags-extra-tags-files' and
`company-ctags-extra-tags-files'."
`company-ctags-extra-tags-files'.
Updated: 2023-08-20"
(interactive "P")
(unless (boundp 'my-tags-table-list)
;; if `my-tags-table-list' is void, then set it to empty list
@ -560,12 +564,13 @@ insert(C-u), into `my-tags-table-list',
(my-set-extra-tags-files my-tags-table-list)
)
;; TODO: to be tested...
(defun my/delete-from-my-tags-table-list (&optional select tags-file)
"automatically delete the TAGS file or select TAGS file to
delete(C-u), from `my-tags-table-list',
`counsel-etags-extra-tags-files' and
`company-ctags-extra-tags-files'."
`company-ctags-extra-tags-files'.
Updated: 2023-08-20"
(interactive "P")
(my-tags-file select tags-file)
(setq my-tags-table-list