[Util] Source Insight에 쓰기 편한 bookmark 메크로를 만들자

아주 예전에 다른 블로그에 작성했던 글을 옮겨옵니다. 적어도 제겐 꽤나 유용한 내용인데, 블로그에 정리해 놨었던걸 까먹고 하드디스크만 열심히 뒤지며 삽질했었거든요. 구글 덕분에 잊혀졌던 옜 블로그를 기억해 냈습니다. 젠장...

어지간한 소스 편집 툴들은 Ctrl+F2를 bookmark set/clear 키로, F2를 jump to next bookmark 키로 사용합니다. 큰 파일이나 여러 파일 여기저기 뛰어다니며 코딩할 때 이거 써보면 정말 편해요. 그런데 Source Insight에는 너무 기능이 많은 북마크가 있습니다. 단축키 2개로 하는 간단한 기능이 더 쓰기 편한데, 기능이 많아져서 쓰기 불편해졌습니다.

그래서 아래 글과 같이 메크로를 만들고 키 등록해서 사용중입니다. 한번 써보세요. 정말 강추!

원본 작성일 : 2006년 6월 27일 

+-----------------------------------------------------------------------------------------------+

일에 집중하기 힘들어 잠시 놀기위해 무언가 읽을 거리를 찾다가 source insight의 메뉴얼을 보게 되었고, 문득 source insight의 거지같은 bookmark를 좀 쓰기 편하게 만들 수 있겠다는 생각이 들어 한번 만들어 보았다.
(tested on SoureInsight 3.50.0029)  [글 옮겨온 2012년 11월 현재 3.50.0070 버전에서 테스트 완료]




SourceInsight의 메크로는 꽤나 강력하다.

왠만한 스크립트언어 수준의 작업이 가능하면서도 무척 배우기 쉽다. 또한 "문서"라는 작업 대상에 적합한 각종 API들이 제공되기 때문에 훨씬 더 쉽게 작업할 수 있다.
그치만 source insight에서 제공하는 메뉴얼이 너무 허접하다는 점은 좀 개선되었으면 싶다. 샘플도 너무 부족하고. 

/* ez Bookmark macro for Source Insight 3.5 Tested on SourceInsight ver 3.50.0029 Copyright (c) 2006 빈티지푸 If you have question or bugs, please post on my blog http://kinreport.egloos.com Usage : 1. Add this file to "Base" project. If you don't use "Base" project, make it. Using "Base" project will make you more happy. 2. Assign shortcut key to below 3 macros. - ToggleBookmark - JumpToNextBookmark - JumpToPrevBookmark */ // Toggle bookmark at current cursor position. // Recomended shortcut key : Ctrl+F2 macro ToggleBookmark() { pBuf = GetCurrentBuf() pBufProp = GetBufProps(pBuf) pWnd = GetCurrentWnd() line = GetWndSelLnFirst(pWnd) ch = GetWndSelIchFirst(pWnd) maxIndex = BookmarksCount() i = 0 maxName = 0; while(i < maxIndex) { pBM = BookmarksItem(i) if ((pBM.File == pBufProp.name) && (pBM.ln == line)) { BookmarksDelete(pBM.Name) return } if (pBM.Name > maxName) { maxName = pBM.Name } i = i + 1 } BookmarksAdd(maxName + 1, pBufProp.Name, line, ch) } // Jump to next bookmark position. // Caution : If you close source file window which contains bookmarks, // SourceInsight will delete bookmarts in that file. // Recomended shortcut key : Ctrl+F8 macro JumpToNextBookmark() { currentIndex = GetCurrentBookmarkIndex() maxIndex = BookmarksCount() if (maxIndex == 0) { return } currentIndex = currentIndex + 1; if (currentIndex > maxIndex) { currentIndex = 1; } SetCurrentBookmarkIndex(currentIndex) JumpToBookmarkIndex(currentIndex) } // Jump to previous bookmark position. // Caution : If you close source file window which contains bookmarks, // SourceInsight will delete bookmarts in that file. // Recomended shortcut key : Ctrl+F7 macro JumpToPrevBookmark() { currentIndex = GetCurrentBookmarkIndex() maxIndex = BookmarksCount() if (maxIndex == 0) { return } currentIndex = currentIndex - 1; if (currentIndex <= 0) { currentIndex = maxIndex; } SetCurrentBookmarkIndex(currentIndex) JumpToBookmarkIndex(currentIndex) } // internal macro // Get latest bookmark navigation index. macro GetCurrentBookmarkIndex() { sTempBufName = "Bookmark Index" pOut = GetBufHandle(sTempBufName) if (pOut == hNil) { pOut = NewBuf(sTempBufName) maxIndex = BookmarksCount() InsBufLine(pOut, 0, maxIndex) SetBufDirty(pOut, False) return 0 } index = GetBufLine(pOut, 0) return index } // internal macro // Set latest bookmark navigation index. macro SetCurrentBookmarkIndex(index) { sTempBufName = "Bookmark Index" pOut = GetBufHandle(sTempBufName) if (pOut == hNil) { pOut = NewBuf(sTempBufName) SetBufDirty(pOut, False) } PutBufLine(pOut, 0, index) SetBufDirty(pOut, False) } // internal macro // Jump to bookmark position macro JumpToBookmarkIndex(index) { pBM = BookmarksItem(index - 1) pBuf = OpenBuf(pBM.File) if (pBuf == hNil) { file = pBM.File line = pBM.ln msgout = "Fail to jump [@file@ : @line@]" Msg(msgout) return } SetBufIns(pBuf, pBM.ln, pBM.ich) }